cp_produce_callbacks.cpp

Go to the documentation of this file.

/*
Copyright (C) 2002-2023 UFO: Alien Invasion.

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*/

#include "../../cl_shared.h"
#include "../../cl_inventory.h"
#include "../../ui/ui_dataids.h"
#include "cp_campaign.h"
#include "cp_market.h"
#include "cp_ufo.h"
#include "cp_popup.h"
#include "cp_produce.h"
#include "cp_produce_callbacks.h"
#include "cp_base.h"

static itemFilterTypes_t produceCategory = FILTER_S_PRIMARY;

static production_t* selectedProduction = nullptr;

static linkedList_t* productionItemList;

static productionData_t selectedData;

static const int QUEUE_SPACERS = 2;

static void PR_ClearSelectedItems (void)
{
    OBJZERO(selectedData);
    selectedData.type = PRODUCTION_TYPE_MAX;
}

static void PR_ClearSelected (void)
{
    PR_ClearSelectedItems();
    selectedProduction = nullptr;
}

static void PR_UpdateProductionList (const base_t* base)
{
    int i;
    linkedList_t* productionList = nullptr;
    linkedList_t* productionQueued = nullptr;
    linkedList_t* productionAmount = nullptr;
    const production_queue_t* queue;

    assert(base);

    queue = PR_GetProductionForBase(base);

    /* First add all the queue items ... */
    for (i = 0; i < queue->numItems; i++) {
        const production_t* prod = &queue->items[i];
        if (PR_IsItem(prod)) {
            const objDef_t* od = prod->data.data.item;
            cgi->LIST_AddString(&productionList, va("%s", _(od->name)));
            cgi->LIST_AddString(&productionAmount, va("%i", B_ItemInBase(prod->data.data.item, base)));
            cgi->LIST_AddString(&productionQueued, va("%i", prod->amount));
        } else if (PR_IsAircraft(prod)) {
            const aircraft_t* aircraftTemplate = prod->data.data.aircraft;

            cgi->LIST_AddString(&productionList, va("%s", _(aircraftTemplate->name)));
            cgi->LIST_AddString(&productionAmount, va("%i", AIR_CountInBaseByTemplate(base, aircraftTemplate)));
            cgi->LIST_AddString(&productionQueued, va("%i", prod->amount));
        } else if (PR_IsDisassembly(prod)) {
            const storedUFO_t* ufo = prod->data.data.ufo;

            cgi->LIST_AddString(&productionList, va("%s (%.0f%%)", UFO_TypeToName(ufo->ufoTemplate->getUfoType()), ufo->condition * 100));
            cgi->LIST_AddString(&productionAmount, va("%i", US_UFOsInStorage(ufo->ufoTemplate, ufo->installation)));
            cgi->LIST_AddString(&productionQueued, "1");
        }
    }

    /* Then spacers ... */
    for (i = 0; i < QUEUE_SPACERS; i++) {
        cgi->LIST_AddString(&productionList, "");
        cgi->LIST_AddString(&productionAmount, "");
        cgi->LIST_AddString(&productionQueued, "");
    }

    cgi->LIST_Delete(&productionItemList);

    /* Then go through all object definitions ... */
    if (produceCategory == FILTER_DISASSEMBLY) {
        US_Foreach(ufo) {
            /* UFO is being transported */
            if (ufo->status != SUFO_STORED)
                continue;
            /* UFO not researched */
            if (!RS_IsResearched_ptr(ufo->ufoTemplate->tech))
                continue;
            /* The UFO is being disassembled already */
            if (ufo->disassembly)
                continue;

            cgi->LIST_AddPointer(&productionItemList, ufo);
            cgi->LIST_AddString(&productionList, va("%s (%.0f%%)", UFO_TypeToName(ufo->ufoTemplate->getUfoType()), ufo->condition * 100));
            cgi->LIST_AddString(&productionAmount, va("%i", US_UFOsInStorage(ufo->ufoTemplate, ufo->installation)));
            cgi->LIST_AddString(&productionQueued, "");
        }
    } else if (produceCategory == FILTER_AIRCRAFT) {
        for (i = 0; i < ccs.numAircraftTemplates; i++) {
            aircraft_t* aircraftTemplate = &ccs.aircraftTemplates[i];
            /* don't allow producing ufos */
            if (AIR_IsUFO(aircraftTemplate))
                continue;
            if (!aircraftTemplate->tech) {
                cgi->Com_Printf("PR_UpdateProductionList: no technology for craft %s!\n", aircraftTemplate->id);
                continue;
            }

            cgi->Com_DPrintf(DEBUG_CLIENT, "air: %s ufotype: %i tech: %s time: %i\n", aircraftTemplate->id,
                    aircraftTemplate->getUfoType(), aircraftTemplate->tech->id, aircraftTemplate->tech->produceTime);

            if (aircraftTemplate->tech->produceTime > 0 && RS_IsResearched_ptr(aircraftTemplate->tech)) {
                cgi->LIST_AddPointer(&productionItemList, aircraftTemplate);
                cgi->LIST_AddString(&productionList, va("%s", _(aircraftTemplate->name)));
                cgi->LIST_AddString(&productionAmount, va("%i", AIR_CountInBaseByTemplate(base, aircraftTemplate)));
                cgi->LIST_AddString(&productionQueued, "");
            }
        }
    } else {
        objDef_t* od;
        for (i = 0, od = cgi->csi->ods; i < cgi->csi->numODs; i++, od++) {
            const technology_t* tech;
            if (od->isVirtual)
                continue;
            tech = RS_GetTechForItem(od);
            /* We will not show items that are not producible.
             * We can only produce what was researched before. */
            if (RS_IsResearched_ptr(tech) && PR_ItemIsProduceable(od) && cgi->INV_ItemMatchesFilter(od, produceCategory)) {
                cgi->LIST_AddPointer(&productionItemList, od);

                cgi->LIST_AddString(&productionList, va("%s", _(od->name)));
                cgi->LIST_AddString(&productionAmount, va("%i", B_ItemInBase(od, base)));
                cgi->LIST_AddString(&productionQueued, "");
            }
        }
    }

    /* bind the menu text to our static char array */
    cgi->UI_RegisterLinkedListText(TEXT_PRODUCTION_LIST, productionList);
    /* bind the amount of available items */
    cgi->UI_RegisterLinkedListText(TEXT_PRODUCTION_AMOUNT, productionAmount);
    /* bind the amount of queued items */
    cgi->UI_RegisterLinkedListText(TEXT_PRODUCTION_QUEUED, productionQueued);
}

