TCL 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."