#e[Player]	//@XNvgł邱Ƃ܂
#ScriptVersion[2]	//XNvgo[W2K{ł
#Menu[얲]	//@Iʂŕ\郁j[ł
#Text[Vbg^Cv
Ú͈@L
ړx@x]
#ReplayName[reimu]	//vCIɕ\镶łB8ȓłB

script_player_main
{
	let current = GetCurrentScriptDirectory();//JgfBNg擾
	let imgplayer = current~"reimu.png";
	let system = current~"system.png";
	let imgRumiaCutIn = current~"RumiaCutIn.png";
	let senshot = current~"nshot.wav";
	let sesshot = current~"sshot.wav";
	let sekakusei = current~"kakusei.wav";
	let sezessi = current~"zessi.wav";
	let shotCount = 1;//eAŔ˂邽߂̕ϐ
	let bNextShot = false;//񉟂łeA˂邽߂̕ϐ(Â炢)
	let objShot = NULL;//Ue
        let grad = 0;
        let atk = 1;
        let time = 0;
      let kakusei = false;
      let zessi = 0;
      let kirikae = 0;
      let gensyo = 0;
      SetCommonData("kakusei",0);

      let yudo = false;
      let yudox = 0;
      let yudoy = 0;

      let option = 0;
      let teisoku = false;
      let shotnum = 0;
      let auranum = 0;


	task miss{
           SetPlayerInvincibility(180);
        }
        task sshot1(let x,let y,let gr){
	   let objShot= Obj_Create(OBJ_SHOT);
	   Obj_SetX(objShot, GetPlayerX+x);
	   Obj_SetY(objShot, y);
           ObjShot_SetGraphic(objShot, gr);
	   ObjShot_SetDamage(objShot, 2.1);    
	   ObjShot_SetPenetration(objShot, 2);
	   Obj_SetAngle(objShot, 270);
	   Obj_SetSpeed(objShot,15);
	   while( !Obj_BeDeleted(objShot) && teisoku==true && kakusei==true && bNextShot == true){
		Obj_SetX(objShot,GetPlayerX+x);
		yield;
	   }
	   Obj_Delete(objShot);
	}
        task sshot2(let x,let y,let gr){
	   let objShot= Obj_Create(OBJ_SHOT);
	   Obj_SetX(objShot, GetPlayerX+x);
	   Obj_SetY(objShot, y);
           ObjShot_SetGraphic(objShot, gr);
	   ObjShot_SetDamage(objShot, 2.1);    
	   ObjShot_SetPenetration(objShot, 2);
	   Obj_SetAngle(objShot, 270);
	   Obj_SetSpeed(objShot,15);
	   while( !Obj_BeDeleted(objShot) && teisoku==true && kakusei==false && bNextShot == true){
		Obj_SetX(objShot,GetPlayerX+x);
		yield;
	   }
	   Obj_Delete(objShot);
	}
        task nshot(let x,let y,let ang,let gr){
           shotnum+=1;
	   let objShot= Obj_Create(OBJ_SHOT);
	   Obj_SetX(objShot, GetPlayerX+x);
	   Obj_SetY(objShot, y);
           ObjShot_SetGraphic(objShot, gr);
	   ObjShot_SetDamage(objShot, 1.2);    
	   ObjShot_SetPenetration(objShot, 2);
	   Obj_SetAngle(objShot, ang);
	   Obj_SetSpeed(objShot,15);
	   while( !Obj_BeDeleted(objShot) ){
		yield;
	   }
	   Obj_Delete(objShot);
           shotnum-=1;
	}

        task yudomain(let x,let y,let ang,let gr){
	   let objShot= Obj_Create(OBJ_SHOT);
	   Obj_SetX(objShot, GetPlayerX+x);
	   Obj_SetY(objShot, y);
           ObjShot_SetGraphic(objShot, gr);
	   ObjShot_SetDamage(objShot, 1.2);    
	   ObjShot_SetPenetration(objShot, 4);
	   Obj_SetAngle(objShot, ang);
	   Obj_SetSpeed(objShot,15);
           let x = 0;
           let y = 0;
	   while( !Obj_BeDeleted(objShot) ){
                x = Obj_GetX(objShot);
                y = Obj_GetY(objShot);
		yield;
	   }
           if(y>0){
              yudo=true;
              yudox=x;
              yudoy=y-20;
           }
           else{yudo=false;}
	   Obj_Delete(objShot);
	}

        task yudosub(let x,let y,let ang,let gr){
           shotnum+=1;
	   let objShot= Obj_Create(OBJ_SHOT);
	   Obj_SetX(objShot, GetPlayerX+x);
	   Obj_SetY(objShot, y);
           ObjShot_SetGraphic(objShot, gr);
	   ObjShot_SetDamage(objShot, 1.2);    
	   ObjShot_SetPenetration(objShot, 2);
	   Obj_SetAngle(objShot, ang);
	   Obj_SetSpeed(objShot,15);
           /*let r=0;
	   while( !Obj_BeDeleted(objShot) && r<4){
                r++;
		yield;
	   }*/
	   while( !Obj_BeDeleted(objShot) ){
                if(yudo==true&&Obj_GetY(objShot)>yudoy){
                   let a=Obj_GetAngle(objShot);
                   let b=atan2( yudoy-Obj_GetY(objShot), yudox-Obj_GetX(objShot));
                   if(b<90){b+=360;}
	           /*if(a<b){Obj_SetAngle(objShot, a+9);}
	           if(a>b){Obj_SetAngle(objShot, a-9);}*/
                   Obj_SetAngle(objShot, a-(a-b)/10);
                }
		yield;
	   }
	   Obj_Delete(objShot);
           shotnum-=1;
	}
        task aura1(let x,let y,let ang,let gr){
           auranum+=1;
	   let objShot= Obj_Create(OBJ_SHOT);
	   Obj_SetX(objShot, GetPlayerX+x);
	   Obj_SetY(objShot, GetPlayerY+y);
           ObjShot_SetGraphic(objShot, gr);
	   ObjShot_SetDamage(objShot, 1);    
	   ObjShot_SetPenetration(objShot, 100000);
	   Obj_SetAngle(objShot, ang);
	   Obj_SetSpeed(objShot,0);
	   while( !Obj_BeDeleted(objShot) && teisoku==true && kakusei==false && bNextShot == true){
		Obj_SetX(objShot,GetPlayerX+x);
		Obj_SetY(objShot,GetPlayerY+y);
		yield;
	   }
	   Obj_Delete(objShot);
           auranum-=1;
	}
        task aura2(let x,let y,let ang,let gr){
           auranum+=1;
	   let objShot= Obj_Create(OBJ_SHOT);
	   Obj_SetX(objShot, GetPlayerX+x);
	   Obj_SetY(objShot, GetPlayerY+y);
           ObjShot_SetGraphic(objShot, gr);
	   ObjShot_SetDamage(objShot, 3);    
	   ObjShot_SetPenetration(objShot, 100000);
	   Obj_SetAngle(objShot, ang);
	   Obj_SetSpeed(objShot,0);
	   while( !Obj_BeDeleted(objShot) && kakusei==true && bNextShot == true){
		Obj_SetX(objShot,GetPlayerX+x);
		Obj_SetY(objShot,GetPlayerY+y);
		yield;
	   }
	   Obj_Delete(objShot);
           auranum-=1;
	}


	@Initialize
	{	
		//@̏Ɉ񂾂Ăяo镔ł
		SetPlayerLifeImage(imgplayer, 0, 0, 50, 50);//c@̉摜
		LoadGraphic(imgplayer);
		LoadGraphic(system);
		SetSpeed(3.7, 1.8);//ړxݒ
		LoadPlayerShotData(current~"ShotData.txt");
		SetItemCollectLine(120);//ACeCݒ
                SetInitialBombCount(3);
                SetGrazeCircle(0);
                SetRebirthFrame(0);
	}
	
	@MainLoop
	{	


      if(GetKeyState(VK_USER)==KEY_PUSH&&kakusei==true&&kirikae==0){
          SetCommonData("kakusei",0);
          SetCommonData("zessi",0);
          zessi=0;
          kakusei=false;
          AddPoint(-30);
          kirikae=10;
          PlaySE(sekakusei);
      }
      else if(GetKeyState(VK_USER)==KEY_PUSH&&kakusei==false&&kirikae==0&&GetCommonData("kakuseikinsi")==false){
         SetCommonData("kakusei",1);
         kakusei=true;
         kirikae=5;
         PlaySE(sekakusei);
      }
      if(kakusei==true){
         if(GetKeyState(VK_USER)==KEY_HOLD&&GetCommonData("zessi")==0){
            zessi++;
            if(zessi>10&&GetCommonData("ruikei")>0){SetCommonData("zessi",1);PlaySE(sezessi);}
         }
	 SetSpeed(7, 4);
         gensyo++;
         if(gensyo>=3){AddPoint(-1);gensyo=0;}
         if(GetCommonData("zessi")==1){
            SetCommonData("ruikei",GetCommonData("ruikei")-1);
            if(GetCommonData("ruikei")==0){SetCommonData("zessi",0)}
         }
      }
      else{
	 SetSpeed(4.5, 2.2);
      }

      if(kakusei==true&&GetPoint>0){Slow(1);}
      else{Slow(0);SetCommonData("zessi",0)}

      if(GetPoint>500){AddPoint(500-GetPoint)}
      if(kirikae>0){kirikae-=1;}

      if(GetKeyState(VK_SLOWMOVE)==KEY_PUSH || GetKeyState(VK_SLOWMOVE)==KEY_HOLD){
         teisoku=true;
         if(option<10){option+=1;}
      }
      else{
         teisoku=false;
         if(option>0){option-=1;}
      }

		//t[s镔ł
		if(teisoku==true)
		{	//ᑬړ̎e
			if(shotCount == 0)
			{
                           if(kakusei==true&&option==10){
                                if(auranum<1){
                                   aura2(0, 0,270,10);
                                }
                                sshot1(+22, GetPlayerY()-23,8);
                                sshot1(-22, GetPlayerY()-23,8);
                                PlaySE(sesshot);
                           }
                           else if(option==10){
                                if(auranum<2){
                                   aura1(+22, -13,270,9);
                                   aura1(-22, -13,270,9);
                                }
                                sshot2(+22, GetPlayerY()-23,7);
                                sshot2(0, GetPlayerY()-20,7);
                                sshot2(-22, GetPlayerY()-23,7);
                                PlaySE(sesshot);
                           }
                           shotCount=3;
			}
		}
		
			//ړ̎e
			if(shotCount == 0)
			{
                           if(kakusei==true&&option<7){
                                if(auranum<1){
                                   aura2(0, 0,270,10);
                                }

                                yudomain(0, GetPlayerY()-20,270,6);
                                if(shotnum<=48){
                                yudosub(-30+option*0.8, GetPlayerY()-option*1,235,6);
                                yudosub(-30+option*0.8, GetPlayerY()-option*1,245,6);
                                yudosub(-16, GetPlayerY()-10,250,6);
                                yudosub(-8, GetPlayerY()-15,260,6);
                                yudosub(+8, GetPlayerY()-15,280,6);
                                yudosub(+16, GetPlayerY()-10,290,6);
                                yudosub(+30-option*0.8, GetPlayerY()-option*1,295,6);
                                yudosub(+30-option*0.8, GetPlayerY()-option*1,305,6);
                                PlaySE("sePlayerShot01.wav");
                                }
                           }
                           if(kakusei==false&&shotnum<=25&&option<7){
                                nshot(-30+option*0.8, GetPlayerY()-option*1,253,5);
                                nshot(-10, GetPlayerY()-10,260,5);
                                nshot(-0, GetPlayerY()-15,270,5);
                                nshot(+10, GetPlayerY()-10,280,5);
                                nshot(+30-option*0.8, GetPlayerY()-option*1,287,5);
                                PlaySE("sePlayerShot01.wav");
                           }
                           shotCount=3;
			}		

		if(GetKeyState(VK_SHOT)==KEY_PUSH || GetKeyState(VK_SHOT)==KEY_HOLD)
		{
			if(shotCount > 0){shotCount-=1;}
			bNextShot = true;
		}
                else{bNextShot = false;}
		
                if(OnMissed && GetPlayerBomb>0){CallSpellCard;}

		SetIntersectionCircle(GetPlayerX, GetPlayerY, 0);//蔻o^	
		yield;time++;
	}
	@Missed
	{
            if(GetPlayerBomb>0&&GetCommonData("autobomb")==true){
            	if(kakusei==false && GetPlayerBomb>1){
            		AddBomb(-1);
            	}
               CallSpellCard;
            }
            else{
            bNextShot = false;
            if(kakusei==true){
                kakusei=false;
                SetCommonData("kakusei",0);
                Slow(0);
	        SetSpeed(4.5, 2.2);
            }
            AddPoint(-GetPoint);
            AddPoint(250);
            kirikae=10;
            SetPlayerInvincibility(180);
            }
	    yield;
        }

	@SpellCard
	{
		//XyJ[h𔭓uԂɌĂ΂镔ł
		//GetKeyStateňړԂ𔻒f肵
		//ĂяoXyIт܂	
                if(OnMissed==true){UseSpellCard("Demarcation", 50);}
                else{UseSpellCard("Demarcation", 130);}
		
	}
	
	@DrawLoop
	{
		//`惋[vBXLbvȂ1t[1s܂

		if(GetCommonData("zessi")==0){SetColor(255, 255, 255);}
		else{SetColor(255, 155, 155);}
		SetRenderState(ALPHA);
		SetTexture(imgplayer);
		if(GetKeyState(VK_LEFT)==KEY_PUSH || GetKeyState(VK_LEFT)==KEY_HOLD)
		{
		   SetGraphicRect(0, 48, 48, 96);
		}
		else if(GetKeyState(VK_RIGHT)==KEY_PUSH || GetKeyState(VK_RIGHT)==KEY_HOLD)
		{
		   SetGraphicRect(0, 96, 48, 144);
		}
                else{
		   SetGraphicRect(0, 0, 48, 48);
                }
                SetGraphicAngle(0,0,0);
		DrawGraphic(GetPlayerX(), GetPlayerY());
		SetColor(255, 255, 255);
	
		SetGraphicRect(0, 160, 20, 180);
                SetGraphicAngle(0,0,-time*4);
		DrawGraphic(GetPlayerX()+30-option*0.8, GetPlayerY()-option*1);	
                SetGraphicAngle(0,0,time*4);
		DrawGraphic(GetPlayerX()-30+option*0.8, GetPlayerY()-option*1);	


           if(GetCommonData("kakusei")>0){
              SetTexture( system );
              SetGraphicAngle(0,0,0);
              let a=GetPoint/10;
              SetGraphicRect( 0, 48, 50, 64 );
              DrawGraphic( GetPlayerX, GetPlayerY+20 );
              SetGraphicRect( 0, 64, a, 80 );
              DrawGraphic( GetPlayerX+a/2-25, GetPlayerY+20 );
           }
	}
	
	@Finalize
	{
		//XNvgIɈ񂾂Ăяo镔ł
		DeleteGraphic(imgplayer);
	}
}

