SCAR Code:
program New;
{.include srl/srl.scar}
var
x,y,i,TheRoadColor,TheGateColor: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 4;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
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 := False;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := False;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := False;
end;
function randclick(item , option:string): boolean;
begin
if isuptext(item) then
begin
case random(4) of
0,1,2: mouse(x,y,10,10,true);
3: begin
mouse(x,y,10,10,false);
chooseoption(option);
end
end
Result := true;
end
end;
procedure ToPen;
var
z:integer;
begin
Z:=0
Makecompass('n');
TheRoadColor := findfallyroadColor;
radialwalk(TheRoadColor,180,270,40,1,1);
repeat
radialroadwalk(TheRoadColor,165,200,50,1,1);
Writeln('lalala');
wait(200);
until(findsymbolin(x,y,'tree',628,8,704,165));
mouse(x + 10,y,10,5,true);
flag;
if findcolortolerance(x,y,235,628,8,705,117,20) then mouse(x,y,5,5,true);
repeat
if findcolorspiral(x,y,5467001,0,0,516,338) then randclick('ate','pen');
Z:= Z + 1;
until(randclick('ate','pen') = true);
end;
procedure ToBank;
begin
end;
begin
SetupSRL;
activateclient;
if not(loggedin) then loginplayer;
ToPen;
end.