Destroy item with highest value

What it does
Script searches the whole inventory of a PC for the item with the highest value.

The Script
//Another crappy script from Incanus //Use it while PC is in conversation. Otherwise u will have to change the object oPC // //Enjoy or destroy! :)   //Based upon script from Bioware by Tolan Fellowes /* Check all items in PC inventory and search for the highest value. Destroy thingy with highest value oPC: The PC Speaker who is in conversation void main {    object oPC;                 //PC    //used for multiple items which are stackable    int     nStackSize;    int     nCount;             //used in for loops    object  oPCItem;            //PC inventory items    //Object used to get/set item properties    object  oMostValue;    string  sMostValue;    string  sMostValue1;    int     nGoldValue;    oPC = GetPCSpeaker;    oMostValue = GetObjectByTag("");        //Get the first item in PC inventory        oPCItem = GetFirstItemInInventory(oPC);        //Set starting value = 0 and store it        nGoldValue = 0;        SetLocalInt(oMostValue,sMostValue,nGoldValue);        //loop thru until PC inventory is empty        while(oPCItem != OBJECT_INVALID) {           //Get the number of stacked items nStackSize = GetNumStackedItems(oPCItem); //Search items in PC's inventory (stacked) and compare for(nCount = 0; nCount < nStackSize; nCount++) {               //Get Value of item nGoldValue = GetGoldPieceValue(oPCItem); if (nGoldValue>(GetLocalInt(oMostValue,sMostValue))) {                   SetLocalInt(oMostValue,sMostValue,nGoldValue); SetLocalString(oMostValue,sMostValue1,GetTag(oPCItem)); SendMessageToPC(oPC,"Item: "+GetLocalString(oMostValue,sMostValue1)+" ;Value: "+IntToString(GetLocalInt(oMostValue,sMostValue))); //just 4 checking the script }           }            //Get the next item oPCItem = GetNextItemInInventory(oPC); }       //loop thru PC slot items and compare for(nCount = 0; nCount < NUM_INVENTORY_SLOTS; nCount++) {           oPCItem = GetItemInSlot(nCount, oPC); if(oPCItem != OBJECT_INVALID) {               nGoldValue = GetGoldPieceValue(oPCItem); if (nGoldValue>(GetLocalInt(oMostValue,sMostValue))) {                   SetLocalInt(oMostValue,sMostValue,nGoldValue); SetLocalString(oMostValue,sMostValue1,GetTag(oPCItem)); SendMessageToPC(oPC,"Item: "+GetLocalString(oMostValue,sMostValue1)+" ;Value: "+IntToString(GetLocalInt(oMostValue,sMostValue))); //just 4 checking the script }           }        } //remove item from PC inventory string sDestroy = GetLocalString(oMostValue,sMostValue1); DestroyObject(GetObjectByTag(sDestroy)); //PCMessage to confirm destruction of highest value thingy SendMessageToPC(oPC,"Destroyed: "+GetLocalString(oMostValue,sMostValue1)+" ;Value: "+IntToString(GetLocalInt(oMostValue,sMostValue))); //Set all locals to 0 SetLocalInt(oMostValue,sMostValue,0); SetLocalString(oMostValue,sMostValue1,""); }

footnote
u see, it's not the finest script, but it works fine (tried several times and every time the script runs, item with highest value gets destroyed