Stuff

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: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,.))
}
on *:dialog:aol:sclick:*:{
  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))
  }
}