/* ReC98
 * -----
 * Reimu's shot control functions
 */

#pragma codeseg main_01_TEXT main_01

extern "C" {
#include "th05/i_shot.hpp"
#define cycle _AL

#define REIMU_FORWARD(dmg, i_left, angle_left, angle_add) \
	if(sai.i == i_left) { \
		sai.angle = angle_left; \
	} \
	shot->damage = dmg; \
	sai.angle += angle_add;

#define REIMU_SUB_SPREAD_CONSTANT(i_left) \
	if(sai.i == i_left)  { shot->from_option_l(); sai.angle = 184; } \
	else/*i == i_right*/ { shot->from_option_r(); sai.angle = 200; }

#define REIMU_SUB_SPREAD_RANDOM(i_left) \
	if(sai.i == i_left) { \
		shot->from_option_l(); \
		sai.set_random_angle(3, 182); \
	} else /* i == i_right */ { \
		shot->from_option_r(); \
		sai.set_random_angle(3, 198); \
		if(option_only == 0) { \
			sai.i = 1; \
		} \
	}

#define SET_HOMING(dmg) \
	shot->set_option_sprite_and_damage(dmg); \
	shot->type = ST_HOMING;

void pascal near shot_reimu_l2(void)
{
	SHOT_FUNC_INIT(1, SC_3X, SC_1X, i += 2);

	while(( shot = shots_add() ) != NULL) {
		if(sai.i == 1) {
			shot->set_random_angle_forwards();
			shot->damage = 10;
		} else {
			REIMU_SUB_SPREAD_CONSTANT(3);
			shot_velocity_set(&shot->pos.velocity, sai.angle);
			SET_HOMING(4);
		}
		if(sai.next() <= 0) {
			break;
		}
	}
}

void pascal near shot_reimu_l3(void)
{
	SHOT_FUNC_INIT(2, SC_3X, SC_1X, i += 2);

	while(( shot = shots_add() ) != NULL) {
		if(sai.i <= 2) {
			if(sai.i == 2) { shot->pos.cur.x -= 8; }
			else/*i == 1*/ { shot->pos.cur.x += 8; }
			shot->damage = 9;
		} else {
			REIMU_SUB_SPREAD_CONSTANT(4);
			shot_velocity_set(&shot->pos.velocity, sai.angle);
			SET_HOMING(4);
		}
		if(sai.next() <= 0) {
			break;
		}
	}
}

void pascal near shot_reimu_l4(void)
{
	SHOT_FUNC_INIT(3, SC_3X, SC_1X, i += 2);

	while(( shot = shots_add() ) != NULL) {
		if(sai.i <= 3) {
			REIMU_FORWARD(9, 3, 180, 6);
		} else {
			REIMU_SUB_SPREAD_CONSTANT(5);
			SET_HOMING(3);
		}
		shot_velocity_set(&shot->pos.velocity, sai.angle);
		if(sai.next() <= 0) {
			break;
		}
	}
}

#define REIMU_L5 \
	SHOT_FUNC_INIT(3, SC_3X, SC_2X, add_secondary(2)); \
	char option_only = cycle & SC_3X; \
	\
	while(( shot = shots_add() ) != NULL) { \
		if(sai.i <= 3) { \
			shot->damage = 9; \
			if(sai.i == 3) { \
				sai.angle = 178; \
			} \
			sai.angle += 7; \
		} else { \
			REIMU_SUB_SPREAD_RANDOM(5); \
			shot->set_option_sprite_and_damage(3); \
			shot->type = ST_HOMING; \
		} \
		shot_velocity_set(&shot->pos.velocity, sai.angle); \
		if(sai.next() <= 0) { \
			break; \
		} \
	} \

void pascal near shot_reimu_l5(void)
{
	REIMU_L5;
}

void pascal near shot_reimu_l6(void)
{
	REIMU_L5;
}

void pascal near shot_reimu_l7(void)
{
	SHOT_FUNC_INIT(5, SC_3X, SC_2X, add_secondary(2));
	char option_only = cycle & SC_3X;

	while(( shot = shots_add() ) != NULL) {
		if(sai.i <= 5) {
			REIMU_FORWARD(9, 5, 177, 5);
		} else {
			REIMU_SUB_SPREAD_RANDOM(7);
			SET_HOMING(3);
		}
		shot_velocity_set(&shot->pos.velocity, sai.angle);
		if(sai.next() <= 0) {
			break;
		}
	}
}

void pascal near shot_reimu_l8(void)
{
	shot_t near *shot;
	ShotAddIterator sai(7);
	if( (shot_cycle_init() & SC_3X) == 0) {
		return;
	}
	while(( shot = shots_add() ) != NULL) {
		if(sai.i <= 5) {
			REIMU_FORWARD(9, 5, 177, 5);
		} else {
			if(sai.i == 7) { shot->from_option_l(); sai.set_random_angle(3, 182); }
			else/*i == 6*/ { shot->from_option_r(); sai.set_random_angle(3, 198); }
			SET_HOMING(3);
		}
		shot_velocity_set(&shot->pos.velocity, sai.angle);
		if(sai.next() <= 0) {
			break;
		}
	}
}

void pascal near shot_reimu_l9(void)
{
	SHOT_FUNC_INIT(7, SC_3X, SC_2X, add_secondary(2));
	char option_only = cycle & SC_3X;

	while(( shot = shots_add() ) != NULL) {
		if(sai.i <= 5) {
			REIMU_FORWARD(9, 5, 177, 5);
		} else {
			if(sai.i <= 7) {
				REIMU_SUB_SPREAD_CONSTANT(7);
			} else {
				if(sai.i == 9) {
					shot->from_option_l();
					sai.angle = 170;
				} else /* i == 8 */ {
					shot->from_option_r();
					sai.angle = 214;
					if(option_only == 0) {
						sai.i = 1;
					}
				}
			}
			SET_HOMING(2);
		}
		shot_velocity_set(&shot->pos.velocity, sai.angle);
		if(sai.next() <= 0) {
			break;
		}
	}
}

}