on *:RAWMODE:#achomes:{
  if ($hget(mode $+ $chan,0).item) hdel -w mode $+ $chan *
  if ($nick == Aden) { HALT }
  if ($nick == Chips) { HALT }
  if ($nick == Ace-System) { HALT }
  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
      if (%+- $+ $mid($1,%c,1) == +k) mode # -k $($ $+ %t,2)
      if (%+- $+ $mid($1,%c,1) == +l) mode # -l $($ $+ %t,2)
      if (%+- $+ $mid($1,%c,1) == -Q) mode # +Q
    }
    inc %c
  }
}