import "std.zh"

dmapdata script dmapscript
{
	void run()
	{
		int f;
		while(1)
		{
			++f; 
			if (!(f%180)) 
			{ 
				TraceS("Dmap Script Before Waitdraw()"); TraceNL();
				
			}
			Waitdraw(); 
			if (!(f%180))
			{ 
				TraceS("Dmap Script After Waitdraw()"); TraceNL();
				
			}
			Waitframe();
		}

	}
}

screendata script sd1
{
void run(){}
}

link script link_init1
{
	void run()
	{
		TraceS("Running Link Init Script"); TraceNL();
		Link->X = 100;
		Link->Y = 60;
	}
}

link script link_active
{
	void run()
	{
		while(1)
		{
			//TraceS("Link Active Script Running"); TraceNL();
			if ( Input->ReadKey[KEY_T] ) { ++Link->X; }
			Waitframe();
		}
	}
}

npc script noanim
{
	void run()
	{
		Trace(this->Animation);
		this->Animation = false;
		TraceB(this->Animation);
		this->Tile = 11728;
	}
}

eweapon script E2
{
	void run(){}
}

eweapon script E
{
	void run(int pow)
	{
		//TraceS("eweapon script E: this: "); Trace(this); TraceNL();
		TraceS("InitD[0] is: "); Trace(pow); TraceNL();
		int f;
		Trace(this->ID);
		while(this->isValid())
		{
TraceS("EWeapon Script Running"); TraceNL();
			++f;
			if ( !(f%10) ) 
			{
				this->Dir = Rand(0,3);
				TraceS("EWeapon Script Running"); TraceNL();
			}
			if ( !(this->isValid()) ) Quit();
			Waitframe();
		
		}
	}
}

lweapon script L
{
	void run() 
	{ 
		TraceS("Script L: this: "); Trace(this); TraceNL();
		int f = 0;
		while(this->isValid())
		{
			 
			++f;
			if ( !(f%10) ) 
			{
				this->Dir = Rand(0,3);
				TraceS("LWeapon Script Running"); TraceNL();
			}
			if ( !(this->isValid()) ) Quit();
			Waitframe();
		
		}
	}
}

lweapon script sword
{
	void run()
	{
		TraceS("Script sword: this: "); Trace(this); TraceNL();
		Trace(this->ID);
		while(this->isValid())
		{
			//this->X += 10;
			TraceS("LWeapon Script Running"); TraceNL();
			Waitframe();
		}
	}
}

lweapon script beam
{
	void run()
	{
		//TraceS("Script beam: this: "); Trace(this); TraceNL();
		int f;
		Trace(this->ID);
		while(this->isValid())
		{
			++f;
			if ( !(f%10) ) 
			{
				this->Dir = Rand(0,3);
				//TraceS("LWeapon Script Running"); TraceNL();
			}
			if ( !(this->isValid()) ) Quit();
			Waitframe();
		
		}
	}
}

lweapon script bait
{
	void run(int pow)
	{
		TraceS("Script bait: this: "); Trace(this); TraceNL();
		TraceS("Bait InitD[0] is: "); Trace(pow); TraceNL();
		int f = 0; int dir = Rand(0,3); int step = 2;
		while(this->isValid())
		{
			++f; if (!(f%6)) { dir = Rand(0,3); step = Rand(2,6); }
			switch(dir)
			{
				case DIR_UP: this->Y -= step; break;
				case DIR_DOWN: this->Y += step; break;
				case DIR_LEFT: this->X -= step; break;
				case DIR_RIGHT: this->X += step; break;
				default: break;
			}
			if ( !(this->isValid()) ) Quit();
			Waitframe();
		}
	}
}		

