SCAR Code:
PROCEDURE Antiban;
VAR
C, Q: Integer;
BEGIN
C := Random(4);
IF NOT LoggedIn THEN Exit;
IF C = 2 THEN BEGIN
CASE Random(24) OF
1: AlmostLogout;
2: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(10));
FTWait(1 + random(2));
MouseSpeed := 12;
END;
4: GameTab(1);
5: PickupMouse;
6: DoEmote(1 + Random(20));
7: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
8: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
9: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
10: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
11: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
FTWait(2 + random(4));
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
12: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
13: BEGIN
MouseSpeed := 9 + random(1);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
14: BEGIN
MouseSpeed := 9 + random(2);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
FTWait(2 + random(4));
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
15: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
FTWait(10 + random(4));
MouseSpeed := 10 + random(5);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
16: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
17: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
18: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 12;
END;
19: BEGIN
MouseSpeed := 9 + random(2);
GameTab(1 + random(13));
MouseSpeed := 10 + random(5);
MMouse(x, y, (10 + random(400)), (10 + random(400)));
FTWait(2 + random(4));
MMouse(x, y, (10 + random(400)), (10 + random(400)));
MouseSpeed := 12;
END;
20: BEGIN
GameTab(4);
DragItem(27, 28);
END;
21: HoverSkill('Strength', false);
22: HoverSkill('Attack', false);
23: RandomRClick;
24: BEGIN
IF SwitchPlayers = True THEN BEGIN
Q := Random(2) + 1;
IF Q = 2 THEN BEGIN
NextPlayer(True);
WriteLn('Switching players. This is an antiban procedure.');
END;
END;
END ELSE Exit;
END;
END;
END;