multi op/deop

alias _op { if ($me isop $1 && $level($fulladdress) > 2) mode.loop $1 +ooooo $2- }
alias _deop { if ($me isop $1 && $level($fulladdress) > 2) mode.loop $1 -ooooo $2- }

alias -l mode.loop {
  echo -s mode.loop $1-
  var %mm $modespl
  var %ml $left($2,1) $+ $str($right($2,1),%mm)
  echo mode $1 %ml [ $ $+ [ 3- $+ [ $calc(2+%mm) ] ] ]
  mode $1 %ml [ $ $+ [ 3- $+ [ $calc(2+%mm) ] ] ]
  if ($0 > $calc(3+%mm)) timer 1 0  mode.loop2 $1 $2 [ $ $+ [ [ $calc(3+%mm) ] $+ - ] ]
}
alias -l mode.loop2 {
  echo -s mode.loop2 $1-
  var %mm $modespl
  var %ml $left($2,1) $+ $str($right($2,1),%mm)
  echo mode $1 %ml [ $ $+ [ 3- $+ [ $calc(2+%mm) ] ] ]
  mode $1 %ml [ $ $+ [ 3- $+ [ $calc(2+%mm) ] ] ]
  if ($0 > $calc(3+%mm)) timer 1 0  mode.loop $1 $2 [ $ $+ [ [ $calc(3+%mm) ] $+ - ] ]
}