global script ab
{
	void run()
	{
		
		dmapdata dd = Game->LoadDMapData(0);
		int mp = dd->Map;
		mapdata md = Game->LoadMapData(mp, 0);
		while(1)
		{
			for ( int q = Screen->NumLWeapons(); q > 0; --q )
			{
				lweapon l = Screen->LoadLWeapon(q);
				if ( l->ID == LW_SCRIPT1 ) 
				{
					//TraceS("Found LW_SCRIPT1"); TraceNL();
				}
			}
			if ( Input->ReadKey[KEY_Y] )
			{
				
				for ( int q = 0; q < 176; ++q )
				{
					LogPrint("Mapdata->ComboD[%d] is: %d \n", q, md->ComboD[q]);
					LogPrint("Mapdata->ComboT[%d] is: %d \n", q, md->ComboT[q]);
					LogPrint("Mapdata->ComboC[%d] is: %d \n", q, md->ComboC[q]);
					LogPrint("Mapdata->ComboS[%d] is: %d \n", q, md->ComboS[q]);
					LogPrint("Mapdata->ComboF[%d] is: %d \n", q, md->ComboF[q]);
					LogPrint("Mapdata->ComboI[%d] is: %d \n", q, md->ComboI[q]);
				}
			}
			if ( Input->ReadKey[KEY_I] )
			{
				LogPrint("Getting mapdata combo information with GetCurScreen()%s \n", " ");
				mapdata mdm = Game->LoadMapData(mp, Game->GetCurScreen());
				for ( int q = 0; q < 176; ++q )
				{
					LogPrint("Mapdata->ComboD[ %d ] is: %d \n", q, mdm->ComboD[q]);
					LogPrint("Mapdata->ComboT[ %d ] is: %d \n", q, mdm->ComboT[q]);
					LogPrint("Mapdata->ComboC[ %d ] is: %d \n", q, mdm->ComboC[q]);
					LogPrint("Mapdata->ComboS[ %d ] is: %d \n", q, mdm->ComboS[q]);
					LogPrint("Mapdata->ComboF[ %d ] is: %d \n", q, mdm->ComboF[q]);
					LogPrint("Mapdata->ComboI[ %d ] is: %d \n", q, mdm->ComboI[q]);
				}
			}
			if ( Input->ReadKey[KEY_U] )
			{
				md->ComboD[0] = 100;
				md->ComboF[0] = 15;
				md->ComboT[0] = 2;
			}
			Waitframe();
		}
	}
}

lweapon script readcombos
{
	void run()
	{
		
		dmapdata dd = Game->LoadDMapData(0);
		int mp = dd->Map;
		mapdata md = Game->LoadMapData(mp, 0);
		while(this->isValid())
		{
			
			if ( Input->ReadKey[KEY_Y] )
			{
				
				for ( int q = 0; q < 176; ++q )
				{
					LogPrint("Mapdata->ComboD[%d] is: %d \n", q, md->ComboD[q]);
					LogPrint("Mapdata->ComboT[%d] is: %d \n", q, md->ComboT[q]);
					LogPrint("Mapdata->ComboC[%d] is: %d \n", q, md->ComboC[q]);
					LogPrint("Mapdata->ComboS[%d] is: %d \n", q, md->ComboS[q]);
					LogPrint("Mapdata->ComboF[%d] is: %d \n", q, md->ComboF[q]);
					LogPrint("Mapdata->ComboI[%d] is: %d \n", q, md->ComboI[q]);
				}
			}
			if ( Input->ReadKey[KEY_I] )
			{
				LogPrint("Getting mapdata combo information with GetCurScreen()%s \n", " ");
				mapdata mdm = Game->LoadMapData(mp, Game->GetCurScreen());
				for ( int q = 0; q < 176; ++q )
				{
					LogPrint("Mapdata->ComboD[ %d ] is: %d \n", q, mdm->ComboD[q]);
					LogPrint("Mapdata->ComboT[ %d ] is: %d \n", q, mdm->ComboT[q]);
					LogPrint("Mapdata->ComboC[ %d ] is: %d \n", q, mdm->ComboC[q]);
					LogPrint("Mapdata->ComboS[ %d ] is: %d \n", q, mdm->ComboS[q]);
					LogPrint("Mapdata->ComboF[ %d ] is: %d \n", q, mdm->ComboF[q]);
					LogPrint("Mapdata->ComboI[ %d ] is: %d \n", q, mdm->ComboI[q]);
				}
			}
			if ( Input->ReadKey[KEY_U] )
			{
				md->ComboD[0] = 100;
				md->ComboF[0] = 15;
				md->ComboT[0] = 2;
			}
			Waitframe();
		}
	}
}


lweapon script comboat
{
	void run()
	{
		while(this->isValid())
		{
			mapdata mps = Game->LoadMapData(Game->GetCurMap(), Game->GetCurScreen());
			LogPrint("Mapdata->ComboD[] at this lweapon location is: %d \n", mps->ComboD[ComboAt(this->X, this->Y)]);
			Waitframe();
		}
	}
}


