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

script_event Event01{
	let i		= 0;
	let csd		= GetCurrentScriptDirectory;
	let plaimg	= [csd~".\enm7img\Mar00.png",//normal
				csd~".\enm7img\Mar01.png",//sly
				csd~".\enm7img\Mar02.png",//grin
				csd~".\enm7img\Mar03.png",//scared
				csd~".\enm7img\Mar04.png",//grr
				csd~".\enm7img\Mar05.png",//tired
				csd~".\enm7img\Mar06.png",//smile
				csd~".\enm7img\Mar07.png",//angry
				csd~".\enm7img\Mar08.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,120,1,384,512/1.5);
		SetChar(RIGHT,enmimg[11]);
		SetGraphicRect(RIGHT,1,1,384/1.3,512/1.4);
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]I lost to a human...?\n
		Perhaps I've grown too old for this.");
		TextOut("\c[RED]But compared to the princess's wrath,\n
		those attacks were still lukewarm.");
		
		SetChar(LEFT,plaimg[4]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]I dunno my old stories very well, but\n
		I do know that a woman's passion\n
		can be really scary...");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]This star is the last dwelling place\n
		that Lord Hades has left.\n
		Please, don't take it away from us\n
		just because of your greed.");
		
		SetChar(LEFT,plaimg[1]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]It's impossible to suppress a person's 
		ten desires.\n
		If you push them down, they'll spring\n
		up in some other way.");
		TextOut("\c[BLUE]Those calming mint plants you've got\n
		there seem like they'd be pretty\n
		useful for some stuff...");

		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]Feel free to take as much as you like.");

		SetChar(LEFT,plaimg[1]);
		MoveChar(LEFT,FRONT);
		MoveChar(RIGHT,BACK);
		TextOut("\c[BLUE]Thanks! What's yours is mine, and\n
		what's mine is also mine.");
		TextOut("\c[BLUE]Man, there's a lot more mint around\n
		here now.");
		TextOut("\c[BLUE]If it grows that fast then even just\n
		a little bit is enough for me.");
		TextOut("\c[BLUE]Well, see you later, miss strong fairy.");
		TextOut("\c[BLUE]Do your best to live quietly, so you\n
		don't catch Reimu's attention.");
		
		MoveChar(LEFT,BACK);
		MoveChar(RIGHT,FRONT);
		TextOut("\c[RED]...I've never met a human who had such\n
		extensive knowledge of the uses of\n
		plants.");
		TextOut("\c[RED]However, you've made a fatal mistake\n
		because of that confidence.");
		TextOut("\c[RED]As the ancestor of all mint, the\n
		propagative power of my mint is far\n
		greater than the Japanese peppermint\n
		around here.");
		TextOut("\c[RED]Thank you. You're going to cover all\n
		of Gensokyo in my greenery, and I won't
		even have to lift a finger.");
		TextOut("\c[RED]We'll be together this time,\n
		Lord Hades...");
		
		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 {
	}

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