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

Çevrimdışı