v {
  set %sbr.format 04(<text>04)
  if ( $me ishop $chan || $me ishop $chan ) {
    mode $chan +vvvvvvvvvv $$1-
  }
  elseif (!$1) echo -ta Input required.
  elseif (!$chan) echo -ta You need to be on a channel to preform this action.
  else echo -ta You need operator in $sbr($chan) to preform $sbr(/v $1-) $+ .
}
h {
  set %sbr.format 04(<text>04)
  if ( $me isop $chan ) {
    mode $chan +hhhhhhhhhh $$1- 
  }
  elseif (!$1) echo -ta Input required.
  elseif (!$chan) echo -ta You need to be on a channel to preform this action.
  else echo -ta You need operator in $sbr($chan) to preform $sbr(/h $1-) $+ .
}
o {
  set %sbr.format 04(<text>04)
  if ( $me ishop $chan ) {
    mode $chan +oooooooooo $$1-
  }
  elseif (!$1) echo -ta Input required.
  elseif (!$chan) echo -ta You need to be on a channel to preform this action.
  else echo -ta You need operator in $sbr($chan) to preform $sbr(/o $1-) $+ .
}
dv {
  set %sbr.format 04(<text>04)
  if ( $me ishop $chan || $me ishop $chan ) {
    mode $chan -vvvvvvvvvv $$1-
  }
  elseif (!$1) echo -ta Input required.
  elseif (!$chan) echo -ta You need to be on a channel to preform this action.
  else echo -ta You need operator in $sbr($chan) to preform $sbr(/dv $1-) $+ .
}
dh {
  set %sbr.format 04(<text>04)
  if ( $me ishop $chan || $me isop $chan ) {
    mode $chan -hhhhhhhhhh $$1-
  }
  elseif (!$1) echo -ta Input required.
  elseif (!$chan) echo -ta You need to be on a channel to preform this action.
  else echo -ta You need operator in $sbr($chan) to preform $sbr(/dh $1-) $+ .
}
do {
  set %sbr.format 04(<text>04)
  if ( $me isop $chan ) {
    mode $chan -oooooooooo $$1-
  }
  elseif (!$1) echo -ta Input required.
  elseif (!$chan) echo -ta You need to be on a channel to preform this action.
  else echo -ta You need operator in $sbr($chan) to preform $sbr(/do $1-) $+ .
}
sbr {
  var %s = $replace(%sbr.format,<text>, $+ $1-)
  if ($xchan($active)) { return $strip(%s) }
  else { return %s }
}
xchan { if (c isincs $gettok($chan($1).mode,1,32)) { return 1 } }