Code: Select all
bind pub !hello hellotest
set mychans "#chan1 #chan2" (??!)
proc delpre {nick host hand channel arg} {
global mychans
set input [lindex [split $arg] 1]
putquick "PRIVMSG $mychans :Abcedf $input"
}
Code: Select all
bind pub !hello hellotest
set mychans "#chan1 #chan2" (??!)
proc delpre {nick host hand channel arg} {
global mychans
set input [lindex [split $arg] 1]
putquick "PRIVMSG $mychans :Abcedf $input"
}
Code: Select all
set mychans(1) "#chan1,#chan2,#chan3,#chan4"
set mychans(2) "#chan5,#chan6,#chan7,#chan8"
set mychans(2) "#chan9,#chan10,#chan11,#chan12"
...
putquick "PRIVMSG $mychans(1) :Abcedf $input"
putquick "PRIVMSG $mychans(2) :Abcedf $input"
putquick "PRIVMSG $mychans(3) :Abcedf $input"
Code: Select all
set mychans(1) "#chan1,#chan2,#chan3,#chan4"
set mychans(2) "#chan5,#chan6,#chan7,#chan8"
set mychans(3) "#chan9,#chan10,#chan11,#chan12"
for {set i 1} {$i < [array size mychans]} {incr i} {
putquick "PRIVMSG $mychans($i) :bla bla"
}
Code: Select all
bind dcc n hello hellodcc
proc hellodcc {hand idx arg} {
# call your proc from here
}