//BombOdj

script_spell Bomber{//
	let Cut = GetCurrentScriptDirectory;
	let nx =226;
	let ny =226;
	let Img = GetArgument[0];
	let SE = GetArgument[1];
	#include_function".\PlayerCore.txt"
	
	@Initialize{
		LoadGraphic(Img);LoadSE(SE);
		SetPlayerInvincibility(120);//2Sec
		tTime;
	}
	@MainLoop{yield;}
	@Finalize{
		DeleteGraphic(Img);
		DeleteSE(SE);
	}
	task tTime{
		BombAct;
		loop(60*2){yield;}
		End;
	}	
	task BombAct{
		let SpellObj=Obj_Create(OBJ_SPELL);
		Obj_SetPosition(SpellObj,GetPlayerX,GetPlayerY-50);
		ObjEffect_SetScale(SpellObj,2,2);
		let r =0;
		
		ascent(i in 0..24){
			alternative(i)
			case(2){BombImg(0,0,1,1,0);}
			case(4){BombImg(1,0,2,1,0);}
			case(6){BombImg(2,0,3,1,0);}
			case(8){BombImg(3,0,4,1,0);PlaySE(SE);}
			
			case(9){BombImg(0,1,1,2,200);}
			case(10){BombImg(1,1,2,2,200);}
			
			case(11,13){BombImg(2,1,3,2,200);}
			case(12,14){BombImg(3,1,4,2,200);}
			
			case(15,17,19){BombImg(0,2,1,3,224);}
			case(16,18,20){BombImg(1,2,2,3,224);}
			
			case(21,23){BombImg(2,2,3,3,224);}
			case(22,24){BombImg(3,2,4,3,224);}

			if(i>8){
				r+=30;
			}
			loop(5){yield;}
		}
		task BombImg(a,b,c,d,Circle){
			loop(120){
				EffectTask(SpellObj,Img,5,r,x[a],y[b],x[c],y[d]);
			}
			ObjSpell_SetIntersecrionCircle(SpellObj,Obj_GetX(SpellObj),Obj_GetY(SpellObj),Circle,75,true);
			yield;
		}
	}
}