txt Dosyası buLunan Küfür Kanala Yansıtma Yakalanan Küfür
 

alias argosil {
if ($read(Argo.txt,w,$+(*,$1-,*))) {
write -dl $+ $readn argo.txt
echo -a $1- Argo veri tabanindan çıkarıldı
}
}
alias argoekle { write argoo.txt $1- | echo -a $1- argosu veri tabanina eklendi }

#Argo on
on *@:text:*:#:{
var %i 1
while $read(Argo.txt,%i) {
if ($read(Argo.txt,%i) iswm $1-) { msg #ShiRoi 4Bilgi: $Chan $nick $1- Kötü Söz Kullanıldı }
inc %i
}
}
#Argo end

Ben böyLe Bir Şeyler Yaptım Ama Beceremedim Yardım Lütfen

Cevap: txt Dosyası buLunan Küfür Kanala Yansıtma Yakalanan Küfür
 

Yokmu Yardım Edicek biri ?

Cevap: txt Dosyası buLunan Küfür Kanala Yansıtma Yakalanan Küfür
 

Toprak Abi Ne Oldu Size Eskiden yardım Ederdiniz neden Artik yardım Etmiyorsunuz ?

Cevap: txt Dosyası buLunan Küfür Kanala Yansıtma Yakalanan Küfür
 

Kanala yazılan her metinde while döngüsü çalıştırmaktansa hash tablo kullan.
Bu yaptığın method hiç sağlıklı değil. Büyük bir sunucuda mirc'ini duman eder. (donar kalırsın)