mass hl/slap script

[elbandido]

As

[caesar]

Code: Select all

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: Select all

set lista "${lista} $userraw" 

use lappend instead.

If you want to remove the bot from the list then add this:

Code: Select all

set pos [lsearch $chanList $::botnick]
set chanList [lreplace $chanList $pos $pos]

before the while loop.