76 lines
1.8 KiB
OpenEdge ABL
76 lines
1.8 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathwaterdrop.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
/*--------------------------------------------------------------*/
|
|
/* small water drop program */
|
|
/*--------------------------------------------------------------*/
|
|
|
|
e_smallwaterdrop:
|
|
p_initialize(effect)
|
|
p_setbit(flag,stf_moveON | stf_FspeedON | stf_YangleSAME )
|
|
p_softspritemodeON
|
|
p_while
|
|
p_program(s_smalldrop_main)
|
|
p_loop
|
|
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
|
|
/********************************************************************************
|
|
smalldrop
|
|
********************************************************************************/
|
|
extern void s_smalldrop_main(void)
|
|
{
|
|
|
|
StrategyRecord *stratp;
|
|
float waterY = mcWaterCheck(obj_worldX,obj_worldZ);
|
|
|
|
if (obj_timer == 0 ){
|
|
if ( s_check_shapename(S_fish) ) MapBboardOff(&execstp->map); /* softwart sprite off */
|
|
else MapBboardOn(&execstp->map); /* softwart sprite on */
|
|
obj_animeangleY = Randomd();
|
|
}
|
|
|
|
obj_speedY -= 4;
|
|
obj_worldY += obj_speedY;
|
|
|
|
if ( obj_speedY < 0 ){
|
|
if ( waterY > obj_worldY ){
|
|
s_makeobj_effect(0,1,execstp,S_rippleA,e_smalldropripple);
|
|
s_remove_obj(execstp);
|
|
} else {
|
|
if ( obj_timer > 20 ) s_remove_obj(execstp);
|
|
}
|
|
}
|
|
|
|
if ( waterY < -10000 ) s_remove_obj(execstp);
|
|
|
|
}
|
|
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|