SMILE REPLY

[TerraChat]

Código [Seleccionar] Expandir

set rplytimer 3
set chname  "#Channel"

set autorply {
"=;)"
"@;)"
"q;)"
":-)"
":-))"
":-D"
"&:-)"
":-p"
";-)"
";-))"
":-O"
":-1"
}

bind pub - {:)} pub:smile
bind pub - {=:)} pub:smile
bind pub - {=;)} pub:smile
bind pub - {=)} pub:smile
bind pub - {:p} pub:smile

proc pub:smile {nick host handle channel text} {
 global autorply rplytimer chname
 utimer $rplytimer  [list puthelp "PRIVMSG $chname :[lindex $autorply [rand [llength $autorply]]]"]
}
putlog "smile.tcl 0.1 - loaded"