Code: Select all
pref {! @}
bind pub - ($pref)test test
proc test {nick uhost hand chan text} {
}
Code: Select all
pref {! @}
bind pub - ($pref)test test
proc test {nick uhost hand chan text} {
}
Code: Select all
bind PUBM - * shortcut
proc shortcut {nick uhost hand chan arg} {
if {[string index $arg 0] in {! . `}} {
set cmd [string range $arg 1 end]
set cmd [lindex [split $cmd] 0]
set arg [join [lrange [split $arg] 1 end]]
} elseif {[isbotnick [lindex [split $arg] 0]]} {
set cmd [lindex [split $arg] 1]
set force [lindex [split $arg] 3]
set arg [join [lrange [split $arg] 2 end]]
} else { return }
if {[info commands command:$cmd] ne ""} { command:$cmd $nick $uhost $nick $chan $arg }
}
Code: Select all
proc command:test {nick uhost hand chan arg} {