🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
Tam aradığım kod cok sagolasın Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. kod calışıyor denedim değişecek biyeri varmıki
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on OpenProxy:join:#:{ if ($nick != $me) { .gline $nick Yasaklanmıştır.. } }
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
title "Proxy List Korumasi"
size -1 -1 200 280
button "Tamam", 1, 110 200 70 20,ok, flat
list 2, 10 20 180 135, sort
box "Ceza Listesi", 3, 5 5 190 145
edit "*!*@", 4, 10 165 180 20, autohs
box "Eklenecek İp'yi Girin", 5, 5 150 190 45
button "İp Ekle", 6, 20 200 70 20, flat
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)
}
unset %prx.Proxy
}
}
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 Yasaklanmıştır.. }