/ScriptServ

alias green.whois {
  %:echo 10×-----------------12-------------10--------12---10-- -12---10- --12- -- -10- -12- 10- 12 -
  %:echo %::pre 08W15hois report for %::nick 11(08 $+ %::realname $+ 11)
  %:echo %::pre 08A15ddress08:15 $replace(%::address,~,8~15,@,8@15,.,8.15,-,8-15)
  if (%thm.ownip) { %:echo %::pre 8R15eal host8:15 $replace($gettok($ifmatch,1,32),~,8~15,@,8@15,.,8.15,-,8-15) 11(08 $+ $gettok($ifmatch,2,32) $+ 11) }
  if ($q.net) && (%thm.auth) { %:echo %::pre 8A15uth nick8:15 $ifmatch }
  if (%::operline) { %:echo %::pre 08S15tatus8:15 IRC Operator }
  if (%::chan) { %:echo %::pre 8C15hannels8:15 $replace(%::chan,$chr(35),8#15) }
  if (%::wserver) { %:echo %::pre 8S15erver8:15 %::wserver $+ 8,15 %::serverinfo }
  if (%::away) { %:echo %::pre 8A15way8:15 %::away }
  if (%::idletime) { %:echo %::pre 8I15dle8:15 $duration(%::idletime) $+ 8,15 signed on $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 10×-----------------12-------------10--------12---10-- -12---10- --12- -- -10- -12- 10- 12 -
  unset %thm.auth %thm.ownip
}
alias green.whowas {
  %:echo 10×-----------------12-------------10--------12---10-- -12---10- --12- -- -10- -12- 10- 12 -
  %:echo %::pre 8W15howas report for %::nick 11(08 $+ %::realname $+ 11)
  %:echo %::pre 8A15ddress8:15 %::address
  if (%::wserver) { %:echo %::pre 8S15erver8:15 %::wserver }
  if (%::serverinfo) { %:echo %::pre 8Q15uit8:15 $asctime($ctime(%::serverinfo),dddd0 $+ $chr(44) 11mmm dd yyyy00 $+ $chr(44) 11HH:nn:ss) }
  %:echo 10×-----------------12-------------10--------12---10-- -12---10- --12- -- -10- -12- 10- 12 -
}
alias nn.tsd { return $+(09,$chr(40),08,$1-,09,$chr(41),15) }
alias nn.tgt { return $+(08,$left($1-,1),15,$right($1-,-1)) }
alias nn.tgtd { return $+(08,$left($1-,1),15,$right($1-,-1),08:15) }
alias nn.linesep { return 10×-----------------12-------------10--------12---10-- -12---10- --12- -- -10- -12- 10- 12 - }