Jason2gs door opener
SCAR Code:
procedure DoorOpener(DoorColor, Tol:Integer);
var
Tries : Integer;
begin
repeat
Wait(500 + Random(100));
if(FindColorSpiralTolerance(x, y, DoorColor, MSX1, MSY1, MSX2, MSY2, Tol))then
MMouse(x, y, 1, 1);
Tries := Tries + 1;
if(Tries >= 5)then
begin
KeyDown(37);
Wait(1000 + Random(1000));
KeyUp(37);
Tries := 0;
end;
until(IsUpText('Door') or IsUpText('Gate'));
if(IsUpText('Open'))then
begin
Writeln('Found a door.');
Mouse(x, y, 0, 0, False);
ChooseOption(x, y, 'Open');
Writeln('Opened door.');
end;
if(IsUpText('Close'))then
begin
Writeln('Door was already open.');
Exit;
end;
end;