SCAR Code:
program New;
{.include srl\srl.scar}
function SymbolFinder(var gx,gy:integer; symbol:string):boolean;
var bankfindtries,logouttries:integer;
begin
if (FindSymbol(gx,gy,symbol)) then result:=true;
logouttries:=0;
if not (FindSymbol(gx,gy,symbol)) then
begin
repeat
bankfindtries:=0;
repeat
if ( not(FindSymbol(gx,gy,symbol)) ) then
begin
SendArrowSilentWait(3, 100 + Random(50));
bankfindtries:=bankfindtries+1;
wait(10);
end;
until (( FindSymbol(gx,gy,symbol) ) or (bankfindtries>10) );
if bankfindtries>10 then
begin
logout;
wait(1000+random(1000));
loginplayer;
logouttries:=logouttries+1;
repeat
wait(10);
until (loggedin);
mouse(519+random(31),214+random(40),0,0,true);
end;
FindSymbol(gx,gy,symbol);
if logouttries>3 then
begin
LogOut;
ActivateClient;
NextPlayer ( False );
LoginPlayer;
break
end;
until ( FindSymbol(gx,gy,symbol));
if (FindSymbol(gx,gy,symbol)) then result:=true;
end;
end;
begin
setupsrl;
activateclient;
SymbolFinder(x,y,'bank');
mouse(x,y,2,2,true);
//if findSymbol(x,y,'hair dresser') then mouse(x+25,y,5,5,true);
end.