// SYSTEM FOR STATION GAME
let dirCurrent = GetCurrentScriptDirectory();

// Change accordingly!

int offsetX = 1551;
int baseY = 155;
int spaceY = 135; 
float scale = 1.15*1.6;

int sel = 0; //"

// Item, life, spell graphics

let graphicimg = dirCurrent ~ "./img/yo.png";
let lifebarimg = dirCurrent ~ "./img/lifebar.png";
LoadTextureEx(graphicimg, true, true);

/*
Lifebar empty = (5, 5, 534, 34)
Lifebar split = (6, 38, 18, 74)
Lifebar full = (5, 78, 16, 108)

*/

// 

//#include "./../script/soundtask.txt"

#include "script/KevinSystem/GeneralSoundLib.txt"

@Initialize
{
	_SoundTask();
	
	SetStgFrame(504, 0, 1415, 997, 20, 80); 
	
	sel = prand_int(0, 99);
	
	SetPauseScriptPath(GetCurrentScriptDirectory() ~ "kevin_system/Kevin_Pause.txt");
	SetEndSceneScriptPath(GetCurrentScriptDirectory() ~ "kevin_system/Kevin_EndScene.txt");
	SetReplaySaveSceneScriptPath(GetCurrentScriptDirectory() ~ "kevin_system/Kevin_ReplaySave.txt");
	
	InitFrame();
	
	//TInstallFont(); Moved to package.
	
	TScore();
	//TGraze();
	//SetPlayerLife(9);

	LifeDisplay();
	SpellDisplay();
	
	//THighScore();
	TValueDisplay();
	
	StartItemScript(dirCurrent ~ "./kevin_system/KevinSystem_Item.txt");
	
	//TExtendSystem();
	TBossLife();
	TBossTimer();
	TCurrentFps();
	TReplayFps();
	//_SoundTask;
}

@MainLoop
{
	yield;
}

@Event
{
	alternative(GetEventType())
	case(EV_START_BOSS_SPELL)
	{
		let path = dirCurrent ~ "Default_System_MagicCircle.txt";
		let id = LoadScript(path);
		StartScript(id);
	}
	case(EV_GAIN_SPELL)
	{
		let objScene = GetEnemyBossSceneObjectID();
		let spellbonus = ObjEnemyBossScene_GetInfo(objScene, INFO_SPELL_SCORE);
		TScoreAward(spellbonus);
	}
}

function CreateTextObject(
	float mx, my, size,
	string text, font,
	int colorTop, colorBottom,
	int borderColor, borderWidth,
	int renderPriority
	){
	
	let obj = ObjText_Create();
	ObjText_SetText(obj, text);
	ObjText_SetFontSize(obj, size);
	ObjText_SetFontType(obj, font);
	ObjText_SetFontColorTop(obj, colorTop);
	ObjText_SetFontColorBottom(obj, colorBottom);
	ObjText_SetFontBorderType(obj, BORDER_FULL);
	ObjText_SetFontBorderColor(obj, borderColor);
	ObjText_SetFontBorderWidth(obj, borderWidth);
	Obj_SetRenderPriorityI(obj, renderPriority);
	ObjRender_SetX(obj, mx);
	ObjRender_SetY(obj, my);
	return obj;
	
}

// Grants extends based on score

task TExtendSystem(){

	// NEXT: Text (y around 650?) (x around 2250?)
	
	/*let NextText = 
	
	CreateTextObject(
		1625, 465, 30,
		"NEXT:", "Connecting Chain Handserif",
		0xA70053, 0xA70053,
		0xFFFFFF, 2,
		1
	);*/
	
	//ObjText_SetFontBold(NextText, true);
	// Indicates the score threshold needed for the next extend
	
	let ExtendThresholdText = 
	
	CreateTextObject(
		250, 960, 24,
		"", "Exotc350 DmBd BT",
		0xA70053, 0xA70053,
		0xFFFFFF, 2,
		21
	);
	
	ObjText_SetFontBold(ExtendThresholdText, true);
	ObjText_SetHorizontalAlignment(ExtendThresholdText, ALIGNMENT_RIGHT);
	
	int count = 0;
	// Millions
	let req = [

	];
	
	if(GetCommonData("Difficulty", "Arcade") == "Arcade"){req = [20, 80, 200, 500, 800, 1200, 2500, 5000];}
	else{req = [15, 50, 100, 180, 300, 600, 1000, 2000, 4000];}
	
	let next = 0;
	
	loop{
		count = (trunc(GetScore())/10)*10;
		if(next <= length(req)-1){
			if(count >= req[next]*1000000){
				next++;
				SetPlayerLife(GetPlayerLife+1);
				ExtendSFX;
				ExtendEffect;
			}
		}
		if(next != 8){ObjText_SetText(ExtendThresholdText, "NEXT: " ~ DigitToCommaArray(req[next]*1000000));}
		else{ObjText_SetText(ExtendThresholdText, "MAX EXTEND");}
		yield;
	}
}

