#include "x2_inc_itemprop"

//This is actually the main function.
void script(object oItem, object oPC)
{
     int nCurrentApp = GetItemAppearance(oItem, ITEM_APPR_TYPE_ARMOR_MODEL, ITEM_APPR_ARMOR_MODEL_RTHIGH);
     int nNewApp;
     switch (nCurrentApp)
     {
     case 3: nNewApp = 1; break;
     case 4: nNewApp = 3; break;
     case 5: nNewApp = 4; break;
     case 6: nNewApp = 5; break;
     case 8: nNewApp = 6; break;
     case 9: nNewApp = 8; break;
     case 10: nNewApp = 9; break;
     case 11: nNewApp = 10; break;
     case 12: nNewApp = 11; break;
     case 13: nNewApp = 12; break;
     case 14: nNewApp = 13; break;
     case 15: nNewApp = 14; break;
     case 16: nNewApp = 15; break;
     case 63: nNewApp = 16; break;
     case 80: nNewApp = 63; break;
     case 87: nNewApp = 80; break;
     case 93: nNewApp = 87; break;
     case 94: nNewApp = 93; break;
     case 116: nNewApp = 94; break;
     case 118: nNewApp = 116; break;
     case 121: nNewApp = 118; break;
     case 122: nNewApp = 121; break;
     case 123: nNewApp = 122; break;
     case 151: nNewApp = 123; break;
     case 155: nNewApp = 151; break;
     case 156: nNewApp = 155; break;
     case 157: nNewApp = 156; break;
     case 158: nNewApp = 157; break;
     case 159: nNewApp = 158; break;
     case 160: nNewApp = 159; break;
     case 186: nNewApp = 160; break;
     case 1: nNewApp = 186; break;
     default: nNewApp = 1; break;
     }
     object oModified1 = CopyItemAndModify(oItem, ITEM_APPR_TYPE_ARMOR_MODEL, ITEM_APPR_ARMOR_MODEL_RTHIGH, nNewApp, TRUE);
     object oModified = CopyItemAndModify(oModified1, ITEM_APPR_TYPE_ARMOR_MODEL, ITEM_APPR_ARMOR_MODEL_LTHIGH, nNewApp, TRUE);
     DestroyObject(oModified1);
     SetItemCursedFlag(oModified, TRUE);
     if (oModified != OBJECT_INVALID) DestroyObject(oItem);
     ExecuteScript("craft_pcequip", oPC);
     return;
}

void main()
{
     object oPC = GetPCSpeaker();
     int nSlot = 0;
     object oItem;

     //Check if the item being crafted is equipped
     while (nSlot < 18)
     {
     oItem = GetItemInSlot(nSlot, oPC);
     if (GetLocalInt(oItem, "Prototype") == TRUE) {script(oItem, oPC); return; }
     nSlot++;
     }
     //If the item is not equipped, search for it in the inventory
     oItem = GetFirstItemInInventory(oPC);
     while (GetIsObjectValid(oItem))
     {
     if (GetLocalInt(oItem, "Prototype") == TRUE) {script(oItem, oPC); return; }
     oItem = GetNextItemInInventory(oPC);
     }
}