dialog seklinde guzel bir proxy koruması herkese tavsiye ederim

#prxy off
on @Proxy:join:#:{ if ($nick != $me) { kick # $nick Proxy kullanımı yasaktır! $maddress  | mode # +b $maddress } }
#prxy end
menu * {

Proxy Koruması!
. Aç/Kapat
..Aç:.enable #prxy | echo 4 -at * Proxy koruması devrede!
..Kapat:.disable #prxy | echo 5 -at * Proxy koruması devre dışı!
.Proxy Listesi:proxylist
}
alias Proxylist if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
title “Proxy Kicker”
size -1 -1 200 265
button “&Kapat”, 1, 110 200 70 20,ok
list 2, 10 20 180 135, sort
box “ProxyListesi”, 3, 5 5 190 145
edit “”, 4, 10 165 180 20, autohs
box “Adres Ekle”, 5, 5 150 190 45
button “Ekle”, 6, 20 200 70 20
box “Not:”, 7, 5 225 190 35
text “Çift tıklamada Ip ‘i siler.”, 8, 25 240 180 45
}
alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
on *:dialog:Proxylist:dclick:2:{ .ruser Proxy $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 Proxy $did(4) | did -fr Proxylist 4 } }
on *:dialog:Proxylist:init:*:{
if ($ulist(*,Proxy,0) != $null) {
set %prx.Proxy 0
while (%prx.Proxy < $ulist(*,Proxy,0)) {
inc %prx.Proxy 1
did -a Proxylist 2 $ulist(*,Proxy,%prx.Proxy)
}
unset %prx.Proxy
}
}