task ExtendEffect(){

	int time = 30;
	int timeDisappear = 30;
	
	float x = GetPlayerX();
	float y = GetPlayerY()-90;
	
	int extendText = CreateTextObject(
		x, y, 75,
		"Life[r]Extend!", "Exotc350 DmBd BT",
		0xFF61AE, 0xFFFFFF,
		0x5E0064, 6,
		42
	);
	
	ObjText_SetLinePitch(extendText, -2);
	ObjText_SetFontBold(extendText, true);
	ObjText_SetHorizontalAlignment(extendText, ALIGNMENT_CENTER);
	
	ascent(i in 0..time){
		ObjRender_SetY(extendText, Interpolate_Decelerate(y, y-120, i/time));
		yield;
	}
	
	wait(15);
	
	ascent(i in 0..timeDisappear){
		ObjRender_SetAlpha(extendText, Interpolate_Decelerate(255, 0, i/timeDisappear));
		yield;
	}
	Obj_Delete(extendText);
	
}

//----------------------------------------------------
//枠外の背景表示
//----------------------------------------------------
function InitFrame()
{
	let path = GetCurrentScriptDirectory() ~ "img/ThiccHUD.png";
	//if(false){path = GetCurrentScriptDirectory() ~ "img/literallywhat.png";}
	//else{path = GetCurrentScriptDirectory() ~ "img/altHUD.png";}
	let obj = ObjPrim_Create(OBJ_SPRITE_2D);
	LoadTextureEx(path, true, true);
	ObjPrim_SetTexture(obj, path);
	//ObjRender_SetScaleXYZ(obj, 0.5, 0.5, 1);
	ObjRender_SetTextureFilterMag(obj, FILTER_NONE);
	ObjRender_SetTextureFilterMin(obj, FILTER_NONE);
	ObjRender_SetTextureFilterMip(obj, FILTER_NONE);
	Obj_SetRenderPriority(obj, 0);
	ObjSprite2D_SetSourceRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
	ObjSprite2D_SetDestRect(obj, 0, 0, GetScreenWidth(), GetScreenHeight());
	
	int diffText = CreateTextObject(
		offsetX+150, baseY*0.3, 60,
		"", "Exotc350 DmBd BT",
		0xFFFFFF, 0xFFFFFF,
		0xFFFFFF, 3,
		1
	);
	
	ObjText_SetFontBold(diffText, true);
	ObjText_SetHorizontalAlignment(diffText, ALIGNMENT_CENTER);
	
	/*
	if(GetCommonData("Difficulty", "Arcade") == "Arcade"){
		ObjText_SetText(diffText, "Arcade Mode");
		ObjText_SetFontColorTop(diffText, 0x8100CE);
		ObjText_SetFontColorBottom(diffText,0xAC7DFF);
		ObjText_SetFontBorderType(diffText, BORDER_FULL);
		ObjText_SetFontBorderColor(diffText, 0xFFFFFF);
	}
	
	else{
		ObjText_SetText(diffText, "Gentle Mode");
		ObjText_SetFontColorTop(diffText, 0xFF993F);
		ObjText_SetFontColorBottom(diffText,0xFFCFA6);
		ObjText_SetFontBorderType(diffText, BORDER_FULL);
		ObjText_SetFontBorderColor(diffText, 0xFFFFFF);
	}
	*/
}

//----------------------------------------------------
//スコア表示
//----------------------------------------------------

