Someone

on *:RAWMODE:#:{
  var %c 1,%t 1
  while (%c <= $len($1)) {
    if ($mid($1,%c,1) isin +-) var %+- $v1
    elseif ($mid($1,%c,1) !isincs $gettok($chanmodes,4,44)) {
      inc %t
      if ($mid($1,%c,1) === e) && (%+- == -) var %e %e $($ $+ %t,2)
    }
    inc %c
  }
  if (%e) mode $chan + $+ $str(e,$numtok(%e,32)) %e
}