Slash Combo NPCs and Landmines

/////////////////////////////////////////
/// Slash->Next Jack-In-The-Jox Enemy ///
/// and Slash->Next Z3 Landmines      ///
/// 29-Oct-2016 -  v0.3               ///
/// By: ZoriaRPG                      ///
/////////////////////////////////////////


//Bush Enemy

const int I_ENEMY_SPAWN = 200; //Add this to your dropsets to allow random npc spawns from slash combos.
const int NPC_GUARD_BLUE = 190;
const int NPC_GUARD_GREEN = 191;
const int NPC_GUARD_RED = 192;

//This array holds the enemy IDs for enemies that can be spawned by item 'I_ENEMY_SPAWN'.
int ItemDropSpawnsEnemies[]={NPC_MOBLIN, NPC_ZOL, NPC_STALFOS, NPC_GUARD_GREEN, NPC_GUARD_GREEN, NPC_GUARD_RED};

//Bush Landmine

const int I_LANDMINE = 201; //Add this to your dropsets to allow random landmines from slash combos.
const int MISC_LANDMINE_TIMER = 1; //The index of item->Misc[] to use for the timer.
const int LANDMINE_TIMER_DELAY = -40; //The initial value of the timer.
const int LANDMINE_TIMER_DELAY_TOUCHED = -10; //A value to jump to, if the timer is less than this, and the landmine is touched.
const int LANDMINE_TIMER_EXPLODE = -1; //We explode at this value.

const int LANDMINE_USE_BOMB_NOT_BOMBLAST = 0; //If set, a lit bomb will appear instead of a bombblast.

//Setting the following disables both the bombblast, and the lit boms, and allows setting up a custom weapon.
const int LANDMINE_SPARKLE_SPRITE = 0; //If set, the explosion will use an different sprite and a type specified below:
    //Set up a custom weapon, with hitbox sizing.
const int LANDMINE_ALT_DAMAGE_EFFECT_TYPE = 140; //EW_FIRE
const int LANDMINE_ALT_DAMAGE_EFFECT_HITX = 24; //EW_* Hitbox X Size
const int LANDMINE_ALT_DAMAGE_EFFECT_HITXOFFSET = -8; //EW_* Hitbox X Offset
const int LANDMINE_ALT_DAMAGE_EFFECT_HITY = 24; //EW_* Hitbox Y Size
const int LANDMINE_ALT_DAMAGE_EFFECT_HITYOFFSET = -8; //EW_* Hitbox Y Offset

//Settings
const int USE_SCREEN_FLAG_TO_PERMIT_LANDMINES = 0;
const int USE_SCREEN_FLAG_TO_PERMIT_SHASH_NEXT_NPCS = 0;

const int USE_SCREEN_FLAG_TO_FORBID_LANDMINES = 0;
const int USE_SCREEN_FLAG_TO_FORBID_SHASH_NEXT_NPCS = 0;

//See std_constants.zh for a list of these flags.

//Flag category
const int SF_LANDMINES = 9; //SF_MISC
const int SF_SLASHNEXTNPC = 9;

//Flag in the category
const int SF_LANDMINE_SET = 2; //Misc_1
const int SF_SLASHNEXTNPC_SET = 3;  //Misc_2

//if ( USE_SCREEN_FLAG_TO_PERMIT_LANDMINES && (Screen->Flag[SF_LANDMINES]&SF_LANDMINE_SET != 0) )
//if ( USE_SCREEN_FLAG_TO_PERMIT_SHASH_NEXT_NPCS && ( Screen->Flag[SF_SLASHNEXTNPC]&SF_SLASHNEXTNPC_SET != 0 ) )
//if ( USE_SCREEN_FLAG_TO_FORBID_LANDMINES && (Screen->Flag[SF_LANDMINES]&SF_LANDMINE_SET == 0) )
//if ( USE_SCREEN_FLAG_TO_FORBID_SHASH_NEXT_NPCS && ( Screen->Flag[SF_SLASHNEXTNPC]&SF_SLASHNEXTNPC_SET == 0 ) )

