Procedure DivWait(Time, Divamount, Erand: Integer); - By XxKanexX
A more random wait type thing. Will divide the total time by a number and wait it's divided number the amount of times needed to complete the total wait Time.
The lower the Divamount, the closer to the wait time it will be. The higher, the further away.
Erand is an extra random time to add each wait. If it's high, the wait time has a possible chance to increase by some seconds.
Example: Erand: 100, Time: 2000, can wait up to 4 seconds.
I wrote this to lower the random detection. I can't add it to SRL because it's locked for some reason? And i wanted to see what everyone thought.
Example:Code:Procedure DivWait(Time, Divamount, Erand: Integer); var i: Integer; begin for i:= 1 to Divamount do Wait(Time/Divamount + random(Erand)); end;
Possible Wait Outcomes: (From the Example script above)Code:var a: Integer; begin a:= getsystemtime; DivWait(1000 + random(2000), random(100), random(100)); Writeln(floattostr(getsystemtime-a)); end.
Using random choices (Like in the Example above) for Parametres is a good wayto decrease detectability.Code:3065 2743 2223 2023 4256 2994 3515
You may say that you'd rather use:
Code:Wait(1000 + Random(2000));
But, though that is random, dividing it gives it more random chance. Just try this and take a look at this and what it creates:
Code:Procedure DivWait(Time, Divamount, Erand: Integer); var i: Integer; begin for i:= 1 to Divamount do begin Wait(Time/Divamount + random(Erand)); Writeln('Wait: '+IntToStr(Time/Divamount + random(Erand))); end; end; var a: Integer; begin a:= getsystemtime; DivWait(1000 + random(2000), random(100), random(100)); Writeln('Total: '+floattostr(getsystemtime-a)); end.
Run it a few times and see.
Short, but effective.
<3 XxKanexX






Reply With Quote





Thanks for the explaination, i'm going to be using this in my scripts
