#include "npc_common.h"

#include "npc_xenoborg.h"

#include "particle.h"

#include "net.h"

#include <string.h>

extern void SetSeededFastRandom(int seed);

CORPSEDATABLOCK* make_new_corpse(AVP_BEHAVIOUR_TYPE type)

{

    CORPSEDATABLOCK *new_corpse = malloc(sizeof(CORPSEDATABLOCK));

    if (NULL != new_corpse)

    {

        new_corpse->timer = 0;

        new_corpse->validityTimer = 0;

        new_corpse->SoundHandle = SOUND_NOACTIVEINDEX;

        new_corpse->SoundHandle2 = SOUND_NOACTIVEINDEX;

        new_corpse->SoundHandle3 = SOUND_NOACTIVEINDEX;

        new_corpse->SoundHandle4 = SOUND_NOACTIVEINDEX;

        new_corpse->HModelController.Deltas = NULL;

        new_corpse->HModelController.Root_Section = NULL;

        new_corpse->HModelController.section_data = NULL;

        new_corpse->Type = type;

        new_corpse->hltable = NULL;

        new_corpse->This_Death = NULL;

        new_corpse->CloakStatus = PCLOAK_Off;

        new_corpse->CloakTimer = 0;

        new_corpse->My_Gunflash_Section = NULL;

        new_corpse->TemplateRoot = NULL;

        new_corpse->My_Weapon = NULL;

        new_corpse->weapon_variable = 0;

        new_corpse->subtype = 0;

        new_corpse->Wounds = 0;

        new_corpse->DeathFiring = 0;

        new_corpse->SelfDestructTimer = 0;

        new_corpse->BurstTimer = 0;

        new_corpse->clipammo= 0;

        new_corpse->volleySize = 0;

        new_corpse->myGunFlash = NULL;

    }

    return new_corpse;

}

/* these functions are called directly by the visibility management system */

void MakeCorpseNear(STRATEGYBLOCK *sbPtr)

{

    CORPSEDATABLOCK *corpseData = (CORPSEDATABLOCK *)sbPtr->dataptr;

    assert(corpseData);

    DISPLAYBLOCK *dPtr = CreateActiveObject();

    if(dPtr)

    {

        dPtr->ObShape = sbPtr->shapeIndex;

        dPtr->ShapeData = mainshapelist[sbPtr->shapeIndex];

        sbPtr->DisplayBlock = dPtr;

        dPtr->ObStrategyBlock = sbPtr;

        /* need to initialise positional information in the new display block */ 

        /*Must be done before ProveHModel*/

        dPtr->ObWorld = sbPtr->DynPtr->Position;

        dPtr->ObEuler = sbPtr->DynPtr->OrientEuler;

        dPtr->ObMat = sbPtr->DynPtr->OrientMat;

         /* set the animation sequence, if we're a player corpse */

        /* Okay, no messing, you MUST be a player corpse. */

        dPtr->HModelControlBlock = &corpseData->HModelController;

        ProveHModel(dPtr->HModelControlBlock,dPtr);

    }

}

void SetCorpseAnimSequence_Core(STRATEGYBLOCK *sbPtr,HMODEL_SEQUENCE_TYPES type, int subtype, int length, int tweeningtime)

{

    CORPSEDATABLOCK *corpseStatus = (CORPSEDATABLOCK *)(sbPtr->dataptr);

    assert(length != 0);

    if (tweeningtime <= 0)

        InitHModelSequence(&corpseStatus->HModelController,(int)type,subtype,length);

    else

        InitHModelTweening(&corpseStatus->HModelController, tweeningtime, (int)type,subtype,length,0);

    corpseStatus->HModelController.Playing = 1;

    /* Might be unset... */

}

void Convert_Alien_To_Corpse(STRATEGYBLOCK *sbPtr, DEATH_DATA *this_death, const DAMAGE_PROFILE* damage)

