egghelp/eggheads community

Code: Select all

bind join - * foo

proc foo {nick uhost handle chan} {
 if [validuser $handle] {
  putserv "PRIVMSG $chan :yes"
 } {
  putserv "PRIVMSG $chan :no"
 }
}

Code: Select all

set newstr [lindex [split $str -] end]

Code: Select all

bind pub - \$uptime up
proc up {n u h c a} {
 putserv "PRIVMSG $c :My uptime is [duration [expr [clock seconds]-$::uptime]]"
}