#TouhouDanmakufu[Single]
#ScriptVersion[3]
#Title["Test System Contest or not NONSPELL BOTH 1"]
#Text["???"]

// Example, definitely required for cut-in.
let Cutin = GetCurrentScriptDirectory ~ "img/flan_cutin.png";
let imgBoss = GetCurrentScriptDirectory ~ "img/koishisprite.png";
let objBoss;
let objEnemy;
let objScene=GetEnemyBossSceneObjectID();
let size = 0.8;
let type = true;
let obj = 1;
let bSpell = false;
let l = 1024;
let w = 40;
let dt = 1000;
let graph = 41;
let delay = 10;

#include "./System !/Default_Effect.txt"
#include "./System !/Shot/AllStarShot_Const.txt"
#include "./Cutin.txt"
#include "./SoundFunctions.txt"
#include "./draw_koishi.txt"
#include "./img/draw_flan2.txt"

@Initialize{
	objBoss = ObjEnemy_Create(OBJ_ENEMY_BOSS);
	objEnemy = ObjEnemy_Create(OBJ_ENEMY);
    ObjEnemy_Regist(objBoss);
	ObjEnemy_Regist(objEnemy);
    ObjMove_SetDestAtFrame(objBoss, GetCenterX, 100, 100);
	ObjMove_SetDestAtFrame(objEnemy, GetCenterX, 60, 100);
    TFinalize;
	MainTask;
	RenderBG;
	DrawName;
    TDrawLoop;
	TDrawLoop2;
	Move;
}

@Event {
	   alternative(GetEventType())
    case(EV_REQUEST_LIFE){
        SetScriptResult(6000);
    }
    case(EV_REQUEST_TIMER){
        SetScriptResult(150);
    }
    case(EV_REQUEST_SPELL_SCORE){
        SetScriptResult(1000000);
    }
}

@MainLoop {
    ObjEnemy_SetIntersectionCircleToShot(objBoss, ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 32);
    ObjEnemy_SetIntersectionCircleToPlayer(objBoss, ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 24);
	ObjEnemy_SetIntersectionCircleToShot(objEnemy, ObjMove_GetX(objEnemy), ObjMove_GetY(objEnemy), 32);
    ObjEnemy_SetIntersectionCircleToPlayer(objEnemy, ObjMove_GetX(objEnemy), ObjMove_GetY(objEnemy), 24);
	let objScene = GetEnemyBossSceneObjectID();
	if(objScene != ID_INVALID && ObjEnemyBossScene_GetInfo(objScene, INFO_IS_SPELL))
	{
		bSpell = false;
	}
	else
	{
		bSpell = false;
	}
	yield;
}

task MainTask{
    wait(120);
    ObjMove_SetDestAtFrame(objBoss, GetCenterX, 20, 60);
	ObjMove_SetDestAtFrame(objEnemy, GetCenterX, 150, 90);
	magiccircle(objBoss,size,type);
	magiccircle2(objEnemy,size,type);
	fireKoishi;
	fireFlandre;
}

task fireKoishi{
 while(ObjEnemy_GetInfo(objBoss, INFO_LIFE) > 0) {
 let angle = rand(0,360);
 let frame = -180;
 let frame2 = -180;
		wait(40);
			PlaySound("Shot7",100,0);
			loop(12) {
				ascent(i in 0 .. 6) {
					CreateShotA2(ObjMove_GetX(objBoss), ObjMove_GetY(objBoss), 8+0.075*i, angle+3*frame2+2.7*i+1, -0.2+0.01*i, 1.85+0.2*i, 236, 6*i);
				}
				angle += 360/12;
				}
	}
}

task fireFlandre{
 while(ObjEnemy_GetInfo(objEnemy, INFO_LIFE) > 0) {
 let angleT = rand(0,360);
 let frame3 = -180;
 let frame4 = -180;
		wait(40);
			PlaySound("Shot7",100,0);
			loop(12) {
				ascent(i in 0 .. 6) {
					CreateShotA2(ObjMove_GetX(objEnemy), ObjMove_GetY(objEnemy), 8+0.075*i, angleT+3*frame4+2.7*i+1, -0.2+0.01*i, 1.85+0.2*i, 236, 6*i);
				}
				angleT += 360/12;
				}
	}
}

task Move{
      while(ObjEnemy_GetInfo(objBoss, INFO_LIFE) > 0){
            ObjMove_SetDestAtFrame(objBoss, rand(GetCenterX() + 90, GetCenterX() - 90), rand(GetCenterY() - 90, GetCenterY() - 90), 80);
            wait(300);
        }
	   while(ObjEnemy_GetInfo(objEnemy, INFO_LIFE) > 0){
            ObjMove_SetDestAtFrame(objEnemy, rand(GetCenterX() + 90, GetCenterX() - 90), rand(GetCenterY() - 90, GetCenterY() - 90), 80);
            wait(300);
        }
}

