Dark_Sniper
2006-05-28 21:28:52
ok i got some changes here.
antiban was moded by me added 2 new antibans in there.
very simple and i already put it into my SRL manually.
{*******************************************************************************
procedure PickUpMouseEvery(mins : Integer);
By: dark_sniper
Description: Acts just like you picked your mouse off the pad...
then sets it back down.
Mins: minutes between each pick up.
*******************************************************************************}
procedure PickUpMouseEvery(mins : Integer);
var
cx, cy, XX, YY:integer;
begin
if((TimeFromMark(PickUpMouseMark)/1000)/60>=mins)then
begin
MarkTime(PickUpMouseMark);
GetMousePos(cx, cy);
XX:= cx;
YY:= cy;
case Random(2) of
0: MMouse(cx- 3- random(5), cy- 8- random(17), 0, 0);
1: MMouse(cx+ 3+ random(5), cy- 8- random(17), 0, 0);
end;
Wait(1131+ random(358));
case Random(2) of
0: MMouse(XX+ 3+ random(5), YY+ 8+ random(9), 0, 0);
1: MMouse(XX- 3- random(5), YY+ 8+ random(9), 0, 0);
end;
end;
end;
{*******************************************************************************
procedure AntiBan;
By: Stupid3ooo Moded by Dark_sniper
Description: Performs AntiBan actions at random lengths of time.
*******************************************************************************}
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))
if (KillScriptTime > 0) then
KillScript(KillScriptTime);
end;
begin
{sets in SRL at line 103 in file: SRL/SRL.scar}
MarkTime(PickUpMouseMark);
SetupSRL;
end.antiban was moded by me added 2 new antibans in there.
very simple and i already put it into my SRL manually.