/ScriptServ

alias mono.whois {
  %:echo 0×-----------------15-------------0--------15---0-- -15---0- --15- -- -0- -15- 0- 15 -
  %:echo %::pre Whois report for00 %::nick 01(00 $+ %::realname $+ 01)
  %:echo %::pre Address00: $replace(%::address,@,01@00,.,01.00,~,01~00,-,01-00)
  if (%thm.ownip) { %:echo %::pre Actual host00: $replace($gettok($ifmatch,1,32),@,01@00,.,01.00,~,01~00,-,01-00) 01(00 $+ $replace($gettok($ifmatch,2,32),.,01.00) $+ 01) }
  if ($q.net) && (%thm.auth) { %:echo %::pre Auth00: $ifmatch }
  if (%::operline) { %:echo %::pre Status00: IRC Operator }
  if (%::chan) { %:echo %::pre Chans00: $replace(%::chan,@,15@00,+,15+00,%,15%00,$chr(35),01#00) }
  if (%::wserver) { %:echo %::pre Server00: $replace(%::wserver,.,01.00,~,01~00,-,01-00) $+ 01,00 %::serverinfo }
  if (%::away) { %:echo %::pre Away00: %::away }
  if (%::idletime) { %:echo %::pre Idle00: $duration(%::idletime) $+ 01,00 signed on $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo 0×-----------------15-------------0--------15---0-- -15---0- --15- -- -0- -15- 0- 15 -
  unset %thm.auth %thm.ownip
}
alias mono.whowas {
  %:echo 0×-----------------15-------------0--------15---0-- -15---0- --15- -- -0- -15- 0- 15 -
  %:echo %::pre Whowas report for ( $+ %::nick $+ 01)
  %:echo %::pre Address00: $replace(%::address,@,01@00,.,01.00,~,01~00,-,01-00)
  %:echo %::pre Name00: %::realname
  if (%::wserver) { %:echo %::pre Server00: %::wserver }
  if (%::serverinfo) { %:echo %::pre Quit00: $asctime($ctime(%::serverinfo),dddd00 $+ $chr(44) 00mmm dd yyyy00 $+ $chr(44) 00HH:nn:ss) }
  %:echo 0×-----------------15-------------0--------15---0-- -15---0- --15- -- -0- -15- 0- 15 -
}
alias nn.tsd { return $+(01,$chr(40),00,$1-,01,$chr(41),00) }
alias nn.tgt { return $+(01,$1-,00) }
alias nn.tgtd { return $+(01,$1-,00:) }
alias nn.linesep { return 0×-----------------15-------------0--------15---0-- -15---0- --15- -- -0- -15- 0- 15 - }