#TouhouDanmakufu[Plural]
#Title["Rin Kaenbyou"]
#Text["Rin Kaenbyou By Lunarethic"]
#ScriptVersion[3]
#System["./lunar_system/Lunar_System.dnh"]

#include "./lunar_system/DrawFunctions.dnh"

let CSD = GetCurrentScriptDirectory;
let StageBGM = CSD ~ "bgm/stageBGM.ogg";
let BossBGM = CSD ~ "bgm/bossBGM.ogg";

@Initialize {
LoadSound(StageBGM);
LoadSound(BossBGM);
MusicManager;
SetCommonData("Difficulty","BossRush");
PlaySong(0);
SetPlayerLife(7);
StartScript(LoadScriptInThread(CSD ~ "img/BG_work.txt"));
	TStage;
}

@MainLoop {
	yield;
}

@Finalize {
}

task TStage {
	BossPluralStart;
}

function PlaySong(num){
SetCommonData("Music",num);
SetCommonData("Play",true);
}

task MusicManager{
let SObj = ObjSound_Create;
let musicpath = [StageBGM,BossBGM];
ObjSound_Load(SObj,musicpath[0]);
ObjSound_SetSoundDivision(SObj,SOUND_BGM);
ObjSound_Play(SObj);
loop{
if(GetCommonData("Music",0)==0&&GetCommonData("Play",false)){
ObjSound_Stop(SObj);
ObjSound_Load(SObj,musicpath[0]);
ObjSound_Play(SObj);
ObjSound_SetLoopEnable(SObj,true);
ObjSound_SetLoopTime(SObj,0,364);
SetCommonData("Play",false);
}
if(GetCommonData("Music",0)==1&&GetCommonData("Play",false)){
ObjSound_Stop(SObj);
ObjSound_Load(SObj,musicpath[1]);
ObjSound_Play(SObj);
ObjSound_SetVolumeRate(SObj,91);
ObjSound_SetLoopEnable(SObj,true);
ObjSound_SetLoopTime(SObj,15321,6632539);
SetCommonData("Play",false);
}
yield;
}
}

task BossPluralStart{
	let CSD = GetCurrentScriptDirectory;
	let obj = ObjEnemyBossScene_Create();
	ObjEnemyBossScene_Add(obj,0,CSD~"./scene/Rin_Dialogue.txt");
	ObjEnemyBossScene_Add(obj,0,CSD~"./scene/Rin_NonSpell1.txt");
	ObjEnemyBossScene_Add(obj,0,CSD~"./scene/Rin_Spell1.txt");
	ObjEnemyBossScene_Add(obj,1,CSD~"./scene/Rin_NonSpell2.txt");
	ObjEnemyBossScene_Add(obj,1,CSD~"./scene/Rin_Spell2.txt");
	ObjEnemyBossScene_Add(obj,2,CSD~"./scene/Rin_NonSpell3.txt");
	ObjEnemyBossScene_Add(obj,2,CSD~"./scene/Rin_Spell3.txt");
	ObjEnemyBossScene_Add(obj,3,CSD~"./scene/Rin_NonSpell4.txt");
	ObjEnemyBossScene_Add(obj,3,CSD~"./scene/Rin_Spell4.txt");
	ObjEnemyBossScene_Add(obj,4,CSD~"./scene/Rin_Spell5.txt");
ObjEnemyBossScene_LoadInThread(obj);
            ObjEnemyBossScene_Regist(obj);
            while(!Obj_IsDeleted(obj)){yield;}
            if(GetCommonData("LastWord", 0)==5){
loop(60){yield;}
LastWordStart;}
    }
task LastWordStart{
            let CSD = GetCurrentScriptDirectory;
            let obj = ObjEnemyBossScene_Create();
           ObjEnemyBossScene_Add(obj,5,CSD~"./scene/Rin_LastWord.txt");
            ObjEnemyBossScene_LoadInThread(obj);
            ObjEnemyBossScene_Regist(obj);
            while(!Obj_IsDeleted(obj)){yield;}
CloseScript(GetOwnScriptID());
    }