Someone

on *:input:*:{
  if ($left($1,1) == -) {
    set %modees $chan($chan).mode
  } 
  if ($left($1,1) == -) && ($2-) { 
    msg $chan $1-
    mode $active $left($1,2) $iif($2-,$2-,$null)
  halt }
  if ($left($1,1) == -) && ($mid($1,2,2) !isincs %modees) {
    msg $chan $1-
    timermode 1 0.5 msg $chan $active is already $1
    unset %modees
    halt
  }
  if ($mid($1,2,2) isincs %modees) && ($left($1,1) == -) {
    mode $active $left($1,2) $iif($2-,$2-,$null)
    unset %modees
  }
}
-N-E-W--F-I-L-E--O-K-A-Y--N-O-O-b-------------------------

on *:input:*:{
  if ($left($1,1) == $chr(43)) {
  set %modees $chan($chan).mode }
  if ($mid($1,2,2) isincs %modees) && ($left($1,1) == $chr(43)) {
    msg $chan $1-
    timermode 1 0.5 msg $chan $chan is already $1
    unset %modees
  }
  if ($mid($1,2,2) !isincs %modees) && ($left($1,1) == $chr(43)) {
    mode $active + $+ $mid($1,2,2) $iif($2-,$2-,$null)
    unset %modees
  }
}