87 lines
2.1 KiB
OpenEdge ABL
87 lines
2.1 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : patheffectsnow.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
e_effectsnow:
|
|
p_initialize(option)
|
|
p_setbit(flag,stf_moveON )
|
|
p_program(s_effectsnow)
|
|
p_wait(1)
|
|
p_killobj
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
|
|
/********************************************************************************
|
|
C Program ( Tree Snow Effect )
|
|
********************************************************************************/
|
|
|
|
static short snoweffect_data[] = { 2,-8,1,4 };
|
|
extern void s_snoweffect(void)
|
|
{
|
|
|
|
StrategyRecord *stp;
|
|
|
|
stp = s_makeobj_nowpos_scale(execstp,S_dust,e_kemuri,1.0);
|
|
stp->s[stw_speedF].f = snoweffect_data[0];
|
|
stp->s[stw_speedY].f = snoweffect_data[1];
|
|
stp->s[stw_gravity].f = snoweffect_data[2];
|
|
s_random_XYZ_offset(stp, snoweffect_data[3]);
|
|
|
|
}
|
|
|
|
/********************************************************************************
|
|
C Program (effectsnow)
|
|
********************************************************************************/
|
|
|
|
extern void s_clear_motherbit(unsigned long clearbit)
|
|
{
|
|
Mbitclr(execstp->motherobj->s[stw_effect].d,clearbit);
|
|
}
|
|
|
|
|
|
static EffectRecord playersnow_effect = {
|
|
0,
|
|
5, /* counter */
|
|
S_snowdust, /* effect character */
|
|
0, /* ================ */
|
|
0,20, /* speed F */
|
|
20,0, /* speed Y */
|
|
-4, /* gravity */
|
|
30, /* air fric */
|
|
2.0f, /* ================ */
|
|
2.0f /* ================ */
|
|
};
|
|
|
|
extern void s_effectsnow(void)
|
|
{
|
|
|
|
s_clear_motherbit(stf_snow);
|
|
s_makeeffect_chiri(&playersnow_effect);
|
|
|
|
}
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|