task DrawName{
	let objText = ObjText_Create();
	let alpha = 255;
	ObjText_SetText(objText, "Koishi & Flandre");
	ObjText_SetFontSize(objText, 12);
	ObjText_SetFontColorTop(objText, 255, 255, 255);
	ObjText_SetFontColorBottom(objText, 0, 255, 128);
	ObjText_SetFontBorderType(objText, BORDER_SHADOW);
	ObjText_SetFontBorderColor(objText,0, 128, 128);
	ObjText_SetFontBorderWidth(objText, 2);
	ObjRender_SetPosition(objText,0,12,0);
	while(!Obj_IsDeleted(objText)){
	if(GetPlayerY>80 && alpha<255){alpha+=10;}
	if(GetPlayerY<=80 && alpha>100){alpha-=10;}
	ObjRender_SetAlpha(objText,alpha);
	yield;
	}
	}

task RenderBG{
    let path1 = GetCurrentScriptDirectory() ~ "img/PlaceSnow.png";
    let obj1 = ObjPrim_Create(OBJ_SPRITE_2D);
    ObjRender_SetBlendType(obj1, BLEND_ALPHA);
    Obj_SetRenderPriority(obj1, 0.20);
    ObjPrim_SetTexture(obj1, path1);
    ObjSprite2D_SetSourceRect(obj1, 0, 0, 384, 448);
    ObjSprite2D_SetDestRect(obj1, -256, -256, 256, 256);
    ObjRender_SetPosition(obj1, 384/2, 448/2, 1);
    let frame = 0;
    let alpha = 0;
        frame++;
        yield;

}

task magiccircle(objBoss,size,type){
	let obj=ObjPrim_Create(OBJ_SPRITE_2D);
	let GCSD = GetCurrentScriptDirectory;
	let img=GCSD~"img/MG (3).png";
	let spin = 0;
	let s = 0;
	LoadTexture(img);
	ObjPrim_SetTexture(obj,img);
	ObjSprite2D_SetSourceRect(obj,0,0,256,256);
	ObjSprite2D_SetDestCenter(obj);
	ObjRender_SetScaleXYZ(obj,size,size,size);
	ObjRender_SetAlpha(obj,230);
	Obj_SetRenderPriority(obj,0.35);
	while(!Obj_IsDeleted(objBoss)){
	spin += 3;
	ObjRender_SetAngleXYZ(obj,0,0,-spin*1.5);
	ObjRender_SetPosition(obj,ObjMove_GetX(objBoss),ObjMove_GetY(objBoss),0);
	if(type==true){
	ObjRender_SetScaleXYZ(obj,size+0.08*sin(spin),size+0.08*sin(spin),0);
	}
	ObjMove_SetPosition(obj,ObjMove_GetX(objBoss), ObjMove_GetY(objBoss));
	yield;
	}
	Obj_Delete(obj);
}

task magiccircle2(objEnemy,size,type){
	let obj=ObjPrim_Create(OBJ_SPRITE_2D);
	let GCSD = GetCurrentScriptDirectory;
	let img=GCSD~"img/MG (3).png";
	let spin = 0;
	let s = 0;
	LoadTexture(img);
	ObjPrim_SetTexture(obj,img);
	ObjSprite2D_SetSourceRect(obj,0,0,256,256);
	ObjSprite2D_SetDestCenter(obj);
	ObjRender_SetScaleXYZ(obj,size,size,size);
	ObjRender_SetAlpha(obj,230);
	Obj_SetRenderPriority(obj,0.35);
	while(!Obj_IsDeleted(objEnemy)){
	spin += 3;
	ObjRender_SetAngleXYZ(obj,0,0,-spin*1.5);
	ObjRender_SetPosition(obj,ObjMove_GetX(objEnemy),ObjMove_GetY(objEnemy),0);
	if(type==true){
	ObjRender_SetScaleXYZ(obj,size+0.08*sin(spin),size+0.08*sin(spin),0);
	}
	ObjMove_SetPosition(obj,ObjMove_GetX(objEnemy), ObjMove_GetY(objEnemy));
	yield;
	}
	Obj_Delete(obj);
}

task TFinalize{
	while(ObjEnemy_GetInfo(objBoss, INFO_LIFE) > 0){yield;}
	while(ObjEnemy_GetInfo(objEnemy, INFO_LIFE) > 0){yield;}
    Obj_Delete(objBoss);
	Obj_Delete(objEnemy);
    DeleteShotAll(TYPE_ALL,TYPE_IMMEDIATE);
    SetAutoDeleteObject(true);
    CloseScript(GetOwnScriptID());
    return;
}

function GetCenterX(){
     return GetStgFrameWidth() / 2;
 }

function GetCenterY(){
     return GetStgFrameWidth() / 2;
 }

function wait(n){
    loop(n){yield;}
}