/ScriptServ

alias quark.whois {
  %:echo     15« 01 whois start 15»
  %:echo  15« 07 %::nick 14is $replace(%::address,@,07@14) $+(07{01,%::realname,07}01)
  if (%thm.ownip) { %:echo  15« 07 %::nick $+ 14's real host is $gettok($ifmatch,1,32) $+(07{01,$gettok($ifmatch,2,32),07}01) }
  if ($q.net) && (%thm.auth) { %:echo  15« 07 %::nick 14is authed as $ifmatch }
  if (%::operline) { %:echo  15« 07 %::nick 14is an IRC Operator }
  if (%::chan) { %:echo  15« 07 %::nick 14on $replace(%::chan,@,07@14,%,07%14,+,07+14) }
  if (%::wserver) { %:echo  15« 07 %::nick 14using %::wserver $+(07{01,%::serverinfo,07}01) }
  if (%::away) { %:echo  15« 07 %::nick 14is away: %::away }
  if (%::idletime) { %:echo  15« 07 %::nick 14has been idle $duration(%::idletime) $+(07{01,signed on %::signontime,07}01) }
  %:echo     15« 01 whois end 15»
  unset %thm.auth %thm.ownip
}
alias quark.whowas {
  %:echo     15« 01 whowas start 15»
  %:echo  15« 07 %::nick 14was $replace(%::address,@,07@14) $+(07{01,%::realname,07}01)
  if (%::wserver) { %:echo  15« 07 %::nick 14using %::wserver }
  if (%::serverinfo) { %:echo  15« 07 %::nick 14quit $asctime($ctime(%::serverinfo),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss) }
  %:echo     15« 01 whowas end 15»
}
alias nn.tsd { return $+(07{14,$1-,07}14) }
alias nn.tgt { return $+(01,$1-) }
alias nn.tgtd { return $+(01,$1- 15»14) }
alias nn.linesep { return 07{14 info 07}14 }