90 lines
2.0 KiB
OpenEdge ABL
90 lines
2.0 KiB
OpenEdge ABL
/********************************************************************************
|
|
-------------------------
|
|
Ultra 64 MARIO Brothers
|
|
-------------------------
|
|
|
|
File : pathfunsui.s
|
|
Description :
|
|
Date : 1995.
|
|
Author : H.yajima
|
|
|
|
********************************************************************************/
|
|
|
|
|
|
/*################*/
|
|
#ifdef ASSEMBLER
|
|
/*################*/
|
|
|
|
e_funsui:
|
|
p_initialize(option)
|
|
p_setbit(flag,stf_moveON | stf_playerdistON )
|
|
p_shapeDISABLE
|
|
p_while
|
|
p_program(s_funsui_main)
|
|
p_loop
|
|
|
|
/*################*/
|
|
#else
|
|
/*################*/
|
|
/********************************************************************************
|
|
C Program (funsui)
|
|
********************************************************************************/
|
|
|
|
|
|
extern void s_funsui_main(void)
|
|
{
|
|
|
|
int i;
|
|
float sc;
|
|
StrategyRecord *stratp;
|
|
float waterY = mcWaterCheck(obj_worldX,obj_worldZ);
|
|
|
|
#if 0
|
|
switch(obj_mode){
|
|
case 0:
|
|
if ( obj_playerdist < 200 ) obj_mode++;
|
|
break;
|
|
case 1:
|
|
if ( waterY > -10000 ){
|
|
if ( beforeframe_objcount < ( NUM_STRATEGY - 28 )){
|
|
|
|
if ( frameCounter % 32 == 0 ) objsound(NA_SE2_FISH);
|
|
|
|
for(i=0;i<2;i++){
|
|
|
|
if ( ( Randomd() & 0x1f ) == 0 ){
|
|
stratp = s_makeobj_nowpos(execstp,S_fish,e_smallwaterdrop);
|
|
s_set_skeletonobj(stratp,(void *)RCP_fishAnime,0);
|
|
} else {
|
|
stratp = s_makeobj_nowpos(execstp,S_waterdrop,e_smallwaterdrop);
|
|
sc = Randomf()*1+0.5;
|
|
stSetScale(stratp,sc,sc,sc);
|
|
s_softspritemodeON(stratp);
|
|
}
|
|
|
|
stratp->s[stw_angleY].d = Randomd();
|
|
stratp->s[stw_worldY].f = waterY;
|
|
stratp->s[stw_speedF].f = Randomf()*3+2;
|
|
stratp->s[stw_speedY].f = Randomf()*20+20;
|
|
}
|
|
}
|
|
}
|
|
|
|
if ( obj_playerdist > 300 ) obj_mode = 0;
|
|
break;
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
/*################*/
|
|
#endif
|
|
/*################*/
|
|
/*===============================================================================
|
|
end end end end end end end end
|
|
===============================================================================*/
|
|
|
|
|
|
|