void main()
{
object oPC = GetPCSpeaker();
ActionPauseConversation();
            object oGear = GetItemInSlot(INVENTORY_SLOT_ARMS, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_BELT, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_BOLTS, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_BOOTS, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_CHEST, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_CLOAK, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_HEAD, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_LEFTHAND, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_LEFTRING, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_NECK, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            oGear = GetItemInSlot(INVENTORY_SLOT_RIGHTRING, oPC);
            if(GetIsObjectValid(oGear)) DestroyObject(oGear);
            object oStuff = GetFirstItemInInventory(oPC);
            while(GetIsObjectValid(oStuff))
            {
             DestroyObject(oStuff);
             oStuff = GetNextItemInInventory(oPC);
            }
            SetXP(oPC, 325000);
            CreateItemOnObject("queststone", oPC, 1);
            CreateItemOnObject("keepstone", oPC, 1);
            CreateItemOnObject("treestone", oPC, 1);
            CreateItemOnObject("dwarfstone", oPC, 1);
            CreateItemOnObject("chapterstone", oPC, 1);
            int nInt=GetGold(oPC);
            AssignCommand(oPC, TakeGoldFromCreature(nInt, oPC, TRUE));
            GiveGoldToCreature(oPC, 13000000);
            ApplyEffectToObject(DURATION_TYPE_INSTANT,
            EffectVisualEffect(VFX_IMP_DOMINATE_S), oPC);
            DelayCommand(4.0,StartNewModule("Dragon's Bane"));
}