static void PR_RequirementsInfo (const base_t* base, const requirements_t* reqs) {
    const vec4_t green = {0.0f, 1.0f, 0.0f, 0.8f};
    const vec4_t yellow = {1.0f, 0.874f, 0.294f, 1.0f};
    uiNode_t* req_root = nullptr;
    uiNode_t* req_items = nullptr;
#if 0
    uiNode_t* req_techs = nullptr;
    uiNode_t* req_technots = nullptr;
#endif

    cgi->UI_ResetData(OPTION_PRODUCTION_REQUIREMENTS);

    if (!reqs->numLinks)
        return;

    for (int i = 0; i < reqs->numLinks; i++) {
        const requirement_t* req = &reqs->links[i];

        switch (req->type) {
        case RS_LINK_ITEM: {
                uiNode_t* node = cgi->UI_AddOption(&req_items, req->link.od->id, va("%i %s", req->amount, _(req->link.od->name)), va("%i", i));
                if (B_ItemInBase(req->link.od, base) >= req->amount)
                    Vector4Copy(green, node->color);
                else
                    Vector4Copy(yellow, node->color);
                break;
            }
        case RS_LINK_ANTIMATTER: {
                technology_t* tech = RS_GetTechForItem(INVSH_GetItemByID(ANTIMATTER_ITEM_ID));
                uiNode_t* node;

                assert(tech);
                node = cgi->UI_AddOption(&req_items, ANTIMATTER_ITEM_ID, va("%i %s", req->amount, _(tech->name)), va("%i", i));
                if (B_AntimatterInBase(base) >= req->amount)
                    Vector4Copy(green, node->color);
                else
                    Vector4Copy(yellow, node->color);
                break;
            }
#if 0
        case RS_LINK_TECH:
/*          if (node && RS_IsResearched_ptr(req->link)) ... */
            break;
        case RS_LINK_TECH_NOT:
/*          if (node && RS_IsResearched_ptr(req->link)) ... */
            break;
#endif
        default:
            break;
        }
    }
    if (req_items) {
        uiNode_t* node = cgi->UI_AddOption(&req_root, "items", "_Items", "item");
        node->firstChild = req_items;
    }
    cgi->UI_RegisterOption(OPTION_PRODUCTION_REQUIREMENTS, req_root);
}