task THighScore(){

	let objScoreNo = ObjText_Create();
	ObjText_SetFontSize(objScoreNo, 58);
	ObjText_SetFontBold(objScoreNo, true);
	ObjText_SetFontType(objScoreNo, "Anke Calligraph");
	ObjText_SetFontColorTop(objScoreNo, 0xFFA157);
	ObjText_SetFontColorBottom(objScoreNo,0xFFC232);
	ObjText_SetFontBorderType(objScoreNo, BORDER_FULL);
	ObjText_SetFontBorderColor(objScoreNo, 0xFFFFFF);
	ObjText_SetFontBorderWidth(objScoreNo, 3);
	//ObjText_SetFontWeight(objScoreNo, 1000);
	Obj_SetRenderPriorityI(objScoreNo, 1);
	ObjRender_SetX(objScoreNo, offsetX-10); // Subject to change
	ObjRender_SetY(objScoreNo, baseY*0.8); // Same as above

	while(true){
		let score = GetAreaCommonData("hiscoredata", "hiscore", 0);
		score = min(score,999999999990);
		let yass = DigitToCommaArray(score);
		ObjText_SetText(objScoreNo, yass);
		yield;
	}
}

task TScore(){
 	// New score system using rtos

 	// For score with zeroes at the end: Truncate score/10, and then multiply it by 10

	let objScore = ObjText_Create();
	ObjText_SetFontSize(objScore, 24);
	ObjText_SetFontBold(objScore, true);
	ObjText_SetFontType(objScore, "Exotc350 DmBd BT");
	ObjText_SetFontColorTop(objScore,0xFFFFFF);
	ObjText_SetFontColorBottom(objScore,0xFFFFFF);
	ObjText_SetFontBorderType(objScore, BORDER_FULL);
	ObjText_SetFontBorderColor(objScore, 0x25379D);
	ObjText_SetFontBorderWidth(objScore, 3);
	ObjText_SetText(objScore, "SCORE");
	//ObjText_SetFontWeight(objScore, 1000);
	Obj_SetRenderPriorityI(objScore, 79);
	ObjRender_SetX(objScore, 12); // Subject to change
	ObjRender_SetY(objScore, 48); // Same as above
	Obj_SetVisible(objScore, false);
	
	let objScoreNo = ObjText_Create();
	ObjText_SetFontSize(objScoreNo, 40);
	ObjText_SetFontBold(objScoreNo, true);
	ObjText_SetFontType(objScoreNo, "Origami Mommy");
	ObjText_SetFontColorTop(objScoreNo,0xFFFFFF);
	ObjText_SetFontColorBottom(objScoreNo,0xFFFFFF);
	ObjText_SetFontBorderType(objScoreNo, BORDER_FULL);
	ObjText_SetFontBorderColor(objScoreNo, 0x25379D);
	ObjText_SetFontBorderWidth(objScoreNo, 4);
	//ObjText_SetFontWeight(objScoreNo, 1000);
	Obj_SetRenderPriorityI(objScoreNo, 79);
	ObjText_SetSidePitch(objScoreNo, -3);
	ObjRender_SetX(objScoreNo, 10); // Subject to change
	ObjRender_SetY(objScoreNo, 10); // Same as above

	while(true){
		let score = trunc(GetScore()/10) * 10;
		score = min(score,999999999990);
		let yass = DigitToCommaArray(score);
		ObjText_SetText(objScoreNo, yass);
		
		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
			ObjRender_SetAlpha(objScore, 60);
			ObjRender_SetAlpha(objScoreNo, 60);
		}
		else{
			ObjRender_SetAlpha(objScore, 255);
			ObjRender_SetAlpha(objScoreNo, 255);
		}
		
		yield;
	}
}

function DigitToCommaArray(num){ //Natashinitai

    let srcStr = IntToString(num);
    let res = [];
    let nChar = 0;
    for(let i = length(srcStr) - 1; i >= 0; i--){
        res = [srcStr[i]] ~ res;
        nChar++;
        if(nChar % 3 == 0 && i > 0) res = "," ~ res;
    }
    return res;
    
}

