Çevrimdışı

denedm deginiz gibi ama bi işe yaramadı hata veriyo sürekli ve atmıyo kanaldan da...

sizlere zahmet aşagıdaki kot üzerinde yaparsanız sevinirim..





alias mdx { return $dll(dll\mdx.dll,$1,$2-) }
alias mdx.dll { return $dll(dll\mdx.dll,$1,$2-) }
alias proxyy dialog -m proxy proxy
dialog proxy {
title "Poxy Koruması..."
size -1 -1 165 104
option dbu
box " Proxy Listesi ", 1, 4 6 103 91
box " İşlemler ", 2, 110 6 50 91
button "+ EKLE", 3, 116 16 37 12
text "İp Adres", 4, 7 15 25 8
edit "", 5, 35 14 68 10
list 6, 7 26 96 67, size
button "- SİL", 7, 116 33 37 12
button "TAMAM", 8, 116 50 37 12, ok
}

on *:dialog:proxy:sclick:*:{
if ($did = 7) {
ruser ip $did($dname,6).seltext | did -d proxy 6 $did($dname,6).sel
}
if ($did = 3) { if ($did($dname,5) != $null ) { .auser ip $did($dname,5) | did -a proxy 6 $did($dname,5) } }
}

on *:dialog:proxy:init:0: {
mdx.dll MarkDialog $dname
mdx SetFont 1,2,3,4,5,6,7,8 14 700 arial
mdx SetColor $dname 5,6 textbg $rgb(218,218,218)
mdx SetColor $dname 4 textbg $rgb(010,180,255)
mdx.dll SetColor $dname 5,6 background $rgb(218,218,218)
mdx.dll SetColor $dname 1,2,3,4,7,8 background $rgb(010,180,255)
mdx SetDialog [ $dname ] bgcolor $rgb(010,180,255)
var %x = 1
while (%x <= $ulist(*,ip,0)) {
did -a proxy 6 $ulist(*,ip,%x)
inc %x
}
}

on @ip:join:#: {
if (%proxy == 1) && ($me isop $chan) && ($nick !isop #) {
ban # $wildsite | .kick # $nick %proxy.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Proxy Kullanımı 1Sebebinden Atılmıştır.
}
}