link script onWin
{
	void run()
	{
		int q;
		while(1)
		{
			++q;
			Trace(q);
			if ( q > 100 ) Quit();
			Waitframe();
		}
	}
}

///////////////////////////////////////
/// Custom Game Over and F6 Screens ///
/// v1.4 for ZC 2.55                ///
/// 24th October, 2018              ///
/// By: ZoriaRPG                    ///
///////////////////////////////////////

//v1.4 : Added CONTINUE option to both screens. The user can enable or disable this. 

typedef const int define;
typedef const int config;

define ON = 1;
define OFF = 0;
define YES = 1;
define NO = 0;

script typedef ffc namespace;

namespace script F6
{
define SELECTION_SAVE = 1;
define SELECTION_RETRY = 2;
define SELECTION_CANCEL = 3;
define SELECTION_CONTINUE = 4;
define CONTINUE_HP = 16*3;
define CONTINUE_MP = 32*3;

config ALLOW_F6_CONTINUE = YES;
	
config F6MIDI = -3;
	
	void run(){}
	const int FREEZE = 504; //Freeze Combo
	void freeze(int state)
	{
		ffc f = Screen->LoadFFC(32);
		if ( state ) f->Data = FREEZE;
		else f->Data = 0;
	}
		
	//if ( F6.press() ) { F6.optiona(); }
	bool press()
	{
		TraceS("User pressed F6"); TraceNL();
		if ( Input->ReadKey[46+6] ) return true;
		return false;
	}
	void draw(bool ALLOW_F6_CONTINUE) 
	{ 
		gameover.draw(true, ALLOW_F6_CONTINUE); 
	}
	int choice(bool ALLOW_F6_CONTINUE) 
	{ 
		return gameover.get_choice(ALLOW_F6_CONTINUE); 
	}
	
	void options()
	{
		Game->DisableActiveSubscreen = true;
		freeze(ON);
		int oldmidi = Game->GetMIDI();
		Game->PlayMIDI(F6MIDI);
		while(menu(CONTINUE_HP, YES, CONTINUE_MP, YES)) 
		{
			draw(true);
			Waitdraw();
			Waitframe();
		}
		Game->PlayMIDI(oldmidi);
		freeze(OFF);
		
		Link->PressStart = false; Link->InputStart = false;
		
	}
	//for HP, 0 will preserve Link's HP before continuing. For MAGIC, use -1 to do this. 
	bool menu(int cont_hp, bool hp_is_percent, int cont_mp, bool mp_is_percent)
	{
		int sel = choice(true);
		switch(sel)
		{
			case SELECTION_SAVE:
			{
				Game->Save(); return false;
			}
			case SELECTION_RETRY: 
			{
				freeze(OFF);
				Game->End(); return false;
			}
			case SELECTION_CONTINUE: 
			{
				freeze(OFF);
				return do_continue(cont_hp, hp_is_percent, cont_mp, mp_is_percent);
			}
			case SELECTION_CANCEL: 
			{
				return false;
			}
		}
		return true;
	}
	bool do_continue(int hp, bool hp_percent, int mp, bool mp_percent)
	{
		//int entrancedmap = Game->LastEntranceDMap;
		//Replace with WarpEx()
		//Link->Warp(Game->GetCurDMap(), Game->DMapContinue[Game->GetCurDMap()]); 
		Link->Warp(Game->LastEntranceDMap, Game->LastEntranceScreen); 
		if ( hp > 0 ) Link->HP = ( Cond(hp_percent, Link->MaxHP*(hp/100), hp) );
		if ( mp > -1 ) Link->MP = ( Cond(mp_percent, Link->MaxMP*(mp/100), hp) );
		Link->Dir = DIR_DOWN;
		Link->Action = LA_NONE;
		return false;
	}
	
}

namespace script gameover
{

config ALLOW_DEATH_CONTINUE = YES; 

