212 lines
4.1 KiB
OpenEdge ABL
212 lines
4.1 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathtest.s
|
|
Description :
|
|
Date : 1995.7.27
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
|
|
|
|
/********************************************************************************
|
|
slider sound program
|
|
********************************************************************************/
|
|
e_slider_se:
|
|
p_initialize(option)
|
|
p_setbit( flag,stf_moveON | stf_playerdistON )
|
|
p_while
|
|
p_program(s_slider_se)
|
|
p_loop
|
|
|
|
|
|
/********************************************************************************
|
|
|
|
********************************************************************************/
|
|
e_taihou_dai:
|
|
p_end
|
|
/*
|
|
p_initialize(moveBG)
|
|
p_setbit( flag,stf_moveON )
|
|
p_setshapeinfo(tin_futa_c_info)
|
|
p_while
|
|
p_program(stMainMoveBG)
|
|
p_loop
|
|
*/
|
|
|
|
|
|
|
|
|
|
/********************************************************************************
|
|
|
|
********************************************************************************/
|
|
|
|
e_plfire:
|
|
p_initialize(plfire)
|
|
p_setbit(flag,stf_moveON | stf_YangleSAME | stf_playerdistON )
|
|
p_softspritemodeON
|
|
p_save_nowpos
|
|
p_sethitbox(100,300)
|
|
p_hitON
|
|
p_while
|
|
p_animeinc
|
|
p_program(s_plfire)
|
|
p_loop
|
|
|
|
|
|
e_yjlift:
|
|
p_initialize(moveBG)
|
|
p_setbit(flag,stf_moveON )
|
|
p_setshapeinfo(han_liftcheck_info)
|
|
p_save_nowpos
|
|
p_while
|
|
p_program(s_yjlift)
|
|
p_program(stMainMoveBG)
|
|
p_loop
|
|
|
|
|
|
e_terestage:
|
|
e_yjkame:
|
|
e_testobject:
|
|
e_flag:
|
|
p_initialize(option)
|
|
p_softspritemodeON
|
|
p_setbit(flag,stf_moveON)
|
|
p_end
|
|
|
|
e_hopper:
|
|
e_unbaba:
|
|
e_manta:
|
|
e_star_extra:
|
|
e_star:
|
|
p_initialize(option)
|
|
p_setbit(flag,stf_moveON )
|
|
p_while
|
|
p_addd(animeangleX,0x100)
|
|
p_addd(animeangleY,0x100)
|
|
p_loop
|
|
|
|
|
|
/*-----------------------------------*/
|
|
e_hat_metal_wing:
|
|
p_end
|
|
/*-----------------------------------*/
|
|
e_hat_wing:
|
|
p_end
|
|
/*-----------------------------------*/
|
|
e_hat_metal:
|
|
p_end
|
|
/*-----------------------------------*/
|
|
e_hat:
|
|
p_end
|
|
/*-----------------------------------*/
|
|
|
|
e_elevetor_updown_00:
|
|
e_elevetor_updown_01:
|
|
e_elevetor_updown_02:
|
|
e_elevetor_updown_03:
|
|
e_elevetor_updown_04:
|
|
e_elevetor_almove_00:
|
|
e_elevetor_almove_01:
|
|
e_elevetor_almove_02:
|
|
e_elevetor_almove_03:
|
|
e_elevetor_almove_04:
|
|
e_elevetor_special_00:
|
|
e_elevetor_special_01:
|
|
e_elevetor_special_02:
|
|
e_elevetor_special_03:
|
|
e_elevetor_special_04:
|
|
e_hagetaka:
|
|
e_hatena:
|
|
e_coinup:
|
|
e_dummy:
|
|
e_stop:
|
|
p_initialize(option)
|
|
p_setbit( flag,stf_moveON )
|
|
p_end
|
|
|
|
/*-----------------------------------*/
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
|
|
|
|
extern void s_yjlift(void)
|
|
{
|
|
|
|
if ( enemy_p0 == 1 ){
|
|
s_set_angle(execstp,0,0,0);
|
|
obj_anglespeedX = 0;
|
|
obj_anglespeedY = 0;
|
|
obj_anglespeedZ = 0;
|
|
}
|
|
|
|
if ( enemy_p0 == 2 ){
|
|
|
|
obj_animeangleX = enemy_p1 * 0x1000;
|
|
obj_animeangleY = enemy_p2 * 0x1000;
|
|
obj_animeangleZ = enemy_p3 * 0x1000;
|
|
}
|
|
|
|
|
|
obj_anglespeedX = enemy_p4;
|
|
obj_anglespeedY = enemy_p5;
|
|
obj_anglespeedZ = enemy_p6;
|
|
|
|
if ( enemy_p0 == 3 ){
|
|
obj_animeangleX += obj_anglespeedX;
|
|
obj_animeangleY += obj_anglespeedY;
|
|
obj_animeangleZ += obj_anglespeedZ;
|
|
}
|
|
|
|
}
|
|
|
|
/********************************************************************************
|
|
|
|
********************************************************************************/
|
|
|
|
extern void s_plfire(void)
|
|
{
|
|
|
|
s_posoffset_mother(player1stp,0,30,300);
|
|
|
|
execstp->myobj_R = 100+effect_p0;
|
|
execstp->myobj_height = 300+effect_p1;
|
|
|
|
s_fire_hitcheck(execstp);
|
|
|
|
}
|
|
|
|
/********************************************************************************
|
|
|
|
********************************************************************************/
|
|
|
|
extern void s_slider_se(void)
|
|
{
|
|
if ( obj_mode == 0 ){
|
|
if ( obj_playerdist < 200 ){
|
|
Na_NazoClearBgm();
|
|
obj_mode++;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|