Nillen's script is fine, but if someone typed "countcount count" it would increase the counter by two because there are only two "tokens" that contain the word "count."
Is that what you want? If you would rather it increased by 3 then you can use:
on *:text:*count*:#: {
inc %count $countcs($1-,count)
}