#e
#Title[ɂȂn߂̍(v)]
#Text[XyJ[h5]
#ScriptVersion[2]
#Player[FREE]



script_enemy_main {
	let imgBoss     = "script\l\img\dot_yuyuko.png";
	#include_function ".\lib\lib_anime_Yuyuko.txt"
	#include_function ".\prg\function_value.txt"
	let name = "ɂȂn߂̍";
	let cx=GetCenterX();
	@Initialize {
		SetX(GetCenterX);
        SetY(GetClipMinY + 120);
        SetLife(2000);
        SetTimer(52);
        SetScore(10000000);
        LoadGraphic(imgBoss);
        SetTexture(imgBoss);
        CutIn(YOUMU, name, "", 0, 0, 0, 0);
        SetDamageRate(40, 40);
        
		TMain;
	}
		@MainLoop {
        SetCollisionA(GetX, GetY, 24);
        SetCollisionB(GetX, GetY, 24);

        yield;
       }
       @DrawLoop {
       DrawBoss( imgBoss );
    }

    @Finalize {
        DeleteGraphic(imgBoss);
        loop(8)
		{
			CreateItem(ITEM_SCORE,cx+rand(-100,100),rand(20,100));
		}
		CreateItem(ITEM_BOMB,cx+rand(-100,100),rand(20,100));
		SuperNaturalBorder(240)
    }
    task TMain {
        yield;
        fMove;
        concentration;
        oT;
        ShotAiro;
        ShotAiru;
        NTa;
       }
       sub fMove{
	       SetMovePosition02(cx, GetClipMinY + 100, 60);
		SetAction(ACT_SPELL, 60);
	}
       sub concentration {
        let wConc = 100;
        Concentration01(wConc);
        wait(wConc);
        
    }
    sub oT{
	    
	    
	    loop (3) {
		    let ntx = 0;
		    
	    loop (18) {
		    let angle = 90 + ntx;
		    let ota = 1;
		    CreateShotA(ota, GetX, GetY, 0);
		    SetShotDataA(ota, 0, 4, angle, 0, 0, 4, BLUE03);
		    let tyoa = 2;
		    let tha = 10;
		    loop (10) {
			    CreateShotA(tyoa, 0, 0, 0);
		    SetShotDataA(tyoa, 0, 3, rand(0,360), 0, 0, 4, RED22);
		    AddShot(0 + tha, ota, tyoa, 0);
		    tha +=20;
		   }
		   FireShot(ota);
		   ntx += 20;
		   
		  }
		  wait(10)
		}
	}
task NTa{
	let Nta =1;
	let Ntb =2;
	let angle1 = GetAngleToPlayer + 50;
	let angle2 = GetAngleToPlayer - 50;
	loop {
	CreateShotA(Nta, GetX, GetY, 0);
	SetShotDataA(Nta, 0, 4, angle1, 0, 0, 4, BLUE22);
	CreateShotA(Ntb, GetX, GetY, 0);
	SetShotDataA(Ntb, 0, 4, angle2, 0, 0, 4, RED22);
	let tc = 3;
	let td = 4;
	let tza = 0;
	let tzb = 0;
	let kakua = rand(50,-50);
	let kakub = rand(140,280);
	loop(4) {
		CreateShotA(tc, 0, 0, tza);
	SetShotDataA(tc, 0, 2, kakua, 0, 0, 4, BLUE22);
	CreateShotA(td, 0, 0, tzb);
	SetShotDataA(td, 0, 2, kakub, 0, 0, 4, RED22);
	let te =5;
	let tf =6;
	let tze = 0;
	let tzf = 0;
	loop (5){
		CreateShotA(te, 0, 0, tze);
	SetShotDataA(te, 0, 1.5, rand(0,360), 0, 0, 4, BLUE22);
	CreateShotA(tf, 0, 0, tzf);
	SetShotDataA(tf, 0, 1.5, rand(0,360), 0, 0, 4, RED22);
	AddShot(90, tc, te, 0);
	AddShot(90, td, tf, 0);
	tze += 10;
	tzf += 10;
	}
	SetShotKillTime(tc,91);
	SetShotKillTime(td,91);
	AddShot(70, Nta, tc, 0);
	AddShot(70, Ntb, td, 0);
	tza +=3;
	tzb +=3;
}
SetShotKillTime(Nta,71);
	SetShotKillTime(Ntb,71);
	FireShot(Nta);
	FireShot(Ntb);
	
wait(5);
}
wait(60);
}

	
task ShotAiro {
        let wShot = 10;

        loop {
	        
	        
            CreateShot01(rand(GetClipMinX, GetClipMaxX), rand(GetClipMaxY-200, GetClipMinY+200), 0.8, rand(-92, -88), RED11, 4);
            wait(wShot);
            
	         
            
        }
    }
    task ShotAiru {
        let wShot = 10;

        loop {
	        
	        
            CreateShot01(rand(GetClipMinX, GetClipMaxX), rand(GetClipMaxY-200, GetClipMinY+200), 0.8, rand(92, 88), RED11, 4);
            wait(wShot);
            
	         
            
        }
    }




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