static void PR_ItemProductionInfo (const base_t* base, const objDef_t* od, int remainingHours)
{
    static char productionInfo[512];

    assert(base);
    assert(od);

    /* Don't try to display an item which is not producible. */
    if (!PR_ItemIsProduceable(od)) {
        Com_sprintf(productionInfo, sizeof(productionInfo), _("No item selected"));
        cgi->Cvar_Set("mn_item", "");
    } else {
        const technology_t* tech = RS_GetTechForItem(od);

        Com_sprintf(productionInfo, sizeof(productionInfo), "%s\n", _(od->name));
        Q_strcat(productionInfo, sizeof(productionInfo), _("Cost per item\t%i c\n"), PR_GetPrice(od->productionCost));
        Q_strcat(productionInfo, sizeof(productionInfo), _("Production time\t%ih\n"), remainingHours);
        Q_strcat(productionInfo, sizeof(productionInfo), _("Item size\t%i\n"), od->size);
        cgi->Cvar_Set("mn_item", "%s", od->id);

        PR_RequirementsInfo(base, &tech->requireForProduction);
        cgi->Cmd_ExecuteString("show_requirements %i", tech->requireForProduction.numLinks);
    }
    cgi->UI_RegisterText(TEXT_PRODUCTION_INFO, productionInfo);
}

static void PR_DisassemblyInfo (const storedUFO_t* ufo, int remainingHours)
{
    static char productionInfo[512];

    assert(ufo);
    assert(ufo->ufoTemplate);

    Com_sprintf(productionInfo, sizeof(productionInfo), "%s (%.0f%%) - %s\n", _(UFO_TypeToName(ufo->ufoTemplate->getUfoType())), ufo->condition * 100, _("Disassembly"));
    Q_strcat(productionInfo, sizeof(productionInfo), _("Stored at: %s\n"), ufo->installation->name);
    Q_strcat(productionInfo, sizeof(productionInfo), _("Disassembly time: %ih\n"), remainingHours);
    Q_strcat(productionInfo, sizeof(productionInfo), _("Components:\n"));
    /* Print components. */
    for (int i = 0; i < ufo->comp->numItemtypes; i++) {
        const objDef_t* compOd = ufo->comp->items[i];
        const int amount = (ufo->condition < 1 && ufo->comp->itemAmount2[i] != COMP_ITEMCOUNT_SCALED) ? ufo->comp->itemAmount2[i] : round(ufo->comp->itemAmount[i] * ufo->condition);

        if (amount == 0)
            continue;

        assert(compOd);
        Q_strcat(productionInfo, sizeof(productionInfo), "  %s (%i)\n", _(compOd->name), amount);
    }
    cgi->UI_RegisterText(TEXT_PRODUCTION_INFO, productionInfo);
    cgi->Cvar_Set("mn_item", "%s", ufo->id);
    cgi->Cmd_ExecuteString("show_requirements 0");
}

static void PR_AircraftInfo (const base_t* base, const aircraft_t* aircraftTemplate, int remainingHours)
{
    static char productionInfo[512];

    Com_sprintf(productionInfo, sizeof(productionInfo), "%s\n", _(aircraftTemplate->name));
    Q_strcat(productionInfo, sizeof(productionInfo), _("Production costs\t%i c\n"), PR_GetPrice(aircraftTemplate->productionCost));
    Q_strcat(productionInfo, sizeof(productionInfo), _("Production time\t%ih\n"), remainingHours);
    cgi->UI_RegisterText(TEXT_PRODUCTION_INFO, productionInfo);
    cgi->Cvar_Set("mn_item", "%s", aircraftTemplate->id);
    PR_RequirementsInfo(base, &aircraftTemplate->tech->requireForProduction);
    cgi->Cmd_ExecuteString("show_requirements %i", aircraftTemplate->tech->requireForProduction.numLinks);
}

