Stuff

dialog whoisd {
  title "Whois"
  size -1 -1 114 86
  option dbu
  check "HelpOp", 1, 72 30 50 10, disable
  check "IRCop", 2, 72 38 50 10, disable
  check "Away", 3, 72 46 50 10, disable
  list 4, 10 31 50 50, size
  check "Identified", 5, 72 54 50 10, disable
  check "BOT", 10, 72 62 50 10, disable
  edit "", 6, 3 8 105 10, autohs
  text %whoisnick is, 7, 6 0 70 8
  edit "", 8, 3 19 105 10, autohs
  button "Close", 9, 72 72 37 12, cancel
}

raw *:*:{
  if ($numeric == 311) {
    set %whoisnick $2
    if ($dialog(whoisd)) {
      dialog -x whoisd
      dialog -m whoisd whoisd
    }
    else {
      dialog -m whoisd whoisd
    }
    did -a whoisd 6 $3-
    halt
  }
  elseif ($numeric == 307) {
    did -c whoisd 5
    halt
  }
  elseif ($numeric == 307) {
    did -c whoisd 5
    halt
  }
  elseif ($numeric == 307) {
    did -c whoisd 5
    halt
  }
  elseif ($numeric == 310) {
    did -c whoisd 1
    halt
  }
  elseif ($numeric == 313) {
    did -c whoisd 2
    halt
  }
  elseif ($numeric == 335) {
    did -c whoisd 10
    halt
  }
  elseif ($numeric == 301) {
    did -c whoisd 1
    halt
  }
  elseif ($numeric == 312) {
    did -a whoisd 8 $3-
    halt
  }
  elseif ($numeric == 319) {
    var %i = 0
    while (%i < $numtok($3-,32)) {
      inc %i
      did -a whoisd 4 $gettok($3-,%i,32)
    }
    halt
  }
  elseif ($numeric == 318) {
    unset %whoisnick
    halt
  }
  else { return }
}
on *:DIALOG:whoisd:dclick:4:{
  if ($did($dname,$did).seltext) {
    join $remove($did($dname,4).seltext,@,%,+)
  }
}