SCAR Code:
Procedure LeaveEvery( Mins, SleepLong : Integer );
Begin
If ( ( TimeFromMark ( Leave ) / 1000) / 60 >= Mins ) Then Begin
If (SleepLong > 5) then
SleepLong := 5;
Case Random(SleepLong) of
0 : Sleep( 30000 + Random ( 15000 ) );
1 : Sleep( 75000 + Random ( 30000 ) );
2 : Sleep( 120000 + Random ( 45000 ) );
3 : Sleep( 200000 + Random ( 60000 ) );
4 : Sleep( 500000 + Random ( 60000 ) );
5 : Sleep( 1000000 + Random ( 60000 ) );
End;
If Not LoggedIn Then
LoginPlayer;
End;
End;
SCAR Code:
procedure AntiBan;
begin
RandomChatEvery(10 + Random(5));
RotateEvery(20 + Random(10));
LeaveScreenEvery(5 + Random(5));
HoverEvery(15 + Random(5), 'random');
PickUpMouseEvery(5 + Random(10))
RandomRClickEvery(15 + Random(5))
LeaveEvery(35 + Random(15), 5);
if (KillScriptTime > 0) then
KillScript(KillScriptTime);
end;