on *:open:?:{ 
var %i = $lines(kufur.txt) 
while %i { 
if ($read(kufur.txt,%i) isin $1-) {
kbcom $nick
.auser 666 $+($nick,!*@*) 
.ignore $nick 
close -m $nick 
return
}
dec %i
}
}