immortaL | 23 Kasım 2016 18:49 | Kufur.TXT ( /kekle /ksil /klist ) Kod:
alias kekle {
if $1 {
if $read(kufur.txt,w,$1) {
echo -at $1 kelimesi zaten listede.
return
}
else {
write kufur.txt $1
echo -at $1 kelimesi listeye eklendi.
}
}
alias ksil {
if $1 {
if !$read(kufur.txt,w,$1) {
echo -st $1 kelimesi listede yok.
return
}
else {
write $+(-dl,$readn) kufur.txt
echo -st $1 kelimesi kufur listesinden silindi.
}
}
alias klist {
var %s = 1,%ss = $lines(kufur.txt)
while %s <= %ss {
echo -a Kelime: $read(kufur.txt,%s)
inc %s
}
}
;KOD
on @*:text:*:#:{
var %s = 1,%ss = $lines(kufur.txt)
while %s <= %ss {
if $+(*,$read(kufur.txt,%s),*) iswm $1- {
ban -k # $nick 2 küfür yasak vs.
}
inc %s
}
} |