autohurray

_autohurray  = 0
_flaglist    = _flaglist
_oldflaglist = _oldflaglist

autohurray = [
  _autohurray = (! $_autohurray)
  if $_autohurray [
    echo (c 0) "autohurray has been enabled"
    autohurrayloop
  ] [
    echo (c 3) "autohurray has been disabled"
  ]
]
autohurrayloop = [
  if $_autohurray [
    _flaglist = ""
    loop i 20 [
      _flaglist = (concat $_flaglist (at (pstat_score $i) 0))
    ]
    _curcn = (findcn $curname)
    if (> (at $_flaglist $_curcn) (at $_oldflaglist $_curcn)) [
      say "HURRAY!"
    ]
    _oldflaglist = $_flaglist
    sleep 0 autohurrayloop
  ]
]