#TouhouDanmakufu[Player]
#ScriptVersion[3]
#ID["MARISA_A"]
#Title["Marisa A"]
#Text["Marisa A"]
#ReplayName["MarisaA"]

//Global Declaration
let CSD = GetCurrentScriptDirectory;
let playerID = GetPlayerObjectID;
let playerObj = ObjPrim_Create(OBJ_SPRITE_2D);
let hitboxObj = ObjPrim_Create(OBJ_SPRITE_2D);
let count = -1;
let isFocus = false;

//Shot Sheet
let shotMarisa = CSD ~ "playershot.txt";

//Texture Sheet
let playerSprite = CSD ~ "marisasprite.png";

@Initialize
{
// Load Player Shot Data
LoadPlayerShotData(shotMarisa);

// Set Plauer unfocused and focused speed
SetPlayerSpeed(5, 2.5);

//Set Okayer hitbox paramenters = (player object, X, Y, radius, graze radus)
ObjPlayer_AddIntersectionCircleA1(playerID, 0, 0, 2, 16);

// Set Boundary of for the game field. Player can't move beyond this
// Note: Standard game field is x:384 and y:448
SetPlayerClip(0+6, 0+24, 384-6, 448-16);

//Set how long the player is gone upon death
SetPlayerDownStateFrame(60);

// Counterbomb time frame
SetPlayerRebirthFrame(30);

// Set Y coordinates where the player starts auto-collecting
SetPlayerAutoItemCollectLine(120);

//Launch two task to handle some sprite animation
renderPlayer;
renderHitBox(GetPlayerX, GetPlayerY);
}

@Event
{
alternative(GetEventType)

    case(EV_REQUEST_SPELL)
        {
        if(GetPlayerSpell > 0){SetScriptResult(true)}
        else {SetScriptResult(false)}
        }

    case(EV_PLAYER_SHOOTDOWN)
        {
        SetForbidPlayerShot(true);
        SetForbidPlayerSpell(true);
        }

    case(EV_PLAYER_REBIRTH)
        {
        SetForbidPlayerShot(false);
        SetForbidPlayerSpell(false);
        SetPlayerInvincibilityFrame(120);
        SetPlayerSpell(2);
        }
}

@MainLoop
{

yield;
}

task renderPlayer
{
ObjPrim_SetTexture(playerObj, playerSprite);
Obj_SetRenderPriorityI(playerObj, 31);
ObjRender_SetBlendType(playerObj, BLEND_ALPHA);
ObjRender_SetAngleXYZ(playerObj, 0, 0, 0);
ObjRender_SetScaleXYZ(playerObj, 1, 1, 0);
ObjRender_SetAlpha(playerObj, 255);
ObjSprite2D_SetSourceRect(playerObj, 0, 0, 32, 48);
ObjSprite2D_SetDestCenter(playerObj);
ObjRender_SetPosition(playerObj, GetPlayerX, GetPlayerY, 0);

while(!Obj_IsDeleted(playerObj))
    {
    ObjRender_SetPosition(playerObj, GetPlayerX, GetPlayerY, 0);

    yield;
    }
}