Code: Select all
bind pub - !takethis pub_takethis
proc 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. Do you have a specific question you would like to ask?"
}
bind msgm - {*alpha*} *alpha*
proc *alpha* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :alpha"
after {3000}
}
bind msgm - {*bravo*} *bravo*
proc *bravo* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :Bravo"
after {3000}
}
bind msgm - {*charlie*} *charlie*
proc *charlie* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :Charlie"
after {3000}
}
bind msgm - {*delta*} *delta*
proc *delta* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :Delta"
after {3000}
}
bind msgm - {*echo*} *echo*
proc *echo* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :echo"
after {3000}
}
bind msgm - {*foxtrot*} *foxtrot*
proc *foxtrot* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :foxtrot"
after {3000}
}
bind msgm - {*golf*} *golf*
proc *golf* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :golf"
after {3000}
}
bind msgm - {*hotel*} *hotel*
proc *hotel* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :Hotel"
after {3000}
}
bind msgm - {*india*} *india*
proc *india* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :india"
after {3000}
}
bind msgm - {*juliet*} *juliet*
proc *juliet* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :juliet"
after {3000}
}
bind msgm - {*kilo*} *kilo*
proc *kilo* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :kilo"
after {3000}
}
bind msgm - {*lima*} *lima*
proc *lima* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :lima"
after {3000}
}
bind msgm - {*mike*} *mike*
proc *mike* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :mike"
after {3000}
}
bind msgm - {*november*} *november*
proc *november* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :november"
after {3000}
}
bind msgm - {*oscar*} *oscar*
proc *oscar* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :oscar"
after {3000}
}
bind msgm - {*papa*} *papa*
proc *papa* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :papa"
after {3000}
}
bind msgm - {*quebec*} *quebec*
proc *quebec* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :quebec"
after {3000}
}
bind msgm - {*romeo*} *romeo*
proc *romeo* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :romeo"
after {3000}
}
bind msgm - {*sierra*} *sierra*
proc *sierra* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :sierra"
after {3000}
}
bind msgm - {*tango*} *tango*
proc *tango* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :tango"
after {3000}
}
bind msgm - {*uniform*} *uniform*
proc *uniform* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :uniform"
after {3000}
}
bind msgm - {*victor*} *victor*
proc *victor* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :victor"
after {3000}
}
bind msgm - {*whiskey*} *whiskey*
proc *whiskey* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :whiskey"
after {3000}
}
bind msgm - {*x-ray*} *x-ray*
proc *x-ray* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :x-ray"
after {3000}
}
bind msgm - {*yankee*} *yankee*
proc *yankee* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :yankee"
after {3000}
}
bind msgm - {*zulu*} *zulu*
proc *zulu* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :Zulu"
after {3000}
}
bind msgm - {*one*} *one*
proc *one* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :too"
after {3000}
}
bind msgm - {*this*} *this*
proc *this* {nick mask hand text} {
after {3000}
putquick "PRIVMSG $nick :here it is"
after {3000}
}