#TouhouDanmakufu[Single]
#ScriptVersion[3]
#Title["Improvement B1"]
#Text["???"]

#include "script/default_system/Shot/ZUNShot_Const.txt"

let objBoss;
let objScene=GetEnemyBossSceneObjectID();

let Boss;
let BossX = 10;
let BossY = 10;

@Event{
    alternative(GetEventType())
    case(EV_REQUEST_LIFE){
        SetScriptResult(2500);
    }
    case(EV_REQUEST_TIMER){
        SetScriptResult(60);
    }
    case(EV_REQUEST_SPELL_SCORE){
        SetScriptResult(1000000);
    }
}

@Initialize{
    objBoss = ObjEnemy_Create(OBJ_ENEMY_BOSS);
    ObjEnemy_Regist(objBoss);
    ObjMove_SetDestAtFrame(objBoss, GetCenterX, 60, 60);
    ObjEnemyBossScene_StartSpell(objScene);
    TDrawLoop;
    TFinalize;
    MainTask;
	RenderBG;
}

@MainLoop{
    ObjEnemy_SetIntersectionCircleToShot(objBoss, ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 32);
    ObjEnemy_SetIntersectionCircleToPlayer(objBoss, ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 24);

    yield;
}

task MainTask{
    ObjMove_SetDestAtFrame(objBoss, GetCenterX, 60, 60);
    wait(120);
    BulletFormation;
}

 task RenderBG{
    let path1 = GetCurrentScriptDirectory() ~ "Muenzuka.png";
    let obj1 = ObjPrim_Create(OBJ_SPRITE_2D);
    ObjRender_SetBlendType(obj1, BLEND_ALPHA);
    Obj_SetRenderPriority(obj1, 0.21);
    ObjPrim_SetTexture(obj1, path1);
    ObjSprite2D_SetSourceRect(obj1, 0, 0, 512, 512);
    ObjSprite2D_SetDestRect(obj1, -256, -256, 256, 256);
    ObjRender_SetPosition(obj1, 384/2, 448/2, 1);
    let frame = 0;
    let alpha = 0;
   yield;
}



task BulletFormation {
    let angleS = GetAngleToPlayer(objBoss);
	ObjMove_SetDestAtFrame(objBoss, GetCenterX, 60, 60);

    while(!Obj_IsDeleted(objBoss)){
        ShotA1(angleS, -1,5,5,93);
        angleS += -10;
        wait(12);

    }

    task ShotA1(angle,offset,num1,num2,shotID){
        ascent(a in 0..num1){   //sets how many BULLETS are in ONE formation
            loop(num2){         //sets how many BULLET FORMATIONS are fired
                let shot1A = CreateShotA1(BossX+100*cos(angle),BossY+100*sin(angle),3-a/num1,angle,shotID,50);
                angle += 360/num2;
            }
            angle += offset;    //determines whether the bullet formation is CURVED (offset < 0 or offset > 0) or STRAIGHT (offset == 20)
        }
    }
}

task TDrawLoop {
    let imgBoss = GetCurrentScriptDirectory() ~ "shikieiki.png.png";
    ObjPrim_SetTexture(objBoss, imgBoss);
    ObjSprite2D_SetSourceRect(objBoss, 0, 0, 148, 125);
    ObjSprite2D_SetDestCenter(objBoss);
}
task TFinalize {
    while(ObjEnemy_GetInfo(objBoss, INFO_LIFE) > 0){yield;}
    if(ObjEnemyBossScene_GetInfo(objScene, INFO_PLAYER_SHOOTDOWN_COUNT)
            +ObjEnemyBossScene_GetInfo(objScene, INFO_PLAYER_SPELL_COUNT) == 0){
        AddScore(ObjEnemyBossScene_GetInfo(objScene, INFO_SPELL_SCORE));
    }
    Obj_Delete(objBoss);
    DeleteShotAll(TYPE_ALL,TYPE_IMMEDIATE);
    SetAutoDeleteObject(true);
    CloseScript(GetOwnScriptID());
    return;
}
function GetCenterX(){
    return GetStgFrameWidth() / 2;
}
function GetCenterY(){
    return GetStgFrameHeight() / 2;
}
function wait(n){
    loop(n){yield;}
}