Anonymous

alias winter.whois {
  %:echo 02((12 /whois start 02))
  %:echo $+(02 —› 1,%::nick, 12is ",%::realname,12") 02(12 $+ %::address $+ 02)
  if (%thm.ownip) { %:echo 11 —› $+(,%::nick,) 12actual host is $gettok($ifmatch,1,32) 02(12 $+ $gettok($ifmatch,2,32) $+ 02) }
  if ($q.net) && (%thm.auth) { %:echo $+(11 —› ,%::nick, 12is authed as 12",$ifmatch,12") }
  if (%::operline) { %:echo $+(11 —› ,%::nick, 12,Is an:) IRC Operator }
  if (%::chan) {
    var %m,%c = $regsub(%::chan,/(^-| -)/g,$chr(32),%m),%i = $numtok(%m,32),%q,%a,%o,%h,%v,%r
    while (%i) {
      var %t = $gettok(%m,%i,32),%p = $left(%t,1),%l = $right(%t,-1),%g = $+($iif($me ison %l,),%l,)
      if (%p == ~) { %q = $addtok(%q,%g,32) }
      elseif (%p == &) { %o = $addtok(%a,%g,32) }  
      elseif (%p == @) { %o = $addtok(%o,%g,32) }
      elseif (%p == %) { %h = $addtok(%h,%g,32) }
      elseif (%p == +) { %v = $addtok(%v,%g,32) }
      else { %r = $addtok(%r,$+($iif($me ison %t,),%t,),32) }
      dec %i
    }
    { %:echo  11—› $+(,%::nick,)  12 ------------------------------------------------------------------------------------ }
    if (%q) { %:echo 11 —› $+(,%::nick,) 12¤-Ownered in: %q }
    if (%a) { %:echo 11 —› $+(,%::nick,) 12¤-Protected in: %a }
    if (%o) { %:echo 11 —› $+(,%::nick,) 12¤-Opped in: %o }
    if (%h) { %:echo 11 —› $+(,%::nick,) 12¤-HalfOpped in: %h }
    if (%v) { %:echo 11 —› $+(,%::nick,) 12¤-Voiced in: %v }
    if (%r) { %:echo 11 —› $+(,%::nick,) 12¤-Reged in: %r }
    { %:echo  11—› $+(,%::nick,)  12 ------------------------------------------------------------------------------------ }
  }
  if (%::wserver) { %:echo 11 —› $+(,%::nick,) 12Connected: %::wserver 02(12 $+ %::serverinfo $+ 02) }
  if (%::away) { %:echo 11 —› $+(,%::nick,) 12Is Away: %::away }
  if (%::idletime) {
    %:echo 11 —› $+(,%::nick,) 12Has been idle for: $duration(%::idletime)
    %:echo 11 —› $+(,%::nick,) 12Signed on: $duration($calc($ctime - $ctime(%::signontime))) 
  }
  %:echo 02((12 /whois end 02))
  unset %thm.auth %thm.ownip
}