- Code: Select all
; .die <reason>
; .die
bind PUB n .die pub_die
proc pub_die {nick uhost hand chan text} {
if {$text != ""} {
die [lrange [split $text] 0 end]
} else {
die
}
}
; .die <reason>
; .die
bind PUB n .die pub_die
proc pub_die {nick uhost hand chan text} {
if {$text != ""} {
die [lrange [split $text] 0 end]
} else {
die
}
}
Return to TCL Scripting Release
Users browsing this forum: No registered users and 0 guests