#
# HELP: SYNOPSIS:
# HELP:     coroutine/animate/upwait
# HELP:
# HELP: DESCRIPTION:
# HELP:     up_and_wait animation. Use generic/movie/animation/upwait_start
# HELP:     to set this up.
#

IF ${$root.animate.i<$root.animate.iend} GOTO goon
CECHO ${$root.animate.i=0}
VOL_SET *TOP*

:goon

IF ${$root.animate.i<$root.animate.istart} GOTO out
IF ${$root.animate.i<$root.animate.ifwd} GOTO fwd
GOTO out

:fwd
CECHO ${$root.animate.j+=1}
IF ${$root.animate.j<$root.animate.pfwd} GOTO out
CECHO ${$root.animate.j=0}
VOL_SET *NEXT*

:out
CECHO ${$root.animate.i+=1}
