SCAR Code:
program CowKillah;
{.include srl/srl.scar}
var
x,y,i,TheRoadColor,TheGateColor: integer;
procedure randclick(object , option:string);
begin
if isuptext(object) 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
end
end;
procedure ToPen;
var
z:integer;
begin
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(z=5 or randclick('ate','pen'));
end;
procedure ToBank;
begin
end;
begin
SetupSRL;
activateclient;
wait(2000);
ToPen;
end.