| View previous topic :: View next topic |
| Author |
Message |
elbandido Voice
Joined: 01 May 2012 Posts: 4
|
Posted: Wed May 02, 2012 2:00 pm Post subject: mass hl/slap script |
|
|
As
Last edited by elbandido on Thu May 16, 2013 10:16 am; edited 1 time in total |
|
| Back to top |
|
 |
caesar Mint Rubber

Joined: 14 Oct 2001 Posts: 3741 Location: Mint Factory
|
Posted: Thu May 03, 2012 12:52 am Post subject: |
|
|
| Code: |
proc massslap {nick uhost hand chan text args} {
# dump only 25 nicks per line
set chanList [chanlist $chan]
while {[llength $chanList] != 0} {
puthelp "PRIVMSG $chan :[join [lrange $chanList 0 25]]"
set chanList [lrange $chanList 25 end]
}
}
|
Right now it's set to dump 25 nicks per line, adjust it to your needs.
Oh, and you don't need:
| Code: |
set lista "${lista} $userraw"
|
use lappend instead.
If you want to remove the bot from the list then add this:
| Code: |
set pos [lsearch $chanList $::botnick]
set chanList [lreplace $chanList $pos $pos]
|
before the while loop. _________________ Once the game is over, the king and the pawn go back in the same box. |
|
| Back to top |
|
 |
|