SCAR Code:
program RawCkickenZ;
{.include SRL\SRL.scar}
var x, y, Loads : Integer;
const
ToDo = 10; //How much loads?
procedure WalkStone;
begin
Mouse(672, 39, 10, 10, true);
Flag;
end;
procedure WalkMore;
begin
if (FindSymbol(x, y, 'scimitar shop')) then
begin
Mouse(x, y, 25, 5, true);
Flag;
end else
Writeln('Couldnt find sword icon');
Exit;
end;
procedure WalkSilk;
begin
if (FindSymbol(x, y, 'Silk stall')) or FindColorTolerance(x, y, 7478692, 0, 0, 1280, 1024, 15) then
begin
Mouse(x, y, 5, 5, true);
Flag;
End else
begin
Writeln('Silktrader not found');
Exit;
end;
end;
procedure FindQ;
begin
if (FindSymbol(x, y, 'quest')) or FindColorTolerance(x, y, 13670550, 0, 0, 1280, 1024, 15) then
begin
Mouse(x, y, 5, 5, true);
Flag;
Wait(500+random(500));
End else
Writeln('Ali symbol not found!');
Exit;
end;
procedure ClickAli;
begin
if (FindObj(x, y, 'orr', 11385016, 10)) then
begin
Mouse(x, y, 1, 1, true);
Flag;
End else
Writeln('Ali no found no.. dop3?');
Exit;
end;
procedure Talk;
begin
TalkToRand;
Mouse(267, 437, 5, 5, true);
Wait(500);
end;
procedure Buy;
begin
Mouse(84, 72, 5, 10, true);
Wait(1000);
if (FindObj(x, y, 'ick', 10263999, 10)) then
begin
Mouse(x, y, 5, 5, false);
ChooseOption('Buy X');
Wait(750+random(1000));
TypeSend('33');
end;
end;
procedure WalkBack1;
begin
if (FindSymbol(x, y, 'Silk stall')) then
begin
Mouse(x, y, 15, 10, true);
Flag;
end else
Writeln('Didnt find Silk stall');
Exit;
end;
procedure WalkBack2;
begin
if (FindSymbol(x, y, 'scimitar shop')) then
begin
Mouse(x, y, 5, 5, true);
Flag;
end else
Mouse(601, 115, 5, 5, true);
Flag;
end;
procedure WalkBack3;
begin
if (FindSymbol(x, y, 'minigame')) then
begin
Mouse(x, y, 5, 5, true);
Flag;
end else
Writeln('Didnt find minigame sign');
Exit;
end;
procedure WalkBack4;
begin
Mouse(579, 110, 5, 5, true);
Flag;
end;
procedure Walkbank;
begin
if (FindSymbol(x, y, 'bank')) then
begin
Mouse(x, y, 5, 5, true);
Flag;
end;
end;
procedure Bank;
begin
OpenBankQuiet('akb');
Wait(1000+random(500));
begin
MouseItem(2, false);
ChooseOption('All');
Wait(500+random(250));
CloseBank;
end;
end;
begin
SetUpSRL;
ActivateClient;
wait(1000);
repeat
SetRun(False);
WalkStone;
WalkMore;
WalkSilk;
FindQ;
ClickAli;
Talk;
Buy;
WalkBack1;
WalkBack2;
WalkBack3;
WalkBack4;
WalkBank;
Bank;
Loads := Loads + 1;
Until(Loads = ToDo);
ClearDebug;
end.