Miscellany

on *:RAWMODE:#:{
  if ($hget(mode $+ $chan,0).item) hdel -w mode $+ $chan *
  var %c 1,%t 1
  while (%c <= $len($1)) {
    if ($mid($1,%c,1) isin +-) var %+- $v1
    else {
      if ($mid($1,%c,1) !isincs $gettok($chanmodes,4,44)) {
        inc %t
        hadd -m mode $+ $chan $calc($hget(mode $+ $chan,0).item + 1) %+- $+ $mid($1,%c,1) $($ $+ %t,2)
      }
      else hadd -m mode $+ $chan $calc($hget(mode $+ $chan,0).item + 1) %+- $+ $mid($1,%c,1)
      if (%+- $+ $mid($1,%c,1) == +i) mode # -i
    }
    inc %c
  }
}