71 lines
1.3 KiB
OpenEdge ABL
71 lines
1.3 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathcoinspark.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
e_coinspark_object:
|
|
p_initialize(option)
|
|
p_setbit(flag,stf_moveON )
|
|
p_softspritemodeON
|
|
p_setf(animepositionY,25)
|
|
p_animereset
|
|
p_do(8)
|
|
p_animeinc
|
|
p_next
|
|
p_do(2)
|
|
p_program(s_coinspark)
|
|
p_next
|
|
p_killshape
|
|
|
|
e_coinspark:
|
|
p_initialize(option)
|
|
p_setbit(flag,stf_moveON )
|
|
p_shapeDISABLE
|
|
p_do(3)
|
|
p_program(s_coinspark_make)
|
|
p_next
|
|
p_killshape
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
|
|
extern void s_coinspark(void)
|
|
{
|
|
s_set_scale(0.6);
|
|
}
|
|
|
|
extern void s_coinspark_make(void)
|
|
{
|
|
StrategyRecord *stp;
|
|
int i;
|
|
float wk = 30;
|
|
|
|
stp = s_makeobj_nowpos(execstp,S_spark,e_coinspark_object);
|
|
stp->s[stw_worldX].f += Randomf()*wk-(wk/2);
|
|
stp->s[stw_worldZ].f += Randomf()*wk-(wk/2);
|
|
|
|
}
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|