Spellcard

#TouhouDanmakufu
#Title["Trial by the Ten Kings"]
#BGM[.\Touhou Judgement in the Sixtieth Year ~ Fate of Sixty Years]
#Player[FREE]
#ScriptVersion[2]

script_enemy_main{

	#include_function ".\function_cutin.txt";

	let CSD = GetCurrentScriptDirectory;

	let imgboss = CSD ~ "system\imgboss.png";
	let cut = CSD ~ "system\cut.png";
	let bg = CSD ~ "system\bgstill.png";
	let lay = CSD ~ "system\bgscroll.png";

	let f = 0;
	let f2 = 0;
	let slide = 0;

	let charge0 = CSD ~ "sfx\se_ch00.wav";

	@Initialize{
		SetLife(3000);
		SetTimer(180);
		SetMovePosition01(GetCenterX,GetCenterY-130,3);
		SetScore(1500000);
		cutin("NAZRIN",""\""Trial by the Ten Kings"\",cut,10,10,256,256);
		MagicCircle(false);
		SetInvincibility(300);
		SetDamageRate(20,0);

		LoadGraphic(cut);
		LoadGraphic(bg);
		LoadGraphic(lay);
		LoadGraphic(imgboss);

		LoadSE(charge0);

		LoadUserShotData(CSD ~ "supershot.txt");

		mainTask;
	}

	@MainLoop{
		SetCollisionA(GetEnemyX,GetEnemyY,32);
		SetCollisionB(GetEnemyX,GetEnemyY,16);

		yield;
	}

	@DrawLoop{
		SetTexture(imgboss);
		SetRenderState(ALPHA);
		SetAlpha(255);
		SetGraphicRect(0,0,64,86);
		SetGraphicScale(0.7,0.7);
		SetGraphicAngle(0,0,0);

		//no movement
		if(int(GetSpeedX())==0){
			if(f<10){SetGraphicRect(0,0,64,86);}
			if(f>=10 && f<20){SetGraphicRect(64,0,128,86);}
			if(f>=20 && f<30){SetGraphicRect(128,0,192,86);}
			if(f>=30){SetGraphicRect(192,0,256,86);}
			f2 = 0;
		}

		//to the right
		if(GetSpeedX()>0){
			if(f2<5){SetGraphicRect(0,86,64,172);}
			if(f2>=5 && f2<10){SetGraphicRect(64,86,128,172);}
			if(f2>=10 && f2<15){SetGraphicRect(128,86,192,172);}
			if(f2>=15){SetGraphicRect(192,86,256,172);}
			f2++;
		}

		//to the left
		if(GetSpeedX()<0){
			SetGraphicAngle(180,0,0);
			if(f2<5){SetGraphicRect(0,86,64,172);}
			if(f2>=5 && f2<10){SetGraphicRect(64,86,128,172);}
			if(f2>=10 && f2<15){SetGraphicRect(128,86,192,172);}
			if(f2>=15){SetGraphicRect(192,86,256,172);}
			f2++;
		}

		DrawGraphic(GetX,GetY);
		f++;
		if(f==40){f=0;}
	}

	@BackGround{
		SetTexture(bg);
		SetRenderState(ALPHA);
		SetAlpha(255);
		SetGraphicRect(0,0,256,256);
		SetGraphicScale(2,2);
		SetGraphicAngle(0,0,0);
		DrawGraphic(GetCenterX,GetCenterY);

		SetTexture(lay);
		SetRenderState(ALPHA);
		SetAlpha(255);
		SetGraphicRect(0,0,256,8000);
		SetGraphicScale(1.5,1.5);
		SetGraphicAngle(0,0,0);
		DrawGraphic(GetCenterX,GetCenterY+slide);
		slide-=2;
		if(slide==-384){ slide = 0;}
	}

	@Finalize{
		DeleteGraphic(bg);
		DeleteGraphic(lay);
		DeleteGraphic(cut);
		DeleteGraphic(imgboss);

		DeleteSE(charge0);
	}

	task mainTask{
		yield;
		Concentration01(120);
		PlaySE(charge0);
		wait(120);
		SetMovePosition03(GetCenterX,GetCenterY-170,10,60);
		spawn;
	}

	//creates familiars
	sub spawn{
		CreateEnemyFromFile(CSD ~ "SC 5 F1.txt",GetCenterX,GetClipMinY-60,0,0,1200);
		CreateEnemyFromFile(CSD ~ "SC 5 F2.txt",GetCenterX,GetClipMinY-60,0,0,1200);
		CreateEnemyFromFile(CSD ~ "SC 5 F3.txt",GetCenterX,GetClipMinY-60,0,0,2400);
		CreateEnemyFromFile(CSD ~ "SC 5 F4.txt",GetCenterX,GetClipMinY-60,0,0,2400);
		CreateEnemyFromFile(CSD ~ "SC 5 F5.txt",GetCenterX,GetClipMinY-60,0,0,1800);
		CreateEnemyFromFile(CSD ~ "SC 5 F6.txt",GetCenterX,GetClipMinY-60,0,0,1800);
		CreateEnemyFromFile(CSD ~ "SC 5 F7.txt",GetCenterX,GetClipMinY-60,0,0,2400);
		CreateEnemyFromFile(CSD ~ "SC 5 F8.txt",GetCenterX,GetClipMinY-60,0,0,2400);
		CreateEnemyFromFile(CSD ~ "SC 5 F9.txt",GetCenterX,GetClipMinY-60,0,0,1800);
	}

	function wait(w){ loop(w){ yield;}}

}