Code: Select all
bind pub -|- !commands pub:commands
bind pub -|- !help pub:help
proc pub:commands {nick host handle chan arg} {
putquick "NOTICE $nick :Avalible commands:"
putquick "NOTICE $nick :!help, !ping, !pong
}
proc pub:help {nick host handle chan arg} {
putquick "NOTICE $nick :Hello, i'm info bot at #xxx"
putquick "NOTICE $nick :If you wanna see my commands, type !commands in channel"
}
Code: Select all
set reply_chans "#chan1 #chan2"
proc pub:commands {nick host handle chan arg} {
global reply_chans
if {(([lsearch -exact [string tolower $reply_chans] [string tolower $chan]] != -1) || ($reply_chans == "*"))} {
# ....
Code: Select all
bind pub -|- !commands pub:commands
bind pub -|- !help pub:help
proc pub:commands {nick host handle chan arg} {
putquick "NOTICE $nick :Avalible commands:"
putquick "NOTICE $nick :!help, !ping, !pong
}
proc pub:help {nick host handle chan arg} {
putquick "NOTICE $nick :Hello, i'm info bot at #xxx"
putquick "NOTICE $nick :If you wanna see my commands, type !commands in channel"
}
Code: Select all
Tcl error in file 'infobot.conf':
missing close-brace
while executing
"proc pub:commands {nick host handle chan arg}"
(file "scripts/announce-script.tcl" line 30)
invoked from within
"source scripts/announce-script.tcl"
(file "infobot.conf" line 301)