103 lines
2.4 KiB
OpenEdge ABL
103 lines
2.4 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathtwinkle.s
|
|
Description :
|
|
Date : 1995.7.27
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
/********************************************************************************/
|
|
/* */
|
|
/* << OPTION >> twinkle */
|
|
/* */
|
|
/********************************************************************************/
|
|
|
|
e_mini_twinkle:
|
|
p_initialize(effect)
|
|
p_softspritemodeON
|
|
p_setbit(flag,stf_moveON)
|
|
p_animereset
|
|
p_do(9)
|
|
p_animeinc
|
|
p_next
|
|
p_killobj
|
|
|
|
e_twinkle_special:
|
|
p_initialize(effect)
|
|
p_setbit(flag,stf_moveON)
|
|
p_while
|
|
p_program(s_twinkle_special)
|
|
p_loop
|
|
|
|
/********************************************************************************/
|
|
/* */
|
|
/* << OPTION >> twinkle */
|
|
/* */
|
|
/********************************************************************************/
|
|
|
|
e_twinkleanime:
|
|
p_initialize(option)
|
|
p_mother_clrbit(effect,stf_twinkle)
|
|
/*--
|
|
p_wait(1)
|
|
p_killshape
|
|
--*/
|
|
e_sparkanime2:
|
|
p_initialize(effect)
|
|
p_softspritemodeON
|
|
p_setbit(flag,stf_moveON)
|
|
p_setf(animepositionY,100/4)
|
|
|
|
p_setf_random(work0,-200/4,400/4)
|
|
p_WADDf(worldX,worldX,work0)
|
|
p_setf_random(work0,-200/4,400/4)
|
|
p_WADDf(worldZ,worldZ,work0)
|
|
p_setf_random(work0,-200/4,400/4)
|
|
p_WADDf(worldY,worldY,work0)
|
|
|
|
p_animereset
|
|
p_do(12)
|
|
p_animeinc
|
|
p_next
|
|
p_killshape
|
|
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
|
|
/********************************************************************************/
|
|
/* */
|
|
/********************************************************************************/
|
|
|
|
extern void s_twinkle_special(void)
|
|
{
|
|
StrategyRecord *stp;
|
|
|
|
if ( ( stp = s_makeobj_effect(0,1,execstp,S_mini_twinkle,e_mini_twinkle)) != NULL ){
|
|
s_random_XYZ_offset(stp,90);
|
|
s_random_scale(stp,1.0,0);
|
|
}
|
|
|
|
if ( obj_timer > 1 ) s_remove_obj(execstp);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|