{

    ALIEN_STATUS_BLOCK *alienStatusPointer = (ALIEN_STATUS_BLOCK *)(sbPtr->dataptr);    

    CORPSEDATABLOCK *corpseDataPtr = make_new_corpse(I_BehaviourAlien);

    assert(this_death);

    if(NULL == corpseDataPtr)

    {

        RemoveBehaviourStrategy(sbPtr);

        return;

    }

    corpseDataPtr->This_Death = this_death;

    switch (alienStatusPointer->Type)

    {

        case Standard:

        default:

            corpseDataPtr->hltable = GetThisHitLocationTable("alien");

        break;

        case Predalien:

            corpseDataPtr->subtype = 1;

            corpseDataPtr->hltable = GetThisHitLocationTable("predalien");

        break;

        case Praetorian:

            corpseDataPtr->subtype = 2;

            corpseDataPtr->hltable = GetThisHitLocationTable("praetorian");

    }

    /* Remember wounds, or not? */

    Splice_HModels(&corpseDataPtr->HModelController, alienStatusPointer->HModelController.section_data);

    /* Heh... now bin the old data block! */

    if(alienStatusPointer->soundOnFire != SOUND_NOACTIVEINDEX)

        Sound_Stop(alienStatusPointer->soundOnFire);

    if(alienStatusPointer->sound_mouth != SOUND_NOACTIVEINDEX)

        Sound_Stop(alienStatusPointer->sound_mouth);

    Dispel_HModel(&alienStatusPointer->HModelController);

    free(sbPtr->dataptr);

    /* Turn into the corpse. */

    sbPtr->dataptr = corpseDataPtr;

    sbPtr->type = I_BehaviourCorpse;

    SetCorpseAnimSequence_Core(sbPtr, this_death->Sequence_Type, this_death->Sub_Sequence, this_death->Sequence_Length, this_death->TweeningTime);

    if (sbPtr->DisplayBlock)

    {

        /* Swap controllers round. */

        sbPtr->DisplayBlock->HModelControlBlock = &corpseDataPtr->HModelController;

        ProveHModel(&corpseDataPtr->HModelController, sbPtr->DisplayBlock);

    }

    else

    {

        ProveHModel_Far(&corpseDataPtr->HModelController, sbPtr);

    }

    corpseDataPtr->timer = ALIEN_DYINGTIME;

    corpseDataPtr->validityTimer = CORPSE_VALIDITY_TIME;

    corpseDataPtr->HModelController.Looped = 0;

    corpseDataPtr->HModelController.LoopAfterTweening = 0;

    /* stop motion */

    sbPtr->DynPtr->LinImpulse.vx += sbPtr->DynPtr->LinVelocity.vx;

    sbPtr->DynPtr->LinImpulse.vy += sbPtr->DynPtr->LinVelocity.vy;

    sbPtr->DynPtr->LinImpulse.vz += sbPtr->DynPtr->LinVelocity.vz;

    sbPtr->DynPtr->LinVelocity.vx = sbPtr->DynPtr->LinVelocity.vy = sbPtr->DynPtr->LinVelocity.vz = 0;

    sbPtr->DynPtr->CanClimbStairs = 0;

    sbPtr->DynPtr->UseStandardGravity = 1;

    /* KJL 17:19:35 27/08/98 - ignore the player, other body parts, etc */

    sbPtr->DynPtr->OnlyCollideWithEnvironment = 1;

    /* Electric death sound? */

    if (corpseDataPtr->This_Death->Electrical)

        Sound_Play(SID_ELEC_DEATH, "de", &sbPtr->DynPtr->Position, &corpseDataPtr->SoundHandle4);

}

void Convert_Predator_To_Corpse(STRATEGYBLOCK *sbPtr, DEATH_DATA *this_death)

