.die <reason>

Release your script here.
State:
- Author
- What it does
- Perhaps a little guide.
- Also, if the snippet is of any use to the community, it has a chance of getting posted on the main page, so don't hesitate to submit/ask!

.die <reason>

Postby Cristian » Sat Dec 01, 2007 3:03 pm

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
       }
}
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Return to TCL Scripting Release

Who is online

Users browsing this forum: No registered users and 0 guests

cron