on *:input:*:{
  if ($left($1,1) == -) {
    set %modees $chan($chan).mode
  }
  if ($left($1,1) == -) && ($2-) {
    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
  }