
; just do a simple bitmap loop for the player
RMA_player_animation:
	rspeed(3)				; update every 3 frames
	userdat1(4) 			; put 5-1 -- 4 pictures
	gfx(BMP_PLAYER,WAIT) 	; put first picture and wait next VBL
.lp1:
	gfx(128,UPDATE,WAIT)	; update picture to the next frame in memory and wait next VBL
	loop(userdat1,.lp1)		; do this 5 times
jump(RMA_player_animation)	; and start all this again

; just do a simple bitmap loop used by all bad spaceships
RMA_enemy_animation:
	rspeed(4)				; update every 3 frames
	userdat1(3) 			; put 4-1 -- 3 pictures
	gfx(BMP_ENEMY,WAIT) 	; put first picture and wait next VBL
.lp2:
	gfx(128,UPDATE,WAIT)	; update picture to the next frame in memory and wait next VBL
	loop(userdat1,.lp2)		; do this 5 times
jump(RMA_enemy_animation)	; and start all this again

RMA_dynamic_speed:
rspeed(8)							; process RMotion every 8 frames
userdat1(8)							; store 8 counter
dslp1:
	userdat2(3)						; store 8 second counter
	gfx(BMP_ENEMY,WAIT) 			; put first picture and wait next VBL
dslp2:
		gfx(128,UPDATE,WAIT)		; update picture to the next frame in memory and wait next VBL
	loop(userdat2,dslp2)			; do this 8 times
	rspeed(-1,UPDATE)				; decreasse this RMotion script speed
loop(userdat1,dslp1)				; do this 8 times
jump(RMA_dynamic_speed,WAIT)		; and start again but wait next valid frame


;End of file	