;It needs a shit load of work on it, but heres what I have so far... lol
;First type /set %whois Bubble
;Then put this stuff in your remotes section

menu * {
  -
  Whois:/dialog -ma whois whois
  -
}
dialog whois {
  title /Whois Settings
  size -1 -1 150 177
  option dbu
  text "", 1, 2 12 146 150
  text "Current /Whois Setup", 2, 2 2 60 10
}
on *:dialog:whois:*:*: {
  if ($devent == init) {
    //did -ra whois 1 
  }
}
raw 301:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 307:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 310:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 311:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 312:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 313:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 317:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 318:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 319:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 431:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw 671:*: { $read(Whois.txt, sp, %whois $event) | halt }
raw *:*: { echo -ta 14[4«14 $+ $event $+ 4»14]4 $2- | halt }
alias decide { return $iif($dialog(Whois),did -ar whois 1 $iif($did(whois,1),$v1 $crlf $+ $strip($1-),$strip($1-)),echo -a $1-) }
alias while.whois {
  set %a 1
  set  %b $0
  while (%a <= %b) {
    set %c $ [ $+ [ %a ] ]
    if ($chr(35) isin %c) {
      if ($chr(37) isin %c) { set %hops %hops %c }
      elseif (@ isin %c) { set %ops %ops %c }
      elseif (+ isin %c) { set %voice %voice %c }
      else { set %regs %regs %c }
    }
    inc %a
  }
}


;Put this st00f in a file called Whois.txt in your mIRC folder.


bubble 311 $iif($dialog(Whois),did -ra whois 1) | $decide(14- – — ——.•°4 Whois: $2 14°•.—— — – -) | $decide(14 $+ $chr(124) $+ 4Address14 $+ $chr(124) 14 $3 $+ @ $+ $4) | $decide(14 $+ $+($chr(124),4Realname14,$chr(124),14) $6-)
bubble 378 $decide(14 $+ $+($chr(124),4Connetion14,$chr(124),14) $6) | $decide(14 $+ $+($chr(124),4IP14,$chr(124),14) $7)
bubble 319 $decide(14 $+ $+($chr(124),4Channels14,$chr(124),14) $2 is on $calc($0 - 2) channel $+ $iif($calc($0 - 2) != 1,s) $+ .) | while.whois $1- | $iif(%ops,$decide(14 $+ $+(»,$str($chr(160),3),$chr(124),4OP14,$chr(124),04) %ops)) | $iif(%hops,$decide(14 $+ $+(»,$str($chr(160),3),$chr(124),4HALFOP14,$chr(124),07) %hops)) | $iif(%voice,$decide(14 $+ $+(»,$str($chr(160),3),$chr(124),4VOICED14,$chr(124),12) %voice)) | $iif(%regs,$decide(14 $+ $+(»,$str($chr(160),3),$chr(124),4REGULAR14,$chr(124),11) %regs)) | unset %a %b %c %ops %hops %voice %regs
bubble 313 $decide(14 $+ $+($chr(124),4IRCop,$chr(124),14) $5-)
bubble 310 $decide(14 $+ $+($chr(124),4Helper,14,$chr(124)))
bubble 301 $decide(14 $+ $+($chr(124),4Away14,$chr(124),14) $3-)
bubble 312 $decide(14 $+ $+($chr(124),4Server14,$chr(124),14) $3 $+([4»14,$4-,4«,14]))
bubble 317 $decide(14|4IDLE14| $2 has been idle $duration($3) $+ $chr(44) signed on $asctime($4))
bubble 318 $decide(14- – — ——.•°4 /Whois: $2 14°•.—— — – -)
bubble 431 $decide(14|04No Name Given14|)
bubble 307 $decide(14 $+ $+($chr(124),4IDENTIFIED14,$chr(124),14) $2 has id'd on this name.)
bubble 671 $decide(14|4Secure Connection14|14 $2 is using an SSL)