static void PR_ProductionInfo (const base_t* base)
{
    if (selectedProduction) {
        const production_t* prod = selectedProduction;
        const int time = PR_GetRemainingHours(prod);
        cgi->UI_ExecuteConfunc("prod_taskselected");

        if (PR_IsAircraft(prod)) {
            PR_AircraftInfo(base, prod->data.data.aircraft, time);
            cgi->UI_ExecuteConfunc("amountsetter enable");
        } else if (PR_IsItem(prod)) {
            PR_ItemProductionInfo(base, prod->data.data.item, time);
            cgi->UI_ExecuteConfunc("amountsetter enable");
        } else if (PR_IsDisassembly(prod)) {
            PR_DisassemblyInfo(prod->data.data.ufo, time);
            cgi->UI_ExecuteConfunc("amountsetter disable");
        } else {
            cgi->Com_Error(ERR_DROP, "PR_ProductionInfo: Selected production is not item nor aircraft nor ufo.\n");
        }
        cgi->Cvar_SetValue("mn_production_amount", selectedProduction->amount);
    } else {
        if (!PR_IsDataValid(&selectedData)) {
            cgi->UI_ExecuteConfunc("prod_nothingselected");
            if (produceCategory == FILTER_AIRCRAFT)
                cgi->UI_RegisterText(TEXT_PRODUCTION_INFO, _("No aircraft selected."));
            else
                cgi->UI_RegisterText(TEXT_PRODUCTION_INFO, _("No item selected"));
            cgi->Cvar_Set("mn_item", "");
        } else {
            cgi->UI_ExecuteConfunc("prod_availableselected");
            if (PR_IsAircraftData(&selectedData)) {
                PR_AircraftInfo(base, selectedData.data.aircraft, PR_GetProductionHours(base, &selectedData));
            } else if (PR_IsItemData(&selectedData)) {
                PR_ItemProductionInfo(base, selectedData.data.item, PR_GetProductionHours(base, &selectedData));
            } else if (PR_IsDisassemblyData(&selectedData)) {
                PR_DisassemblyInfo(selectedData.data.ufo, PR_GetProductionHours(base, &selectedData));
            }
        }
    }
    /* update capacity counters */
    cgi->UI_ExecuteConfunc("ui_prod_update_caps %d %d %d %d %d %d %d %d", CAP_GetFreeCapacity(base, CAP_ITEMS), CAP_GetMax(base, CAP_ITEMS),
        CAP_GetFreeCapacity(base, CAP_AIRCRAFT_SMALL), CAP_GetMax(base, CAP_AIRCRAFT_SMALL),
        CAP_GetFreeCapacity(base, CAP_AIRCRAFT_BIG), CAP_GetMax(base, CAP_AIRCRAFT_BIG),
        CAP_GetMax(base, CAP_WORKSPACE) - E_CountHired(base, EMPL_WORKER), CAP_GetMax(base, CAP_WORKSPACE)
    );
}