//----------------------------------------------------
//Graze表示
//----------------------------------------------------
task TGraze()
{
	let grazenum = ObjText_Create();
	ObjText_SetFontSize(grazenum, 58);
	ObjText_SetFontBold(grazenum, true);
	ObjText_SetFontType(grazenum, "Anke Calligraph");
	ObjText_SetFontColorTop(grazenum, 0x8898A3);
	ObjText_SetFontColorBottom(grazenum, 0xD2E0FF);
	ObjText_SetFontBorderType(grazenum, BORDER_FULL);
	ObjText_SetFontBorderColor(grazenum, 0xFFFFFF);
	ObjText_SetFontBorderWidth(grazenum, 3);
	Obj_SetRenderPriorityI(grazenum, 1);
	ObjRender_SetX(grazenum, offsetX-10);
	ObjRender_SetY(grazenum, baseY*0.8+spaceY*5);
	
	while(true){
		let graze = GetGraze();
		
		ObjText_SetText(grazenum, rtos("00000", graze));
		yield;
	}
}

task TValueDisplay(){

	let objPIV = ObjText_Create();
	ObjText_SetFontSize(objPIV, 21);
	ObjText_SetFontBold(objPIV, true);
	ObjText_SetFontType(objPIV, "Exotc350 DmBd BT");
	ObjText_SetFontColorTop(objPIV,0xFFFFFF);
	ObjText_SetFontColorBottom(objPIV,0xFFFFFF);
	ObjText_SetFontBorderType(objPIV, BORDER_FULL);
	ObjText_SetFontBorderColor(objPIV, 0xDC47C8);
	ObjText_SetFontBorderWidth(objPIV, 3);
	ObjText_SetText(objPIV, "MULTIPLIER");
	ObjText_SetHorizontalAlignment(objPIV, ALIGNMENT_RIGHT);
	//ObjText_SetFontWeight(objPIV, 1000);
	Obj_SetRenderPriorityI(objPIV, 79);
	ObjRender_SetX(objPIV, GetStgFrameWidth()-15); // Subject to change
	ObjRender_SetY(objPIV, 44); // Same as above
	
	let objPIVNum = ObjText_Create();
	ObjText_SetFontSize(objPIVNum, 30);
	ObjText_SetFontBold(objPIVNum, true);
	ObjText_SetFontType(objPIVNum, "Origami Mommy");
	ObjText_SetFontColorTop(objPIVNum,0xFFFFFF);
	ObjText_SetFontColorBottom(objPIVNum,0xFFFFFF);
	ObjText_SetFontBorderType(objPIVNum, BORDER_FULL);
	ObjText_SetFontBorderColor(objPIVNum, 0xDC47C8);
	ObjText_SetFontBorderWidth(objPIVNum, 4);
	ObjText_SetHorizontalAlignment(objPIVNum, ALIGNMENT_RIGHT);
	//ObjText_SetFontWeight(objPIVNum, 1000);
	Obj_SetRenderPriorityI(objPIVNum, 79);
	ObjRender_SetX(objPIVNum, GetStgFrameWidth()-12); // Subject to change
	ObjRender_SetY(objPIVNum, 10); // Same as above
	// DEBUG
	//Obj_SetVisible(objPIV, false);

	while(true){
		let value = GetAreaCommonData("PIV", "currentvalue", 0);
		value = min(value,9999999990);
		//PIVMultiplierValue = value/1000;
		let yass = vtos("5.2f", value/10000);
		ObjText_SetText(objPIVNum, yass ~ "x");
		
		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
			ObjRender_SetAlpha(objPIV, 60);
			ObjRender_SetAlpha(objPIVNum, 60);
		}
		else{
			ObjRender_SetAlpha(objPIV, 255);
			ObjRender_SetAlpha(objPIVNum, 255);
		}
		yield;
	}
	
}

//----------------------------------------------------
//残機表示
//----------------------------------------------------
/*task TPlayerLife
{
	let lifenum = ObjText_Create();
	ObjText_SetFontSize(lifenum, 22);
	ObjText_SetFontBold(lifenum, false);
	ObjText_SetFontType(lifenum, "Unispace");
	ObjText_SetFontColorTop(lifenum,255,255,255);
	ObjText_SetFontColorBottom(lifenum,255,255,255);
	Obj_SetRenderPriorityI(lifenum, 1);
	ObjRender_SetX(lifenum,507);
	ObjRender_SetY(lifenum,101);
	
	while(true){
		let liferemain = GetPlayerLife();
		
		ObjText_SetText(lifenum, rtos("00", liferemain));
		yield;
	}
}*/

