Hi,
im a sorta n00b with TCL scripting, i have attempted to make a script that kick on `kick command, but it wont work cos i get the error
<KyprBot> [10:01] Tcl error [pub_kick]: wrong # args: should be "set varName ?newValue?"
Heres a copy of the script:
bind pub - "`kick" pub_kick
proc pub_kick {nick host handle channel text} {
if {$text == ""} { set text $nick }
set kick ""
if {[rand 10] > 7} {
set kick putserv "KICK $text : $text was kick by a lamer called $nick"
set kick putserv "KICK $text : $text felt horney so decided they needed some help flying through the window"
set kick putserv "KICK $text : This is depressing"
set kick putserv "KICK $text : Lamer!"
set kick putserv "KICK $text : G might be too lazy to kick you but im not muahahaha"
set kick putserv "KICK $text : Quit: Excess Lameness From $text"
set kick putserv "KICK $text : If it ain't fixed, don't broke it!"
set kick putserv "KICK $text : Errrrr sorry $text, im just bored"
set kick putserv "KICK $text : sorry, im just randomly Kicking ppl"
set kick putserv "KICK $text : Kick: Excess idiocy from $text"
set kick putserv "KICK $text : Kick: NO FISHTIX ALLOWED!"
set kick putserv "KICK $text : I'm the travelling agency....here is your one way ticket!"
set kick putserv "KICK $text : I wonder if youll find this funny..."
set kick putserv "KICK $text : Power can be deadly in the wrong hands...won't you agree with me"
set kick putserv "KICK $text : You are leaving on a jet plane...I don't know when you will come back again"
set kick putserv "KICK $text : watches: $text jump outta the plane without a parachute"
mxirc_action $channel $txt
}
}
putlog "Loaded Funny Kicks Module v1.0 By Gamekypr"
If you could tell me how to get it working it would help me lots, thanks
-Gamekypr