static void PR_ProductionListRightClick_f (void)
{
    int num;
    production_queue_t* queue;
    base_t* base = B_GetCurrentSelectedBase();

    /* can be called from everywhere without a base set */
    if (!base)
        return;

    queue = PR_GetProductionForBase(base);

    /* not enough parameters */
    if (cgi->Cmd_Argc() < 2) {
        cgi->Com_Printf("Usage: %s <arg>\n", cgi->Cmd_Argv(0));
        return;
    }

    /* clicked which item? */
    num = atoi(cgi->Cmd_Argv(1));

    /* Clicked the production queue or the item list? */
    if (num < queue->numItems && num >= 0) {
        production_t* prod = &queue->items[num];
        const technology_t* tech = PR_GetTech(&prod->data);
        selectedProduction = prod;
        UP_OpenWith(tech->id);
    } else if (num >= queue->numItems + QUEUE_SPACERS) {
        /* Clicked in the item list. */
        const int idx = num - queue->numItems - QUEUE_SPACERS;

        if (produceCategory == FILTER_AIRCRAFT) {
            const aircraft_t* aircraftTemplate = (const aircraft_t*)cgi->LIST_GetByIdx(productionItemList, idx);
            /* aircraftTemplate may be empty if rclicked below real entry.
             * UFO research definition must not have a tech assigned,
             * only RS_CRAFT types have */
            if (aircraftTemplate && aircraftTemplate->tech)
                UP_OpenWith(aircraftTemplate->tech->id);
        } else if (produceCategory == FILTER_DISASSEMBLY) {
            const storedUFO_t* ufo = (const storedUFO_t*)cgi->LIST_GetByIdx(productionItemList, idx);
            if (ufo && ufo->ufoTemplate && ufo->ufoTemplate->tech) {
                UP_OpenWith(ufo->ufoTemplate->tech->id);
            }
        } else {
            objDef_t* od = (objDef_t*)cgi->LIST_GetByIdx(productionItemList, idx);
            const technology_t* tech = RS_GetTechForItem(od);

            /* Open up UFOpaedia for this entry. */
            if (RS_IsResearched_ptr(tech) && cgi->INV_ItemMatchesFilter(od, produceCategory)) {
                PR_ClearSelected();
                PR_SetData(&selectedData, PRODUCTION_TYPE_ITEM, od);
                UP_OpenWith(tech->id);
                return;
            }
        }
    }
#ifdef DEBUG
    else
        cgi->Com_DPrintf(DEBUG_CLIENT, "PR_ProductionListRightClick_f: Click on spacer %i\n", num);
#endif
}

static void PR_ProductionListClick_f (void)
{
    int num;
    production_queue_t* queue;
    base_t* base = B_GetCurrentSelectedBase();

    /* can be called from everywhere without a base set */
    if (!base)
        return;

    queue = PR_GetProductionForBase(base);

    /* Break if there are not enough parameters. */
    if (cgi->Cmd_Argc() < 2) {
        cgi->Com_Printf("Usage: %s <arg>\n", cgi->Cmd_Argv(0));
        return;
    }

    /* Clicked which item? */
    num = atoi(cgi->Cmd_Argv(1));

    /* Clicked the production queue or the item list? */
    if (num < queue->numItems && num >= 0) {
        selectedProduction = &queue->items[num];
        PR_ProductionInfo(base);
    } else if (num >= queue->numItems + QUEUE_SPACERS) {
        /* Clicked in the item list. */
        const int idx = num - queue->numItems - QUEUE_SPACERS;

        if (produceCategory == FILTER_DISASSEMBLY) {
            storedUFO_t* ufo = (storedUFO_t*)cgi->LIST_GetByIdx(productionItemList, idx);

            PR_ClearSelected();
            PR_SetData(&selectedData, PRODUCTION_TYPE_DISASSEMBLY, ufo);

            PR_ProductionInfo(base);
        } else if (produceCategory == FILTER_AIRCRAFT) {
            aircraft_t* aircraftTemplate = (aircraft_t*)cgi->LIST_GetByIdx(productionItemList, idx);
            if (!aircraftTemplate) {
                cgi->Com_DPrintf(DEBUG_CLIENT, "PR_ProductionListClick_f: No item found at the list-position %i!\n", idx);
                return;
            }
            /* ufo research definition must not have a tech assigned
             * only RS_CRAFT types have
             * @sa RS_InitTree */
            if (aircraftTemplate->tech && aircraftTemplate->tech->produceTime >= 0
             && RS_IsResearched_ptr(aircraftTemplate->tech)) {
                PR_ClearSelected();
                PR_SetData(&selectedData, PRODUCTION_TYPE_AIRCRAFT, aircraftTemplate);
                PR_ProductionInfo(base);
            }
        } else {
            objDef_t* od = (objDef_t*)cgi->LIST_GetByIdx(productionItemList, idx);
            const technology_t* tech = RS_GetTechForItem(od);

            /* We can only produce items that fulfill the following conditions... */
            if (RS_IsResearched_ptr(tech) && PR_ItemIsProduceable(od) && cgi->INV_ItemMatchesFilter(od, produceCategory)) {
                PR_ClearSelected();
                PR_SetData(&selectedData, PRODUCTION_TYPE_ITEM, od);
                PR_ProductionInfo(base);
            }
        }
    }
}

