Daira NPC and EWeapon Scripts (v0.2) for 2.55

/////////////////////////////////////////////////////
/// Daira NPC Script for 2.55                     ///
/// v0.2                                          ///
/// 7th March, 2019                               ///
///                                               ///
/// Original Daira by: Tamamo, and NightmareJames ///
/// This version, by: ZoriaRPG                    ///
/////////////////////////////////////////////////////
npc script DairaNPC
{
    void run()
    {

        //Original Tile
        int OTile = this->OriginalTile;

        //Movement Variables
        float counter = -1;
        int step = this->Step;
        int rate = this->Rate;
        int homing = this->Homing;
        int hunger = this->Hunger;

        //Weapon Variables
        eweapon wpn;
        int damage = this->WeaponDamage;
        int attackTimer;
        int attackWait; //Time between swings.
        bool throw = (this->BFlags[4]); //Behavioural FLag 4
        //bool shielded = this->Attributes[0]&4;
        int wSprite = this->WeaponSprite; //Ghost_GetAttribute(ghost,1,-1);

        //Behavior
        while(this->isValid())
        {

            //Attacking
            if(!attackTimer) //Attacks when Link is in Range, and within Line of Sight
            {
                if ( this->LinkInRange(80) )
                {
                    bool LoS = false;
                    switch(this->Dir)
                    {

                        case DIR_UP:
                        {
                            if ( Link->Y > this->Y ) break; //Facing Link
                            if ( Abs(Link->X - this->X) <= 16 ) LoS = true; break;
                        }
                        case DIR_DOWN:
                        {
                            if ( Link->Y < this->Y ) break;
                            if ( Abs(Link->X - this->X) <= 16 ) LoS = true; break;
                        }
                        case DIR_LEFT:
                        {
                            if ( Link->X > this->X ) break;
                            if ( Abs(Link->Y - this->Y) <= 16 ) LoS = true; break;
                        }
                        case DIR_RIGHT:
                        {
                            if ( Link->X < this->X ) break;
                            if ( Abs(Link->Y - this->Y) <= 16 ) LoS = true; break;
                        }
                        default: break;
                    }

                    if ( LoS )
                    {
                        attackWait--;
                        if(attackWait<=0)
                        {
                            attackTimer = 21;
                            attackWait = 60;
                        }
                    }
                }
            }

            if(attackTimer>0) //Attacking?
            {
                if(this->OriginalTile == OTile)
                {
                    wpn=Screen->CreateEWeapon(EW_BEAM);
                    wpn->Dir = Ghost_Dir;
                    wpn->Step= 200;
                    wpn->UseSprite(wSprite);
                    wpn->Damage=damage;
                    wpn->Angular=false;
                    wpn->Script = 1; //daira axe
                    wpn->CSet = this->CSet;
                }
                else if(!wpn->isValid())
                {
                    this->OriginalTile = OTile;
                    Waitframe();
                    attackTimer = 0;
                    continue;
                }
                this->OriginalTile = OTile + 20*Div(28-attackTimer, 7);
                wpn->Tile = this->OriginalTile+this->Dir+16;
                wpn->X = this->X;
                wpn->Y = this->Y;
                wpn->DeadState = WDS_ALIVE;
                if(attackTimer>14)
                {
                    if((this->Dir == DIR_UP || this->Dir == DIR_DOWN))
                        wpn->Y -= 16;
                    else wpn->X -= InFrontX(this->Dir, 0);
                }
                else if(attackTimer>7)
                {
                    if(this->Dir == DIR_UP || this->Dir == DIR_DOWN)
                    {
                        if(this->Dir == DIR_UP )
                            wpn->Y -= 16;
                    }
                    else
                    {
                        wpn->X += InFrontX(this->Dir, 0);
                    }
                }
                else
                {
                    wpn->X += InFrontX(this->Dir,0);
                    wpn->Y += InFrontY(this->Dir,0);
                }
                //the weapon hit boxes are small.
                SetWpnHitOffsets(wpn, Div(28-attackTimer, 7), this->Dir);
                attackTimer--;
            }
            else if(wpn->isValid())
            {
                this->OriginalTile = OTile;
                if(throw)
                {
                    wpn=Screen->CreateEWeapon(EW_BEAM);
                    wpn->Dir = Ghost_Dir;
                    wpn->Step= 200;
                    wpn->UseSprite(wSprite);
                    wpn->Damage=damage;
                    wpn->Angular=false;
                    wpn->Script = 1; //daira axe

                    this->OriginalTile = this->OriginalTile + 80 + (this->Dir*4);
                }
            }
            if(this->HP <= 0)
            {
                wpn->DeadState = WDS_DEAD;
                Quit();
            }
            Waitframe();
        }
    }
    void SetWpnHitOffsets(eweapon wpn, int frame, int dir)
    {
        //Set Default Collision Properties
        wpn->CollDetection = true;
        wpn->HitXOffset = 0;
        wpn->HitYOffset = 0;
        wpn->HitWidth = 16;
        wpn->HitHeight = 16;

        //Modify it based off attack frame.
        switch(frame)
        {
            case 1:
            {
                if(dir == DIR_UP || dir == DIR_DOWN)
                {
                    wpn->CollDetection = false;
                    return;
                }
                else
                    wpn->HitWidth = 8;
                if(dir == DIR_RIGHT)
                    wpn->HitXOffset = 8;
                break;
            }
            case 2:
            {
                if(dir == DIR_UP || dir==DIR_DOWN)
                {
                    wpn->HitHeight = 8;
                    return;
                }
                else
                    wpn->HitWidth = 8;
                if(dir == DIR_LEFT)
                wpn->HitXOffset = 8;
                break;
            }
            case 3:
            {
                wpn->HitXOffset = Cond(dir==DIR_LEFT, 8, 0);
                wpn->HitYOffset = Cond(dir==DIR_UP, 8, 0);
                wpn->HitWidth = Cond(dir==DIR_LEFT||dir==DIR_RIGHT, 8, 16);
                wpn->HitHeight = Cond(dir==DIR_UP||dir==DIR_DOWN, 8, 16);
                break;
            }
            default: //Out of range.
            {
                wpn->DeadState = WDS_DEAD;
                return;
            }
        }
    }
}


////////////////////////////////////
/// Axe Weapon Handler For Daira ///
////////////////////////////////////
eweapon script dairaaxe
{
    void run()
    {
        this->X = Clamp(this->X, 1, 255);
        this->Y = Clamp(this->Y, 1, 175);
        int timer = 22;
        while(this->isValid())
        {
            this->X = Clamp(this->X, 1, 255);
            this->Y = Clamp(this->Y, 1, 175);
            --timer;
            if ( timer < 1 ) { Remove(this); Quit(); }
            Waitframe();
        }
    }
}