	// Sounds and MIDIs
config SFX_WINKOUT 			= 38; //Sound to play during wink-out animation.
config SFX_LINKDEATH 			= 28; //Sound to play when Link dies.
config SFX_GAMEOVERSCREEN_CURSOR 	= 6;  //Sound to play when the player moves the game over cursor.
config SFX_GAMEOVERSCREEN_SELECTION 	= 44; //Sound to play when the user selects a game over menu option.
config MIDI_GAMEOVER 			= -4; //MIDI to play on Game Over screen.
	//Defaults: -3 is the internal Game Over, -2 is Level 9, -1 is Overworld
 
// Sprites (Weapons/Misc)
config SPR_DEATH 		= 88; //Sprite of Link Spinning
config SPR_DEATH_WINKOUT 	= 89; //Sprite of wink-out
// Sprite Timing
config END_DEATH_SPIN 		= 40; //Frames to display death spin animation.
config END_WINKOUT 		= 10; //Frames to display wink-out animation.

// Other Graphics and Colours
config TILE_SAVECURSOR 		= 20;
config TILE_SAVECURSOR_CSET 	= 1;    //CSet for minitile cursor. 
config BLACK 			= 0x0F; //Black in the current palette
config RED	 		= 0x93; //Red in the current palette
config WHITE	 		= 0x01; //White in the current palette

// Menu Object Positions and Settings
config DONT_SAVE_X 		= 102; //X position of the RETRY string.
config SAVE_X 			= 102; //X position of the SAVE string.
config DONT_SAVE_Y 		= 68;  //Y position of the RETRY string.
config CANCEL_Y 		= 68+14;  //Y position of the CANCEL string.
config CONTINUE_Y 		= 68+28;  //Y position of the CONTINUE string.
config SAVE_Y 			= 54;  //X position of the SAVE string.
config CURSOR_OFFSET 		= 26;  //X offset of the cursor from the text. 

//Global Variables and Arrays

//Indices for values[]
define MENU_SEL_STATE 		= 0; //The current selected menu option. 
define MENU_SEL_POS_X 		= 1; //Stores where to draw menu selector.
define MENU_SEL_POS_Y 		= 2; //Stores where to draw menu selector.
define DEATH_LX 		= 3; //Cache of Link's last X position before death.
define DEATH_LY 		= 4; //Cache of Link's last Y position before death.
define DEATHFRAME 		= 5; //Timer for death animations. 
define QUIT 			= 6; //The game 'QUIT' type, SAVE or RETRY

//gameover.QUIT Types
define quitSAVE 		= 1;
define quitRETRY 		= 2;
define quitCONTINUE 		= 4;

//Menu Selection types
define SELECTION_SAVE 		= 1;
define SELECTION_RETRY 		= 2;
define SELECTION_CANCEL 	= 3;
define SELECTION_CONTINUE 	= 4;

