Posted to tcl by EvaLuaTe at Mon Sep 03 11:37:11 GMT 2007view raw
- proc set_msgs {nick uhost hand channel text} {
- global joinmsgs partmsgs
- set what [lindex $text 0]
- set message [lrange $text 1 end]
- if {$what == "" || $what == " " || $text == "" || $text == " "} {
- putquick "PRIVMSG $channel :$nick USAGE: !set <join-msg/part-msg> <\$text>"
- } else {
- switch -- $what {
- join-msg {
- set joinmsgs($channel) $message
- putquick "PRIVMSG $channel:$nick SET join-msg on $channel to: $message"
- }
- part-msg {
- set partmsgs($channel) $message
- putquick "PRIVMSG $channel:$nick SET part-msg on $channel to: $message"
- }
- default { putquick "PRIVMSG $channel :$nick USAGE: !set <join-msg/part-msg> <\$text>" }
- }
- }
- }