Great Book of Cheating [v0.2.0] (requested by Sans)

//////////////////////////////
/// 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();
    }
}