on *:text:*:#kanal:{
var %:kelime = 1 | while %:kelime <= $lines(kelime.txt) {
if $1 isin $read(kelime.txt,%:kelime) {
msg # $token($read(kelime.txt,%:kelime),2-,32)
break
}
inc %:kelime
}
}