wont let me set maxbans on dalnet

[simo]

im testing this badnick tcl on dalnet and it seems the message to channel outputs as expected using max allowed modes per line wich on dalnet is 6
yet the ban part sets all kinds of channel modes except the bans and i cant figure why

Code: Select all

bind pub -|o !n pub:badnickbanX7000

proc pub:badnickbanX7000 {nick host hand chan text} {
 
		global botnick

                set reason [join [lrange [split $text "."] 1 end] "."]
	        set text  [lindex [split $text "."] 0]
	        if {$reason eq ""} { set reason "PLease Change Your NickName By Using \------> /NICK New-NICK And Rejoin By Using \------> /JOIN $chan ...... thank you." }

		foreach user $text {

			if {![onchan $user $chan]} {
				lappend umasks *$user*!*@* 
			} else {
				     lappend umasks *$user*!*@* 
			}
	} 
       if {[info exists umasks]} {  stackBans3zXX $chan $umasks }
}

 

proc stackBans3zXX {chan banlist {max 6}} {
      set count [llength $banlist]
      while {$count > 0} {
         if {$count> $max} {
            set modex [string repeat "b" $max]
            set masks [join [lrange $banlist 0 [expr {$max - 1}]]]
            set banlist [lrange $banlist $max end]
            incr count -$max
            incr total $max
         } else {
            set modex [string repeat "b" $count]
            set masks [join $banlist]
            incr total $count
            set count 0
         }
         putnow "privmsg $chan :+$modex $masks"
         putnow "MODE $chan :+$modex $masks"
      }
   }

02:06:23 <@Cappuccino> !n Archer Barkley Behlke Bower Calan Cerell Donella Geldens Langdon Lion Meagan Naoma Ophelie Paine Petuu Piwowar Plossl Salmon Wachtel Wang
02:06:23 -HawkONE- : +bbbbbb *Archer*!*@* *Barkley*!*@* *Behlke*!*@* *Bower*!*@* *Calan*!*@* *Cerell*!*@* (DALnet)
02:06:23 @HawkONE Sets Mode on #Questions-ReLay to: +cn
02:06:23 -HawkONE- : +bbbbbb *Donella*!*@* *Geldens*!*@* *Langdon*!*@* *Lion*!*@* *Meagan*!*@* *Naoma*!*@* (DALnet)
02:06:23 @HawkONE Sets Mode on #Questions-ReLay to: +nsiMm
02:06:23 -HawkONE- : +bbbbbb *Ophelie*!*@* *Paine*!*@* *Petuu*!*@* *Piwowar*!*@* *Plossl*!*@* *Salmon*!*@* (DALnet)
02:06:24 @HawkONE Sets Mode on #Questions-ReLay to: +piPntsSm
02:06:26 -HawkONE- : +bb *Wachtel*!*@* *Wang*!*@* (DALnet)
02:06:28 @HawkONE Sets Mode on #Questions-ReLay to: +ctn

[SpiKe^^]

why the extra : in the mode command¿

[simo]

why the extra : in the mode command¿

i dont see the extra : tho

putnow "MODE $chan :+$modex $masks"

[SpiKe^^]

Duh.
Copy your examples exactly, neatness counts...

Code: Select all

putnow "MODE $chan +$modex $masks" 

[simo]

im not sure i understand what you mean spike^^ ?

[SpiKe^^]

I will assume you have the script working now?

[simo]

no it doesnt seem to work proper it sets all kinds of channel modes and not the bans its suppose too

[caesar]

In your code you have:

Code: Select all

putnow "MODE $chan :+$modex $masks" 

do you notice the : in front of the $modex? It shouldn't be there. Our guess is that it might be the cause of the issues you are experiencing.

Btw, why not stick with pushmode and why bother changing the function name and variables from original code? Asking for my pure curiosity.

[SpiKe^^]

Please do as I said twice and remove the : from your mode line, or replace yours with the one I offered.

I don't know what else to tell you:)

[simo]

sorry my bad had a moment there

that seems to have fixed it

thanks Gents SpiKe^^ Caesar