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} {