Code:

# aidle.tcl v1.1 (28 March 1999) by slennox <slenny@xxxxx.com.au># Latest versions can be found at www.ozemail.com.au/~slenny/eggdrop/## Basic anti-idle script, sends random msg's to the specified channel at# random time intervals.## v1.0 - Initial release# v1.1 - Stremlined startup timer check, added +1 to utimer# Channel to send anti-idle messages toset ai_chan "#channel"# Maximum time interval between messages (in minutes)set ai_time 240# Messages to sendset ai_msgs {  "blabla"  "Hi" }# Don't edit anything below unless you know what you're doingproc ai_start {} {  global ai_time  if {[string match *ai_sendmsg* [timers]]} {return 0}  timer [expr [rand $ai_time] + 1] ai_sendmsg}proc ai_sendmsg {} {  global botnick ai_chan ai_msgs ai_time  if {[validchan $ai_chan] && [onchan $botnick $ai_chan]} {    puthelp "PRIVMSG $ai_chan :[lindex $ai_msgs [rand [llength $ai_msgs]]]"  }  timer [expr [rand $ai_time] + 1] ai_sendmsg}set ai_chan [string tolower $ai_chan]ai_startputlog "Loaded aidle.tcl v1.1 by slennox"