Bigfish RandomAngleEvery Procedure
This my Random Angle Procedure, meh, it might not be amazing, but, it wokrs :D
Code:
Procedure RandomAngleEvery(mins : integer);
Begin;
If ((TimeFromMark(Mark) / 1000) / 60 >= mins) Then
begin
If(Loggedin) then
Begin
MarkTime(Mark)
case random(3) of
0: Begin; KeyDown(VK_Left); Wait(1000+Random(500)); KeyUp(VK_Left); Wait(500+Random(700)); KeyDown(VK_Down); Wait(500+Random(200)); KeyUp(VK_Down); Wait(1000+Random(300)); MakeCompass('N'); End;
1: Begin; KeyDown(VK_Right); Wait(1000+Random(500)); KeyUp(VK_Right); Wait(500+Random(700)); KeyDown(VK_Left); Wait(500+Random(200)); KeyUp(VK_Left); Wait(1000+Random(300)); MakeCompass('N'); End;
2: Begin; KeyDown(VK_Down); Wait(1000+Random(500)); KeyUp(VK_Down); Wait(500+Random(700)); KeyDown(VK_Right); Wait(500+Random(200)); KeyUp(VK_Right); Wait(1000+Random(300)); MakeCompass('N'); End;
end;
end;
end;
end;
To use:
In main loop add:
RandomAngleEvery(4); // Where the 4 is, change it to a number in minutes..
Enjoy
~Bigfish