Code: Select all
bind pub - !faq faq
proc faq {n u h c t} {
putserv "PRIVMSG $n :<message goes here>"
}
Code: Select all
bind msg - !faq faq
proc faq {n u h t} {
putserv "PRIVMSG $n :<message goes here>"
}
Code: Select all
set relayport [listen 4567 script foo]
set relaychan #channel
proc foo idx {
control $idx bar
}
proc bar {idx var} {
putserv "PRIVMSG $::relaychan :$var"
}