egghelp/eggheads community

RandomKick help.

2006-01-14T03:56:47-04:00

Thank you for your advice.

Statistics: Posted by username — Sat Jan 14, 2006 3:56 am

RandomKick help.

2006-01-13T20:20:22-04:00

I am not even going to ask why you want to do this, but ... just some comments:

I would assign the chanlist nlist to a variable as it is possible (I am assuming) that as it has to be evaulated twice you could get a mismatch between the random number and the list of nicks. You do not seem to be avoiding kicking the nick of the bot itself.

Depending on what you wish to have more of - memory or I/O overhead - either load up the test file of reasons just once and access it as a global or (do as you are doing) read it each time.

Please bear in mind that tcl is not my long suit! - others may have better ideas to improve.

Oh, before I forget - do not forget to check the file exists (and is readable by the bot)!

Statistics: Posted by Ehlanna — Fri Jan 13, 2006 8:20 pm

RandomKick help.

2006-01-13T16:05:42-04:00

Hi I need some modification help with my script. I want it to count kicks and remember last kicked person and put it to kick reason near phrase that it tooks from file. This is what I do myself:

Code:

set authors "username"set ver "1.0"set reasonfolder "scripts"bind pub - !рк pub:rkbind pub - !rk pub:rkproc pub:rk { nick uhost hand chan text } {global reasonfolderset victimuser [lindex [chanlist $chan] [rand [llength [chanlist $chan]]]]set random_reason [rk:load $reasonfolder/kickreason.txt]putkick $chan $victimuser [lindex $random_reason [rand [llength $random_reason]]]}putlog "$nick randomly kicked"putlog "RandomKick ver$ver by $authors loaded"proc rk:load {file} {set fd [open $file r]while {![eof $fd]} { gets $fd dline lappend var $dline }close $fdreturn $var}

Thank you.

Statistics: Posted by username — Fri Jan 13, 2006 4:05 pm