/********************************************************************************
					-------------------------
				 	 Ultra 64 MARIO Brothers
					-------------------------

					File		: patheffectburn.s
					Description	: 
					Date		: 1995.
					Author		: H.yajima

 ********************************************************************************/


/*################*/
#ifdef ASSEMBLER
/*################*/

/********************************************************************************
		box burn effect
 ********************************************************************************/

e_boxburn:
	p_initialize(effect)
	p_setbit(flag,stf_moveON )
	p_do(18)
		p_program(s_move_animeangle)
		p_program(s_optionmove_F)
	p_next
	p_killobj

/*################*/
#else
/*################*/

/********************************************************************************
		BoxEffect Program
 ********************************************************************************/

extern void s_boxeffect(short count,short shape,float scale,short color)
{

	StrategyRecord 	 *stp;
	int					i;

	for(i=0;i<count;i++){
		stp = s_makeobj_nowpos(execstp,shape,e_boxburn);
		stp->s[stw_animecounter].d 	= color;
		stp->s[stw_worldY].f 		+= 100; 
		stp->s[stw_angleY].d 		= Randomd();
		stp->s[stw_animeangleY].d 	= stp->s[stw_angleY].d;
		stp->s[stw_animeangleX].d 	= Randomd();
		stp->s[stw_speedY].f 		= s_random_f(50);

		if ( shape == S_sankaku || shape == S_movebg03 ){
			stp->s[stw_anglespeedX].d = 0x80*30;
			stp->s[stw_anglespeedY].d = 0x80*10;
			stp->s[stw_speedF].f	  = 30;
		} else {
			stp->s[stw_anglespeedX].d = 0x80*(int)(50+Randomf());
			stp->s[stw_speedF].f 	  = 30;
		}

		s_scale(stp,scale);
	}									   

}


/*################*/
#endif
/*################*/
/*===============================================================================
		end end end end end end end end 
===============================================================================*/