/ScriptServ

alias void.whois {
  %:echo 12•››››››››››››››››››››››››››››››››› ››››› ››› ›› ›› ›› › ›
  %:echo %::pre $+(0,%::nick, 15is ",%::realname,15")
  %:echo 12•1››  $+ %::nick $+  15is $replace(%::address,~,12~,@,12@,.,12.,-,12-)
  if (%thm.ownip) { %:echo 12•1››  $+ %::nick $+  15real host $replace($gettok($ifmatch,1,32),~,12~,@,12@,.,12.,-,12-) $+ 15, $replace($gettok($ifmatch,2,32),.,12.) }
  if ($q.net) && (%thm.auth) { %:echo 12•1››  $+ %::nick $+  15is authed as 15" $+ $ifmatch $+ 15" }
  if (%::operline) { %:echo 12•1››  $+ %::nick $+  15is an IRC Operator }
  if (%::chan) { %:echo 12•1››  $+ %::nick $+  15on $replace(%::chan,.,12.,@,12@,%,12%,+,12+,$chr(35),14 $+ $chr(35) $+ ) }
  if (%::wserver) { %:echo 12•1››  $+ %::nick $+  15using $replace(%::wserver,.,12.,-,12-) $+ 15, %::serverinfo }
  if (%::away) { %:echo 12•1››  $+ %::nick $+  15is away15: %::away }
  if (%::idletime) { %:echo 12•1››  $+ %::nick $+  15has been idle for12 $duration(%::idletime) $+ , 15signed on12 $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 12•››››››››››››››››››››››››››››››››› ››››› ››› ›› ›› ›› › ›
  unset %thm.auth %thm.ownip
}
alias void.whowas {
  %:echo 12•››››››››››››››››››››››››››››››››› ››››› ››› ›› ›› ›› › ›
  %:echo %::pre 0 $+ %::nick $+  15was " $+ %::realname $+ 15"
  %:echo 12•1››  $+ %::nick $+  15was $replace(%::address,@,12@,.,12.,-,12-)
  if (%::wserver) { %:echo 12•1››  $+ %::nick $+  15using $replace(%::wserver,.,12.,-,12-) }
  if (%::serverinfo) { %:echo 12•1››  $+ %::nick $+  15quit $asctime($ctime(%::serverinfo),dddd $+ $chr(44) mmm dd yyyy $+ $chr(44) HH:nn:ss) }
  %:echo 12•››››››››››››››››››››››››››››››››› ››››› ››› ›› ›› ›› › ›
}
alias nn.tsd { return $+(12[,$1-,12]15) }
alias nn.tgt { return $+(00,$left($1,1),15,$right($1-,-1),15) }
alias nn.tgtd { return $+(00,$left($1,1),15,$right($1-,-1),00:15) }
alias nn.linesep { return 12•››››››››››››››››››››››››››››››››› ››››› ››› ›› ›› ›› › › }