//----------------------------------------------------
//残スペル表示
//----------------------------------------------------
task TPlayerSpell
{
	let spellnum = ObjText_Create();
	ObjText_SetFontSize(spellnum, 22);
	ObjText_SetFontBold(spellnum, false);
	ObjText_SetFontType(spellnum, "Unispace");
	ObjText_SetFontColorTop(spellnum,255,255,255);
	ObjText_SetFontColorBottom(spellnum,255,255,255);
	Obj_SetRenderPriorityI(spellnum, 1);
	ObjRender_SetX(spellnum,offsetX);
	ObjRender_SetY(spellnum,baseY+spaceY*3);
	
	while(true){
		let spellremain = GetPlayerSpell();
		
		ObjText_SetText(spellnum, rtos("00", spellremain));
		yield;
	}
}

// New life task
task LifeDisplay(){

// oh god oh no
	let liferemain;
	let lifecounter = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
	let lifeshow = graphicimg;
	Obj_SetRenderPriorityI(lifecounter, 1);
	ObjPrim_SetTexture(lifecounter, lifeshow);
	//ObjSpriteList2D_SetSourceRect(lifecounter, 256, 0, 384, 128);
	//ObjRender_SetScaleXYZ(lifecounter, 0.5, 0.5, 1);
	//ObjSpriteList2D_SetDestCenter(lifecounter);
	
	loop{
		ObjSpriteList2D_ClearVertexCount(lifecounter);
		ObjSpriteList2D_SetSourceRect(lifecounter, 256, 0, 384, 128);
		ObjSpriteList2D_SetDestCenter(lifecounter);
		ObjRender_SetScaleXYZ(lifecounter, 0.26*scale, 0.26*scale, 1);
		liferemain = GetPlayerLife();
		ascent(i in 0..liferemain){
			ObjRender_SetPosition(lifecounter, 550-10+i*25, 1040, 0);
			ObjSpriteList2D_AddVertex(lifecounter);		
		}
		yield;
	}

}
// New spell task
task SpellDisplay{

	let spellremain;
	let spellcounter = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
	let spellshow = graphicimg;
	Obj_SetRenderPriorityI(spellcounter, 1);
	ObjPrim_SetTexture(spellcounter, spellshow);

	loop{
		ObjSpriteList2D_ClearVertexCount(spellcounter);
		ObjSpriteList2D_SetSourceRect(spellcounter, 384, 0, 512, 128);
		ObjSpriteList2D_SetDestCenter(spellcounter);
		ObjRender_SetScaleXYZ(spellcounter, 0.26*scale, 0.26*scale, 1);
		spellremain = GetPlayerSpell();
		ascent(i in 0..spellremain){
			ObjRender_SetPosition(spellcounter, 1000+10+i*25, 1040, 0);
			ObjSpriteList2D_AddVertex(spellcounter);		
		}
		yield;
	}
}
//----------------------------------------------------
// Edited ExRumia system
//----------------------------------------------------
task TBossLife

