Comment Debug

#TouhouDanmakufu[Single]
#ScriptVersion[3]
#Title["Comment Debug"]
#Text["test1"]
#System["script/Lunatic_Home_Front_v0.2/LHF_System/Custom_System.txt"]

#include "script/default_system/Default_ShotConst.txt"
#include "script/default_system/Default_Effect.txt"
#include "script/Lunatic_Home_Front_v0.2/LHF_System/Function_Library/Custom_Functions.dnh"
#include "script/Lunatic_Home_Front_v0.2/LHF_System/Function_Library/LHF_Effect.dnh"

/*
Debugging Platform

Issue A3_M1_S1_2.dnh
*/


// Global Variables
let bossObj;
let bossImg;
let bossScene;
let bossRender = true;
let supportTrue = true;

@Event{
	alternative(GetEventType())
	case(EV_REQUEST_LIFE){
		SetScriptResult(3000);
	}
	case(EV_REQUEST_TIMER){
		SetScriptResult(90);
	}
}

@Initialize{
	// Initialize, register and render boss
	bossObj = ObjEnemy_Create(OBJ_ENEMY_BOSS);
	ObjEnemy_Regist(bossObj);
	RenderBoss;

  // Load Sound Effects
	LoadEffectSoundObjects();

	// Set boss destination coordinates for movement over 60 frames
	ObjMove_SetDestAtFrame(bossObj,GetCenterX(),70,60);
	ObjEnemy_SetDamageRate(bossObj,0,0);

	// Open Fire
	Attack;

	// Terminate script
	EndScript;
}

@MainLoop{
	// Set boss hitbox detection
	ObjEnemy_SetIntersectionCircleToShot(bossObj,ObjMove_GetX(bossObj),ObjMove_GetY(bossObj),32);
	ObjEnemy_SetIntersectionCircleToPlayer(bossObj,ObjMove_GetX(bossObj),ObjMove_GetY(bossObj),24);

	// Yield to allow other tasks to run
	yield;
}

task Attack{
  wait(70);
  LaserTask();
  //SupportTask();


  /*
  while(!Obj_IsDeleted(bossObj)){
    wait(240);
    OldLaserTask();
	}*/
}

task LaserTask(){
  //
}

/***********************


************************/

task OldLaserTask(){
  //
}

// Pick sprite for boss
task RenderBoss{
	bossImg = GetCurrentScriptDirectory() ~ "../../LHF_Img/Test_Circle.png";
	ObjPrim_SetTexture(bossObj,bossImg);
	ObjSprite2D_SetSourceRect(bossObj,0,1,255,256);
	ObjSprite2D_SetDestCenter(bossObj);
	ObjRender_SetScaleXYZ(bossObj,0.3,0.3,1);

  // If not spinning check for freezes
	let animframe = 0;
	while(!Obj_IsDeleted(bossObj)){
		ObjRender_SetAngleZ(bossObj,animframe);
		animframe += 2.5;
		yield;
	}
}

task EndScript{
	while(ObjEnemy_GetInfo(bossObj,INFO_LIFE) > 0){
		yield;
	}
	// End spellcard and delete boss
	TExplosionA(ObjMove_GetX(bossObj),ObjMove_GetY(bossObj),10,0.9);
	Obj_Delete(bossObj);
	DeleteShotAll(TYPE_ALL,TYPE_ITEM);

	// Close script after 60 frames
	wait(60);
	SetAutoDeleteObject(true);
	CloseScript(GetOwnScriptID());
	return;
}