on *:RAWMODE:#:{
  if ($regex($1,/^[+-][eIb]/)) && ($nick != $me) {
    var %x 1, %mask, %mode
    while ($mode(%x)) {
      if ($ial($v1,1).nick == $me) {
        %mask = %mask $token($2-,%x,32)
        %mode = $+(%mode,$iif($istok(+ -,$mid($1,%x,1),32),$+($mid($1,%x,1),$mid($1,$calc(%x +1),1)),$mid($1,$calc(%x +1),1)))
      }
      inc %x | inc %y
    }
    mode $chan $replacex(%mode,+,-,-,+) %mask
  }
}