sockless proxy shit

dialog Prx {
  title "Proxy Changer For Buzzen"
  size -1 -1 152 64
  option dbu
  combo 3, 48 4 100 106, size drop
  combo 2, 48 20 100 106, size drop
  button "Connect To Buzzen", 6, 16 35 117 24
  text "Select Proxy", 1, 2 6 33 8
  text "Select Passport", 4, 2 20 38 8
}

on *:dialog:Prx:init:*:{
  .loadbuf -ro $dialog(Prx) 3 data\prox.txt
  .loadbuf -ro $dialog(Prx) 2 data\emails.txt

}
on *:Dialog:Prx:sclick:6: {
  var %c $active
  set %bs on
  set %a $did(2)seltext
  firewall on $did(3)seltext
  server -m irc.buzzen.net -j %c
}

on ^*:logon:*: {
  if ($server == irc.buzzen.net) && (%bs == on) {
    var %e $gettok(%a,1,61)
    var %p $gettok(%a,2,61)
  .raw authtype $+(ircwx1,$crlf,user) $me $me $me $+(:,anon) | .raw nick nth | .raw loginh %e $md5(%p)  | set %bs off | halt }
  if ($server == irc.buzzen.net) {
    var %ep $hget(nth, ep) | var %e $hget(nth, $+(email,%ep)) | var %p $hget(nth, $+(pw,%ep))
    if (%ep == $null) { setup }
  .raw authtype $+(ircwx1,$crlf,user) $me $me $me $+(:,anon) | .raw nick nth | .raw loginh %e %p }
}

alias prx1 { dialog -m prx prx }
menu * {
  Proxy Join Buzzen : prx1
}