on *:text:*:#:{
if ($len($1-) > 10) {
.echo -q $read(counter.txt,nw,$nick *)
if ($readn) {
write -l $+ $readn counter.txt $nick $calc($gettok($read(counter.txt,n,$readn),2,32) + 1)
if ($gettok($read(counter.txt,n,$readn),2,32) == 500) { msg $nick [color:red]Well done for reaching 500 lines![/color] }
}
else { write counter.txt $nick 1 }
}
}