Çevrimdışı

dialog kufur {
title "Küfür Koruması [ NaTSuKa ]"
size -1 -1 138 186
option dbu
edit "", 1, 7 10 61 10
list 2, 7 22 60 50, size
button "Ekle", 3, 7 74 27 12, flat
button "Sil", 4, 39 74 27 12, flat
check "Opları (@)", 5, 85 21 41 10, flat
check "Voiceler (@)", 6, 85 10 42 10, flat
combo 7, 7 102 52 51, size
button "Ekle", 8, 7 154 24 9, flat
button "Sil", 9, 35 154 23 9, flat
box "Küfür listesi", 13, 3 2 71 88
box "Ayrılan Nickler", 14, 3 92 63 76
box "Ayrılan Kanallar", 15, 73 92 62 76
box "Ayır", 16, 78 2 56 33
button "Sil", 10, 106 154 23 9, flat
button "Ekle", 11, 78 154 24 9, flat
combo 12, 78 102 52 51, size
box "İşlemler", 17, 78 37 56 53
radio "Opersem Kline", 18, 83 47 47 10, flat
radio "Opersem Kill", 19, 83 57 47 10, flat
radio "Opsam Kick", 20, 83 67 47 10, flat
check "Banla", 21, 83 77 27 10, flat
button "Kapat", 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
if (%knickler) .didtok $dname 7 32 $ifmatch
if (%kufkanal) .didtok $dname 12 32 $ifmatch
if (%klineat) { .did -c $dname 18 }
if (%killat) { .did -c $dname 19 }
if (%kickat) { .did -c $dname 20 }
if (%banla) { .did -c $dname 21 }
if (%oplar) { .did -c $dname 5 }
if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {
if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
if ($did == 8) { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korukufurden $1-
}
alias korukufurden {
var %HR $strip($1-) , %_: $lines(kufur.txt)
while (%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
if $read(kufur.txt,%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %HR iswm %HR {
if (%banla == on) { .mode $chan +b $wildsite }
if (%klineat == on) { .kline $nick Lutfen kufur etmeyin }
if (%killat == on) { .kill $nick Lutfen kufur etmeyin }
if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin }
return
}
dec %_:
}
}

bunu kullaniyordum .bir kac gundur.natsuka kardesin yaptigi bir codedir.guzel calisiyordu.ama scriptimi bugun actim.kufurler hep silinmis./kufur yazinca panel aciliyordu.simdi hatali islem diyor baska bi pencere aciliyor.nedeni sizce nedir..

 

Çevrimdışı

/while: invalid format (line 62, script2.mrc)


cikan hata bu.panel aciliyor kelimeleri ekleyebiliyorum.
ama kufur edince user atmiyor.bu hatayi veriyor.
/while: invalid format (line 62, script2.mrc)

 

Çevrimdışı

Kodunuzu Yenileyim Deneyin ßi >>> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] <<<

ßakalım Aynı Sorun Tekrar Edecek mi.

__________________
Şimdi Saat Sensizliğin Ertesi..

 

Çevrimdışı

while (%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
{
bu satırı şu şekilde değiştirirsen sorun kalmaz.


döngü için herhangi bir küçük değeri belirlenmemiş. onun için sabit 250 kullandım. sen bunu değiştirebilirsin.

 

Çevrimdışı

Sizin YONtemleridenemistim ben zaten.sorun onlarda degil.korumaya diyelimki siktir kelimesini ekliyorum.korumaya *siktir diye eklersem calisiyor.yada *siktir veya *siktir* bunlarda calisiyor.ama direk siktir diye eklersem calismiyor.yani kisiyi atmiyor.sorun bu.bunun icin yapabileceginiz bir sey varsa memnun oluruz.

 

Çevrimdışı

if $read(kufur.txt,%_
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm %HR iswm %HR {
bu satırda ki "iswm" yi "isin" olarak değiştirirsen dediğin olayı gerçekleştirebilirsin fakat iswm'yi kullansan daha iyi olur derim.
bu defa ise *s?kt?r* olarak eklediklerin çalışmaz

 

Çevrimdışı

dediginizi biliyorum.benim ricam suydu.ikisinide kullanabilmek icin bi eklenti yapilabilirmi codeye.cunku natsuka kardes bu codeyi burada paylasirken resimli olarak paylasmis.resimdeki panelde hem
*siktir* seklinde kufur
hemde siktir seklinde vardi.ikiside calisacaksekilde duzenlemis olmaliki resimde yer alsin.iki sekilde de calisacak bi code haline getirilebilir mi bu? hayirli forumlar