// Lifebar starts at x = 352, ends at x = 925
{
	let path = lifebarimg;
	let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
	let objStar = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
	let objDivision = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
	let objLifebar = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
	//bool BossExist = false;
	
	ObjPrim_SetTexture(obj, path);
	Obj_SetRenderPriorityI(obj, 72); 
	ObjRender_SetAlpha(obj, 255);
	
	ObjPrim_SetTexture(objStar, path);
	Obj_SetRenderPriorityI(objStar, 70); 
	
	ObjPrim_SetTexture(objDivision, path);
	Obj_SetRenderPriorityI(objDivision, 72);
	
	ObjPrim_SetTexture(objLifebar, path);
	Obj_SetRenderPriorityI(objLifebar, 70);
	ObjRender_SetAlpha(objLifebar, 140);
	//Obj_SetVisible(objLifebar, false);

	let lastRemStep = -1;
	let lifeRateRender = 0;

	let objScene = ID_INVALID;
	loop
	{
		objScene = GetEnemyBossSceneObjectID();
		ObjSpriteList2D_ClearVertexCount(obj);
		ObjSpriteList2D_ClearVertexCount(objLifebar);
		ObjSpriteList2D_ClearVertexCount(objStar);
		ObjSpriteList2D_ClearVertexCount(objDivision);
		if(objScene != ID_INVALID)
		{
			//BossExist = true;
			ObjSpriteList2D_SetSourceRect(objLifebar, 8, 6, 801, 50);
			ObjSpriteList2D_SetDestCenter(objLifebar);
			ObjRender_SetScaleXYZ(objLifebar, 1.12, 1.25, 1);
			ascent (i in 0..1){
				ObjRender_SetPosition(objLifebar, 455, 90, 1);
				ObjSpriteList2D_AddVertex(objLifebar);
			}
			RenderActiveLife();
			
		}
		yield;
	}

	/*task RenderLifebar(){
		ObjSprite2D_SetSourceRect(objLifebar, 5, 5, 534, 34);
		ObjSprite2D_SetDestCenter(objLifebar);
		ObjRender_SetPosition(objLifebar, 352, 20, 1);
		while(BossExist){
			Obj_SetVisible(objLifebar, true);
			yield;
		}
	}*/
	
	function RenderActiveLife()
	{
		//残りステップ
		let countRemStep = ObjEnemyBossScene_GetInfo(objScene, INFO_REMAIN_STEP_COUNT);
		if(lastRemStep != countRemStep)
		{
			//ステップが変化
			lifeRateRender = 0;
		}
		
		//Overall active life
		let lifeTotalMax = ObjEnemyBossScene_GetInfo(objScene, INFO_ACTIVE_STEP_TOTAL_MAX_LIFE);
		let lifeTotal = ObjEnemyBossScene_GetInfo(objScene, INFO_ACTIVE_STEP_TOTAL_LIFE);
		let lifeRate = min(lifeTotal / lifeTotalMax, lifeRateRender);
		ObjSpriteList2D_SetSourceRect(obj, 7, 119, 800, 159);
		ObjSpriteList2D_SetDestRect(obj, 11, 70, 12 + (890-2) * lifeRate, 110);
		ObjRender_SetColorHSV(obj, -60, 384, 384);
		ObjSpriteList2D_AddVertex(obj);
		ObjRender_SetBlendType(obj, BLEND_ALPHA);
		
		//Life "division" bar
		ObjSpriteList2D_SetSourceRect(objDivision, 8, 56, 27, 111);
		//ObjRender_SetColorHSV(objDivision, 32, 255, 255);
		let listLifeDiv = [0] ~ ObjEnemyBossScene_GetInfo(objScene, INFO_ACTIVE_STEP_LIFE_RATE_LIST);
		ascent(iDiv in 1 .. length(listLifeDiv)-1)
		{
			let rate = listLifeDiv[iDiv];
			let x = (GetStgFrameWidth()) * 0.98 * (1-rate);
			ObjSpriteList2D_SetDestRect(objDivision, x-4, 62, x+24, 118);
			ObjSpriteList2D_AddVertex(objDivision);
		}

		//Boss star rendering
		ObjRender_SetScaleXYZ(objStar, 0.6, 0.6, 1);
		ObjSpriteList2D_SetSourceRect(objStar, 0, 169, 268, 430);
		Obj_SetRenderPriority(objStar, 1);
		ascent(iStep in 0 .. countRemStep)
		{
			ObjRender_SetPosition(objStar, GetStgFrameWidth()*1.6, 35+45*iStep, 1);
			ObjSpriteList2D_SetDestCenter(objStar);
			ObjSpriteList2D_AddVertex(objStar);
		}

		lifeRateRender += 0.01;
		lifeRateRender = min(lifeRateRender, 1);
		lastRemStep = countRemStep;
		
		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
			ObjRender_SetAlpha(obj, 60);
			ObjRender_SetAlpha(obj, 30);
		}
		else{
			ObjRender_SetAlpha(obj, 255);
			ObjRender_SetAlpha(objLifebar, 140);
		}
	}
}

