
#Title[tPq]
#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");
SetLife(12000);
SetTimer(30);
SetDamageRate(500,250);
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};
pattern(1);
SetMovePosition02(GetCenterX,GetClipMinY+100,60);
loop(60){yield};
pattern(0);
loop(60){yield};
loop
	{
	DeleteSE("se\seShot");
	PlaySE("se\seShot");
	N_around(64,2,0,-0.05,1.5,33,5);
	N_around(64,2.5,0,-0.05,2,33,5);
	loop(10){yield};
	let X=GetX;
	let Y=GetClipMinY+rand(60,100);
	if(GetX<GetPlayerX)
		{
		pattern(1);
		X=X+60;
		if(X>=GetClipMaxX)
			{
			pattern(2);
			X=X-120;
			}
		
		}
	else
		{
		pattern(2);
		X=X-60;
		if(X<=GetClipMinX)
			{
			pattern(1);
			X=X+120;
			}
		}
	SetMovePosition03(X,Y,15,3.5);
	loop(45){yield;}
	DeleteSE("se\seShot");
	PlaySE("se\seShot");
	N_around(64,2,0,-0.05,1.2,33,5);
	N_around(64,2.5,0,-0.05,1.5,33,5);
	loop(15){yield};
	pattern(0);
	loop(40){yield};
	}
}

#include_function ".\function.txt"

}