Code:

switch $arg {   1-2 {set str "one or two"}   3-4 {set str "three or for"}   5 {set str "five"}}puthelp "privmsg $nick :$str" 

Statistics: Posted by caesar — Tue Mar 07, 2006 4:25 pm

Code:

switch $arg {   1 {set str "one"}   2 {set str "two"}   3 {set str "three"}}puthelp "privmsg $nick :$str"

Statistics: Posted by demond — Mon Mar 06, 2006 11:03 pm

Code:

bind pub - !takethis pub_takethisbind msg - !question pub_questionproc pub_takethis {nick mask hand channel args} {        set args_list [split $args "."]        set tnick [lindex $args_list 0]        set tcase [lindex $args_list 1]        set tchannel [lindex $args_list 2]        putquick "PRIVMSG #bot_city :$tchannel"        putquick "PRIVMSG $tchannel :!take"        putquick "PRIVMSG #bot_city :!taken $tcase.$tchannel"putquick "PRIVMSG $tnick :Hello there\! My name is AgentBot. Give me a few moments to open and read over the case notes. I'll be right with you."      }proc pub_question {nick mask hand channel args} {putquick "PRIVMSG #bot_city :$nick it Worked!!"switch {$arg} {1 putquick { "PRIVMSG $nick :So this is a video issue." }2 putquick { "PRIVMSG $nick :so this is an audio issue." }3 putquick { "PRIVMSG $nick :so this is a startup issue." }default putquick { "PRIVMSG $nick :It could be anything." }    }       }

Statistics: Posted by ghostscript — Mon Mar 06, 2006 10:32 pm