Smiling Respond
# Smiling Script by laurababe1@hotmail.com
# This script makes the bot respond to smile face characters.
set ransmile {
":-)"
":P"
":>"
":)"
";=)"
":-))"
":-D"
"&:-)"
":-p"
";-)"
";-))"
":-O"
":-1"
}
bind pub - {:-)} pub_smiling
bind pub - {:)} pub_smiling
bind pub -|- {smile} pub_smiling
proc pub_smiling {nick uhost hand chan $ran:-)} {
global ransmile
if [rand 2] {
putchan $chan "[lindex $ransmile [rand [llength $ransmile]]]"
}
return 1
}
putlog "Smiling TCL script by Laurababe loaded."
