npc script wolf

npc script wolfie
{
    void run()
    {
        int clks[3];
        eweapon bite = Screen->CreateEWeapon(EW_SCRIPT1);
        bite->DrawYOffset = -32768;
        clks[1] = Rand(120,210);
        clks[2] = 60;
        while(1)
        {

            if( (--clks[1]) < 1 )
            {
                clks[1] = Rand(120,210);
                //slow down
                do
                {
                    --this->Step;
                    nmes::transform2x1(this,clks);
                    bite->DeadState = WDS_ALIVE;
                    Waitframe();
                } while(this->Step > 0);
                //change dir
                this->Dir = Rand(4);
                nmes::transform2x1(this,clks);

                //speed up
                do
                {
                    ++this->Step;
                    nmes::transform2x1(this,clks);
                    bite->DeadState = WDS_ALIVE;
                    Waitframe();
                }
                while (this->Step < Game->LoadNPCData(this->ID)->Step);
            }
            nmes::transform2x1(this,clks);
            //this->HaltingWalk({this->Rate, this->Homing, 0, this->Haltrate, Game->LoadNPCData(this->ID)->Random});
            //this->ConstantWalk({this->Rate, this->Homing, this->Hunger});
            bite->DeadState = WDS_ALIVE;
            Waitframe();
        }
    }
}

namespace nmes
{
    void transformbite(npc n, eweapon e)
    {
        bite->X = n->X-n->HitXOffset;
        bite->Y = n->Y-n->HitYOffset;
    }
    void transform2x1(npc n, int clk)
    {
        ++clk[0];
        int f4 = Floor(clk[0]/(n->ASpeed/4));
        if( f4 >= 4 ) { f4 = 0; clk[0] = 0;}
        switch(n->Dir)
        {
            case DIR_DOWN:
                n->Tile = (Game->LoadNPCData(n->ID)->Tile) + 4 + f4;
                n->OriginalTile = n->Tile;
                n->HitXOffset = 0;
                n->HitYOffset = -16;
                n->DrawXOffset = 0;
                n->DrawYOffset = -16;
                n->TileWidth = 1;
                n->TileHeight = 2;
                n->HitWidth = 16;
                n->HitHeight = 32;
                break;
            case DIR_RIGHT:
                n->Tile = (Game->LoadNPCData(n->ID)->Tile) + 60 + (f4 * 2);
                n->OriginalTile = n->Tile;
                n->HitXOffset = -16;
                n->HitYOffset = 0;
                n->DrawXOffset = -16;
                n->DrawYOffset = 0;
                n->TileWidth = 2;
                n->TileHeight = 1;
                n->HitWidth = 32;
                n->HitHeight = 16;
                break;
            case DIR_LEFT:
                n->Tile = (Game->LoadNPCData(n->ID)->Tile) + 40 + (f4 *2);
                n->OriginalTile = n->Tile;
                n->TileWidth = 2;
                n->TileHeight = 1;
                n->HitWidth = 32;
                n->HitHeight = 16;
                n->HitXOffset = 0;
                n->HitYOffset = 0;
                n->DrawXOffset = 0;
                n->DrawYOffset = 0;
                break;
            case DIR_UP:
                n->Tile = (Game->LoadNPCData(n->ID)->Tile) + f4;
                n->OriginalTile = n->Tile;
                n->TileWidth = 1;
                n->TileHeight = 2;
                n->HitWidth = 16;
                n->HitHeight = 32;
                n->HitXOffset = 0;
                n->HitYOffset = 0;
                n->DrawXOffset = 0;
                n->DrawYOffset = 0;
                break;

        }
    }
}