SCAR Code:
procedure RGameTab;
var i : Integer;
begin
i := GetCurrentTab;
GameTab(1 + Random(12));
Wait(100 + Random(4000));
GameTab(i);
end;
procedure RRotate;
var i : Integer;
begin
i := Random(4);
case i of
0: MakeCompass('N');
1: MakeCompass('E');
2: MakeCompass('S');
3: MakeCompass('W');
end;
end;
procedure LeaveScreen;
var X, Y : Integer;
var ScreenBox : TBox;
begin
ScreenBox.x1 := MSX1; ScreenBox.y1 := MSY1;
ScreenBox.x2 := MSX2; ScreenBox.y2 := MSY2;
repeat
X := Random(1024);
Y := Random(768);
until(Not(IntInBox(X, Y, ScreenBox)));
MMouse(X, Y, 0, 0);
end;