task Graze //OCYɊւ^XN
{
	let OldGraze=0;
	loop
	{
/*		let Graze=GetGraze-OldGraze;
		if(KekkaiOn==1)
		{
		if(Graze> 0)
		{
			loop(Graze)
			{
				Item;
			}
		}
		}
			OldGraze=GetGraze;
		if(Graze<0)
		{
			OldGraze=0;
		}
*/	AddGraze(-GetGraze);
	yield;
	}

}

task Item //ACeƋɊւ^XN
{
		let bx1=GetPlayerX;
		let by1=GetPlayerY;
		let scax=0.6;
		let scay=0.6;
		let r=0;
		let angle=rand(240,300);

		let obj = Obj_Create(OBJ_EFFECT);
		ObjEffect_SetTexture(obj, imgShot);
		ObjEffect_SetPrimitiveType(obj, PRIMITIVE_TRIANGLEFAN);
		ObjEffect_SetRenderState(obj, ADD); 
		ObjEffect_CreateVertex(obj, 4);
		ObjEffect_SetVertexXY(obj, 0, -8, -8);
		ObjEffect_SetVertexXY(obj, 1, 8,  -8);
		ObjEffect_SetVertexXY(obj, 2, 8, 8);
		ObjEffect_SetVertexXY(obj, 3,  -8,  8);
		
		ObjEffect_SetVertexUV(obj, 0,  62,  320);
		ObjEffect_SetVertexUV(obj, 1,  77, 320);
		ObjEffect_SetVertexUV(obj, 2, 77,  335);
		ObjEffect_SetVertexUV(obj, 3, 62, 335);

		ObjEffect_SetVertexColor(obj,0,150,200,255,200);
		ObjEffect_SetVertexColor(obj,1,150,200,255,200);
		ObjEffect_SetVertexColor(obj,2,150,200,255,200);
		ObjEffect_SetVertexColor(obj,3,150,200,255,200);
		
		ObjEffect_SetAngle(obj, 0,0,0);
		ObjEffect_SetScale(obj, scax,scay);
		Obj_SetPosition(obj,bx1,by1);

		loop(30)
		{
			Obj_SetPosition(obj,bx1+r*cos(angle),by1+r*sin(angle));
			r++;
			yield;
		}
		while(!Obj_BeDeleted(obj))
		{
			angle=atan2(GetPlayerY-Obj_GetY(obj),GetPlayerX-Obj_GetX(obj));
			Obj_SetAngle(obj,angle);
			Obj_SetSpeed(obj,7.5);
			Obj_SetPosition(obj,Obj_GetX(obj),Obj_GetY(obj));
			if((Obj_GetX(obj)<=GetPlayerX+5 && Obj_GetX(obj)>=GetPlayerX-5) && (Obj_GetY(obj)<=GetPlayerY+5 && Obj_GetY(obj)>=GetPlayerY-5))
			{
				Obj_Delete(obj);
				bonuspoint+=100;
				SetCommonData("BONUSPOINT",bonuspoint);
				PlaySE("seScore.wav");
			}
			yield;
		}
}

task GetBonusItem//Xe[WPACeACe
{
let ItemCheck=0;//ʃf[^̔z̒`FbNϐ
let XY=[];//ʃf[^̏ɃNbVu߂̕ϐ
let ItemPerFrame=5;//Pt[̍őACei΍j
loop
{
	ItemCheck=length(GetCommonDataDefault("BONUSITEM",[]));//t[ʃf[^̒`FbN
	if(ItemCheck>0)
	{//zɒgiACetOĂjꍇ̏
		loop(ItemPerFrame)
		{
			XY=GetCommonDataDefault("BONUSITEM",[]);//ʃf[^eϐɓn
			bonuspoint+=10;
			SetCommonData("BONUSPOINT",bonuspoint);
			loop(1)
			{
				XY=erase(XY, 0);
			}//̂ł̗vfz񂩂폜
			if(length(XY)==0)
			{//폜̔z񂪋ɂȂꍇ
				SetCommonData("BONUSITEM",[]);//ʃf[^ɂ
				break;//ACe[vEo
		
			}
			else
			{
				SetCommonData("BONUSITEM",XY);
			}//z񂪋łȂꍇʃf[^ɕύX̔zn
		}
	}
yield;
}
}