/ScriptServ

alias cl.whois {
  %:echo 1•02•12• 01········02········12········14········15···
  %:echo 1•02•12•1 %::nick is %::address * %::realname
  if (%thm.ownip) { %:echo 1•02•12•15 %::nick actual host is $gettok($ifmatch,1,32) ( $+ $gettok($ifmatch,2,32) $+ ) }
  if ($q.net) && (%thm.auth) { %:echo 1•02•12•15 %::nick is authed as $ifmatch }
  if (%::operline) { %:echo 1•02•12•15 %::nick is an IRC Operator }
  if (%::chan) %:echo 1•02•12•15 %::nick on %::chan
  if (%::wserver) %:echo 1•02•12•15 %::nick using %::wserver $+ , %::serverinfo
  if (%::away) %:echo 1•02•12•15 %::nick is away: %::away
  if (%::idletime) { %:echo 1•02•12•15 %::nick has been idle $duration(%::idletime) $+ , signed on %::signontime }
  %:echo 1•02•12• 01········02········12········14········15···
  unset %thm.auth %thm.ownip
}
alias cl.whowas {
  %:echo 1•02•12• 01········02········12········14········15···
  %:echo 1•02•12•1 %::nick was %::address * %::realname
  if (%::wserver) %:echo 1•02•12•15 %::nick using %::wserver
  if (%::serverinfo) %:echo 1•02•12•15 %::nick quit $asctime($ctime(%::serverinfo),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss)
  %:echo 1•02•12• 01········02········12········14········15···
}
alias nn.tsd { return $+(,$1-,) }
alias nn.tgt { return $+(,$1-,) }
alias nn.tgtd { return $+(,$1-,:) }
alias nn.linesep { return 1•02•12• 01········02········12········14········15··· }