50 lines
1.1 KiB
OpenEdge ABL
50 lines
1.1 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathdungeonfire.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
/********************************************************************************
|
|
fire animation
|
|
********************************************************************************/
|
|
|
|
e_fire_animation:
|
|
p_initialize(item)
|
|
p_setbit( flag,stf_moveON )
|
|
p_softspritemodeON
|
|
p_save_nowpos
|
|
p_set_scale(700)
|
|
p_setobjname(FIRE)
|
|
p_sethitbox2(50,25,25)
|
|
p_hitON
|
|
p_program(s_areastage_init)
|
|
p_while
|
|
p_setd(mail,0)
|
|
p_inc_frame(animecounter,2)
|
|
p_loop
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|