Microsoft Visual C++ Runtime Library

Runtime error
Program C:\Games\potc\ENGINE.exe

abnormal program termination

// Dialog =====================================================================
    CI_CreateAndSetControls( "DialogControls", "DlgAction", CI_GetKeyCode("VK_LBUTTON"), 0, false );
    CI_CreateAndSetControls( "", "DlgCancel", CI_GetKeyCode("VK_ESCAPE"), 0, false );
    CI_CreateAndSetControls( "DialogControls", "DlgUp", CI_GetKeyCode("KEY_W"), 0, false );
    CI_CreateAndSetControls( "DialogControls", "DlgDown", CI_GetKeyCode("KEY_S"), 0, false );
    CI_CreateAndSetControls( "DialogControls", "DlgScrollUp", CI_GetKeyCode("VK_PRIOR"), 0, false );
    CI_CreateAndSetControls( "DialogControls", "DlgScrollDown", CI_GetKeyCode("VK_NEXT"), 0, false );

.....
void Dead_OpenBoxProcedure()
{
    ref chr = GetMainCharacter();
    int dchr_index;
    ref deadCh;
    ref chrdead;
    dchr_index = Dead_FindCloseBody();
    if (dchr_index == -1) return;
    
    deadCh = &Dead_Characters[dchr_index];
    
    Dead_LaunchCharacterItemChange(deadCh);

    //added corpse disappear when it is empty
    if (GetItemsWeight(deadCh) < 0.001) {
        Dead_DelLoginedCharacter(deadCh);
        chrdead = &Characters[GetCharacterIndex(deadCh.id)];
        CharacterExitFromLocation(chrdead);
    }
}
....

void BuyAmmoForOfficer(ref PChar, ref officer) {
    if (sti(officer.BuyAmmo) == 0) {
        return;
    }

    object itemsToBuy;
    string itemId;
    int i, itemsCount, totalCost;
    aref itemAttribute;
    ref itemRef;
    float totalWeight;
    totalWeight = 0.0;
    totalCost = 0;

    switch (sti(officer.BuyAmmo)) {
        case 1:
            itemsToBuy.bullet = 5;
            itemsToBuy.potion1 = 3;
            break;
        case 2:
            itemsToBuy.bullet = 10;
            itemsToBuy.potion1 = 5;
            itemsToBuy.potion2 = 1;
            itemsToBuy.potion3 = 1;
            break;
        case 3:
            itemsToBuy.bullet = 20;
            itemsToBuy.potion1 = 8;
            itemsToBuy.potion2 = 5;
            itemsToBuy.potion4 = 2;
            break;
    }


    for(i = 0; i < GetAttributesNum(itemsToBuy); i++) {
        itemAttribute = GetAttributeN(&itemsToBuy, i);
        itemId = GetAttributeName(itemAttribute);
        itemsCount = GetAttributeValue(itemAttribute);
        itemsCount = itemsCount - sti(GetCharacterItem(officer, itemId));
        if (itemsCount < 1) {
            itemsToBuy.(itemId) = 0;
            itemsCount = 0;
        } else {
            itemsToBuy.(itemId) = itemsCount;
        }
        itemRef = ItemsFromID(itemId);
        totalWeight = totalWeight + stf(itemRef.Weight) * itemsCount;
        totalCost = totalCost + GetBuyPriceByCharacter(sti(itemRef.price), officer) * itemsCount;
    }

    if (totalCost < 1) return; //dont buy anything

    if (sti(Pchar.Money) < totalCost || (GetMaxItemsWeight(officer) - GetItemsWeight(officer)) < totalWeight) {
        Log_Info("Недостаточно места или денег для закупки амуниции для " + officer.name + " " + officer.lastname);
        return;
    }

    for(i = 0; i < GetAttributesNum(itemsToBuy); i++) {
        itemAttribute = GetAttributeN(&itemsToBuy,i);
        itemId = GetAttributeName(itemAttribute);
        itemsCount = GetAttributeValue(itemAttribute);
        TakeNItems(officer, itemId, itemsCount);
    }
    AddMoneyToCharacter(PChar, -totalCost);
    Log_Info("Закуплена амуниция для " + officer.name + " " + officer.lastname);
}

int GetBuyPriceByCharacter(int itmprice, ref character)
{
    float skillDelta = GetSummonSkillFromNameToOld(character,SKILL_COMMERCE);
    Log_Info("Character delta: " + skillDelta);
    float skillModify;
    skillModify = 1.4 - skillDelta*0.019;
    if (CheckOfficersPerk(character,"AdvancedCommerce")) {
        skillModify -= 0.2;
    }
    else
    {
        if(CheckOfficersPerk(character,"BasicCommerce")) {
            skillModify -= 0.1;
        }
    }

    return makeint(makefloat(itmprice)*skillModify);
}