This is my first attempt at dialog after I have been practicing for awhile(about a year now). All constructive comments are allowed. If you have any tips fill free to post them. I had help with this by a very close firend of mine. So thanks to him for his support. =] Just Alt + R and Add to a New Remote File. It's really clean and easy to see everything.

##########################
# Made By                #
# Risen                  #
# irc.xerocreative.com   #          
##########################

dialog whois {
  title "Whois/Whowas"
  size -1 -1 209 105
  option dbu
  edit "", 1, 5 14 198 76, read multi vsbar
  text "Whois Dialog ", 3, 5 5 113 8
  button "Close", 4, 83 91 37 12, cancel
}
raw 301:*: {
  if ($dialog(whois)) {
    did -a whois 1 Away: Yes: ( $+ $3- $+ ) $+ $chr(13) $+ $chr(10)
  }
}
raw 307:*: {
  if ($dialog(whois)) {
    did -a whois 1 Registered Nickname: Yes. $+ $chr(13) $+ $chr(10)
  }
}
raw 310:*: {
  if ($dialog(whois)) {
    did -a whois 1 IRC Helper: Yes. $+ $chr(13) $+ $chr(10)
  }
}
raw 311:*:{
  dialog -m whois whois
  did -a whois 1 Whois for $2  $+ $chr(13) $+ $chr(10)
  did -a whois 1 $2 is $3 $+ @ $+ $4 * $6- $+ $chr(13) $+ $chr(10)
}
raw 312:*:{
  if ($dialog(whois)) {
    did -a whois 1 Server: $3 ( $+ $4- $+ ) $+ $chr(13) $+ $chr(10)
  }
}
raw 313:*: {
  if ($dialog(whois)) {
    did -a whois 1 Network Functions: $5 $6 $7 $8 $9 $+ $chr(13) $+ $chr(10)
  }
}
raw 314:*:{
  if ($dialog(whois)) {
    dialog -m whois whois
    did -a whois 1 Whowas for $2  $+ $chr(13) $+ $chr(10)
    did -ra whois 1 $2 was $3 $+ @ $+ $4 * $6- $+ $chr(13) $+ $chr(10)
  }
}
raw 317:*:{
  if ($dialog(whois)) {
    did -a whois 1 Signed on at: $asctime($4,dddd dd/mm/yyyy HH:nn:ss) $+ $chr(13) $+ $chr(10)
    did -a whois 1 Time idle: $duration($3) $+ $chr(13) $+ $chr(10)
    did -a whois 1 Time online: $duration($calc($ctime - $4)) $+ $chr(13) $+ $chr(10)
  }
}
raw 318:*:{
  if ($dialog(whois)) {
    did -a whois 1 End of Whois $+ $chr(13) $+ $chr(10)
  }
}
raw 319:*:{
  if ($dialog(whois)) {
    did -a whois 1 $2 is on $3- $+ $chr(13) $+ $chr(10)
  }
}
raw 320:*:{
  if ($dialog(whois)) {
    did -a whois 1 Defined Functions: $4- $+ $chr(13) $+ $chr(10)
  }
}
raw 338:*:{
  if ($dialog(whois)) {
    did -a whois 1 Real Hostmask: $3 $+ $chr(13) $+ $chr(10)
    did -a whois 1 Real IP: $4 $+ $chr(13) $+ $chr(10)
  }
}
raw 335:*:{
  if ($dialog(whois)) {
    did -a whois 1 $2 is a bot $+ $chr(13) $+ $chr(10)
  }
}
raw 369:*:{
  if ($dialog(whois)) {
    did -a whois 1 End of Whowas $+ $chr(13) $+ $chr(10)
  }
}
raw 378:*:{
  if ($dialog(whois)) {
    did -a whois 1 Real Host: $6 $+ $chr(13) $+ $chr(10)
    did -a whois 1 IP: $7 $+ $chr(13) $+ $chr(10)
  }
}
raw 401:*:{
  if ($dialog(whois)) {
    did -a whois 1 $2 isn't online $+ $chr(13) $+ $chr(10)
  }
}
raw 406:*:{
  if ($dialog(whois)) {
    did -a whois 1 $2 hasn't been online recently $+ $chr(13) $+ $chr(10)
  }
}