Forums Scripts & Popups Rawmode to display effected banmask freezes client

ON *:RAWMODE:#:{
  var %takepara $remove($gettok($chanmodes,1-3,44),$chr(44)),%i 1,%j 2,%set +
  while ($mid($1,%i,1)) {
    var %t $v1
    if (%t == +) %set = +
    elseif (%t == -) %set = -
    elseif (%t isincs $nickmode) inc %j
    elseif (%t isincs %takepara) {
      if (%t isincs beIq) {
        var %banmask $eval($chr(36) $+ %j,2)
        if (~quiet:?* iswm %banmask) %banmask = $mid(%banmask,8)   
        elseif (~?:?* iswm %banmask) %banmask = $mid(%banmask,4)
        elseif (?:?* iswm %banmask) %banmask = $mid(%banmask,3)
        var %n $ialchan(%banmask,$chan,0)
        while (%n) var %bl $+ %set $+ %t $($+(%,bl,%set,%t) $ialchan(%banmask,$chan,%n).nick,%n %n - 1
      }
      inc %j
    }
    inc %i
  }
  var %n $var(bl*,0)
  while (%n) {
    var %v $var(bl*,%n),%p $(%v,2),%mode $right(%v,2),%m $numtok(%p,32),%k 1,%r $regsubex(%p,/(\S+)/g,(\n) \1),%user user,%is is,%word $replacexcs(%mode,+b,Banned,-b,UNBanned,+I,Invited,-I,UNInvited,+e,Exempted,-e,UNExempted,+q,MuteBanned,-q,UN-MuteBanned)
    if (%m > 1) {
       %user = users
       %is = are
    }
    while ($gettok(%p,%k,32)) {
      if ($query($v1)) echo -t $v1 *** ( $+ %m %user $+ ) %is %word : %r
      inc %k
    }
    echo -t $chan *** ( $+ %m %user $+ ) %is %word : %r
    dec %n
  }
}