SCAR Code:
program FlaxSpinner;
{.include srl/srl.scar}
var
x,y:integer;
ObjectRecord: TAutoColorInfo;
procedure setup;
begin
setupsrl;
activateclient;
wait (300+random(400));
makecompass('N');
end;
procedure walk;
begin
wait (300+random(400));
makecompass('N');
wait (300+random(400));
RadialWalk(FindLadderColor,160, 200, 70,1, 1);
FFlag(0);
wait (2000+random(250));
begin
with ObjectRecord do
begin
UpText := 'Staircase';
MaxDist := 30;
Color := 8094597;
HueMod := 0.38;
SatMod := 0.38;
LumTol := 25;
MinR := 130; MaxR := 136;
MinG := 128; MaxG := 134;
MinB := 121; MaxB := 126;
MinX := 20.70; MaxX := 22.10;
MinY := 21.91; MaxY := 23.43;
MinZ := 21.53; MaxZ := 22.77;
end;
FindObjRecordEx(x, y, ObjectRecord, MSX1, MSY1, MSX2, MSY2, False, True);
mouse(x,y,0,0,true);
end;
wait (1200+random(200));
if findcolorspiraltolerance(x,y,5538692, MSX1, MSY1, MSX2, MSY2,10) then
begin
mmouse(x,y,0,0);
if isuptext('open') then
begin
Getmousepos(x,y);
mouse(x,y,0,0,false);
chooseoption('pen');
writeln('opening door')
end else
if findsymbol(x,y, 'spinning wheel') then
mmouse(x,y,0,0);
mouse(x,y,0,0,true);
end;
end;