82 lines
2.0 KiB
OpenEdge ABL
82 lines
2.0 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathcatchkoura.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
e_catchkoura:
|
|
p_initialize(enemyA)
|
|
p_setbit(flag,stf_moveON | stf_catchON | stf_playerdistON )
|
|
p_while
|
|
p_program(s_catchkoura)
|
|
p_loop
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
/********************************************************************************
|
|
catchkoura hitcheck data
|
|
********************************************************************************/
|
|
|
|
static HitCheckRecord catchkoura_hit = {
|
|
OBJNAME_TAKE,
|
|
0,0,1,0, /* flag,ap,hp,coin */
|
|
80,50, /* player attack hitarea */
|
|
0,0, /* player damage hitarea */
|
|
};
|
|
|
|
/*----------------------------------------------*/
|
|
/* catchkoura main */
|
|
/*----------------------------------------------*/
|
|
static void catchkoura_main(void)
|
|
{
|
|
s_set_hitparam(execstp,&catchkoura_hit);
|
|
}
|
|
|
|
|
|
/********************************************************************************
|
|
catchkoura main program
|
|
********************************************************************************/
|
|
|
|
extern void s_catchkoura(void)
|
|
{
|
|
switch(execstp->s[stw_actionmode].d){
|
|
case CHILEDMODE_NO_CATCH: catchkoura_main(); break;
|
|
case CHILEDMODE_CATCH: s_mode_catch(-1,0); break;
|
|
case CHILEDMODE_THROW:
|
|
case CHILEDMODE_DROP:
|
|
s_remove_obj(execstp);
|
|
s_kemuri();
|
|
break;
|
|
}
|
|
|
|
/* OFF request ? */
|
|
if ( obj_mail & EMAIL_NOKOBOARD_OFF ){
|
|
s_remove_obj(execstp);
|
|
s_kemuri();
|
|
}
|
|
obj_mail = 0;
|
|
|
|
}
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|