/ScriptServ

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