/ScriptServ

alias seeper.whois {
  %:echo 0•11›››››››››››››0››››››11›››››››››››››0››››11›››››0› ›››11›› ››0› ››11 ›› ››
  %:echo %::pre Whois report for %::nick ( $+ %::realname $+ 11)
  %:echo %::pre Address: $replace(%::address,@,00@11,.,00.11,~,00~11,-,00-11)
  if (%thm.ownip) { %:echo %::pre Real host: $replace($gettok($ifmatch,1,32),@,00@11,.,00.11,~,00~11,-,00-11) $+ 00,11 $replace($gettok($ifmatch,2,32),.,00.11) }
  if ($q.net) && (%thm.auth) { %:echo %::pre Auth: $ifmatch }
  if (%::operline) { %:echo %::pre Status: IRC Operator }
  if (%::chan) { %:echo %::pre Chans: $replace(%::chan,@,00@11,+,00+11,%,00%11,$chr(35),$+(15,$chr(35),11)) }
  if (%::wserver) { %:echo %::pre Server: %::wserver $+ 00,11 %::serverinfo }
  if (%::away) { %:echo %::pre Away: %::away }
  if (%::idletime) { %:echo %::pre Idle: $duration(%::idletime) $+ 00,11 signed on $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 0•11›››››››››››››0››››››11›››››››››››››0››››11›››››0› ›››11›› ››0› ››11 ›› ››
  unset %thm.auth %thm.ownip
}
alias seeper.whowas {
  %:echo 0•11›››››››››››››0››››››11›››››››››››››0››››11›››››0› ›››11›› ››0› ››11 ›› ››
  %:echo %::pre Whowas report for ( $+ %::nick $+ 11)
  %:echo %::pre Address: $replace(%::address,@,00@11,.,00.11,~,00~11,-,00-11)
  %:echo %::pre Name: %::realname
  if (%::wserver) { %:echo %::pre Server: %::wserver }
  if (%::serverinfo) { %:echo %::pre Quit: $asctime($ctime(%::serverinfo),dddd00 $+ $chr(44) 11mmm dd yyyy00 $+ $chr(44) 11HH:nn:ss) }
  %:echo 0•11›››››››››››››0››››››11›››››››››››››0››››11›››››0› ›››11›› ››0› ››11 ›› ››
}
alias nn.tsd { return $+(11,$chr(40),00,$1-,11,$chr(41)) }
alias nn.tgt { return $+(11,$left($1-,1),,$right($1-,-1),11) }
alias nn.tgtd { return $+(11,$left($1-,1),,$right($1-,-1),00:11) }
alias nn.linesep { return •11›››››››››››››0››››››11›››››››››››››0››››11›››››0› ›››11›› ››0› ››11 ›› ›› }