#TouhouDanmakufu[Single]
#ScriptVersion[3]
#Title["Test 1-3"]
#Text["???"]

#include "script/default_system/Default_ShotConst.txt"

let objBoss;

@Event{
    alternative(GetEventType())
    case(EV_REQUEST_LIFE){
        SetScriptResult(7000);
    }
    case(EV_REQUEST_TIMER){
        SetScriptResult(50);
    }
    case(EV_REQUEST_SPELL_SCORE){
        SetScriptResult(2300000);
    }
}

@Initialize{
    objBoss = ObjEnemy_Create(OBJ_ENEMY_BOSS);
    ObjEnemy_Regist(objBoss);
    let imgBoss = GetCurrentScriptDirectory() ~ "shikieiki.png.png";
    ObjPrim_SetTexture(objBoss, imgBoss);
    ObjSprite2D_SetSourceRect(objBoss, 0, 0, 148, 125);
    ObjSprite2D_SetDestCenter(objBoss);
    ObjMove_SetDestAtFrame(objBoss, GetCenterX(), 60, 60);
    TFinalize;
    MainTask;
}

@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);
    while(ObjEnemy_GetInfo(objBoss, INFO_LIFE) > 0){
	CreateShotA1(ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), rand(2, 5), rand(0, 360), DS_KNIFE_KOUMA_SKY, 20);
	yield;
    }
}

task TFinalize {
    while(ObjEnemy_GetInfo(objBoss, INFO_LIFE) > 0){yield;}
    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;}
}