//! Formula for statements that mesh with these options:
//if ( ( !USE_SCREEN_FLAG_TO_FORBID_SHASH_NEXT_NPCS && !USE_SCREEN_FLAG_TO_PERMIT_SHASH_NEXT_NPCS ) ||
//  ( ( USE_SCREEN_FLAG_TO_PERMIT_SHASH_NEXT_NPCS && (Screen->Flag[SF_SLASHNEXTNPC]&SF_SLASHNEXTNPC_SET != 0) ) ||
//  ( USE_SCREEN_FLAG_TO_FORBID_SHASH_NEXT_NPCS && (Screen->Flag[SF_SLASHNEXTNPC]&SF_SLASHNEXTNPC_SET == 0) ) ) )
//
//if ( ( !USE_SCREEN_FLAG_TO_FORBID_LANDMINES && !USE_SCREEN_FLAG_TO_PERMIT_LANDMINES ) ||
//  ( ( USE_SCREEN_FLAG_TO_PERMIT_LANDMINES && (Screen->Flag[SF_LANDMINES]&SF_LANDMINE_SET != 0) ) ||
//  ( USE_SCREEN_FLAG_TO_FORBID_LANDMINES && (Screen->Flag[SF_LANDMINES]&SF_LANDMINE_SET == 0) ) ) )

void ItemSpawnsEnemyOrLandmine(){
    for ( int q = Screen->NumItems(); q > 0; q-- ) {
        item i = Screen->LoadItem(q);
        if ( i->ID == I_ENEMY_SPAWN ) {
            if ( ( !USE_SCREEN_FLAG_TO_FORBID_SHASH_NEXT_NPCS && !USE_SCREEN_FLAG_TO_PERMIT_SHASH_NEXT_NPCS ) ||
                ( ( USE_SCREEN_FLAG_TO_PERMIT_SHASH_NEXT_NPCS && (Screen->Flag[SF_SLASHNEXTNPC]&SF_SLASHNEXTNPC_SET != 0) ) ||
                ( USE_SCREEN_FLAG_TO_FORBID_SHASH_NEXT_NPCS && (Screen->Flag[SF_SLASHNEXTNPC]&SF_SLASHNEXTNPC_SET == 0) ) )
            ) {
                i->HiXOffset = -200;
                npc n = Screen->CreateNPC( ItemDropSpawnsEnemies[Rand(SizeOfArray(ItemDropSpawnsEnemies))] );
                n->X = i->X; n->Y = i->Y;
            }
            Remove(i);
        }
        if ( i->ID == I_LANDMINE ) {

            if ( ( !USE_SCREEN_FLAG_TO_FORBID_LANDMINES && !USE_SCREEN_FLAG_TO_PERMIT_LANDMINES ) ||
                ( ( USE_SCREEN_FLAG_TO_PERMIT_LANDMINES && (Screen->Flag[SF_LANDMINES]&SF_LANDMINE_SET != 0) ) ||
                ( USE_SCREEN_FLAG_TO_FORBID_LANDMINES && (Screen->Flag[SF_LANDMINES]&SF_LANDMINE_SET == 0) ) )
            ) {
                if ( !i->Misc[1] ) {
                    i->HitXOffset = -200;
                    i->Misc[MISC_LANDMINE_TIMER] = -LANDMINE_TIMER_DELAY;
                }
                if ( i->Misc[1] ) {
                    if ( i->Misc[MISC_LANDMINE_TIMER] == LANDMINE_TIMER_EXPLODE ) {
                        if ( LANDMINE_SPARKLE_SPRITE ) {
                            lweapon l = Screen->CreateLWeapon(LW_SPARKLE);
                            l->UseSprite = LANDMINE_SPARKLE_SPRITE;
                            l->HitXOffset = -200;
                            l->X = i->X;
                            l->Y = i->Y;

                            ew = Screen->CreateEWeapon(LANDMINE_ALT_DAMAGE_EFFECT_TYPE);
                            ew->X = i->X + LANDMINE_ALT_DAMAGE_EFFECT_HITX;
                            ew->Y = i->Y + LANDMINE_ALT_DAMAGE_EFFECT_HITY;
                            ew->HitXOffset = LANDMINE_ALT_DAMAGE_EFFECT_HITXOFFSET;
                            ew->HitYOffset = LANDMINE_ALT_DAMAGE_EFFECT_HITYOFFSET;
                        }

                        else {
                            if ( LANDMINE_USE_BOMB_NOT_BOMBLAST ) eweapon ew = Screen->CreateEWeapon(EW_BOMBBLAST);
                            else eweapon ew = Screen->CreateEWeapon(EW_BOMBBLAST);
                            ew->X = i->X; ew->Y = i->Y;
                        }
                        Remove(i);
                    }
                    if ( i->Misc[MISC_LANDMINE_TIMER] < LANDMINE_TIMER_DELAY_TOUCHED && LinkCollision(i) ) {
                        //I would prefer collision only with the lower part of Link for this, as a step trigger.
                        // ew = Screen->CreateEWeapon(EW_BOMBBLAST);
                        //ew->X = i->X; ew->Y = i->Y;
                        //Remove(i);
                        i->Misc[MISC_LANDMINE_TIMER] = LANDMINE_TIMER_DELAY_TOUCHED; //Advance the delay when touched.
                    }
                    else i->Misc[MISC_LANDMINE_TIMER]++;
                }
            }
            else Remove(i);
        }
    }
}

