| openproxy ident nick korumasi eklemek
alias Proxysys if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
size -1 -1 393 195
title ips ~ Proxy Koruması
box "Proxy Listesi",1, 5 5 215 184
list 2, 12 20 200 170, multi autovs vsbar
box "Ayarlar",3, 225 5 163 184
text "Eklenecek IP",4, 275 20 70 15
edit "Örnek : *!*@*",5, 232 35 149 20, autohs center
button "Ekle",8, 232 62 72 28, default flat multi
button "Sil",9, 310 62 72 28, default flat multi
button "Aç",10, 232 96 72 28
button "Kapat",11, 310 96 72 28
button "TAMAM",12, 232 130 150 53,ok
}
on *:dialog:Proxylist:sclick:10:{ enable #proxyy | echo -a 4Proxy Koruması 10Açıldı. }
on *:dialog:Proxylist:sclick:11:{ disable #proxyy | echo -a 4Proxy Koruması 10Kapatıldı. }
on *:dialog:Proxylist:dclick:2:{
ruser OpenProxy $did(2).seltext
did -d Proxylist 2 $did(2).sel
}
on *:dialog:Proxylist:sclick:8:{
if ($did(5) != $null) {
did -a Proxylist 2 $did(5)
auser OpenProxy $did(5)
did -fr Proxylist 5
echo -a 4Proxy 1Eklendi.
}
}
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
}
}
#proxyy off
on *:snotice:*client connect*:{
var %ip $remove($gettok($10,2,64),$chr(41)),%id = $remove($gettok($10,1,64),$chr(40)),%full = $+($9,!,%id,@,%ip)
if ($level(%full) == OpenProxy) {
gline $9 14Sunucu Kurallarimizi Ihlal Ettiginizden Dolayi Girisiniz2 1 (bir) Saat 14Kapatilmistir!
}
}
on OpenProxy:join:#:{
if ($nick != $me) {
gline $nick 14Sunucu Kurallarimizi Ihlal Ettiginizden Dolayi Girisiniz2 1 (bir) Saat 14Kapatilmistir!
}
}
#proxyy end
bana ident ve nick muaf etmek istiyorum / auser koruma: kulanıcı bolumune ekleme ident ve nick muaf .. tşker
|