View ¡m../sdba/bin/dosleep.pl¡n

---

################################ # WIRED BOTS # # dosleep($min,$max); # # desc: This sub is called when the bot desides to sleep # for a random amount of time between $min and $max. # First it takes in $min and $max # And then rand's for a number between $min and $max. # Then returns that number. # recv: $min,$max # sends: sleeptime ################################ sub dosleep { #Get the minimum and maximum values. #$min = shift; #$max = shift; $min = $IMDelay - 1; $max = $IMDelay + 1; #print "min= $min, max=$max"; #Create a random number between the maximum and minimum. $sleep = rand($max - $min); $sleep = $sleep + $min; #Print it to the DOS window. #print "Sleeping for $sleep seconds.."; #Send the time to sleep back. return $sleep; } 1;