Danmakufu Code Trial 01

#TouhouDanmakufu[Single]
#ScriptVersion[3]
#Title["Spellcard 01"]
#Text["First Spellcard"]

#include"script/default_system/Default_ShotConst.txt"

let objBoss;
let GetX = 0;
let GetY = 0;
let objScene = GetEnemyBossSceneObjectID();

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

@Initialize{
    objBoss = ObjEnemy_Create(OBJ_ENEMY_BOSS);
    ObjEnemy_Regist(objBoss);
    ObjMove_SetDestAtFrame(objBoss, GetCenterX, 60, 60);

    ObjEnemyBossScene_StartSpell(objScene);

    TDrawLoop;
    TFinalize;
    MainTask;
}

@MainLoop{
    GetX = ObjMove_GetX(objBoss);
    GetY = ObjMove_GetY(objBoss);

    ObjEnemy_SetIntersectionCircleToShot(objBoss, GetX, GetY, 32);
    ObjEnemy_SetIntersectionCircleToPlayer(objBoss, GetX, GetY, 24);
    yield;
}

task MainTask {
    movement;
    while(ObjEnemy_GetInfo(objBoss, INFO_LIFE)>0){
    let angleT = GetAngleToPlayer(objBoss);
    loop(13){
        ascent(i in 0..3){
            CreateShotA1(ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 2.5-i/3, angleT, DS_FIRE_RED+1, 5);
        }
        angleT+=360/13;
        }
    }
}

task movement{
    while(ObjEnemy_GetInfo(objBoss, INFO_LIFE)>0){
        ObjMove_SetDestAtFrame(objBoss, rand(GetCenterX+90,GetCenterX-90), rand(GetCenterY-60,GetCenterY-120), 60);
        wait(120);
    }
}

task TDrawLoop{
    let imgFlan = GetCurrentScriptDirectory ~ "img/boss_flandre.png";
    ObjPrim_SetTexture(objBoss, imgFlan);
    ObjSprite2D_SetSourceRect(objBoss, 0, 0, 128, 128);
    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;}
}