Something

dialog aol {
  title "Aol"
  size -1 -1 172 120
  option dbu
  list 1, 0 0 172 97, size hsbar vsbar
  edit "", 2, 37 97 88 10
  text "NickName:", 3, 0 98 34 8, center
  button "Whois", 4, 126 97 37 12
  button "Kick", 5, 77 107 37 12
  button "KB", 6, 40 107 37 12
  button "Close", 7, 2 107 37 12, ok
}
menu * {
  Aol:/dialog -dm aol aol
}
on *:dialog:aol:*:*:{
  if ($devent == init) {
    var %e = 1, %er = 1
    while ($nick($active,%e)) {
      if (*aol* iswm $address($v1,2)) {
        did -i $dname 1 %er $v2
        inc %e
        inc %er
      }
      else inc %e
    }
    $iif(%er = 1,did -i $dname 1 1 No aol users in $+($active,.))
  }
  else {
    if ($did == 4) {
      whois $ial($did(1).seltext,1).nick
      dialog -x $dname
    }
    elseif ($did == 5) {
      kick $active $ial($did(1).seltext,1).nick $iif($"Reason?",$v1,$me)
    }
    elseif ($did == 6) {
      ban -k $active $ial($did(1).seltext,1).nick 2 $iif($"Reason?",$v1,Banned)
    }  
    elseif ($did == 1) {
      did -a $dname 2 $regsubex($str(.,$ial($did(1).seltext,0)),/./g,$ial($did(1).seltext,\n).nick $chr(32))
    }
  }
}