SRL Archive - SRL Archives

This just waits (like you left or somthing).
I noticed i do this a lot :\
or turn to tv for like 45 secs :p

well heres what you need :

var
Leave : Integer;

MarkTime(Leave);

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;

Works great for antiban;

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;

I think that might help a bit.

Thanks! I thought this was already in SRL though…