	int values[8] = {1,SAVE_Y,DONT_SAVE_Y, 0,0};
	void run(){}
	bool check()
	{
		if ( Link->HP < 1 ) 
		{
			Link->HP = 1;
			Link->Invisible = true;
			Link->CollDetection = false;
			values[DEATH_LX] = Link->X;
			values[DEATH_LY] = Link->Y;
			return true;
		}
		return false;
	}
	void clean_up()
	{
		int q;
		if ( Screen->NumNPCs() )
		{
			for ( q = Screen->NumNPCs(); q > 0; --q ) 
			{ 
				npc n = Screen->LoadNPC(q); Remove(n); 
			}
		}
		if ( Screen->NumLWeapons() )
		{
			for ( q = Screen->NumLWeapons(); q > 0; --q ) 
			{ lweapon n = Screen->LoadLWeapon(q); Remove(n); }
		}
		if ( Screen->NumEWeapons() )
		{
			for ( q = Screen->NumEWeapons(); q > 0; --q ) 
			{ eweapon n = Screen->LoadEWeapon(q); Remove(n); }
		}
		if ( Screen->NumItems() )
		{
			for ( q = Screen->NumItems(); q > 0; --q ) 
			{ item n = Screen->LoadItem(q); Remove(n); }
		}
		//clear all ffcs
		for ( q = 1; q < 33; ++q )
		{
			ffc f = Screen->LoadFFC(q);
			f->Data = 0; f->Script = 0;
		}
	}
	void draw(bool cancel, bool can_continue)
	{
		//Draw black background with Rectangle()
		Screen->Rectangle(5,0,0,256,256,BLACK,100, 0,0,0,true,128);
		if ( !cancel )
		{
			if ( !can_continue ) 
			{
				switch ( values[MENU_SEL_STATE] )
				{
					case SELECTION_SAVE:
					{
						//int ss1[]="Drawing cursor and text.";
						//TraceS(ss1);
						Screen->FastTile(6,SAVE_X-CURSOR_OFFSET, SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,RED, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"RETRY",128);
						break;
					}
					case SELECTION_RETRY:
					{
						//Draw cursor
						Screen->FastTile(6,DONT_SAVE_X-CURSOR_OFFSET, DONT_SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,WHITE, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,RED, -1,0,"RETRY",128);
						break;
					}
					default: break;
				}
			}
			else
			{
				switch ( values[MENU_SEL_STATE] )
				{
					case SELECTION_SAVE:
					{
						//int ss1[]="Drawing cursor and text.";
						//TraceS(ss1);
						Screen->FastTile(6,SAVE_X-CURSOR_OFFSET, SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,RED, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"CONTINUE",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,WHITE, -1,0,"RETRY",128);
						break;
					}
					case SELECTION_CONTINUE:
					{
						//int ss1[]="Drawing cursor and text.";
						//TraceS(ss1);
						Screen->FastTile(6,SAVE_X-CURSOR_OFFSET, DONT_SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,RED, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"CONTINUE",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,WHITE, -1,0,"RETRY",128);
						break;
					}
					case SELECTION_RETRY:
					{
						//Draw cursor
						Screen->FastTile(6,DONT_SAVE_X-CURSOR_OFFSET, CANCEL_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,WHITE, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"CONTINUE",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,RED, -1,0,"RETRY",128);
						break;
					}
					default: break;
				}
			
			
			
			}
		}
		else
		{
			if ( !can_continue )
			{
				switch(values[MENU_SEL_STATE])
				{
					
					
					case SELECTION_SAVE:
					{
						//int ss1[]="Drawing cursor and text.";
						//TraceS(ss1);
						Screen->FastTile(6,SAVE_X-CURSOR_OFFSET, SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,RED, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"RETRY",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,WHITE, -1,0,"CANCEL",128);
						break;
					}
					case SELECTION_RETRY:
					{
						//Draw cursor
						Screen->FastTile(6,DONT_SAVE_X-CURSOR_OFFSET, DONT_SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,WHITE, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,RED, -1,0,"RETRY",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,WHITE, -1,0,"CANCEL",128);
						break;
					}
					case SELECTION_CANCEL:
					{
						//Draw cursor
						Screen->FastTile(6,DONT_SAVE_X-CURSOR_OFFSET, CANCEL_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,WHITE, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"RETRY",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,RED, -1,0,"CANCEL",128);
						break;
					}
					default: break;
					
				}
			}
			else //allow F6 continue
			{
				switch(values[MENU_SEL_STATE])
				{
					
					//I'm reusing the positional defines for cancel and continue, and transposing them
					//to reorder the list. -Z
					
					//I should rename these to LIST_1_Y, LIST_2_Y, and so forth. 
					case SELECTION_SAVE:
					{
						//int ss1[]="Drawing cursor and text.";
						//TraceS(ss1);
						Screen->FastTile(6,SAVE_X-CURSOR_OFFSET, SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,RED, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"RETRY",128);
						Screen->DrawString(6,DONT_SAVE_X,CONTINUE_Y,0,WHITE, -1,0,"CANCEL",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,WHITE, -1,0,"CONTINUE",128);
						break;
					}
					case SELECTION_RETRY:
					{
						//Draw cursor
						Screen->FastTile(6,DONT_SAVE_X-CURSOR_OFFSET, DONT_SAVE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,WHITE, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,RED, -1,0,"RETRY",128);
						Screen->DrawString(6,DONT_SAVE_X,CONTINUE_Y,0,WHITE, -1,0,"CANCEL",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,WHITE, -1,0,"CONTINUE",128);
						break;
					}
					case SELECTION_CANCEL:
					{
						//Draw cursor
						Screen->FastTile(6,DONT_SAVE_X-CURSOR_OFFSET, CANCEL_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,WHITE, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"RETRY",128);
						Screen->DrawString(6,DONT_SAVE_X,CONTINUE_Y,0,RED, -1,0,"CANCEL",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,WHITE, -1,0,"CONTINUE",128);
						break;
					}
					case SELECTION_CONTINUE:
					{
						//Draw cursor
						Screen->FastTile(6,DONT_SAVE_X-CURSOR_OFFSET, CONTINUE_Y, TILE_SAVECURSOR, TILE_SAVECURSOR_CSET,128); 
						//draw strings, red for selected
						Screen->DrawString(6,SAVE_X,SAVE_Y,0,WHITE, -1,0,"SAVE",128);
						Screen->DrawString(6,DONT_SAVE_X,DONT_SAVE_Y,0,WHITE, -1,0,"RETRY",128);
						Screen->DrawString(6,DONT_SAVE_X,CONTINUE_Y,0,WHITE, -1,0,"CANCEL",128);
						Screen->DrawString(6,DONT_SAVE_X,CANCEL_Y,0,RED, -1,0,"CONTINUE",128);
						break;
					}
					default: break;
					
				}
			}
			
		}
	}
	bool choice(bool can_continue)
	{
		if ( !can_continue )
		{
			if ( Link->PressDown ) // || Link->PressUp )
			{
				switch(values[MENU_SEL_STATE])
				{
					case SELECTION_SAVE: //save
						++values[MENU_SEL_STATE]; break;
					case SELECTION_RETRY: //retry
						--values[MENU_SEL_STATE]; break;
				}
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				return true;
			}
			if ( Link->PressUp ) 
			{
				switch(values[MENU_SEL_STATE])
				{
					case SELECTION_SAVE: //save
						--values[MENU_SEL_STATE]; return true;;
					case SELECTION_RETRY: //retry
						++values[MENU_SEL_STATE]; return true;;
				}
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				return true;
			}
		}
		else //save, continue, retry
		{
			if ( Link->PressDown ) // || Link->PressUp )
			{
				switch(values[MENU_SEL_STATE])
				{
					case SELECTION_SAVE: //save
						values[MENU_SEL_STATE] = SELECTION_CONTINUE; break;
					case SELECTION_CONTINUE: //save
						values[MENU_SEL_STATE] = SELECTION_RETRY; break;
					case SELECTION_RETRY: //retry
						values[MENU_SEL_STATE] = SELECTION_SAVE; break;
				}
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				return true;
			}
			if ( Link->PressUp ) 
			{
				switch(values[MENU_SEL_STATE])
				{
					case SELECTION_SAVE: //save
						values[MENU_SEL_STATE] = SELECTION_RETRY; break;
					case SELECTION_CONTINUE: //save
						values[MENU_SEL_STATE] = SELECTION_SAVE; break;
					case SELECTION_RETRY: //retry
						values[MENU_SEL_STATE] = SELECTION_CONTINUE; break;
				}
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				return true;
			}
		}
		if ( Link->PressStart )
		{
			Game->PlaySound(SFX_GAMEOVERSCREEN_SELECTION);
			if ( values[MENU_SEL_STATE] ) values[QUIT] = quitSAVE;
			else values[QUIT] = quitRETRY; //no save
			return false;
		}
		return true;
	}
	
	
	int get_choice(bool can_continue)
	{
		if ( !can_continue )
		{
			if ( Link->PressDown )
			{
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				switch(values[MENU_SEL_STATE])
				{
					case SELECTION_SAVE: //save
						++values[MENU_SEL_STATE]; break;
					case SELECTION_RETRY: //retry
						++values[MENU_SEL_STATE]; break;
					case SELECTION_CANCEL: //3
						values[MENU_SEL_STATE] = 1; break;
					default: //cance;
						values[MENU_SEL_STATE] = 0; break;
				}
			}
			if ( Link->PressUp )
			{
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				switch(values[MENU_SEL_STATE])
				{
					case 1: //save
						values[MENU_SEL_STATE] = 3; break;
					case 2: //retry
						--values[MENU_SEL_STATE] ; break;
					case SELECTION_CANCEL: //3
						--values[MENU_SEL_STATE] ; break;
					default: //cance;
						values[MENU_SEL_STATE] = 0; break;
				}
			}		
		}
		else //allow continue
		{
			if ( Link->PressDown )
			{
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				switch(values[MENU_SEL_STATE])
				{
					case SELECTION_SAVE: //save
						++values[MENU_SEL_STATE]; break;
					case SELECTION_RETRY: //retry
						++values[MENU_SEL_STATE]; break;
					case SELECTION_CANCEL: //3
						++values[MENU_SEL_STATE] = 1; break;
					case SELECTION_CONTINUE: //3
						values[MENU_SEL_STATE] = 1; break;
					default: //cance;
						values[MENU_SEL_STATE] = 0; break;
				}
			}
			if ( Link->PressUp )
			{
				Game->PlaySound(SFX_GAMEOVERSCREEN_CURSOR);
				switch(values[MENU_SEL_STATE])
				{
					case 1: //save
						values[MENU_SEL_STATE] = 4; break;
					case 2: //retry
						--values[MENU_SEL_STATE]; break;
					case SELECTION_CANCEL: //3
						--values[MENU_SEL_STATE]; break;
					case SELECTION_CONTINUE: //3
						--values[MENU_SEL_STATE]; break;
					default: //cance;
						values[MENU_SEL_STATE] = 0; break;
				}
			}	
		}
		if ( Link->PressStart )
		{
			Game->PlaySound(SFX_GAMEOVERSCREEN_SELECTION);
			int ret = values[MENU_SEL_STATE];
			values[MENU_SEL_STATE] = 1;
			return ret;
		}
	}
	void animation()
	{
	if ( values[DEATHFRAME] == 0 ) Game->PlaySound(SFX_LINKDEATH);
		lweapon death = Screen->CreateLWeapon(LW_SPARKLE);
		
		death->UseSprite(SPR_DEATH);
		death->X = values[DEATH_LX];
		death->Y = values[DEATH_LY];

		while ( values[DEATHFRAME] < END_DEATH_SPIN )
		{
			++values[DEATHFRAME];
			//spin Link around by drawing his tiles, then make the wink out.
			NoAction(); Waitdraw(); Waitframe();
		}
		Remove(death);
		Game->PlaySound(SFX_WINKOUT);
		lweapon death2 = Screen->CreateLWeapon(LW_SPARKLE);
		death2->UseSprite(SPR_DEATH_WINKOUT);
		death2->X = values[DEATH_LX];
		death2->Y = values[DEATH_LY];
		while ( values[DEATHFRAME] < END_DEATH_SPIN+END_WINKOUT )
		{
			++values[DEATHFRAME];
			//wink-out
			NoAction();  Waitdraw(); Waitframe();
		}
		Remove(death2);
	}
}


