SRL Archive - SRL Archives

//-----------------------------------------------------------------//
//--               Scar Standard Resource Library                --//
//--                    Fletching routines                       --//
//-----------------------------------------------------------------//
// * procedure SetupFletching;                                     // by SRL
// * procedure LoadFletchingBitmaps;                               // by Frement
// * function KnifeExists(var x, y: Integer): Boolean;             // by Frement
// * procedure FreeFletching;                                      // by Frement

{ var Knife: Integer;
  Description: Variables containing the fletching bitmaps. }
var
  Knife: Integer;

{*******************************************************************************
procedure LoadFletchingBitmaps;
By: Frement
Description: Loads bitmaps into memory.
*******************************************************************************}
procedure LoadFletchingBitmaps;
begin
  Knife := BitmapFromString(5, 4, 'meJxjYmBIScmIi0uKiooLDglnYmBI' +
    'SEiJiUkIC4vq7ZvCqesKRD09k6qqGoBSEC4EAbkAA6YPWA==');
end;

{*******************************************************************************
function KnifeExists(var x, y: Integer): Boolean;
By: Frement
Description: Checks if there is Knife present in inventory.
             Returns 'x' and 'y' values it is found at.
*******************************************************************************}
function KnifeExists(var x, y: Integer): Boolean;
begin
  Gametab(tab_Inv);
  Wait(300 + Random(300));
  Result := FindBitmapToleranceIn(Knife, x, y, MIx1, MIy1, MIx2, MIy2, 10);
end;

{*******************************************************************************
procedure FreeFletching;
By: Frement
Description: Frees Global Bitmaps.
*******************************************************************************}
procedure FreeFletching;
begin
  FreeBitmap(Knife);
end;

{*******************************************************************************
procedure SetupFletching;
By: SRL
Description: Declares Global Bitmaps.
*******************************************************************************}
procedure SetupFletching;
begin
  LoadFletchingBitmaps;
end;

Some stuff that I thought would be useful, as FireMaking.scar will have (?) these additions.

Well, anyway, tested, works.

Uhm, set it up to use the SRL bitmaps and I'm game. :)

From: Frement

Some stuff that I thought would be useful, as FireMaking.scar will have (?) these additions.

Firemaking.scar got no addition. The .bmp was already in there, I just updated it.

From: Nava2
Uhm, set it up to use the SRL bitmaps and I'm game. :)

{*******************************************************************************
function KnifeExists(var x, y: Integer): Boolean;
By: Frement
Description: Checks if there is Knife present in inventory.
             Returns 'x' and 'y' values it is found at.
*******************************************************************************}
function KnifeExists(var x, y: Integer): Boolean;
begin
  Gametab(tab_Inv);
  Wait(300 + Random(300));
  Result := FindBitmapToleranceIn(Knife, x, y, MIx1, MIy1, MIx2, MIy2, 10);
end;

Is the same exact function I posted using a different .bmp… What makes this one acceptable if I may ask?

{*******************************************************************************
function TinderBoxExists(var x, y: Integer): Boolean;
By: NCDS
Description: Checks if there is TinderBox present in inventory. Returns 'x' and 'y' values it is found at.
*******************************************************************************}
function TinderBoxExists(var x, y: Integer): Boolean;
begin
  Gametab(tab_Inv);
  Wait(300 + Random(300));
  Result := FindBitmapToleranceIn(TinderBox, x, y, MIx1, MIy1, MIx2, MIy2, 10);
end;

Couldn't even change the 'Description'? :duh:

From: Nava2
Uhm, set it up to use the SRL bitmaps and I'm game. :)

SRL bitmaps? I made it the same way FireMaking.scar has it?

From: NCDS
Firemaking.scar got no addition. The .bmp was already in there, I just updated it.

Even without the function I think the bitmap should be in there.

From: NCDS

{*******************************************************************************
function KnifeExists(var x, y: Integer): Boolean;
By: Frement
Description: Checks if there is Knife present in inventory.
             Returns 'x' and 'y' values it is found at.
*******************************************************************************}
function KnifeExists(var x, y: Integer): Boolean;
begin
  Gametab(tab_Inv);
  Wait(300 + Random(300));
  Result := FindBitmapToleranceIn(Knife, x, y, MIx1, MIy1, MIx2, MIy2, 10);
end;

Is the same exact function I posted using a different .bmp… What makes this one acceptable if I may ask?

{*******************************************************************************
function TinderBoxExists(var x, y: Integer): Boolean;
By: NCDS
Description: Checks if there is TinderBox present in inventory. Returns 'x' and 'y' values it is found at.
*******************************************************************************}
function TinderBoxExists(var x, y: Integer): Boolean;
begin
  Gametab(tab_Inv);
  Wait(300 + Random(300));
  Result := FindBitmapToleranceIn(TinderBox, x, y, MIx1, MIy1, MIx2, MIy2, 10);
end;

Couldn't even change the 'Description'? :duh:

How do you expect it to be done then? And I actually just took the description :)

From: Frement
How do you expect it to be done then? And I actually just took the description :)

He said that because Nava said the Firemaking function shouldn't be added.

From: Nava2
Uhm, set it up to use the SRL bitmaps and I'm game. :)

I like how they're separated and I think it works seeing as the skill files aren't included in SRL.

http://villavu.com/forum/showthread.php?t=57783

Bitmaps should be central, rather than separated over the files.

Easier to update. Easier to find. Easier to everything.

~RM

We really need to move away from bitmaps. If anything DTMs.

From: Narcle
We really need to move away from bitmaps. If anything DTMs.

From: Coh3n
http://villavu.com/forum/showthread.php?t=57783

;).

From: NCDS
;).

Yes I know… Just saying.