egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-10-13T11:55:46-04:00 https://forum.eggheads.org/app.php/feed/topic/2786 2002-10-13T11:55:46-04:00 2002-10-13T11:55:46-04:00 https://forum.eggheads.org/viewtopic.php?p=11945#p11945 <![CDATA[i need some help with my script....]]>
putserv does not return any data, plus the fact the set command wouldn't serve any purpose in that way.

Just remove the all "set kick" commands, before the putserv.

Statistics: Posted by ppslim — Sun Oct 13, 2002 11:55 am

]]> 2002-10-13T11:07:43-04:00 2002-10-13T11:07:43-04:00 https://forum.eggheads.org/viewtopic.php?p=11942#p11942 <![CDATA[i need some help with my script....]]> 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

Statistics: Posted by Guest — Sun Oct 13, 2002 11:07 am

]]>