void ItemSpawnsEnemy(){
    for ( int q = Screen->NumItems(); q > 0; q-- ) {
        item i = Screen->LoadItem(q);
        if ( i->ID == I_ENEMY_SPAWN ) {
            i->HiXOffset = -200;
            npc n = Screen->CreateNPC( ItemDropSpawnsEnemies[Rand(SizeOfArray(ItemDropSpawnsEnemies))] );
            n->X = i->X; n->Y = i->Y;
        }
    }
}

//! Example Global Script
global script BushSurpriseDemo{
    void run(){
        while(true){
            ItemSpawnsEnemyOrLandmine();
            Waitdraw();
            Waitframe();
        }
    }
}

//! FFC to manually place lndmines, or enemies.
//! If you wish to manually place NPCs or Landmines to appear out of pots, or bushes, or if you do not
//! want to allow these things to appear under any slash combo, use this ffc to generate them.
//! Using this, you do not need to add I_LANDMINE or I_ENEMY_SPAWN to shash combo droplists, although
//! you may still add either, or both, if you wish.
//Set D0 as follows: -1 for random NPC from list, 0 for landmine, positive number for a specific npc (use the npc ID).
//Set D1 if you use a specific npc, to set a delay before spawning it, or to add a delay into other effects.
ffc script PlaceSLashNextNPC_or_Landmine{
    void run(int npc_id, int comboID, int delay){
        npc n; item i;
        while(true){
            if ( ComboAt(this->X, this->Y) == combo_ID ) {
                if ( npc_id > 0 ) {
                    Waitframes(delay);
                    n = Screen->CreateNPC(npc_id);
                    n->X = this->X; n->Y = this->Y;
                    Waitframe(); this->Data = 0; this->Script = 0; Quit();
                }
                if ( npc_id < 0 ) {
                    Waitframes(delay);
                    i = Screen->CreateItem(I_ENEMY_SPAWN);
                    i->X = this->X; i->Y = this->Y;
                    Waitframe(); this->Data = 0; this->Script = 0; Quit();
                }
                if ( !npc_id ) {
                    Waitframes(delay);
                    i = Screen->CreateItem(I_LANDMINE);
                    i->X = this->X; i->Y = this->Y;
                    Waitframe(); this->Data = 0; this->Script = 0; Quit();
                }
                Waitframe();
            }
        }
    }
}