This my Random Angle Procedure, meh, it might not be amazing, but, it wokrs![]()
To use: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;
In main loop add:
RandomAngleEvery(4); // Where the 4 is, change it to a number in minutes..
Enjoy
~Bigfish


Reply With Quote











