66 lines
1.4 KiB
OpenEdge ABL
66 lines
1.4 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathice.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
/********************************************************************************
|
|
Ice Program
|
|
********************************************************************************/
|
|
|
|
e_ice:
|
|
p_initialize(moveBG)
|
|
p_setbit(flag,stf_moveON )
|
|
p_setshapeinfo(sf2_hip_check_info)
|
|
p_save_nowpos
|
|
p_while
|
|
p_program(s_ice)
|
|
p_loop
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
/********************************************************************************
|
|
C Program (ice)
|
|
********************************************************************************/
|
|
|
|
extern void s_ice(void)
|
|
{
|
|
|
|
s_set_scale(1.02);
|
|
|
|
if (obj_mode == 0 ){
|
|
if ( s_checkplayer_hipaatack() ){
|
|
s_kemuri();
|
|
s_boxeffect(20,S_movebg03,3,0);
|
|
obj_mode++;
|
|
}
|
|
} else {
|
|
if ( obj_timer > 7 ) s_remove_obj(execstp);
|
|
}
|
|
|
|
stMainMoveBG();
|
|
|
|
}
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|