script_enemy_main
{
        let csd     = GetCurrentScriptDirectory;
	let imgEnemy=csd~"\lib\fairy_blue.png";
    let imgFam  = csd ~ "img\familiar.png";

    @Initialize {
        SetLife(1000);
        SetScore(10);
        SetDamageRate(100,100);
	LoadGraphic(imgEnemy);
        LoadGraphic(imgFam);
	Initialize_Fairy(6);
	Tmain;
	}

    @MainLoop {
	SetCollisionA(GetX(),GetY(),32);
        SetCollisionB(GetX(),GetY(),16);
	SetCollisionA(GetX()-50,GetY(),32);
        SetCollisionB(GetX()-50,GetY(),16);
	SetCollisionA(GetX()+50,GetY(),32);
        SetCollisionB(GetX()+50,GetY(),16);
	SetCollisionA(GetX(),GetY()-50,32);
        SetCollisionB(GetX(),GetY()-50,16);
	yield;
    }

        @DrawLoop {
		DrawFairy(imgEnemy );
	}

        @Finalize
        {
        } 

task Tmain
{
yield;
shot;
summon;
eraze;
}


task shot
{
loop
{
let angle=GetAngleToPlayer;
ascent(let i in -5..6)
{
CreateShot01(GetX,GetY,3,angle+i*2,BLUE01,0);
CreateShot01(GetX,GetY,3,angle+i*2+45,BLUE01,0);
CreateShot01(GetX,GetY,3,angle+i*2-45,BLUE01,0);
}
wait(90);
}
}


task summon
{
        CreateEnemyFromScript("Familiar", GetX, GetY,
                              GetSpeed, GetAngle, 1);
        CreateEnemyFromScript("Familiar", GetX, GetY,
                              GetSpeed, GetAngle, -1);
        CreateEnemyFromScript("Familiar", GetX, GetY,
                              GetSpeed, GetAngle, 0);
}

task eraze
{
while(!BeVanished)
{
        	if(GetX<GetClipMinX-64||GetX>GetClipMaxX+64||GetY<GetClipMinY-32||GetY>GetClipMaxY+32)
        	{
        		VanishEnemy();
        	}
yield;
}
}

#include_function ".\data.txt"
#include_function ".\lib\lib_anime_fairy.txt"
}

script_enemy Familiar {
    let csd     = GetCurrentScriptDirectory;
    let imgFam  = csd ~ "img\familiar.png";
	let num = GetArgument;
    @Initialize {
	let num = GetArgument;
        SetLife(5500);
        SetScore(10000);
SetX(GetX+50*num);
SetY(GetY);
if(num==0)
{
SetY(GetY-50);
}
        SetDamageRateEx(100,100,100,100);
	SetSpeed(0.3);
	SetAngle(GetAngle);
        SetTexture(imgFam);
        setGraphic;
	TMain;
    }

    @MainLoop {
        yield;
    }

    @DrawLoop {
        DrawGraphic(GetX, GetY);
    }

    task TMain {
        yield;
	subshot1;
	eraze;
    }


task subshot1
{
loop
{
let angle=rand(0,360);
ascent(let i in 0..36)
{
CreateShot01(GetX,GetY,2,angle+i*10,RED01,0);
}
wait(30);
}
}


task eraze
{
while(!BeVanished)
{
        	if(GetX<GetClipMinX-64||GetX>GetClipMaxX+64||GetY<GetClipMinY-64||GetY>GetClipMaxY+32)
        	{
        		VanishEnemy();
        	}
yield;
}
}

    // OtBbN̐ݒ
sub setGraphic{ SetGraphicRect( 0, 48, 48, 96); }
#include_function ".\data.txt"
}