
;o^^Aj[VW[ by
;[U[`t@C

*ani_define2
	numalias ani_type_move,0
	numalias ani_type_sinmove,1
return


*ani_act_000
	mov %21,?ani_param[%20][ani_timer]
	timer_end %21
	if %21 >= ?ani_param[%20][ani_time] gosub *ani_act_end:return
	mov %22,?ani_param[%20][ani_ax]*%21/?ani_param[%20][ani_time]
	mov %23,?ani_param[%20][ani_ay]*%21/?ani_param[%20][ani_time]
	amsp ?ani_param[%20][ani_sp],?ani_param[%20][ani_sx]+%22,?ani_param[%20][ani_sy]+%23
return

*ani_act_000_end
	mov ?ani_param[%20][ani_flag],0
	amsp ?ani_param[%20][ani_sp],?ani_param[%20][ani_sx]+?ani_param[%20][ani_ax],?ani_param[%20][ani_sy]+?ani_param[%20][ani_ay]
return

*ani_act_001
	mov %21,?ani_param[%20][ani_timer]
	timer_end %21
	if %21 >= ?ani_param[%20][ani_time] gosub *ani_act_end:return
	sin %22,90*%21/?ani_param[%20][ani_time]
	mov %23,?ani_param[%20][ani_ax]*%22/1000
	mov %24,?ani_param[%20][ani_ay]*%22/1000
	amsp ?ani_param[%20][ani_sp],?ani_param[%20][ani_sx]+%23,?ani_param[%20][ani_sy]+%24
return

*ani_act_001_end
	mov ?ani_param[%20][ani_flag],0
	amsp ?ani_param[%20][ani_sp],?ani_param[%20][ani_sx]+?ani_param[%20][ani_ax],?ani_param[%20][ani_sy]+?ani_param[%20][ani_ay]
return
