Çevrimdışı

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

 

Çevrimdışı

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 %ş } } } }

 

Çevrimdışı

* Invalid format: $lines

böle bi hata verdi

 

Çevrimdışı

el33t Nickli Üyeden Alıntı

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 %ş } } } }

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

 

Çevrimdışı

malesef buda aynı hatayı veriyo

 

Çevrimdışı

Şu anki kod ne sendeki paste eder misin?

 

Çevrimdışı

erdem55 Nickli Üyeden Alıntı

malesef buda aynı hatayı veriyo

yok hata vermiyorda bunda baska bisi var. ekledim kufur felan dosyaya deneme yapiyorum excees flood oluyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
anlayamadim. ban -k olayını degistim ondan olsa gerek.

 

Çevrimdışı

$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

 

Çevrimdışı

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

 

Çevrimdışı

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 ???