Hello SRL,
I was gone for a while, but im back now and i want to learn something about banking. I was reading some tutorials and i tried to build a bank procedure (for noobs).
I replaced the DropInv; procedure with the BankInv; procedure.
Before i replaced the procedures it worked pretty good, it cuts and drops.
After i replaced, the mouse doesnt do anything. It even doesnt click a oak!
Can anyone help me with my script
?
In advance thanks
PS: here is the script
Code:
program OakChopnBank;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/WoodCutting.scar}
var
Gx, Gy, Ggx, Ggy, i, GetAnimation: integer;
procedure BankInv;
begin;
if(FindSymbol(Ggx, Ggy, 'bank')) then
begin
Mouse(Ggx, Ggy, 0, 0, true);
OpenBank('db', true, true);
Deposit(2, 28, true);
CloseBank;
end;
end;
procedure FindOak;
begin
if not LoggedIn then
Exit;
while(not(FindObjCustom(Gx, Gy, ['oa','oak','ak'], [1781037, 2847590, 2179644], 7))) do
Wait(200+random(500));
end;
procedure ChopOak;
begin
if not LoggedIn then
Exit;
repeat
FindOak;
Mouse(Gx, Gy, 0, 0, False);
Wait(500 + Random(500));
ChooseOption('hop');
Wait(2000 + Random(1000));
while(GetAnimation > 0) do
Wait(500 + Random(500));
until(InvFull);
BankInv;
end;
begin
ClearDebug;
Writeln('Started');
Writeln('Lol');
MakeCompass('S');
SetAngle(True);
SetupSrl;
ActivateClient;
repeat;
ChopOak;
until(false);
end.