static void PR_ProductionType_f (void)
{
    itemFilterTypes_t cat;
    base_t* base = B_GetCurrentSelectedBase();

    if (cgi->Cmd_Argc() < 2) {
        cgi->Com_Printf("Usage: %s <category>\n", cgi->Cmd_Argv(0));
        return;
    }

    cat = cgi->INV_GetFilterTypeID(cgi->Cmd_Argv(1));

    /* Check if the given category index is valid. */
    if (cat == MAX_FILTERTYPES)
        cat = FILTER_S_PRIMARY;

    /* Can be called from everywhere without a base set */
    if (!base)
        return;

    produceCategory = cat;
    cgi->Cvar_Set("mn_itemtype", "%s", cgi->INV_GetFilterType(produceCategory));

    /* Update list of entries for current production tab. */
    PR_UpdateProductionList(base);

    /* Reset selected entry, if it was not from the queue */
    PR_ClearSelectedItems();

    /* Select first entry in the list (if any). */
    if (cgi->LIST_Count(productionItemList) > 0) {
        if (produceCategory == FILTER_AIRCRAFT) {
            const aircraft_t* aircraft = (const aircraft_t*)cgi->LIST_GetByIdx(productionItemList, 0);
            PR_SetData(&selectedData, PRODUCTION_TYPE_AIRCRAFT, aircraft);
        } else if (produceCategory == FILTER_DISASSEMBLY) {
            const storedUFO_t* storedUFO = (const storedUFO_t*)cgi->LIST_GetByIdx(productionItemList, 0);
            PR_SetData(&selectedData, PRODUCTION_TYPE_DISASSEMBLY, storedUFO);
        } else {
            const objDef_t* item = (const objDef_t*)cgi->LIST_GetByIdx(productionItemList, 0);
            PR_SetData(&selectedData, PRODUCTION_TYPE_ITEM, item);
        }
    }
    /* update selection index if first entry of actual list was chosen */
    if (!selectedProduction) {
        const production_queue_t* prod = PR_GetProductionForBase(base);
        cgi->UI_ExecuteConfunc("prod_selectline %i", prod->numItems + QUEUE_SPACERS);
    }

    /* Update displayed info about selected entry (if any). */
    PR_ProductionInfo(base);
}

static void PR_ProductionList_f (void)
{
    base_t* base = B_GetCurrentSelectedBase();
    /* can be called from everywhere without a started game */
    if (!base)
        return;

    cgi->Cvar_SetValue("mn_production_basecap", CAP_GetMax(base, CAP_WORKSPACE));

    /* Set amount of workers - all/ready to work (determined by base capacity. */
    PR_UpdateProductionCap(base);

    cgi->Cvar_Set("mn_production_workers", "%i/%i",
            CAP_GetCurrent(base, CAP_WORKSPACE), E_CountHired(base, EMPL_WORKER));

    cgi->Cvar_Set("mn_production_storage", "%i/%i",
            CAP_GetCurrent(base, CAP_ITEMS), CAP_GetMax(base, CAP_ITEMS));

    PR_ClearSelected();
}

