
#Title[enm7 before talk(r)]
#Text[exb2r]
#Player[FREE]
#BackGround[Default]
#ScriptVersion[2]

script_event Event01{
	let i		= 0;
	let csd		= GetCurrentScriptDirectory;
	let plaimg	= [csd~".\enm7img\Rei00.png",//normal
				csd~".\enm7img\Rei01.png",//sly
				csd~".\enm7img\Rei02.png",//grin
				csd~".\enm7img\Rei03.png",//scared
				csd~".\enm7img\Rei04.png",//grr
				csd~".\enm7img\Rei05.png",//tired
				csd~".\enm7img\Rei06.png",//smile
				csd~".\enm7img\Rei07.png",//angry
				csd~".\enm7img\Rei08.png"];//proud
	let enmimg	= [csd~".\enm7img\mint00000.png",//
					csd~".\enm7img\mint00001.png",//@
					csd~".\enm7img\mint00002.png",//
					csd~".\enm7img\mint00003.png",//΂
					csd~".\enm7img\mint00004.png",//{
					csd~".\enm7img\mint00005.png",//{2
					csd~".\enm7img\mint00006.png",//
					csd~".\enm7img\mint00007.png",//
					csd~".\enm7img\mint00008.png",//f
					csd~".\enm7img\mint00009.png",//f2
					csd~".\enm7img\mint00010.png",//f3
					csd~".\enm7img\mint00011.png"];//{
	
	@Initialize {
		loop(9){
			LoadGraphic(plaimg[i]);
			i++;
		}
		i=0;
		loop(12){
			LoadGraphic(enmimg[i]);
			i++;
		}
		i=0;
	}
	
	@MainLoop {
		SetChar(LEFT,plaimg[0]);
		SetGraphicRect(LEFT,150,1,384,512/1.5);
		SetChar(RIGHT,enmimg[11]);
		SetGraphicRect(RIGHT,1,1,384/1.3,512/1.4);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]So you and Iesua have nothing to do\n
		with each other?");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]We're always being confused with the\n
		people of that land.");
		TextOut("\c[RED]Their leader is named Deus.\n
		Our leader is named Zeus.");
		
		SetChar(LEFT,plaimg[4]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]Your attacks seemed pretty similar to\n
		those angels' though.");

		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]The angels of Olympus wield bows.\n
		With that, you've grown a little wiser.");

		SetChar(LEFT,plaimg[5]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]So, what on earth are you, anyway?");

		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]A fairy.");

		SetChar(LEFT,plaimg[2]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]You must be joking. If there's a fairy 
		who's that strong, it's no fair-y.");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]That joke was bad enough to give me\n
		chills.");
		
		SetChar(LEFT,plaimg[1]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]Then it was a pretty minty joke.\n
		Isn't that okay?");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]`Fairies'... back in our homeland, we\n
		were known as nymphs or elves.");
		TextOut("\c[RED]Unlike the young ones here, we are\n
		ancient fairies, having lived for\n
		thousands of years.");
		
		SetChar(LEFT,plaimg[2]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]So you're a granny fairy looking for a 
		place to settle down in your old age?");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]I'm making this meteorite into my\n
		final home.");

		SetChar(LEFT,plaimg[1]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]Well, all right. I can keep an eye on\n
		you from the shrine, so don't get any\n
		weird ideas.");
		TextOut("\c[BLUE]Just do your best to behave yourself\n
		and live in fear of my shadow.");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED](I'm going to cover that shrine in\n
		mint and de-claw you for good, one\n
		of these days.)");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,BACK);
		TextOut("\c[GREEN]Congratulations on clearing the\n
		EX Stage!");
		TextOut("\c[GREEN]When you start the main game with under
		2 lives and under 3 bombs, and clear\n
		the game with more than 3 lives\n
		remaining, you'll see a different\n
		ending from usual!");
		TextOut("\c[GREEN](Must be above Normal and not use\n
		continues)");

		End();
	}
		
	@Finalize {
	}
}

script_enemy_main {
	let csd			= GetCurrentScriptDirectory;
	let imgEffect	= csd~".\enm7eff\bossEfect.png";
	let imgSPNB		= csd~".\enm7eff\spellEfect.png";
	let t5			= GetCurrentScriptDirectory~".\enm3se\timer1.wav";
	let t10			= GetCurrentScriptDirectory~".\enm3se\timer2.wav";
	let tan			= GetCurrentScriptDirectory~".\enm3se\shot1.wav";
	let kira		= GetCurrentScriptDirectory~".\enm3se\shot2.wav";
	let Gspel		= GetCurrentScriptDirectory~".\enm3se\echo5.wav";
	let laser		= GetCurrentScriptDirectory~".\enm3se\Laser2.wav";
	let power		= GetCurrentScriptDirectory~".\enm3se\enemy_powereffect.wav";
	let powerl		= GetCurrentScriptDirectory~".\enm3se\power_logo.wav";
	let gekiha		= GetCurrentScriptDirectory~".\enm3se\BossEnd.wav";
	let powerla		= GetCurrentScriptDirectory~".\enm3se\power_logo.wav";
	let kaku		= GetCurrentScriptDirectory~".\enm3se\j.wav";
	let frame		= 0;
	let GetAngle	= 0;
	let angle		= 0;
	let angle2		= 0;
	let angleBase	= 0;
	let count		= 0;
	let timer		= 0;
	let shotdir		= GetCurrentScriptDirectory ~ "kshotData.txt";
	let MinX		= GetClipMinX;
	let MaxX		= GetClipMaxX;
	let CenX		= GetCenterX;
	let MinY		= GetClipMinY;
	let MaxY		= GetClipMaxY;
	let CenY		= GetCenterY;
	let T_count		= 0;
	let Damage		= 0;
	let a			= 0;
	let b			= 0;
	let S_count		= 0;
	let w			= 0;
	let i			= 0;

	@Initialize {
		SetX(MaxX+100);
		SetY(MinY-100);
	
		SetLife(5000);
		SetDamageRate(0,0);
	
		CreateCommonDataArea("anime");
		SetCommonDataEx("anime","anime_flag",false);
	
		/*e폜@(l64)*/
		SetShotAutoDeleteClip(30,30,30,30);
	
		LoadUserShotData(shotdir);
		LoadGraphic(imgEffect);
		Aura(8,180,255,210);
		MagicCircle(false);
		SetRateScoreSystemEnable(false);
		EnemyTexture07(true);
		CreateEventFromScript("Event01");
		SetEffectForZeroLife(0,0,0);
	}

	@MainLoop {
		yield;
		if(OnEvent==false){
			VanishEnemy;
		}
	}

	@DrawLoop {
	}

	@Finalize {
		let tact = GetCommonDataEx("title","act");
		if(tact==14){
			SetCommonDataEx("title","start_stage",false);
		}
	}

	#include_function".\Obj_Control.txt"
	#include_function".\lib_kshot.txt"
}