//----------------------------------------------------
//タイマー表示
//----------------------------------------------------
task TBossTimer
{
	let textTimer = ObjText_Create();
	ObjText_SetFontSize(textTimer, 35);
	ObjText_SetFontType(textTimer, "Connecting Chain Handserif");
	
	//ObjText_SetMaxWidth(textTimer, GetStgFrameWidth()/6);
	ObjText_SetHorizontalAlignment(textTimer, ALIGNMENT_CENTER);
	
	ObjText_SetFontBold(textTimer, true);
	ObjText_SetFontColorTop(textTimer, 0xFFFFFF);
	ObjText_SetFontColorBottom(textTimer, 0xFFFFFF);
	ObjText_SetFontBorderType(textTimer, BORDER_FULL);
	ObjText_SetFontBorderColor(textTimer, 0xA639F0);
	ObjText_SetFontBorderWidth(textTimer, 3.4);
	Obj_SetRenderPriorityI(textTimer, 73);
	ObjRender_SetX(textTimer, GetStgFrameWidth()/8-10);
	ObjRender_SetY(textTimer, 110);
	Obj_SetVisible(textTimer, true);
	
	let pathDigit = GetCurrentScriptDirectory() ~ "img/Default_SystemDigit.png";

	let obj = ObjPrim_Create(OBJ_SPRITE_LIST_2D);
	ObjPrim_SetTexture(obj, lifebarimg);
	ObjRender_SetBlendType(obj, BLEND_ADD_RGB);
	Obj_SetRenderPriority(obj, 0.75);
	//ObjRender_SetY(obj, 38);
	let count = 2;

	let objScene = ID_INVALID;
	loop
	{
		objScene = GetEnemyBossSceneObjectID();
		ObjSpriteList2D_ClearVertexCount(obj);
		if(objScene != ID_INVALID)
		{
			Obj_SetVisible(textTimer, true);
			RenderTimer();
		}
		else{Obj_SetVisible(textTimer, false);
		}
		yield;
	}

	task RenderTimer()
	{
		let timer = ObjEnemyBossScene_GetInfo(objScene, INFO_TIMERF)/60;
		timer = min(timer, 99.99);
		ObjText_SetText(textTimer, "TIME: " ~ rtos("00.00", timer));
		ObjSpriteList2D_SetSourceRect(obj, 404, 225, 537, 374);
		ObjRender_SetScaleXYZ(obj, 0.38, 0.38, 1);
		ObjSpriteList2D_SetDestCenter(obj); 
		ObjRender_SetPosition(obj, 4*GetStgFrameWidth()/5+62, GetStgFrameHeight()/8-25, 1);
		//ObjSpriteList2D_AddVertex(obj);
		if(ObjEnemyBossScene_GetInfo(objScene, INFO_TIMER) <= 10 && ObjEnemyBossScene_GetInfo(objScene, INFO_TIMER) > 0){
			if(ObjEnemyBossScene_GetInfo(objScene, INFO_TIMERF) % 60 == 0){_Timeout();}
			ObjText_SetFontBorderColor(textTimer, 0xF0396C);
		}
		else{}
		if(ObjMove_GetY(GetPlayerObjectID()) < GetStgFrameHeight()/6){
			ObjRender_SetAlpha(textTimer, 60);
		}
		else{
			ObjRender_SetAlpha(textTimer, 255);
		}
		yield;
	}
	
	task _Timeout(){ // HOLY FUCK THE TIMER IS RUNNING OUT BITCH
		
		ascent(i in 0..30){
			ObjText_SetFontSize(textTimer, Interpolate_Decelerate(80, 45, i/30));
			//ObjRender_SetScaleXYZ(obj, Interpolate_Decelerate(0.6, 0.38, i/30));
			yield;
		}
			
	}
}