static void PR_ProductionIncrease_f (void)
{
    production_t* prod;
    base_t* base = B_GetCurrentSelectedBase();
    technology_t* tech = nullptr;
    int amount = 1;
    int producibleAmount;

    if (!base)
        return;

    if (!PR_IsDataValid(&selectedData))
        return;

    if (cgi->Cmd_Argc() == 2)
        amount = atoi(cgi->Cmd_Argv(1));

    if (selectedProduction) {
        prod = selectedProduction;

        /* We can disassembly UFOs only one-by-one. */
        if (PR_IsDisassembly(prod))
            return;

        if (PR_IsAircraft(prod)) {
            /* Don't allow to queue more aircraft if there is no free space. */
            if (CAP_GetFreeCapacity(base, AIR_GetHangarCapacityType(prod->data.data.aircraft)) <= 0) {
                CP_Popup(_("Hangars not ready"), _("You cannot queue aircraft.\nNo free space in hangars.\n"));
                cgi->Cvar_SetValue("mn_production_amount", prod->amount);
                return;
            }
        }

        /* amount limit per one production */
        if (prod->amount + amount > MAX_PRODUCTION_AMOUNT) {
            amount = std::max(0, MAX_PRODUCTION_AMOUNT - prod->amount);
        }
        if (amount == 0) {
            cgi->Cvar_SetValue("mn_production_amount", prod->amount);
            return;
        }

        tech = PR_GetTech(&prod->data);
        assert(tech);

        producibleAmount = PR_RequirementsMet(amount, &tech->requireForProduction, base);
        if (producibleAmount == 0) {
            CP_Popup(_("Not enough materials"), _("You don't have the materials needed for producing more of this item.\n"));
            cgi->Cvar_SetValue("mn_production_amount", prod->amount);
            return;
        } else if (amount != producibleAmount) {
            CP_Popup(_("Not enough material!"), _("You don't have enough material to produce all (%i) additional items. Only %i could be added."), amount, producibleAmount);
        }

        PR_IncreaseProduction(prod, producibleAmount);
        cgi->Cvar_SetValue("mn_production_amount", prod->amount);
    } else {
        const char* name = nullptr;

        tech = PR_GetTech(&selectedData);
        name = PR_GetName(&selectedData);

        producibleAmount = PR_RequirementsMet(amount, &tech->requireForProduction, base);
        if (producibleAmount == 0) {
            CP_Popup(_("Not enough materials"), _("You don't have the materials needed for producing this item.\n"));
            return;
        } else if (amount != producibleAmount) {
            CP_Popup(_("Not enough material!"), _("You don't have enough material to produce all (%i) items. Production will continue with a reduced (%i) number."), amount, producibleAmount);
        }
        if (PR_IsAircraftData(&selectedData) && CAP_GetFreeCapacity(base, AIR_GetHangarCapacityType(selectedData.data.aircraft)) <= 0) {
            CP_Popup(_("Hangars not ready"), _("You cannot queue aircraft.\nNo free space in hangars.\n"));
            return;
        }

        /* add production */
        prod = PR_QueueNew(base, &selectedData, producibleAmount);

        if (!prod)
            return;

        /* Now we select the item we just created. */
        selectedProduction = prod;
        cgi->UI_ExecuteConfunc("prod_selectline %i", selectedProduction->idx);

        /* messages */
        Com_sprintf(cp_messageBuffer, sizeof(cp_messageBuffer), _("Work begun on %s"), _(name));
        MSO_CheckAddNewMessage(NT_PRODUCTION_STARTED, _("Production started"), cp_messageBuffer, MSG_PRODUCTION, tech);
    }

    PR_ProductionInfo(base);
    PR_UpdateProductionList(base);
}

static void PR_ProductionStop_f (void)
{
    production_queue_t* queue;
    base_t* base = B_GetCurrentSelectedBase();
    int prodIDX;

    if (!base || !selectedProduction)
        return;

    prodIDX = selectedProduction->idx;
    queue = PR_GetProductionForBase(base);

    PR_QueueDelete(base, queue, prodIDX);

    if (queue->numItems == 0) {
        selectedProduction = nullptr;
        cgi->UI_ExecuteConfunc("prod_selectline -1");
    } else if (prodIDX >= queue->numItems) {
        selectedProduction = &queue->items[queue->numItems - 1];
        cgi->UI_ExecuteConfunc("prod_selectline %i", prodIDX);
    }

    PR_ProductionInfo(base);
    PR_UpdateProductionList(base);
}

static void PR_ProductionDecrease_f (void)
{
    int amount = 1;
    const base_t* base = B_GetCurrentSelectedBase();
    production_t* prod = selectedProduction;

    if (cgi->Cmd_Argc() == 2)
        amount = atoi(cgi->Cmd_Argv(1));

    if (!prod)
        return;

    if (prod->amount <= amount) {
        PR_ProductionStop_f();
        return;
    }

    PR_DecreaseProduction(prod, amount);

    if (base) {
        PR_ProductionInfo(base);
        PR_UpdateProductionList(base);
    }
}

