NWScript:

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* Created By: Astaroth

* Created On: 6/22/2002

* Clears a PC's inventory when he/she first enters the trigger.

* Only runs once, when CLEAR_INV_SCENE variable equals 0.

* After running, CLEAR_INV_SCENE is set to 1 so PC's

* inventory isn't cleared again should he/she walk back into

* the trigger for whatever reason.

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

void main()

{

    object oEnteringPC;

    object oInvItem;

    // Get the object that last entered this area

    oEnteringPC = GetEnteringObject();

    // Make sure the object is a PC

    if (GetIsPC(oEnteringPC))

    {

        // Only clear inventory if we haven't already done it before

        if (GetLocalInt(oEnteringPC, "CLEAR_INV_SCENE1") == 0)

        {

            oInvItem = GetFirstItemInInventory(oEnteringPC);

            while (oInvItem != OBJECT_INVALID)

            {

                //ActionTakeItem(oInvItem, oEnteringPC);

                DestroyObject(oInvItem);

                oInvItem = GetNextItemInInventory(oEnteringPC);

            }

            // Since GetNextItemInInvetory() seems to not return equipped items,

            // we need to manually remove them one by one.

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_ARMS, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_ARROWS, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_BELT, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_BOLTS, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_BOOTS, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_BULLETS, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_CARMOUR, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_CHEST, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_CLOAK, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_CWEAPON_B, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_CWEAPON_L, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_CWEAPON_R, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_HEAD, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_LEFTRING, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_NECK, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oEnteringPC))  )

                DestroyObject(oInvItem);

            if ( OBJECT_INVALID != (oInvItem = GetItemInSlot(INVENTORY_SLOT_RIGHTRING, oEnteringPC))  )

                DestroyObject(oInvItem);

            // Make sure this script doesn't run anymore for the current PC

            SetLocalInt(oEnteringPC, "CLEAR_INV_SCENE1", 1);

        }

    }

}

Now could someone from Bioware explain to me why NWN crashes when the above code is attached to an Area's "OnEnter" event? I find it hard to believe that any of the above functions call data that hasn't been initialized by the time an Area's "OnEnter" even is fired.