Çevrimdışı

#prox on
on OpenProxy:join:#:{ if $read(sistem/muafk.txt,w,$chan) { halt } | if $read(sistem/muafn.txt,w,$nick) { halt } | { .kick # $nick 4,1[ Proxy ]0 Ip Adresiniz Güven vermiyor. %Logo ) | mode # +b $maddress } }
#prox end
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
title "Proxy ip Korumasi"
size -1 -1 200 285
button "Tamam", 1, 110 200 70 20,ok
list 2, 10 20 180 135, sort
edit "", 4, 10 165 180 20, autohs
box "Ip Adresi? Örnek : 152.58 gibi", 5, 5 150 190 45
button "İp Ekle", 6, 20 200 70 20
box "Not:", 7, 5 225 190 45
text "İp'yi Kaldirmak icin İp'nin Uzerine Cift Tiklayin", 8, 25 240 140 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)
}
{
.idset 10
}
}
}
unset %prx.Proxy
did -f proxylist 4
}
}


Kolay gelsın arkadaslar su kodu +b yerine gline olarak degıstebılır mıyız. sımdıden tskler