#e[Player]	//@XNvgł邱Ƃ܂
#ScriptVersion[2]	//XNvgo[W2K{ł
#Menu[pXB]		//@Iʂŕ\郁j[ł
#Text[pXB
@@WFV[{o[
@@O[AChX^[

@@ԍuV̊Dv
@@ݔO@uωԂv
@@]	//@Iʂŕ\eLXgł
#Image[.\img\Select_Player666.png]	//@Iʂŕ\摜t@Cւ̃pXł
#ReplayName[Parsee]	//vCIɕ\镶łB8ȓłB

script_player_main {
	#include_function".\txt\OptionMove.txt"
	#include_function".\txt\ShotTask.txt"
	#include_function".\txt\LocalData.txt"
    let PCenterX=GetPlayerX;
    let PCenterY=GetPlayerY;
    let StarX=[PCenterX-24,PCenterX+24];
    let StarY=[PCenterY,PCenterY];
    let FireFlag=true;
    let envyType = 0;
    let nights = 0;
    let eyelid = 0;
    let misscount = 0;


    @Initialize {
        ascent(n in 0..length(Graphics)){LoadGraphic(Graphics[n]);}
        ascent(n in 0..length(SE)){LoadSE(SE[n]);}
        LoadPlayerShotData(ShotData);
	SetRibirthFrame(10);
	SetGrazeCircle(40);
        SetPlayerLifeImage(Graphics[0], 52, 18, 95, 44);
        SetItemCollectLine(175);
	SetSpeed(4.0, 1.6);
	PCenterX=GetPlayerX;
    	PCenterY=GetPlayerY;

        TMain;
    }

    @MainLoop {
	if(OnBomb){CollectItems;}
	if(PCenterX>GetPlayerX+0.7){
		if(PCenterX-GetPlayerX>10){PCenterX=GetPlayerX+10;}
		PCenterX-=1;
		}
	else if(PCenterX<GetPlayerX-0.7){
		if(PCenterX-GetPlayerX<-10){PCenterX=GetPlayerX-10;}
		PCenterX+=1;
		}
	else{PCenterX=GetPlayerX;}
	if(PCenterY>GetPlayerY+0.7){
		if(PCenterY-GetPlayerY>10){PCenterY=GetPlayerY+10;}
		PCenterY-=1;
		}
	else if(PCenterY<GetPlayerY-0.7){
		if(PCenterY-GetPlayerY<-10){PCenterY=GetPlayerY-10;}
		PCenterY+=1;
		}
	else{PCenterY=GetPlayerY;}
        SetIntersectionCircle(GetPlayerX, GetPlayerY, 0);
        yield;
    }

    @Missed{MainLoop}

    @SpellCard {
	if(!bSlow){
		UseSpellCard("Satelites", [Graphics[2]]);
                CutIn(YOUMU, "ԍuV̊Dv", Graphics[1]);
		}
	else{
		if(nights>0 && !OnBorderOfLife){nights--;}
		UseSpellCard("VUDU", [nights]);
	//if(nights >= 7){
                CutIn(YOUMU, "iuN̍Q -Ŋ̔-v", Graphics[1]);
	//}else{
              //  CutIn(YOUMU, "ݔO@uωԂv", Graphics[1]);
	//}
		}
    	}

    @DrawLoop {
	SetTexture(Graphics[0]);
	SetGraphicAngle(0,0,0);
	SetAlpha(255);
	SetGraphicScale(1.0,1.0);
        if(bLeft){SetGraphicRect(1, 133, 49, 188);}
        else if(bRight) {SetGraphicRect(1, 69, 49, 124);}
        else {if(bShot){SetGraphicRect(1, 5, 49, 60);}
	else{SetGraphicRect(13,188,42,240);}}
        DrawGraphic(GetPlayerX, GetPlayerY);

	if(bSlow || OnBomb){
		if(eyelid < 5){eyelid++;}
	}
	else{
		if(eyelid>0){eyelid--;}
	}
	ascent(n in 0..2){
		SetGraphicRect(73,72+(33*eyelid),95,84+(33*eyelid));
		SetGraphicAngle(0,0,0);
		SetAlpha(255);
		SetGraphicScale(1.0,1.0);	
        	DrawGraphic(StarX[n], StarY[n]);
		}
	
    }

    @Finalize {
	nights = 0;
	ascent(n in 0..length(Graphics)){DeleteGraphic(Graphics[n]);}
        ascent(n in 0..length(SE)){DeleteSE(SE[n]);}
    }

    task TMain {
        yield;

        TKeyCheck;
	TOptionMove;

        TShot;
	TSubShot;
	TMiss
	
    }
   task TMiss{
	loop{
		if(GetMissCount-misscount != 0){
			if(nights<7){nights++;}
			misscount++;
		}
		yield;
	}
    }

   task TKeyCheck {
        let state;

        loop {
            state  = GetKeyState(VK_SHOT);
            bShot  = (state == KEY_PUSH || state == KEY_HOLD);
        
            state  = GetKeyState(VK_LEFT);
            bLeft  = (state == KEY_PUSH || state == KEY_HOLD);
	   
            state  = GetKeyState(VK_RIGHT);
            bRight = (state == KEY_PUSH || state == KEY_HOLD);
	   
            state  = GetKeyState(VK_SLOWMOVE);
            bSlow  = (state == KEY_PUSH || state == KEY_HOLD);

            state  = GetKeyState(VK_USER);
            bUser = (state == KEY_PUSH || state == KEY_HOLD);
            if(bUser == true && state != KEY_HOLD){
	envyType++;
	if(envyType > 1){
		envyType = 0;
	}
            }
	  
            yield;
        }
    }


		}
		}
	}

	#include_function".\txt\OptionMove.txt"
	#include_function".\txt\ShotTask.txt"
}

#include_script".\txt\spell1.txt"
#include_script".\txt\spell2.txt"
