Çevrimdışı

if ($did = 3) { if ($did($dname,5) != $null ) { .auser ip $did($dname,5) | did -a proxy 6 $did($dname,5) } }




EKLE button'NU tıkladıgımda auser'e ekliyo ip adresi ama ben Script.txt dosya sına yuklemesini istiyorum yardımcı olursanız cok sevinirim şimdiden tşkler kolay gelsen ...

 

Çevrimdışı

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.
}
}

 

Çevrimdışı

Ek bilgi: if ($bilmemne != $null) demek $bilmemne identifierının boş dönmemesi koşulu demektir, bunun yerine if ($bilmemne) kullanımı daha stabildir. Çünkü $null, yani boş değilse demek ile içinde bir şeyler varsa demek aynı kapıya çıkıyor.

 

Çevrimiçi

Ayrıca $v1 de kullanabilirsin.

if ($did = 3) { if ($did($dname,5)) { write script.txt IP: $v1 | did -a proxy 6 $v1 }

If koşulu ile ilgili Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

veya /help if then else

__________________
The Ghost of Christmas Past...

mircscripting.net

 

Ç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.
}
}

 

Çevrimiçi

1- .txt üzerinden işlem yaptıracaksan eğer auser - ruser satırlarını öncelikle silmelisin. Users kısmı ile işin kalmıyor.

2- Bu bölümü silmelisin. Çünkü /auser ve /ruser komutlarını kullandığın Users (Kullanıcı bölümü üzerinde işlem yapmakta)


Yerine

Bu satırı eklemelisin. proxy.txt içindeki satırları dialog list ekranına yansıtır.

3-
Bu satır
on @ip:join:#: {

Bu şekilde değişmeli
on @!:join:#: {

Çünkü Kullanıcı seviyesi (ip) ile bir işin kalmıyor artık.

Bu satırda hatalı
if (%proxy == 1) && ($me isop $chan) && ($nick !isop #) {

Bu bölümleri silmelisin
($me isop $chan) && ($nick !isop #) {

Çünkü Join eventının level kısmında @ bulunuyor. "Kodun kullanan Nick Op ise" koşulunu sağlıyor. Join eventında kanala giren nick op'mu sorgusu yapılmaz. Yapılırsa da süreli yapmalısın. Kanala giren nick anında herhangi bir prefixe sahip olmuyor sebebi bu.

4- Join eventında giren nicklere ait hangi bilgiyi baz alarak kanalda ban uygulatacaksan, o bilgiyi proxy.txt içinde aratacak bir koşul satırı eklemelisin. $read anlatımı forumda dersler kısmında olması gerekiyor.

5- Sana son olarak lazım olan şey, proxy.txt (veya ismi her ne .txt olacaksa) içine Ekle butonu ile veri ekletip/sildirmek, ekleyip sildirirken bunu kontrol de ettirebilirsin, varsa şunları yap, yoksa bunları yap gibisinden.

Anlatımda hatalar olabilir varsa düzeltiniz. Kısaca izlemen gereken yol bu. Artık araştırıp yapmaya çalışır mısın, yoksa birisi hazır yazsın ben anlamam mı dersin orası sana kalmış. Kolay gelsin.

__________________
The Ghost of Christmas Past...

mircscripting.net