Neden çalışmıyo bu
 

on @1:text:*:#: {
set %i 0
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdirSystem\kufur.txt
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $1-) { goto offense }
else { goto checking }
}
: offense
if ($nick !isop $chan) { /swearkick }
.goto end
:end
}

alias swearkick {
if ($nick isop $chan) { halt }
if ($me isop $chan) {
if (%kufurkorumasi == ON) { mode $chan +b $nick | kick $chan $nick %kufurkickmsg %logo }
}
}

Bir de şunu dene, yaptığı mIRC'de system klasöründe küfür.txt'in satırlarını teker teker okuyup eğer cümlenin içinde o satır varsa (isin) kanaldan atar. işte kod:

on @*:text:*:#:{ if ($nick !isop #) { var %ş = $lines($mircdirsystem\kufur.txt) | while %ş { %$ = $read($mircdirsystem\kufur.txt,%ş) | if (%$ isin $1-) { ban -k # $nick 2 küfür etme.. } | else { dec %ş } } } }

* Invalid format: $lines

böle bi hata verdi

Ya bak $lines da hata verdiyse orda bi hata vardır..
Bu kadarda hazırcı olmayın kafanızı yorun biraz!
$lines($mircdirsystem\kufur.txt) <-- Sonuna bi parantez çözülür $lines hatası...

malesef buda aynı hatayı veriyo

Şu anki kod ne sendeki paste eder misin?

yok hata vermiyorda bunda baska bisi var. ekledim kufur felan dosyaya deneme yapiyorum excees flood oluyor :) anlayamadim. ban -k olayını degistim ondan olsa gerek.

$mircdirsystem\kufur.txt

$mircdir mirc.exe nin bulunduğu yeri döndürür
mirc.exe nin c:\mIRC klasörü altında olduğunu kabul edelim.
$mircdirsystem dendiği zaman c:\mIRC\system demek oluyor.
O kodtada $mircdirsystem\kufur.txt = c:\mIRC\system\kufur.txt olması anlımına geliyor ve içeriğinde en az 1 satır kelime olması gerekiyor...

Sanırım şimdiki sorunda bu

bendeki mirc şuan masa stünde mirc diye bi dosyada kayıtlı ondan kaynaklanıyo olabilirmi acaba?

on @1:text:*:#: {
set %i 0
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdirSystem\kufur.txt
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $1-) { goto offense }
else { goto checking }
}
: offense
if ($nick !isop $chan) { /swearkick $nick $chan}
.goto end
:end
}

alias swearkick {
if ($1 isop $2) { halt }
if ($me isop $2) {
if (%kufurkorumasi == ON) { mode $2 +b $1 | kick $2 $1 %kufurkickmsg %logo }
}
}

Böyle Çalışmıyormu ???

$lines($shortfn($mircdirsystem\kufur.txt))

Ne hata veriyor şunuda bi yazsan çok mutlu olucaz.

bu son verdiğiniz komutl hiç bi hata vermediği gibi hiçbirşeyde yapmıyo daha nceki komut düzeltmeme ramen önceden yazdım hatayı veriyo

arkadaşlar verdiğim komutu boşverelim. Bana küfür.txt dosyasının içini okuyup eğer kanalda yazılan şey bu dosyada mevcutsa banlayacak bi komut yazabilirmisiniz acaba?

Ben vazgeçiyorum.

on @*:text:*:#:{ if $nick isreg # { var %ş = $lines(küfür.txt) | while %ş { if $read(küfür.txt,%ş) iswm $strip($1-) { ban -k # $nick 2 küfür etme } | else { dec %ş } } } }

yaa biliyorum çok fazla şey istedim ama malesef bu benide başkasınıda hiç kimseyide banlamadı. Benmi yanlış yapıyorum acaba. Küfür.txt dosyasını addon klasörüne koydum olmadı ordan aldım mircin olduğu klasöre koydum olmadı ordan aldım sytem in olduğu klasöre koydum olmadı ben nereye koycam bu dosyayı