/ScriptServ

alias waste.whois {
  %:echo 4•——————––—---——-----—-------—-------- -
  %:echo %::pre Whois report for %::nick (00 $+ %::realname $+ 04)
  %:echo %::pre Address00:04 $replace(%::address,@,00@04)
  if (%thm.ownip) { %:echo %::pre Actual host00:04  $replace($gettok($ifmatch,1,32),@,00@04) (00 $+ $gettok($ifmatch,2,32) $+ 04) }
  if ($q.net) && (%thm.auth) { %:echo %::pre Auth00:04 $ifmatch }
  if (%::operline) { %:echo %::pre Status00:04 IRC Operator }
  if (%::chan) { %:echo %::pre Chans00:04 $replace(%::chan,$chr(35),00#04) }
  if (%::wserver) { %:echo %::pre Server00:04 %::wserver $+ 00,04 %::serverinfo }
  if (%::away) { %:echo %::pre Away00:04 %::away }
  if (%::idletime) { %:echo %::pre Idle00:04 $duration(%::idletime) $+ 00,04 signed on $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 4•——————––—---——-----—-------—-------- -
  unset %thm.auth %thm.ownip
}
alias waste.whowas {
  %:echo 4•——————––—---——-----—-------—-------- -
  %:echo %::pre Whowas report for %::nick (00 $+ %::realname $+ 04)
  %:echo %::pre Address00:04 $replace(%::address,@,00@04)
  if (%::wserver) { %:echo %::pre Server00:04 %::wserver }
  if (%::serverinfo) { %:echo %::pre Quit00:04 $asctime($ctime(%::serverinfo),dddd00 $+ $chr(44) 11mmm dd yyyy00 $+ $chr(44) 11HH:nn:ss) }
  %:echo 4•——————––—---——-----—-------—-------- -
}
alias nn.tsd { return $+(04,$chr(40),00,$1-,04,$chr(41)) }
alias nn.tgt { return $+(04,$left($1-,1),,$right($1-,-1),04) }
alias nn.tgtd { return $+(04,$left($1-,1),,$right($1-,-1),00:04) }
alias nn.linesep { return 4•——————––—---——-----—-------—-------- - }