proc rand:cmd {nick uhost hand chan arg} {
global textlist lastbind
set msg [lindex $textlist [rand [llength $textlist]]]
set ns [chanlist $chan]
switch -- $lastbind {
"!msg" {
puthelp "privmsg $chan :[lindex [split $arg] 0] $msg"
}
"!kick" {
set n [lindex $ns [rand [llength $ns]]]
puthelp "kick $chan $n :$msg"
}
}
}
this tcl should kick someone when you do !kick the eggdrop should kick a random nick from the channel
but now, its not working, only the !msg works, and on !msg, it says the msg that i have on the "set textlist {"
and the !kick, should also use the same msg from !msg
Thank you[/quote]
Last edited by unb0rn on Fri Jan 23, 2009 7:16 pm, edited 1 time in total.
You don't use !kick to kick others. You use.. Well.. What does that word mean?... Hmm...
<speechles> !tr fode-te
<sp33chy> Google says: (auto->en) Translation: Portuguese (automatically detected) » English >> fuck you
So basically, it's Portuguese (figures..haw). You type the equivalent of !f***-you <msg> and someone is randomly kicked with your witty message. How cute.