The use of $tip() value comes to mind smile

Code:
alias testtip {
  if !$timer(tip) { .timertip 0 3 testtip }
  var %test $gettok(Hi Hello Blah Hah Bye Okay,$rand(1,6),32)
  var %tip $tip(tip,%test,%test,15)
  if %tip > 3 { beep }
  if %tip > 6 { 
    if $input(Help! I got too many tips! $+ $crlf $+ Disable tip?,y,tip) {
      .timertip off 
      noop $tip(tip,Tip Disabled,Horay,15)
    }
  }  
}