on $*:TEXT:/^[!@]server */Si:#:{
  .enable #server
  set %server.target $iif(@* iswm $1,msg $chan,.notice $nick)
  who $2
}
#server off
raw *:*:{
  if ($istok(315 352,$numeric,32)) haltdef
  if ($numeric == 352) {
    %server.target $c2($6) $c1(is on) $c2($5) $+ $c1(.)
    .disable #server
    halt
  }
  elseif ($numeric == 315) {
    %server.target $c2($2) $c1(isn't online.)
    .disable #server
    halt
  }
}
#server on
alias -l c1 { return $+(14,$1-,) }
alias -l c2 { return $+(07,$1-,) }