task TScoreAward(dascore){

	let objText = ObjText_Create();
	int x = rand_int(0, 99);

	RegularAward;	
	
	task RegularAward{
		
		let fontsizearray = [70, 70, 70, 65, 60, 65, 70, 70, 70, 40, 40];
		let textarray = ["So Cool Bestie!", "Bimbo Eliminated!", "Wig Snatched!", "Neutralized Boss Sexiness!", "Gay Rights Confirmed!", "Himbo Kisses!", "Slay Button Hit!", "Yass!!!!", "Gatekept, Gaslit, Girlbossed!",  "Spell Card Capture!"];
		
		int y = rand_int(0, length(textarray)-2);
		
		ObjText_SetText(objText, textarray[y]); // Selects a random capture text from the array
		ObjText_SetFontSize(objText, fontsizearray[y]*1.5);
		ObjText_SetFontType(objText, "Exotc350 DmBd BT");
		
		//ObjText_SetMaxWidth(objText, GetStgFrameWidth());
		ObjText_SetHorizontalAlignment(objText, ALIGNMENT_CENTER);
		
		ObjText_SetFontBold(objText, true);
		ObjText_SetFontColorTop(objText, 0xFFD34D);
		ObjText_SetFontColorBottom(objText, 0xFFF2CA);
		ObjText_SetFontBorderType(objText, BORDER_FULL);
		ObjText_SetFontBorderColor(objText,0, 0, 0);
		ObjText_SetFontBorderWidth(objText, 3);
		Obj_SetRenderPriority(objText, 0.6);
		ObjRender_SetX(objText, GetStgFrameWidth()/2);
		ObjRender_SetY(objText, GetStgFrameHeight()/5);
	}

	let scorefinal = trunc(dascore/10) * 10;
	let scorescene = GetEnemyBossSceneObjectID();

	if (ObjEnemyBossScene_GetInfo(scorescene, INFO_PLAYER_SHOOTDOWN_COUNT) == 0 &&
		ObjEnemyBossScene_GetInfo(scorescene, INFO_PLAYER_SPELL_COUNT) == 0){
		AddScore(scorefinal);
	}

	let strScore = "Capture Bonus +" ~ DigitToCommaArray(scorefinal);
	let objScore = ObjText_Create();
	ObjText_SetText(objScore, strScore);
	ObjText_SetFontSize(objScore, 85);
	ObjText_SetFontType(objScore, "Anke Calligraph");
	
	ObjText_SetMaxWidth(objScore, GetStgFrameWidth());
	ObjText_SetHorizontalAlignment(objScore, ALIGNMENT_CENTER);
	
	ObjText_SetFontBold(objScore, true);
	ObjText_SetFontColorTop(objScore, 0x9C2400);
	ObjText_SetFontColorBottom(objScore, 0xFF982A);
	ObjText_SetFontBorderType(objScore, BORDER_FULL);
	ObjText_SetFontBorderColor(objScore, 255, 255, 255);
	ObjText_SetFontBorderWidth(objScore, 3);
	Obj_SetRenderPriority(objScore, 0.6);
	ObjRender_SetX(objScore, GetStgFrameWidth()/2 - (GetStgFrameWidth()/2-5));
	ObjRender_SetY(objScore, GetStgFrameHeight()/3.2-15);

	wait(120);
	
	Obj_Delete(objText);
	Obj_Delete(objScore);
	
}
//----------------------------------------------------
//FPS表示
//----------------------------------------------------
task TCurrentFps()
{
	let objText = ObjText_Create();
	ObjText_SetFontSize(objText, 48);
	ObjText_SetFontBold(objText, true);
	ObjText_SetFontType(objText, "Anke Calligraph");
	ObjText_SetFontColorTop(objText, 0x6747FF);
	ObjText_SetFontColorBottom(objText, 0xAEC4FF);
	ObjText_SetFontBorderType(objText, BORDER_FULL);
	ObjText_SetFontBorderColor(objText, 255, 255, 255);
	ObjText_SetFontBorderWidth(objText, 1.5);
	ObjText_SetHorizontalAlignment(objText, ALIGNMENT_RIGHT);
	ObjText_SetMaxWidth(objText, GetScreenWidth() - 8);
	Obj_SetRenderPriority(objText, 1.0);
	ObjRender_SetX(objText, 0);
	ObjRender_SetY(objText, GetScreenHeight() - 48);

	loop
	{
		let fps = GetCurrentFps();
		let text = vtos("1.2f", fps) ~ "fps";
		ObjText_SetText(objText, text);
		yield;
	}
}

task TReplayFps()
{
	if(!IsReplay()){return;}

	let objText = ObjText_Create();
	ObjText_SetFontSize(objText, 12);
	ObjText_SetFontBold(objText, true);
	ObjText_SetFontColorTop(objText, 128, 128, 255);
	ObjText_SetFontColorBottom(objText, 64, 64, 255);
	ObjText_SetFontBorderType(objText, BORDER_FULL);
	ObjText_SetFontBorderColor(objText,255, 255, 255);
	ObjText_SetFontBorderWidth(objText, 1);
	Obj_SetRenderPriority(objText, 1.0);

	let px = GetStgFrameLeft() + GetStgFrameWidth() - 18;
	let py = GetStgFrameTop() + GetScreenHeight() - 14;
	ObjRender_SetX(objText, px);
	ObjRender_SetY(objText, py);

	loop
	{
		let fps = GetReplayFps();
		let text = vtos("02d", fps);
		ObjText_SetText(objText, text);
		yield;
	}
}

//----------------------------------------------------
//ユーティリティ
//----------------------------------------------------