on $*:text:/^(\d+)$/S:#:{ if (!%vcr && $regml(1) > 9000) { msg # its... ITS... ITS OVER 9000!!!!!!! | inc -eu180 %vcr } }