{

    PREDATOR_STATUS_BLOCK *predatorStatusPointer = (PREDATOR_STATUS_BLOCK *)(sbPtr->dataptr);    

    CORPSEDATABLOCK *corpseDataPtr = make_new_corpse(I_BehaviourPredator);

    if(NULL == corpseDataPtr)

    {

        RemoveBehaviourStrategy(sbPtr);

        return;

    }

    if (PBS_SelfDestruct == predatorStatusPointer->behaviourState)

    {

        if (1 == predatorStatusPointer->internalState)

            corpseDataPtr->SelfDestructTimer = predatorStatusPointer->stateTimer;

    }

    corpseDataPtr->This_Death = this_death;

    corpseDataPtr->CloakStatus = predatorStatusPointer->CloakStatus;

    corpseDataPtr->CloakTimer  = predatorStatusPointer->CloakTimer;

    corpseDataPtr->hltable = GetThisHitLocationTable(predatorStatusPointer->Selected_Weapon->HitLocationTableName);

    /* Remember wounds, or not? */

    Splice_HModels(&corpseDataPtr->HModelController, predatorStatusPointer->HModelController.section_data);

    if (this_death->Template)

    {

        /* Convert to template. */

        SECTION *root = GetNamedHierarchyFromLibrary("hnpcpredator", "Template");

        Transmogrify_HModels(sbPtr, &corpseDataPtr->HModelController, root, 1, 0, 0);

    }

    /* Heh... now bin the old data block! */

    if(predatorStatusPointer->soundHandle != SOUND_NOACTIVEINDEX)

        Sound_Stop(predatorStatusPointer->soundHandle);

    Dispel_HModel(&predatorStatusPointer->HModelController);

    free(sbPtr->dataptr);

    /* Turn into the corpse. */

    sbPtr->dataptr = corpseDataPtr;

    sbPtr->type = I_BehaviourCorpse;

     SetCorpseAnimSequence_Core(sbPtr, this_death->Sequence_Type, this_death->Sub_Sequence, this_death->Sequence_Length, this_death->TweeningTime);

    if (sbPtr->DisplayBlock)

    {

        /* Swap controllers round. */

        sbPtr->DisplayBlock->HModelControlBlock = &corpseDataPtr->HModelController;

        ProveHModel(&corpseDataPtr->HModelController, sbPtr->DisplayBlock);

    }

    else

    {

        ProveHModel_Far(&corpseDataPtr->HModelController, sbPtr);

    }

    corpseDataPtr->timer = PRED_DIETIME;

    corpseDataPtr->validityTimer = CORPSE_VALIDITY_TIME;

    corpseDataPtr->HModelController.Looped = 0;

    corpseDataPtr->HModelController.LoopAfterTweening = 0;

    /* stop motion */

    sbPtr->DynPtr->LinImpulse.vx += sbPtr->DynPtr->LinVelocity.vx;

    sbPtr->DynPtr->LinImpulse.vy += sbPtr->DynPtr->LinVelocity.vy;

    sbPtr->DynPtr->LinImpulse.vz += sbPtr->DynPtr->LinVelocity.vz;

    sbPtr->DynPtr->LinVelocity.vx = sbPtr->DynPtr->LinVelocity.vy = sbPtr->DynPtr->LinVelocity.vz = 0;

    sbPtr->DynPtr->CanClimbStairs = 0;

    /* KJL 17:19:35 27/08/98 - ignore the player, other body parts, etc */

    sbPtr->DynPtr->OnlyCollideWithEnvironment = 1;

    /* Electric death sound? */

    if (corpseDataPtr->This_Death->Electrical)

        Sound_Play(SID_ELEC_DEATH, "de", &sbPtr->DynPtr->Position, &corpseDataPtr->SoundHandle4);

}

void Convert_Marine_To_Corpse(STRATEGYBLOCK *sbPtr, DEATH_DATA *this_death)

