Hell "-Edge of the fire blade-"

#TouhouDanmakufu
#Title[Hell "- Edge of the fire blade -"]
#Text[Not everyone can see...]
#Player[FREE]
#ScriptVersion[2]
#BGM[bgm\Touhou Soccer   Mima's Theme.mp3]

script_enemy_main{

	let CSD = GetCurrentScriptDirectory;

	let imgBoss = CSD ~ "system\Kora.png";
	let cut = CSD ~ "system\Koracut.png";
	let bg = CSD ~ "system\Temple.png";

	@Initialize{
		SetLife(5000);
		SetTimer(100);
		SetScore(100000);
		SetMovePosition01(GetCenterX,GetCenterY,5);
		LoadGraphic(imgBoss);
		LoadGraphic(cut);
		LoadGraphic(bg);

		CutIn(YOUMU,"Hell - Edge of the fire blade -",cut,0,0,300,384);

		mainTask;
	}

	@MainLoop{
		SetCollisionA(GetX,GetY,32);
		SetCollisionB(GetX,GetY,16);
		yield;
	}

	@DrawLoop{

		// data for the boss
		SetTexture(imgBoss);
		SetRenderState(ALPHA);
		SetAlpha(225);
		SetGraphicRect(0,0,110,110);
		SetGraphicScale(0.5,0.5);
		SetGraphicAngle(0,0,0);
		DrawGraphic(GetX,GetY);

	}

	@BackGround{
		SetTexture(bg);
		SetRenderState(ALPHA);
		SetAlpha(225);
		SetGraphicRect(0,0,512,512);
		SetGraphicScale(1,1);
		SetGraphicAngle(0,0,0);
		DrawGraphic(GetCenterX,GetCenterY);

	}

	@Finalize{
		// delete the image from memory
		DeleteGraphic(imgBoss);
		DeleteGraphic(cut);
		DeleteGraphic(bg);

	}

	task mainTask{
		wait(60);
		yield;
		fire;
		fire2;
		fire3;
	}


	task fire{
		let x = 0;
		let dir = 0;

		loop{
			while(x<36){
				CreateShotA(1,GetEnemyX+50*cos(dir),GetEnemyY+50*sin(dir),30);
				SetShotDataA(1,0,0,dir,0,0,0,RED32);
				SetShotDataA(1,60,2,dir,0.6,0,2,RED32);

				FireShot(1);

				dir+=360/36;
				x++;
			}
			x = 0;
			dir = 0;
			wait(60);

			yield;
		}
	}

	task fire2{
		let x = 0;
		let dir = 0;

		loop{
			while(x<36){
				CreateShotA(2,GetEnemyX-100*cos(dir),GetEnemyY-100*sin(dir),30);
				SetShotDataA(2,0,0,dir,0,0,0,RED32);
				SetShotDataA(2,60,2,dir,0.6,0,2,RED32);

				FireShot(2);

				dir+=360/18;
				x++;
			}
			x = 0;
			dir = 0;
			wait(45);

			yield;
		}
	}

	task fire3{

		loop{
			CreateLaser01(GetEnemyX,GetEnemyY,5,GetAngleToPlayer,300,20,RED01,0);
			CreateLaser01(GetEnemyX,GetEnemyY,5,GetAngleToPlayer-90,300,20,RED01,0);
			CreateLaser01(GetEnemyX,GetEnemyY,5,GetAngleToPlayer+90,300,20,RED01,0);
			CreateLaser01(GetEnemyX,GetEnemyY,5,GetAngleToPlayer+180,300,20,RED01,0);
				yield;
		}
	}

	// wait function
	function wait(w){
		loop(w){yield;}
	}




}