About this snippet
Overview
Smile TCL
just put this fine in you eggdrop script directory add the path in you eggdrop .conf file.
You got to set channel name this script to work on the channel
just put this fine in you eggdrop script directory add the path in you eggdrop .conf file.
You got to set channel name this script to work on the channel
set rplytimer 3
set chname "#error"
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 by Error loaded"