{

    MARINE_STATUS_BLOCK *marineStatusPointer = (MARINE_STATUS_BLOCK *)(sbPtr->dataptr);    

    CORPSEDATABLOCK *corpseDataPtr = make_new_corpse(I_BehaviourMarine);

    if(NULL == corpseDataPtr)

    {

        RemoveBehaviourStrategy(sbPtr);

        return;

    }

    corpseDataPtr->This_Death = this_death;

    corpseDataPtr->My_Weapon = marineStatusPointer->My_Weapon;

    corpseDataPtr->My_Gunflash_Section = marineStatusPointer->My_Gunflash_Section;

    corpseDataPtr->TemplateRoot = GetNamedHierarchyFromLibrary(marineStatusPointer->My_Weapon->Riffname,
marineStatusPointer->My_Weapon->TemplateName);

    corpseDataPtr->BurstTimer = marineStatusPointer->BurstTimer;

    corpseDataPtr->clipammo = marineStatusPointer->clipammo;

    corpseDataPtr->volleySize = marineStatusPointer->volleySize;

    switch(corpseDataPtr->My_Weapon->id)

    {

        case MNPCW_Flamethrower:

        case MNPCW_CivilianFlamer:

            if(marineStatusPointer->IAmFiring)

                corpseDataPtr->DeathFiring = ((FastRandom() & 65535) > 21846);

        break;

        default:

            corpseDataPtr->DeathFiring = (marineStatusPointer->volleySize < marineStatusPointer->My_Weapon->MinimumBurstSize);

    }

    if(marineStatusPointer->Android)

        corpseDataPtr->subtype = -1;

    else if(marineStatusPointer->My_Weapon->ARealMarine)

        corpseDataPtr->subtype = 1;

    corpseDataPtr->hltable = GetThisHitLocationTable(marineStatusPointer->My_Weapon->HitLocationTableName);            

    /* Remember wounds, or not? */

    Splice_HModels(&corpseDataPtr->HModelController, marineStatusPointer->HModelController.section_data);

    /* Convert to template. */

    if (this_death->Template)

        Transmogrify_HModels(sbPtr, &corpseDataPtr->HModelController, corpseDataPtr->TemplateRoot, 1, 0, 0);

    /* Pass over some sounds? */

    /* Heh... now bin the old data block! */

    if(marineStatusPointer->soundHandle != SOUND_NOACTIVEINDEX)

        Sound_Stop(marineStatusPointer->soundHandle);

    if(marineStatusPointer->sound_mouth != SOUND_NOACTIVEINDEX)

    {

        /* soundHandle2 is the voice! */

        corpseDataPtr->SoundHandle2 = marineStatusPointer->sound_mouth;

        ActiveSounds[marineStatusPointer->sound_mouth].externalRef = &corpseDataPtr->SoundHandle2;

    }

    Dispel_HModel(&marineStatusPointer->HModelController);

    free(sbPtr->dataptr);

    /* Turn into the corpse. */

    sbPtr->dataptr = corpseDataPtr;

    sbPtr->type = I_BehaviourCorpse;

     SetCorpseAnimSequence_Core(sbPtr, this_death->Sequence_Type, this_death->Sub_Sequence, this_death->Sequence_Length, this_death->TweeningTime);

    if (sbPtr->DisplayBlock)

    {

        /* Swap controllers round. */

        sbPtr->DisplayBlock->HModelControlBlock = &corpseDataPtr->HModelController;

        ProveHModel(&corpseDataPtr->HModelController, sbPtr->DisplayBlock);

    }

    else

    {

        ProveHModel_Far(&corpseDataPtr->HModelController, sbPtr);

    }

    corpseDataPtr->timer = MARINE_DYINGTIME;

    corpseDataPtr->validityTimer = CORPSE_VALIDITY_TIME;

    corpseDataPtr->HModelController.Looped = 0;

    corpseDataPtr->HModelController.LoopAfterTweening = 0;

    /* stop motion */

    sbPtr->DynPtr->LinImpulse.vx += sbPtr->DynPtr->LinVelocity.vx;

    sbPtr->DynPtr->LinImpulse.vy += sbPtr->DynPtr->LinVelocity.vy;

    sbPtr->DynPtr->LinImpulse.vz += sbPtr->DynPtr->LinVelocity.vz;

    sbPtr->DynPtr->LinVelocity.vx = sbPtr->DynPtr->LinVelocity.vy = sbPtr->DynPtr->LinVelocity.vz = 0;

    sbPtr->DynPtr->CanClimbStairs = 0;

    /* KJL 17:19:35 27/08/98 - ignore the player, other body parts, etc */

    //sbPtr->DynPtr->OnlyCollideWithEnvironment = 1;

    /* Electric death sound? */

    if (corpseDataPtr->This_Death->Electrical)

        Sound_Play(SID_ELEC_DEATH, "de", &sbPtr->DynPtr->Position, &corpseDataPtr->SoundHandle4);

}

void Convert_Xenoborg_To_Corpse(STRATEGYBLOCK *sbPtr,DEATH_DATA *this_death)

