whats wrong with this script???

[matt2kjones]

hi someone gave me this script which is suppose display random messages in a channel. Well i load it and it doesn't seem to work

is there anything wrong with it :

set rand(chan) "#thedigitaldream"

set rand(msges) {
"Message to display in channel"
}

bind time - "5 * * * *" rand:msges

proc rand:msges {min hour day month year} {
global rand
putserv "PRIVMSG $rand(chan) :[lindex $rand(msges) [rand [llength $rand(msges)]]]"
}

is that correct?

[stdragon]

The problem is "5 * * * *". The args for the time bind are 2 digits each, so change it to "05 * * * *" and it should work. Note this only prints messages once an hour, is that what you want?

[matt2kjones]

if i type 05, wont it do it every 5 mins???

or does that mean 05 past the hour???

every hour is fine anyway

thanx for ur help

[De Kus]

command formating i can only suggest to RTFM! (in this case tcl-commands.doc, page 32 line 26)
but bind time is rarely used, usually they use the timer command to itself again like: timer 5 [list rand:msges]
but only recommed for other intervales than hourly ^^.