#東方弾幕風[Player]
#ScriptVersion[3]
#ID["REIMU_HRTP"]
#Title["Reimu"]
#Text["Reimu"]
#Image["ReimuSpriteHRTP.png"]
#ReplayName["Reimu"]

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;
let shotReimu = CSD ~ "reimushot.txt";
let reimuSprite = CSD ~ "ReimuSpriteHRTP.png";
@Initialize
{
    LoadPlayerShotData(shotReimu);
    SetPlayerSpeed(3,2.5);
    ObjPlayer_AddIntersectionCircleA1(playerID,0,0,1,16);
    SetPlayerClip(0+6,0+24,384-6,448-16);
    SetPlayerDownStateFrame(60);
    SetPlayerRebirthFrame(30);
    SetPlayerAutoItemCollectLine(120);
    TRenderPlayer;
}
@Event
{
    alternative(GetEventType)
    case(EV_REQUEST_SPELL)
    {
        if(GetPlayerSpell > 0)
        {
            SetScriptResult(true);
        }
        else
        {
            SetScriptResult(false);
        }
    }
    case(EV_PLAYER_SHOOTDOWN)
    {
        SetForbidPlayerShot(true);
        SetForbidPlayerSpell(true);
        ObjRender_SetAlpha(playerObj,0);
    }
    case(EV_PLAYER_REBIRTH)
    {
        SetForbidPlayerShot(false);
        SetForbidPlayerSpell(false);
        SetPlayerInvincibilityFrame(120);
        SetPlayerSpell(2);
        ObjRender_SetAlpha(playerObj,255);
    }
}
@MainLoop
{
    if(GetVirtualKeyState(VK_SLOWMOVE) == KEY_PUSH || GetVirtualKeyState(VK_SLOWMOVE) == KEY_HOLD)
    {
        isFocus = true;
    }
    if(GetVirtualKeyState(VK_SLOWMOVE) == KEY_PUSH || GetVirtualKeyState(VK_SLOWMOVE) == KEY_HOLD)
    {
        isFocus = false;
    }
    if(IsPermitPlayerShot)
    {
        if(GetVirtualKeyState(VK_SHOT) == KEY_PUSH || GetVirtualKeyState(VK_SHOT) == KEY_HOLD)
        {
            count++;
            if(count >= 5)
            {
                count = 0;
            }
        }
        if(GetVirtualKeyState(VK_SHOT) == KEY_PULL)
        {
            count = -1;
        }
        if(isFocus)
        {
            if(count > 5)
            {
                CreatePlayerShotA1(GetPlayerX,GetPlayerY-20,15,270,0.5,1,1);
            }
        }
        else
        {
            if(count > 5)
            {
                CreatePlayerShotA1(GetPlayerX,GetPlayerY-20,7.5,270,0.5,1,1);
            }
        }
    }
    yield;
}
task TRenderPlayer
{
    ObjPrim_SetTexture(playerObj, reimuSprite);
    Obj_SetRenderPriority(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,63,63);
    ObjSprite2D_SetDestCenter(playerObj);
    ObjRender_SetPosition(playerObj,GetPlayerX,GetPlayerY,0);
    while(!Obj_IsDeleted(playerObj))
    {
        ObjRender_SetPosition(playerObj,getPlayerX,getPlayerY,0);
        if(GetVirtualKeyState(VK_LEFT) == KEY_PUSH || GetVirtualKeyState(VK_LEFT) == KEY_HOLD)
        {
            ObjRender_SetAngleY(playerObj,0);
            ObjSprite2D_SetSourceRect(playerObj,0,0,63,63);
        }
        else if(GetVirtualKeyState(VK_RIGHT) == KEY_PUSH || GetVirtualKeyState(VK_RIGHT) == KEY_HOLD)
        {
            ObjRender_SetAngleY(playerObj,180);
            ObjSprite2D_SetSourceRect(playerObj,0,0,63,63);
        }
        else
        {
            ObjSprite2D_SetSourceRect(playerObj,0,0,63,63);
        }
        yield;
    }
}