Çevrimdışı

On *:text:*:#: {
var %:kelimeler $lines(kelime.txt)
while %:kelimeler {
if $read(kelime.txt,%:kelimeler) iswm $1- {
kick $chan Kötü kelime kullandınız!
}
dec %:kelimeler
}
}

alias kelime {
if $1 == ekle && $2 {
write kelime.txt $2
}
elseif $1 == sil && $2 {
if $read(kelime.txt,w,$2) {
write $+(-dl,$readn) kelime.txt
}
}
}

kısa bir kod, geliştirmek size kalmış, tabi ben burda öyle text kullandım ama tavsiyem, hash veya users kullanmanızdır.