//////////////////////////////
/// Great Book of Cheating ///
/// v0.2.0 for ZC 2.55     ///
/// 26th March, 2019       ///
/// By: ZoriaRPG           ///
//////////////////////////////
/*

D[0] : The turn off / run out of energy SFX
D[1] : The modulus factor for the movement speed frame timer.
D[2] : The modulus factor for the upkeep cost frame timer. 

Sprites[4] : The sprite for the black hole weapon. 
*/

item script GreatBookOfCheating
{
	void run(int sfxoff, int speedmod, int upkeep_frames)
	{
		speedmod = ( speedmod > 0 ) ? speedmod : 2;
		sfxoff = ( sfxoff > 0 ) ? sfxoff : 64;
		Link->Invisible = true;
		Link->CollDetection = false;
		int frame; int dir; lweapon blackhole;
		blackhole = Screen->CreateLWeapon(LW_SCRIPT);
		blackhole->X = 1; 
		blackhole->Y = 1; 
		blackhole->DrawXOffset = -32768; 
		blackhole->DrawYOffset = -32768; 
		blackhole->CollDetection = false;
		blackhole->Script = this->WeaponScript;
		int pos;
		for ( int q = 0; q < 8; ++q ) blackhole->InitD[q] = this->WeaponInitD[q];
		
		//sprite is blac hold from Sprites[4];
		while(1)
		{
			//If the player taes this item out of its slot, or it is removed from inventory
			//end the effect.
			if ( Hero->ItemA != this->ID && Hero->ItemB != this->ID ) end(blackhole);
			if ( !Hero->Item[this->ID] ) end(blackhole);
			++frame;
			
			if ( frame%speedmod )
			{
				if ( Input->Hold[CB_UP] )
				{
					dir = DIR_UP;
					if ( Input->Hold[CB_LEFT] ) dir+=4;
					if ( Input->Hold[CB_RIGHT] ) dir+=5;
				}
				else if ( Input->Hold[CB_DOWN] )
				{
					dir = DIR_DOWN;
					if ( Input->Hold[CB_LEFT] ) dir+=5;
					if ( Input->Hold[CB_RIGHT] ) dir+=6;
				}
				else if ( Input->Hold[CB_RIGHT] ) 
				{
					dir = DIR_RIGHT;
				}
				else if ( Input->Hold[CB_LEFT] ) 
				{
					dir = DIR_LEFT;
				}
				else dir = -1;
					
				switch(dir)
				{
					case DIR_UP: --Hero->Y; break;
					case DIR_DOWN: ++Hero->Y; break;
					case DIR_LEFT: --Hero->X; break;
					case DIR_RIGHT: ++Hero->X; break;
					case DIR_LEFTUP: --Hero->X; --Hero->Y; break;
					case DIR_RIGHTUP: ++Hero->X; --Hero->Y; break;
					case DIR_LEFTDOWN: --Hero->X; ++Hero->Y; break;
					case DIR_RIGHTDOWN: ++Hero->X; ++Hero->Y; break;
					default break;
				}
			}
			if ( upkeep_frames > 0 ) //if we have an upeep timer
			{
				if ( !(frame%upkeep_frames) ) //cost in upeep
				{
					if ( Game->Counter[this->CostCounter] < this->Cost ) 
					{
						end(blackhole,sfxoff);
					}
					else Game->DCounter[this->CostCounter] -= this->Cost;
				}
			}
			if ( Hero->ItemA == this->ID ) 
			{
				if ( Hero->PressA ) end(blackhole,sfxoff);
			}
			if ( Hero->ItemB == this->ID ) 
			{
				if ( Hero->PressB ) end(blackhole,sfxoff);
			}
			//if ( CanWalk(Hero->X, Hero->Y, Hero->Dir, 0) ) pos = ComboAt(CenterLinkX(), CenterLinkY());
			blackhole->DrawXOffset = Link->X - 1;
			blackhole->DrawYOffset = Link->Y - 1;
			Waitframe();
		}
		/*if ( CanWalk(Hero->X, Hero->Y, Hero->Dir, 0) ) 
		{
			//Hero is stuck in solid 
			
			Hero->X = ComboX(pos);
			Hero->Y = ComboY(pos);
			
			blackhole->DrawXOffset = Link->X - 1;
			blackhole->DrawYOffset = Link->Y - 1;
			
			//or use Adjacentcombo to find the closest nonsolid and push him back out?
		}*/
		if ( CanWalk(Hero->X, Hero->Y, Hero->Dir, 0) ) 
		{
			bool foundpos;
			//Hero is stuck in solid 
			//Spiral outward and find the closest nonsolid position, then move him there. 
			for ( int q = 0; q < 8; ++q ) //dirs
			{
				for ( int w = 0; w < 16; ++w ) //dist
				{
					int pos = AdjacentCombo(ComboAt(CenterLinkX(), CenterLinkY()), q, w );
					If ( !(Screen->ComboS[pos]) ) 
					{
						foundpos = true;
						Hero->X = ComboX(pos);
						Hero->Y = ComboY(pos);
						blackhole->DrawXOffset = Link->X - 1;
						blackhole->DrawYOffset = Link->Y - 1;
					}
				}
			}
			//nothing? He dies. Because I'm evil. 
			if ( !foundpos ) { Hero->HP = 0; end(blackhole,sfxoff); }
		}
	}
	void end(lweapon hole, int sfxoff)
	{
		Link->Invisible = false;
		Link->CollDetection = true;
		Audio->PlaySound(sfxoff);
		Remove(hole);
		Quit();
	}
}