#e[Player]	
#ScriptVersion[2]
#Menu[Raiden]
#Text[
wdx@̃CN

:Main[Vbg](oJor[U[)
	 Sub [~TC](z[~Oorj[NA)
	 Bomb[{o[]
]
#Image[.\Select.png]
#ReplayName[RD]
script_player_main{
	let Cut = GetCurrentScriptDirectory;
	let Img = [//摜
		Cut~".\PlayerImg.png",//@
		Cut~".\Bomb.png",//{o[
		];
	let SE = [
		Cut~".\se2.wav",//Vbg
		Cut~".\se3.wav",
		Cut~".\se4.wav",
		Cut~".\se5.wav",
		Cut~".\se6.wav",
		Cut~".\se7.wav",//{o[
		Cut~".\se12.wav",
		];
	let nx=66;
	let ny=66;
	let counter = 0;
	let ShotType =0;
	let Option = false;
	LoadPlayerShotData(Cut~".\ShotData.txt");
	
	@Initialize{
		KeyCheck;
		ascent(n in 0..length(Img)){LoadGraphic(Img[n]);}
		ascent(n in 0..length(SE)){LoadSE(SE[n]);}
		SetSpeed(5,3);
		SetGrazeCircle(60);
		SetInitialBombCount(2);
		SetAutoEffect(false);
	}
	@MainLoop{
		SetIntersectionCircle(GetPlayerX,GetPlayerY, 10);
		Clock;
		
		if(User){
			ShotType++;
			//PlaySE(SE[4]);
		}
		if(ShotType>=2){ShotType=0;}

		MainShot;
		counter++;
		if(counter>=60){counter=0;}
		yield;
	}
	@Missed{MainLoop;}
	@SpellCard{
		UseSpellCard("Bomb",[Img[1],SE[5]]);
		//PlaySE(SE[6]);
	}
	
	@DrawLoop{
		alternative(ShotType)
		case(0){PI(1,2);WI(5,6);WIs(7,8);}
		case(1){PI(0,1);WI(6,7);WIs(8,9);}
		if(RapSlow){HI;}
		OI;
		SPI;
		
		
		yield;
	}
	@Finalize{
		ascent(n in 0..length(Img)){DeleteGraphic(Img[n]);}
		ascent(n in 0..length(SE)){DeleteSE(SE[n]);}
	}

	#include_function".\Ability.txt"
	#include_function".\KeyObj.txt"
	#include_function".\PlayerCore.txt"
}
#include_script".\Bomb.txt"