Banmasks first without delay and with delay after

[simo]

Greetingz,

is there a way to have the first 6 stacked modes +bbbbbb (or of course if there are less than 6 to send in total) be sent direct without any delay and everything after that

Code: Select all

proc StackUnbans {chan banlist {max 6}} {
         set chan [string tolower $chan] 
      set count [llength $banlist]
      while {$count > 0} {
         if {$count> $max} {
            set mode [string repeat "b" $max]
            set masks [join [lrange $banlist 0 [expr {$max - 1}]]]
            set banlist [lrange $banlist $max end]
            incr count -$max
         } else {
            set mode [string repeat "b" $count]
            set masks [join $banlist]
            set count 0
         }
             incr counter 1
             after [expr {$counter*4000}] [list  puthelp "MODE $chan -$mode $masks"]
      }
   }

 

[simo]

Any help with this code?

[CrazyCat]

Did you try inverting the two lines:

   incr counter 1
   after [expr {$counter*4000}] [list  puthelp "MODE $chan -$mode $masks"]

Become:

   after [expr {$counter*4000}] [list  puthelp "MODE $chan -$mode $masks"]
   incr counter 1

[simo]

thank you for your reply CrazyCat ,

ive tried your suggestion and got this error :

can't read "counter": no such variable

[simo]

im not sure if its proper but i tried this and it seems to work

Code: Select all

   if {![info exists counter]} { putquick "MODE $chan +$mode $masks" -next
         }  else { after [expr {$counter*5000}] [list  puthelp "MODE $chan +$mode $masks"] }
	      incr counter 1

[CrazyCat]

thank you for your reply CrazyCat ,

ive tried your suggestion and got this error :

can't read "counter": no such variable

Just initialize counter to 0 at the beginning of the procedure.

[simo]

you mean like this right ?

Code: Select all

set counter 0

i've used it at the start of the proc as u suggested
that seems to work if i used proper