49 lines
1.2 KiB
OpenEdge ABL
49 lines
1.2 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathkopa2bg.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
/********************************************************************************
|
|
-------------------------
|
|
kopa(2) moveBG Program
|
|
-------------------------
|
|
********************************************************************************/
|
|
e_kopa2_moveBG:
|
|
p_initialize(moveBG)
|
|
p_setbit(flag,stf_moveON | stf_playerangleON )
|
|
p_setshapeinfo(kopa2_A_info)
|
|
p_setf(shapeLOD,20000)
|
|
p_setf(movebg_checkdist,20000)
|
|
p_setd(animeangleY,0)
|
|
p_save_nowpos
|
|
p_while
|
|
p_program(s_move_animeangle)
|
|
p_program(stMainMoveBG)
|
|
p_loop
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|