SMILE REPLY TCL

By Errr on Dec 01, 2021

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

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"

Happy Days!

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.