dnh

#東方弾幕風[Single]
#Title["火＆水符「スティーム・ラボ」"]
#Text["PatchouliSpell04_L"]
#Player[DEFAULT]
#ScriptVersion[3]
//#PlayLevel[LUNATIC]

#include"script/default_system/Default_ShotConst.txt"
#include"script/default_system/Default_Effect.txt"

let objEnemy;
let bConcentrationMotion = false;
let cx = GetStgFrameWidth() / 2;
let cy = GetStgFrameHeight() / 2;
let num = 0;

@Initialize
{
    objEnemy = ObjEnemy_Create(OBJ_ENEMY_BOSS);
    ObjEnemy_Regist(objEnemy);
    ObjEnemy_SetDamageRate(objEnemy, 10, 10);
    TWork;
    TRender;
    TEnd;

    DeleteShotAll(TYPE_ALL, TYPE_ITEM);
}
@MainLoop
{
    let ex = ObjMove_GetX(objEnemy);
    let ey = ObjMove_GetY(objEnemy);
    ObjEnemy_SetIntersectionCircleToShot(objEnemy, ex, ey, 32);
    ObjEnemy_SetIntersectionCircleToPlayer(objEnemy, ex, ey, 24);

    yield;
}
@Event
{
    alternative(GetEventType())
    case(EV_REQUEST_LIFE)
    {
        SetScriptResult(500);
    }
    case(EV_REQUEST_TIMER)
    {
        SetScriptResult(60);
    }
    case(EV_REQUEST_SPELL_SCORE)
    {
        SetScriptResult(100000);
    }
}

task TWork
{
    //CutIn(火＆水符「スティーム・ラボ」);

    ObjMove_SetDestAtFrame(objEnemy, cx, 60, 60);
    loop(60){yield;}

    let objScene = GetEnemyBossSceneObjectID();
    ObjEnemyBossScene_StartSpell(objScene);

    while(!Obj_IsDeleted(objEnemy))
    {
        num++;
        if (num%47==0)
        {
            loop(10)
            {
                CreateShotA1(cx-190, rand(0,500), 2, 0, DS_BALL_S_RED, 1);
            }
        }
        if (num%67==0)
        {
            loop(6)
            {
                CreateShotA1(cx-190, rand(0,500), 2, 0, DS_BALL_M_RED, 1);
            }
        }
        if (num%97==0)
        {
            loop(3)
            {
                CreateShotA1(cx-190, rand(0,500), 2, 0, DS_BALL_L_RED, 1);
            }
        }
    }
}

task TRender
{
    let imgPatchouli = GetCurrentScriptDirectory ~ "img\Patchouli.png";
    ObjPrim_SetTexture(objEnemy, imgPatchouli);

    while(!Obj_IsDeleted(objEnemy))
    {
        ObjSprite2D_SetDestCenter(objEnemy);

        yield;
    }
}

task TEnd
{
    while(ObjEnemy_GetInfo(objEnemy, INFO_LIFE) > 0)
    {
        yield;
    }

    let ex = ObjMove_GetX(objEnemy);
    let ey = ObjMove_GetY(objEnemy);
    TExplosionA(ex, ey, 10, 0.6);
    DeleteShotAll(TYPE_ALL, TYPE_ITEM);
    Obj_Delete(objEnemy);

    loop(30){yield;}

    CloseScript(GetOwnScriptID());
}

task CutIn(strText){
    let objtext = ObjText_Create();
    ObjText_SetText(objtext, strText);
    Obj_SetRenderPriority(objtext, 0.74);//Render above cutin
    ObjText_SetFontSize(objtext, 16);
    ObjText_SetFontColorTop(objtext, 255, 64, 64);
    ObjText_SetFontColorBottom(objtext, 255, 64, 64);
    ObjText_SetFontBold(objtext, true);
    ObjText_SetFontBorderType(objtext, BORDER_FULL);
    ObjText_SetFontBorderColor(objtext, 0, 200, 200);
    ObjText_SetFontBorderWidth(objtext, 1);
    ObjRender_SetPosition(objtext, GetStgFrameLeft+5, GetStgFrameHeight-30, 0);
    loop(300){yield;}
    Obj_Delete(objtext);
}