{

    XENO_STATUS_BLOCK *xenoStatusPointer = (XENO_STATUS_BLOCK *)(sbPtr->dataptr);    

    CORPSEDATABLOCK *corpseDataPtr = make_new_corpse(I_BehaviourXenoborg);

    if(NULL == corpseDataPtr)

    {

        RemoveBehaviourStrategy(sbPtr);

        return;

    }

    corpseDataPtr->This_Death = this_death;

    corpseDataPtr->hltable = GetThisHitLocationTable("xenoborg");

    /* Remember wounds, or not? */

    Splice_HModels(&corpseDataPtr->HModelController, xenoStatusPointer->HModelController.section_data);

    /* Heh... now bin the old data block! */

    Dispel_HModel(&xenoStatusPointer->HModelController);

    free(sbPtr->dataptr);

    /* Turn into the corpse. */

    sbPtr->dataptr = corpseDataPtr;

    sbPtr->type = I_BehaviourCorpse;

     SetCorpseAnimSequence_Core(sbPtr, this_death->Sequence_Type, this_death->Sub_Sequence, this_death->Sequence_Length, this_death->TweeningTime);

    if (sbPtr->DisplayBlock)

    {

        /* Swap controllers round. */

        sbPtr->DisplayBlock->HModelControlBlock = &corpseDataPtr->HModelController;

        ProveHModel(&corpseDataPtr->HModelController, sbPtr->DisplayBlock);

    }

    else

    {

        ProveHModel_Far(&corpseDataPtr->HModelController, sbPtr);

    }

    corpseDataPtr->timer = XENO_DYINGTIME;

    corpseDataPtr->validityTimer = CORPSE_VALIDITY_TIME;

    corpseDataPtr->HModelController.Looped = 0;

    corpseDataPtr->HModelController.LoopAfterTweening = 0;

    /* stop motion */

    sbPtr->DynPtr->LinImpulse.vx += sbPtr->DynPtr->LinVelocity.vx;

    sbPtr->DynPtr->LinImpulse.vy += sbPtr->DynPtr->LinVelocity.vy;

    sbPtr->DynPtr->LinImpulse.vz += sbPtr->DynPtr->LinVelocity.vz;

    sbPtr->DynPtr->LinVelocity.vx = sbPtr->DynPtr->LinVelocity.vy = sbPtr->DynPtr->LinVelocity.vz = 0;

    sbPtr->DynPtr->CanClimbStairs = 0;

    sbPtr->DynPtr->UseStandardGravity = 1;

    /* KJL 17:19:35 27/08/98 - ignore the player, other body parts, etc */

    sbPtr->DynPtr->OnlyCollideWithEnvironment = 1;

}

void CorpseBehaveFun(STRATEGYBLOCK *sbPtr)

