Help with script - MassHighlight

[r00terr0r]

I wrote some script for masshl, and work perfect on most eggdrops, but doesnt work on one eggdrop.
Its on same version, and on same machine hosted.
Here is code:

Code: Select all

bind pub - !masshl pub_masshl
set nicklist ""; 
proc pub_masshl {nick mask hand channel text} {
set nicklist [chanlist $channel]
if {([isop $nick $channel]) || ([ishalfop $nick $channel])} {
	putserv "privmsg $channel \002$text\002 $nicklist" 
} else { putserv "privmsg $channel <$nick> Only opers can use this command!!!" }
}

Doesnt work chanlist command, also doesnt work [expr {int(rand()*100)}] (to take random number) and some other commands.

Can anyone help me with this problem?

[Madalin]

Try this code i corrected some things

Code: Select all

bind pub - !masshl pub_masshl

proc pub_masshl {nick mask hand channel text} {

	set nicklist [chanlist $channel]

	if {([isop $nick $channel]) || ([ishalfop $nick $channel])} {
		putserv "privmsg $channel :Chanlist: $nicklist"
	} else {
		putserv "privmsg $channel :<$nick> Only opers can use this command!!!"
	}
}

And about the rand code ( [expr {int(rand()*100)}] ) works for me and i am using tcl8.5 and eggdrop v1.6.20