SRL Archive - SRL Archives

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.

[FONT="Courier New"]
Procedure DivWait(Time, Divamount, Erand: Integer);
var
  i: Integer;
begin
 for i:= 1 to Divamount do
   Wait(Time/Divamount + random(Erand));
end;[/FONT]

Example:

[FONT="Courier New"]var
  a: Integer;
begin
 a:= getsystemtime;
  DivWait(1000 + random(2000), random(100), random(100));
  Writeln(floattostr(getsystemtime-a));
end.[/FONT]

Possible Wait Outcomes: (From the Example script above)

3065
2743
2223
2023
4256
2994
3515

Using random choices (Like in the Example above) for Parametres is a good wayto decrease detectability.

You may say that you'd rather use:

[FONT="Courier New"]Wait(1000 + Random(2000));[/FONT]

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:

[FONT="Courier New"]Procedure DivWait(Time, Divamount, Erand: Integer);
var
  i: Integer;
begin
  for i:= 1 to Divamount do
[COLOR="Red"] begin[/COLOR]
   Wait(Time/Divamount + random(Erand));
   
   [COLOR="Red"]Writeln('Wait: '+IntToStr(Time/Divamount + random(Erand)));[/COLOR]
[COLOR="Red"] end;[/COLOR]
end;

var
  a: Integer;
begin
 a:= getsystemtime;
  DivWait(1000 + random(2000), random(100), random(100));
  [COLOR="Red"]Writeln('Total: '+floattostr(getsystemtime-a));[/COLOR]
end.[/FONT]

Run it a few times and see.
Short, but effective. :)

<3 XxKanexX