#e
#Title[֒euߋގvv]
#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);
PlayMusic("bgm\fran");
LoadUserShotData(GC~".\burret01.txt");
SetDamageRate(10,10);
SetLife(3000);
SetTimer(66);
CutIn(YOUMU,"֒euߋގvv",GC~".\cut_in.png",100,0,480,480);
SetScore(100000);
Tmain;
Twing;
Tbat;
SetShotAutoDeleteClip(32,32,32,32);
}
@MainLoop
{
if(OnBomb==false)
	{
	SetCollisionA(GetX,GetY,24);
	SetCollisionB(GetX,GetY,12);
	}

yield;
}
@DrawLoop
{
if(OnBomb==false){DrawGraphic(GetX,GetY);}
}
@Finalize
{
AddScore(10000);
loop(30){CreateItem(ITEM_SCORE,GetX+rand(-50,50),GetY+rand(-30,30))};
DeleteGraphic(GC~".\main.png");
}

#include_function ".\function.txt"

task Tmain
{
loop(60){yield};
if(GetX>GetCenterX){pattern(2);}
else{pattern(1);}
SetMovePosition02(GetCenterX,GetClipMinY+60,40);
loop(40){yield};
pattern(0);
loop(20){yield};
loop
	{
	SetDamageRate(100,10);
	CreateEnemyFromScript("bit",GetCenterX-135,GetCenterY+60,1,0,1);
	CreateEnemyFromScript("bit",GetCenterX+135,GetCenterY-60,1,180,-1);
	loop(40){yield;}
	loop(20)
		{
		DeleteSE("se\seShot");
		PlaySE("se\seShot");
		N_way(17,2,GetAngleToPlayer,10,0,0,1,10);
		loop(7){yield;}
		DeleteSE("se\seShot");
		PlaySE("se\seShot");
		N_way(27,3.5,270,10,0,0,1,10);
		loop(7){yield;}
		}
	CreateEnemyFromScript("bit",GetCenterX-135,GetCenterY-60,1,0,1);
	CreateEnemyFromScript("bit",GetCenterX+135,GetCenterY+60,1,180,-1);
	loop(40){yield;}
	loop(20)
		{
		DeleteSE("se\seShot");
		PlaySE("se\seShot");
		N_way(7,3.5,GetAngleToPlayer,10,0,0,1,10);
		loop(7){yield;}
		DeleteSE("se\seShot");
		PlaySE("se\seShot");
		N_way(27,3.5,270,10,0,0,1,10);
		loop(7){yield;}
		}
	CreateEnemyFromScript("bit",GetCenterX-135,GetCenterY-80,1,30,1);
	CreateEnemyFromScript("bit",GetCenterX+135,GetCenterY-80,1,150,-1);
	loop(40){yield;}
	loop(20)
		{
		DeleteSE("se\seShot");
		PlaySE("se\seShot");
		N_way(17,2,GetAngleToPlayer,10,0,0,1,10);
		loop(7){yield;}
		DeleteSE("se\seShot");
		PlaySE("se\seShot");
		N_way(27,3.5,270,10,0,0,1,10);
		loop(7){yield;}
		}
	}
}


}

script_enemy bit
{
let GC=GetCurrentScriptDirectory;
let act=0;
let alpha=0;
@Initialize
{
LoadGraphic(GC~".\bit.png");
SetTexture(GC~".\bit.png");
SetGraphicRect(0,0,48,48);
SetLife(10000);
SetDamageRate(0,0);
SetGraphicScale(0.9,0.9);
SetColor(200,200,255);
LoadUserShotData(GC~".\burret01.txt");
SetAlpha(0);
Tmain;
}
@MainLoop
{
yield;
}
@DrawLoop
{
DrawGraphic(GetX,GetY);
}
@Finalize
{
AddScore(3000);
}

task Tmain
{
DeleteSE("se\seLaser");
PlaySE("se\seLaser");
let alpha=0;
let speed=GetSpeed;
SetSpeed(0);
let angle=0;
loop(4)
	{
	Tlaser(angle);
	angle=angle+90;
	}
loop(50)
	{
	SetAlpha(alpha);
	alpha=alpha+5;
	yield;
	}
SetSpeed(speed);
loop(270)
	{
	yield;
	}
SetSpeed(0);
loop(40)
	{
	SetAlpha(alpha);
	alpha=alpha-5;
	yield;
	}
VanishEnemy;
}

task Tlaser(angle)
{
let left=GetArgument;
let laser=Obj_Create(OBJ_LASER);
ObjShot_SetGraphic(laser,2);
ObjShot_SetDelay(laser,40);
ObjLaser_SetLength(laser,220);
ObjLaser_SetWidth(laser,24);
loop(320)
	{
	Obj_SetPosition(laser,GetX,GetY);
	Obj_SetAngle(laser,angle);
	angle=angle+left;
	yield;
	}
ObjShot_FadeDelete(laser);
}

}