//Global Active Script
link script noF6
{
	void run()
	{
		while(true)
		{
			//Normal pre-waitdraw functions go here.
		
			//UpdateGhostZH1();
			
			//Put any health refull code above this!
			//Run the check to see if Link is dying...
			if ( F6.press() ) { Game->DisableActiveSubscreen = false; F6.options(); }
			if ( gameover.check() ) break; //LAST before Waitdraw()
			Waitdraw(); 
			
			//Normal post-waitdraw functions go here. 
	       
			//UpdateGhostZH2();
			
			Waitframe();
		}
		while(!gameover.values[gameover.QUIT])
		{
			//gameover.values[gameover.DEATH_LX] = Link->X;
			//gameover.values[gameover.DEATH_LY] = Link->Y;
			//Set game music to a silent MIDI.

			Link->HP = Link->MaxHP;
			Link->Invisible = true;
			Link->CollDetection = false;
			//Clean up screen objects
			gameover.clean_up();
			//Do Link Death animation
			gameover.animation();
			
			bool menu = true;
			Game->PlayMIDI(gameover.MIDI_GAMEOVER);//Play game over midi.
			Game->DisableActiveSubscreen = true;	
			
			while(menu) //menu loop
			{
				//    GAME OVER SCREEN
				gameover.draw(false,false); //gameover.draw(true, ALLOW_F6_CONTINUE); 
				menu = gameover.choice(gameover.ALLOW_DEATH_CONTINUE);
				Waitdraw();
				Waitframe();
			}
			Waitdraw(); Waitframe();
		}
		switch(gameover.values[gameover.QUIT])
		{
			case gameover.quitSAVE:
			{
				++Game->NumDeaths;
				Game->Save();
				Game->End();
				break;
			}
			case gameover.quitRETRY:
			{
				Game->End(); //Retry
				break;
			}
			case gameover.quitCONTINUE:
			{
				F6.do_continue(F6.CONTINUE_HP, YES, F6.CONTINUE_MP, YES);
				break;
			}
			default: break;
		}
	}
}

global script OnExit
{
	void run()
	{
		Link->Invisible = false;
	}
}
}