static void PR_ProductionChange_f (void)
{
    int amount;

    if (!selectedProduction)
        return;

    if (!PR_IsDataValid(&selectedData))
        return;

    if (cgi->Cmd_Argc() != 2) {
        cgi->Com_Printf("Usage: %s <diff> : change the production amount\n", cgi->Cmd_Argv(0));
        return;
    }

    amount = atoi(cgi->Cmd_Argv(1));
    if (amount > 0) {
        cgi->Cbuf_AddText("prod_inc %i\n", amount);
    } else {
        cgi->Cbuf_AddText("prod_dec %i\n", -amount);
    }
}

static void PR_ProductionUp_f (void)
{
    production_queue_t* queue;
    base_t* base = B_GetCurrentSelectedBase();

    if (!base || !selectedProduction)
        return;

    /* first position already */
    if (selectedProduction->idx == 0)
        return;

    queue = PR_GetProductionForBase(base);
    PR_QueueMove(queue, selectedProduction->idx, -1);

    selectedProduction = &queue->items[selectedProduction->idx - 1];
    cgi->UI_ExecuteConfunc("prod_selectline %i", selectedProduction->idx);
    PR_UpdateProductionList(base);
}

static void PR_ProductionDown_f (void)
{
    production_queue_t* queue;
    base_t* base = B_GetCurrentSelectedBase();

    if (!base || !selectedProduction)
        return;

    queue = PR_GetProductionForBase(base);

    if (selectedProduction->idx >= queue->numItems - 1)
        return;

    PR_QueueMove(queue, selectedProduction->idx, 1);

    selectedProduction = &queue->items[selectedProduction->idx + 1];
    cgi->UI_ExecuteConfunc("prod_selectline %i", selectedProduction->idx);
    PR_UpdateProductionList(base);
}

static void PR_ShowActiveProduction_f (void)
{
    if (cgi->Cmd_Argc() < 2) {
        cgi->Com_Printf("Usage: %s <base_idx>\n", cgi->Cmd_Argv(0));
        return;
    }
    const base_t* const base = B_GetFoundedBaseByIDX(atoi(cgi->Cmd_Argv(1)));
    if (base == nullptr) {
        cgi->Com_Printf("PR_ShowActiveProduction_f: Invalid base_idx!\n");
        return;
    }
    /* Get the production item closest to completion in the base if it exists */
    if (!PR_ProductionAllowed(base))
        return;
    const production_queue_t* const queue = PR_GetProductionForBase(base);
    if (queue->numItems <= 0)
        return;
    const production_t* const production = &queue->items[0];
    cgi->UI_ExecuteConfunc("show_production %i \"%s\" %3.0f", production->idx, PR_GetName(&production->data), PR_GetProgress(production) * 100);
}

static const cmdList_t productionCallbacks[] = {
    {"prod_init", PR_ProductionList_f, nullptr},
    {"prod_type", PR_ProductionType_f, nullptr},
    {"prod_up", PR_ProductionUp_f, "Move production item up in the queue"},
    {"prod_down", PR_ProductionDown_f, "Move production item down in the queue"},
    {"prod_change", PR_ProductionChange_f, "Change production amount"},
    {"prod_inc", PR_ProductionIncrease_f, "Increase production amount"},
    {"prod_dec", PR_ProductionDecrease_f, "Decrease production amount"},
    {"prod_stop", PR_ProductionStop_f, "Stop production"},
    {"prodlist_rclick", PR_ProductionListRightClick_f, nullptr},
    {"prodlist_click", PR_ProductionListClick_f, nullptr},
    {"prod_show_active", PR_ShowActiveProduction_f, "Show the active production item and it's status"},
    {nullptr, nullptr, nullptr}
};
void PR_InitCallbacks (void)
{
    cgi->Cmd_TableAddList(productionCallbacks);
}

void PR_ShutdownCallbacks (void)
{
    cgi->Cmd_TableRemoveList(productionCallbacks);
}