Code: Select all
setudef str destchan
Code: Select all
if {![validchan [set dest [channel get $chan destchan]]]} {return}
Code: Select all
set $var [string trim [set $var] ^]
Code: Select all
bind pub - !test1 [list proc1 test1]
bind pub - !test2 [list proc1 "something else"]
proc proc1 {addedArg nick uhost hand chan arg} {...}
Code: Select all
proc join:autovoice {nick uhost hand chan} {
if {[channel get $chan autovoicejoin]&&[regexp {^[^A-Za-z]*[a-z]} $nick]} {
pushmode $chan +v $nick
}
}