script_shot I_Item
{//ACXACe
	let cx=GetCenterX();//STGV[̒SxW擾
	let cy=GetCenterY();//STGV[̒SyW擾
	let imgItem=GetCurrentScriptDirectory~"img\effect_tiny.png";
	let power33	=GetCurrentScriptDirectory~"\SE\power33.wav";
	let Large = GetArgument;	//0Ȃ珬^A1Ȃ^
	let D_angle=0;
	let speed=3;
	@Initialize
	{
		SetAngle(-90);
		SetBombResist;
                Tmain;
	}
	
	@MainLoop
	{
		yield;
	}

        task Tmain{
		Move;
		loop{
			if(GetX<=GetPlayerX+38&&
			   GetX>=GetPlayerX-38&&
			   GetY<=GetPlayerY+38&&
			   GetY>=GetPlayerY-38){
				GetMove(5);
				break;
			}
			if(GetPlayerY<=150){//㕔
				GetMove(12);
				break;
			}
			yield;
		}
        }
	task Move{//R
		loop{
             		if(GetY>GetClipMaxY+32){End;}
			if(speed>=-2){speed-=0.04;}
			SetSpeed(speed);
			yield;
		}
	}
	task GetMove(Mspeed){//ACez[V
		speed=-Mspeed;//ɎR~
		loop{
			SetAngle(GetAngleToPlayer+180);
			if(GetX<=GetPlayerX+18&&
			   GetX>=GetPlayerX-18&&
		 	   GetY<=GetPlayerY+18&&
			   GetY>=GetPlayerY-18){
				let Ice = GetCommonData("GetIce");
				let P_Ice = 0;
				PlaySE("seScore.wav");	//ʉ
				alternative(Large)
				case( 0){
					P_Ice =200;
				}
				case( 1){
					P_Ice =400;
				}
				SetCommonData("GetIce",Ice+P_Ice);
				End;
			}
			yield;
		}
	}

	@Finalize
	{

	}
	
	@DrawLoop
	{//`
		SetTexture(imgItem);
		SetGraphicRect(1,1,22,23);
		SetGraphicAngle(0,0,D_angle);
		alternative(Large)
		case( 0){SetGraphicScale(1.2,1.2);}
		case( 1){SetGraphicScale(1.8,1.8);}
		D_angle+=2;
		DrawGraphic(GetX(),GetY());
	}

}