SCAR Code:
program DrayOakBanker;
{.include srl/SRL.scar}
var
x,y: Integer;
procedure DeclarePlayers;
begin
NumberOfPlayers(4);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active := True;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active := True;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active := True;
end;
procedure LogIn;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
procedure WalkToOak;
begin
if FindColor(x, y, 2316901, 0, 0, 1280, 800) then
begin
Mouse(x,y,0,0,true);
end;
end;
procedure WalkToBank;
begin
if(FindColor(x,y,4045013,0,0,100,100)) then
begin
Mouse(x,y,0,0,true);
end;
end;
var
TTimes: Integer;
tx, ty: Integer;
RandomChopClick: Integer;
I: Integer;
procedure ChopOak;
begin
if FindColor(x, y, 1933168, 0, 0, 1280, 800) then
begin
Mouse(x,y,0,0,true);
end;
end;