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