
#Title[tRq]
#ScriptVersion[2]
#Player[FREE]
#Text[]
#BackGround[User(.\back.png,0,0)]

script_enemy_main
{
let GC=GetCurrentScriptDirectory;
@Initialize
{
LoadGraphic(GC~".\main.png");
SetTexture(GC~".\main.png");
SetGraphicRect(0,0,32,40);
LoadUserShotData(GC~".\burret01.txt");
PlayMusic("bgm\fran");
SetDamageRate(10,10);
SetLife(10000);
SetTimer(30);

Tmain;
Twing;
Tbat;
}
@MainLoop
{
SetCollisionA(GetX,GetY,24);
SetCollisionB(GetX,GetY,12);
yield;
}
@DrawLoop
{
DrawGraphic(GetX,GetY);
}
@Finalize
{
AddScore(10000);
//loop(20){CreateItem(ITEM_SCORE,GetX+rand(-50,50),GetY+rand(-30,30))};
DeleteGraphic(GC~".\main.png");
}

task Tmain
{
loop(60){yield};
if(GetX>GetCenterX){pattern(2);}
else{pattern(1);}
SetMovePosition02(GetCenterX,GetClipMinY+60,40);
loop(40){yield};
pattern(0);
loop(80){yield};
SetDamageRate(500,250);
loop
	{
	DeleteSE("se\seShot");
	PlaySE("se\seShot");
	N_around(48,2,0,0,2,33,5);
	N_around(48,2.5,0,0,2.5,33,5);
	N_around(48,3,0,0,3,33,5);
	loop(10){yield};
	let X=GetX;
	let Y=GetClipMinY+rand(60,150);
	if(GetX<GetPlayerX)
		{
		pattern(1);
		X=X+80;
		if(X>=GetClipMaxX)
			{
			pattern(2);
			X=X-160;
			}
		
		}
	else
		{
		pattern(2);
		X=X-80;
		if(X<=GetClipMinX)
			{
			pattern(1);
			X=X+160;
			}
		}
	SetMovePosition03(X,Y,15,3.5);
	loop(35){yield;}
	DeleteSE("se\seShot");
	PlaySE("se\seShot");
	N_around(48,2,0,0,2,33,5);
	N_around(48,2.5,0,0,2.5,33,5);
	N_around(48,3,0,0,3,33,5);
	loop(25){yield};
	pattern(0);
	loop(20){yield};
	}
}

#include_function ".\function.txt"

}