MenciKKKKKKKKKK Poksi ( proxy)

on @OpenProxy:join:#:{ if ($nick != $me) { kick # $nick Open Proxy or FLooD Staff Kick $maddress (Out) is not permitted «K» %KickNo «T» $time %hammii | mode # +b $maddress } }
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
  title "Proxy Kicker By De^LuCiFeR"
  size -1 -1 200 265
  button "&Exit", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort
  box "ProxyList", 3, 5 5 190 145
  edit "", 4, 10 165 180 20, autohs
  box "Add Here", 5, 5 150 190 45
  button "Add", 6, 20 200 70 20
  box "Note:", 7, 5 225 190 35
  text "Double click to delete ProxyList", 8, 25 240 180 45 
}
alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
on *:dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext | did -d Proxylist 2 $did(2).sel }
on *:dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) | .auser OpenProxy $did(4) | did -fr Proxylist 4 } }
on *:dialog:Proxylist:init:*:{
  if ($ulist(*,OpenProxy,0) != $null) {
    set %prx.Proxy 0
    while (%prx.Proxy < $ulist(*,OpenProxy,0)) {
      inc %prx.Proxy 1
      did -a Proxylist 2 $ulist(*,OpenProxy,%prx.Proxy)
    }     
    unset %prx.Proxy
  }
}