SRL Archive - SRL Archives

procedure FixBankHuman;


Daniel

2009-08-30 09:40:33

FixBankHuman, instead of clicking just below the arrow to make it scroll up really quick, i do it human-like :) I let it click and hold the arrow until it's completely scrolled up, which is what most people do.

Append to \SRL\core\Bank.scar:

{*******************************************************************************
procedure FixBankHuman;
by: Dan's The Man
Description: Scrolls the bank screen up by clicking and holding the arrow (human).
*******************************************************************************}
procedure FixBankHuman;
var
x, y: Integer;
begin
if(BankScreen) then
begin
if(GetColor(489, 102) = 2830904) then
Exit;
if(GetColor(489, 102) <> 5532018) then
begin
MouseBox(483, 88, 494, 99, 3);
GetMousePos(x, y);
HoldMouse(x, y, True);
while (GetColor(489, 102) <> 5532018) do
Wait(20 + RandomRange(10, 20));
ReleaseMouse(x, y, True);
end;
end;
end;

Rich

2009-08-30 13:00:27

Adding onto that:
{*******************************************************************************
procedure FixBankRandom;
by: R1ch
Description: Randomly picks FixBank or FixBankHuman to scroll the bank screen up
*******************************************************************************}
procedure FixBankRandom;
begin
if Random(2) = 0 then
FixBank
else
FixBankHuman;
end;

Also, I normal do what FixBank does, but I suppose different people do different things.

Richard

Daniel

2009-08-30 13:53:45

From: R1ch
Also, I normal do what FixBank does, but I suppose different people do different things.

Richard

Personally, and I'd say the majority hold the arrow (i know i used to, my sister does) down ;)

However, i also believe instead of replacing FixBank with FixBankHuman, have them both. And have procedure similar to R1ch's one above :)