{

    /* Just count down. */

    assert(sbPtr);

    CORPSEDATABLOCK *corpseDataPtr = (CORPSEDATABLOCK *)sbPtr->dataptr;

    if(corpseDataPtr->SelfDestructTimer)

    {

        corpseDataPtr->SelfDestructTimer -= NormalFrameTime;

        if (corpseDataPtr->SelfDestructTimer < 0)

        {

            corpseDataPtr->SelfDestructTimer = 0;

            MakeVolumetricExplosionAt(&sbPtr->DynPtr->Position, EXPLOSION_SADAR_BLAST);

            Sound_Play(SID_NICE_EXPLOSION, "d", &sbPtr->DynPtr->Position);

        }

    }

    else if (corpseDataPtr->timer > 0)

    {

        if (sbPtr->DisplayBlock)

        {

            sbPtr->DisplayBlock->SpecialFXFlags |= SFXFLAG_MELTINGINTOGROUND;

            sbPtr->DisplayBlock->ObFlags2 = corpseDataPtr->timer / 2;

        }

        /* Does the corpse that falls when not visible make no sound? */

        ProveHModel_Far(&corpseDataPtr->HModelController, sbPtr);

        corpseDataPtr->timer -= NormalFrameTime;

        corpseDataPtr->validityTimer -= NormalFrameTime;

        switch(corpseDataPtr->Type)

        {

            case I_BehaviourPredator:

            case I_BehaviourPredatorPlayer:

            {

                /* If we're a partially cloaked predator, continue to decloak. */

                switch(corpseDataPtr->CloakStatus)

                {

                    case PCLOAK_Deactivating:

                    case PCLOAK_Off:

                        /* Do nothing. */

                    break;

                    case PCLOAK_Activating:

                        /* Don't reset timer. */

                        corpseDataPtr->CloakStatus = PCLOAK_Deactivating;

                    break;

                    default:    

                    {

                        /* Cloak must be On. */

                        corpseDataPtr->CloakStatus = PCLOAK_Deactivating;        

                        corpseDataPtr->CloakTimer = 0; /* Was predStatus->PredShimmer. */

                    }

                }

                if (corpseDataPtr->CloakStatus == PCLOAK_Deactivating)

                {

                    corpseDataPtr->CloakTimer += NormalFrameTime;

                    if(corpseDataPtr->CloakTimer >= (ONE_FIXED))

                    {

                        corpseDataPtr->CloakTimer = 0;

                        corpseDataPtr->CloakStatus = PCLOAK_Off;

                    }

                }

            }

            break;

            case I_BehaviourMarine:

            {

                /* Did marine die with the trigger held down? */

                if (corpseDataPtr->DeathFiring && corpseDataPtr->My_Gunflash_Section)

                {

                    /* But is it still attached? */

                    if (corpseDataPtr->My_Gunflash_Section->my_controller == &corpseDataPtr->HModelController)

                    {

                        /* Keep firing! */

                        /* Shouldn't be doing this without knowing why. */

                        MarineDeathFiring(sbPtr);

                    }

                }

                MaintainCorpseGunFlash(sbPtr);

                /* Do we want to trim off the weapons? */

                if (corpseDataPtr->HModelController.keyframe_flags)

                {

                    assert(corpseDataPtr->TemplateRoot);

                    TrimToTemplate(sbPtr, &corpseDataPtr->HModelController, corpseDataPtr->TemplateRoot, 1);

                }

            } // no break

            case I_BehaviourMarinePlayer:

            {

                /* May get decapitated whilst screaming... */

                SECTION_DATA *head = GetThisSectionData(corpseDataPtr->HModelController.section_data, "head");

                /* Is it still attached? */

                if (head && !(head->flags & section_data_notreal))

                {

                    if(corpseDataPtr->SoundHandle2 != SOUND_NOACTIVEINDEX)

                        Sound_Stop(corpseDataPtr->SoundHandle2);

                }

            }

            break;

            case I_BehaviourXenoborg:

            {

                if (sbPtr->DisplayBlock)

                {

                    /* Particularly important for xenoborgs... optional for others? */

                    if (sbPtr->DisplayBlock->ObFlags2 < ONE_FIXED)

                        corpseDataPtr->HModelController.DisableBleeding = 1;

                }

            }

            default:

            break;

        }

        if(corpseDataPtr->SoundHandle4 != SOUND_NOACTIVEINDEX)

            Sound_Update3d(corpseDataPtr->SoundHandle4, &sbPtr->DynPtr->Position);

        if (sbPtr->DamageBlock.IsOnFire)

        {

            if(corpseDataPtr->SoundHandle3 != SOUND_NOACTIVEINDEX)

                Sound_Update3d(corpseDataPtr->SoundHandle3, &sbPtr->DynPtr->Position);

            else

                Sound_Play(SID_FIRE, "dle", &sbPtr->DynPtr->Position, &corpseDataPtr->SoundHandle3);

        }

        else if (corpseDataPtr->SoundHandle3 != SOUND_NOACTIVEINDEX)

        {

            Sound_Stop(corpseDataPtr->SoundHandle3);

        }

    }

    else

    {

        if(corpseDataPtr->SoundHandle  != SOUND_NOACTIVEINDEX) Sound_Stop(corpseDataPtr->SoundHandle);

        if(corpseDataPtr->SoundHandle2 != SOUND_NOACTIVEINDEX) Sound_Stop(corpseDataPtr->SoundHandle2);

        if(corpseDataPtr->SoundHandle3 != SOUND_NOACTIVEINDEX) Sound_Stop(corpseDataPtr->SoundHandle3);

        if(corpseDataPtr->SoundHandle4 != SOUND_NOACTIVEINDEX) Sound_Stop(corpseDataPtr->SoundHandle4);

        sbPtr->please_destroy_me = 1;

        AddNetMsg_LocalObjectDestroyed(sbPtr);

    }

}

void CorpseIsDamaged(STRATEGYBLOCK *sbPtr, const DAMAGE_PROFILE *damage, int wounds, VECTORCH *incoming)

{

    CORPSEDATABLOCK *corpseDataPtr = (CORPSEDATABLOCK *)sbPtr->dataptr;

    corpseDataPtr->Wounds |= wounds;

    if(damage->ExplosivePower)

    {

        Extreme_Gibbing(sbPtr, corpseDataPtr->HModelController.section_data, ONE_FIXED, incoming);

        sbPtr->please_destroy_me = 1;

    }

}