/ScriptServ

alias bitch.whois {
  %:echo %::pre 15(10whois. $+ %::nick $+ 15)
  %:echo 10I11nfo:15 %::nick 11(15 $+ %::address $+ 11) 
  %:echo 10N11ame:15 %::realname
  if (%::bitch.auth) { %:echo 10A11uthed as15 %::bitch.auth }
  if (%::operline) { %:echo 10H11e 15is an IRC Operator }
  if (%::chan) %:echo 10C11annel:15 %::chan
  if (%::wserver) %:echo 10S11erver:15 %::wserver ( $+ %::serverinfo $+ )
  if (%::away) %:echo 10A11way:15 %::away
  if (%::idletime) { %:echo 10I11dle:15 $duration(%::idletime) }
  if (%::idletime) { %:echo 10S11igned on:15 $duration($calc($ctime - $ctime(%::signontime))) ago }
  %:echo %::pre 15(10whois. $+ %::nick $+ 15)
  unset %::mircwhois.auth
}
alias bitch.whowas {
  %:echo %::pre 15(10whowas. $+ %::nick $+ 15)
  %:echo 10H11e was:15 %::address
  %:echo 10N11ame:15 %::realname
  if (%::wserver) %:echo 10U11sed:15 %::wserver ( $+ %::serverinfo $+ )
  %:echo %::pre 15(10whowas. $+ %::nick $+ 15)
}
alias bitch.dns {
  %:echo %::pre 15(10dns. $+ %::nick $+ 15)
  %:echo 10H11ost:15 %::address
  %:echo 10I11p:15 %::iaddress
  %:echo 10L11ong ip:15 $longip($raddress) $+ $longip($address)
  %:echo %::pre 15(10dns. $+ %::nick $+ 15)
}
alias bitch.pwhois {
}