script_spell Demarcation
{
	//ᑬړ́AG̍Wɒɏo
	//ړ́A@̎͂ɏo
	let koukazikan = GetArgument();
	let current = GetCurrentScriptDirectory();
	let imgEffect = current~"Spell.png";
	let sebomb = current~"bomb.wav";

	@Initialize
	{
		LoadGraphic(imgEffect);
		SetPlayerInvincibility(koukazikan+10);//GԂݒ
                PlaySE(sebomb);
		run();
	}
	@MainLoop
	{
		yield;
	}
	@Finalize
	{
		DeleteGraphic(imgEffect);
	}
	task run()
	{
		effect(0);
		effect(1);
		loop(koukazikan){;yield;}
		End();
	}

	task effect(num)
	{	//GtFNgp^XN
		let tv=0;
		let angle=0;
		let alpha=0;	
		task alphaState
		{	//lύX邽߂̃^XN
			alpha=0;
			loop(256/3){alpha+=3; yield;}
			loop(90){yield;}
			loop{alpha-=8; yield;}
		}
		task lineEffect
		{
			loop(120){concentrationLine();loop(1){yield;}}
		}
		alphaState;
		
		let obj = Obj_Create(OBJ_SPELL);//XyIuWFNg쐬
		ObjEffect_SetTexture(obj, imgEffect);//eNX`ݒ
		ObjEffect_SetRenderState(obj, ADD);//`@ݒ
		ObjEffect_SetPrimitiveType(obj, PRIMITIVE_TRIANGLESTRIP);//v~eBu^Cvݒ
		ObjEffect_CreateVertex(obj, 10);//_10
		
		ascent(i in 0..5)
		{
			let angle = -45+i*90;
			let x;
			let y;
				//ړ͍L͈
				x = 512*cos(angle);
				y = 512*sin(angle);
			ObjEffect_SetVertexXY(obj, i*2, x, y);//_̍Wݒ
			ObjEffect_SetVertexXY(obj, i*2+1, 0, 0);
			ObjEffect_SetVertexColor(obj, i*2, 0, 255, 255, 255);//_J[ݒ
		}
		
		while(!Obj_BeDeleted(obj))
		{
			tv-=1;
			if(num == 0){angle+=1;}
			else if(num == 1){angle-=1;}
			ObjEffect_SetAngle(obj, 0, 0, angle);//`pxݒ
				Obj_SetPosition(obj, GetCenterX, GetCenterY);//Wݒ
				SetIntersectionCircle(GetCenterX, GetCenterY, 300, 1.2, true);//蔻o^
			ascent(i in 0..5)
			{
				ObjEffect_SetVertexUV(obj, i*2,   16*i,tv);//eNX`̍Wݒ
				ObjEffect_SetVertexUV(obj, i*2+1 ,32,  64+tv);
				
				ObjEffect_SetVertexUV(obj, i*2,   16*i, tv);	
				ObjEffect_SetVertexUV(obj, i*2+1, 32,   64+tv);
				
				ObjEffect_SetVertexColor(obj, i*2+1, alpha, 255, 255, 255);		
			}
			yield;
		}
		
	}
	
	task concentrationLine()
	{	//W܂銴̃GtFNg
		let angle=rand(0, 360);
		let alpha=0;	
		let scale=3;
		
		let obj = Obj_Create(OBJ_SPELL);//XyIuWFNg쐬
		ObjEffect_SetTexture(obj, imgEffect);//eNX`ݒ
		ObjEffect_SetRenderState(obj, ADD);//`@ݒ
		ObjEffect_SetPrimitiveType(obj, PRIMITIVE_TRIANGLELIST);//v~eBu^Cvݒ
		ObjEffect_CreateVertex(obj, 3);//_3
		ObjEffect_SetAngle(obj, 0, 0, angle);//`pxݒ
		
		//_Wݒ
		ObjEffect_SetVertexXY(obj, 0,  0,  10);
		ObjEffect_SetVertexXY(obj, 1, -10, 50);
		ObjEffect_SetVertexXY(obj, 2, 10,  50);
		
		//_UVlݒ
		ObjEffect_SetVertexXY(obj, 0, 10,  10);
		ObjEffect_SetVertexXY(obj, 1,  0,  50);
		ObjEffect_SetVertexXY(obj, 2, 20,  50);
		
		//Fݒ
		ObjEffect_SetVertexColor(obj, 0, alpha, 255, 0, 255);
		ObjEffect_SetVertexColor(obj, 1, 0, 255, 0, 255);
		ObjEffect_SetVertexColor(obj, 2, 0, 255, 0, 255);
		
		loop(60)
		{
			scale-=3/60;
			alpha+=5;
			ObjEffect_SetVertexColor(obj, 0, alpha, 255, 0, 255);
			ObjEffect_SetScale(obj, scale, scale*3);	
			Obj_SetPosition(obj, GetEnemyX, GetEnemyY);	
			yield;	
		}
		Obj_Delete(obj);
	}


}
