/**
* @brief Make sure values of items after parsing are proper.
*/
static qboolean CP_ItemsSanityCheck (void)
{
int i;
qboolean result = qtrue;
for (i = 0; i < csi.numODs; i++) {
const objDef_t *item = INVSH_GetItemByIDX(i);
/* Warn if item has no size set. */
if (item->size <= 0 && B_ItemIsStoredInBaseStorage(item)) {
result = qfalse;
Com_Printf("CP_ItemsSanityCheck: Item %s has zero size set.\n", item->id);
}
/* Warn if no price is set. */
if (item->price <= 0 && BS_IsOnMarket(item)) {
result = qfalse;
Com_Printf("CP_ItemsSanityCheck: Item %s has zero price set.\n", item->id);
}
if (item->price > 0 && !BS_IsOnMarket(item) && !PR_ItemIsProduceable(item)) {
result = qfalse;
Com_Printf("CP_ItemsSanityCheck: Item %s has a price set though it is neither available on the market and production.\n", item->id);
}
/* extension and headgear are mutual exclusive */
if (item->extension && item->headgear) {
result = qfalse;
Com_Printf("CP_ItemsSanityCheck: Item %s has both extension and headgear set.\n", item->id);
}
}
return result;
}
/**
* @brief Save callback for savegames
* @param[out] parent XML Node structure, where we write the information to
* @sa BS_LoadXML
* @sa SAV_GameSaveXML
*/
bool BS_SaveXML (xmlNode_t* parent)
{
int i;
xmlNode_t* node;
const market_t* market = BS_GetMarket();
/* store market */
node = cgi->XML_AddNode(parent, SAVE_MARKET_MARKET);
for (i = 0; i < cgi->csi->numODs; i++) {
const objDef_t* od = INVSH_GetItemByIDX(i);
if (BS_IsOnMarket(od)) {
xmlNode_t* snode = cgi->XML_AddNode(node, SAVE_MARKET_ITEM);
cgi->XML_AddString(snode, SAVE_MARKET_ID, od->id);
cgi->XML_AddIntValue(snode, SAVE_MARKET_NUM, market->numItems[i]);
cgi->XML_AddIntValue(snode, SAVE_MARKET_BID, market->bidItems[i]);
cgi->XML_AddIntValue(snode, SAVE_MARKET_ASK, market->askItems[i]);
cgi->XML_AddDoubleValue(snode, SAVE_MARKET_EVO, market->currentEvolutionItems[i]);
cgi->XML_AddBoolValue(snode, SAVE_MARKET_AUTOSELL, market->autosell[i]);
}
}
for (i = 0; i < AIRCRAFTTYPE_MAX; i++) {
if (market->bidAircraft[i] > 0 || market->askAircraft[i] > 0) {
xmlNode_t* snode = cgi->XML_AddNode(node, SAVE_MARKET_AIRCRAFT);
const char* shortName = cgi->Com_DropShipTypeToShortName((humanAircraftType_t)i);
cgi->XML_AddString(snode, SAVE_MARKET_ID, shortName);
cgi->XML_AddIntValue(snode, SAVE_MARKET_NUM, market->numAircraft[i]);
cgi->XML_AddIntValue(snode, SAVE_MARKET_BID, market->bidAircraft[i]);
cgi->XML_AddIntValue(snode, SAVE_MARKET_ASK, market->askAircraft[i]);
cgi->XML_AddDoubleValue(snode, SAVE_MARKET_EVO, market->currentEvolutionAircraft[i]);
}
}
return true;
}
/**
* @brief Sells items from the market
* @param[in] od pointer to the item (Object Definition record)
* @param[out] base Base to sell at
* @param[in ] count Number of items to sell
* @return @c true if the ugv could get sold, @c false otherwise
*/
bool BS_SellItem (const objDef_t* od, base_t* base, int count)
{
if (!od)
cgi->Com_Error(ERR_DROP, "BS_SellItem: Called on nullptr objDef!");
if (count <= 0)
return false;
if (!BS_IsOnMarket(od))
return false;
if (base) {
if (B_ItemInBase(od, base) < count)
return false;
B_AddToStorage(base, od, -count);
}
BS_AddItemToMarket(od, count);
CP_UpdateCredits(ccs.credits + BS_GetItemSellingPrice(od) * count);
return true;
}
/**
* @brief Buys items from the market
* @param[in] od pointer to the item (Object Definition record)
* @param[out] base Base to buy at
* @param[in ] count Number of items to buy
* @return @c true if the ugv could get bought, @c false otherwise
*/
bool BS_BuyItem (const objDef_t* od, base_t* base, int count)
{
if (!od)
cgi->Com_Error(ERR_DROP, "BS_BuyItem: Called on nullptr objDef!");
if (!base)
cgi->Com_Error(ERR_DROP, "BS_BuyItem: Called on nullptr base!");
if (count <= 0)
return false;
if (!BS_IsOnMarket(od))
return false;
if (ccs.credits < BS_GetItemBuyingPrice(od) * count)
return false;
if (BS_GetItemOnMarket(od) < count)
return false;
if (CAP_GetFreeCapacity(base, CAP_ITEMS) < od->size * count)
return false;
B_AddToStorage(base, od, count);
BS_RemoveItemFromMarket(od, count);
CP_UpdateCredits(ccs.credits - BS_GetItemBuyingPrice(od) * count);
return true;
}
/**
* @brief Get the number of items of the given type on the market
* @param[in] od the item (objDef) to search the market for
* @return The amount of items for the given type
*/
int BS_GetItemOnMarket (const objDef_t* od)
{
const market_t* market = BS_GetMarket();
return BS_IsOnMarket(od) ? market->numItems[od->idx] : 0;
}
/**
* @brief Fill market item list
*/
static void BS_FillMarket_f (void)
{
const base_t* base = B_GetCurrentSelectedBase();
itemFilterTypes_t type;
if (cgi->Cmd_Argc() < 2) {
cgi->Com_Printf("Usage: %s <category>\n", cgi->Cmd_Argv(0));
return;
}
if (cgi->Cmd_Argc() >= 3)
base = B_GetFoundedBaseByIDX(atoi(cgi->Cmd_Argv(2)));
if (!base) {
cgi->Com_Printf("No/invalid base selected.\n");
return;
}
type = cgi->INV_GetFilterTypeID(cgi->Cmd_Argv(1));
cgi->UI_ExecuteConfunc("ui_market_clear");
switch (type) {
case FILTER_UGVITEM:
/* show own UGV */
E_Foreach(EMPL_ROBOT, robot) {
const ugv_t* ugv = robot->getUGV();
const technology_t* tech = RS_GetTechByProvided(ugv->id);
if (!robot->isHiredInBase(base))
continue;
cgi->UI_ExecuteConfunc("ui_market_add \"ugv-%d\" \"%s\" 1 0 0 %d - \"%s\"", robot->chr.ucn, _(tech->name), ugv->price, robot->isAwayFromBase() ? _("UGV is away from home") : "-");
}
/* show buyable UGV */
for (int i = 0; i < cgi->csi->numUGV; i++) {
const ugv_t* ugv = &cgi->csi->ugvs[i];
const technology_t* tech = RS_GetTechByProvided(ugv->id);
const objDef_t* ugvWeapon = INVSH_GetItemByID(ugv->weapon);
const int buyable = std::min(E_CountUnhiredRobotsByType(ugv), BS_GetItemOnMarket(ugvWeapon));
assert(tech);
if (!RS_IsResearched_ptr(tech))
continue;
if (buyable <= 0)
continue;
cgi->UI_ExecuteConfunc("ui_market_add %s \"%s\" 0 %d %d %d - -", ugv->id, _(tech->name), buyable, ugv->price, ugv->price);
}
/* show (UGV) items, fall through */
case FILTER_S_PRIMARY:
case FILTER_S_SECONDARY:
case FILTER_S_HEAVY:
case FILTER_S_IMPLANT:
case FILTER_S_MISC:
case FILTER_S_ARMOUR:
case FILTER_DUMMY:
case FILTER_CRAFTITEM:
case MAX_FILTERTYPES: {
for (int i = 0; i < cgi->csi->numODs; i++) {
const objDef_t* od = &cgi->csi->ods[i];
const technology_t* tech = RS_GetTechForItem(od);
if (!BS_IsOnMarket(od))
continue;
if (B_ItemInBase(od, base) + BS_GetItemOnMarket(od) <= 0)
continue;
if (type != MAX_FILTERTYPES && !cgi->INV_ItemMatchesFilter(od, type))
continue;
cgi->UI_ExecuteConfunc("ui_market_add %s \"%s\" %d %d %d %d %s -", od->id, _(od->name), B_ItemInBase(od, base), BS_GetItemOnMarket(od), BS_GetItemBuyingPrice(od), BS_GetItemSellingPrice(od), RS_IsResearched_ptr(tech) ? va("%d", ccs.eMarket.autosell[i]) : "-");
}
break;
}
case FILTER_AIRCRAFT: {
AIR_ForeachFromBase(aircraft, base) {
cgi->UI_ExecuteConfunc("ui_market_add \"aircraft_%d\" \"%s\" 1 0 0 %d - \"%s\"", aircraft->idx, aircraft->name, BS_GetAircraftSellingPrice(aircraft), AIR_IsAircraftInBase(aircraft) ? "-" : _("Aircraft is away from home"));
}
for (int i = 0; i < ccs.numAircraftTemplates; i++) {
const aircraft_t* aircraft = &ccs.aircraftTemplates[i];
if (!BS_AircraftIsOnMarket(aircraft))
continue;
if (!RS_IsResearched_ptr(aircraft->tech))
continue;
if (BS_GetAircraftOnMarket(aircraft) <= 0)
continue;
cgi->UI_ExecuteConfunc("ui_market_add \"%s\" \"%s\" 0 %d %d %d - -", aircraft->id, _(aircraft->tech->name), BS_GetAircraftOnMarket(aircraft), BS_GetAircraftBuyingPrice(aircraft), BS_GetAircraftSellingPrice(aircraft));
}
break;
}
default:
break;
}
/**
* @brief Show information about item/aircaft/ugv in the market
*/
static void BS_ShowInfo_f (void)
{
const char* itemid;
const aircraft_t* aircraft;
const ugv_t* ugv;
const objDef_t* od;
if (cgi->Cmd_Argc() < 2) {
cgi->Com_Printf("Usage: %s <item-id>\n", cgi->Cmd_Argv(0));
return;
}
itemid = cgi->Cmd_Argv(1);
if (char const* const rest = Q_strstart(itemid, "aircraft_")) {
/* PHALANX aircraft - with aircraft golbal idx */
int idx = atoi(rest);
aircraft = AIR_AircraftGetFromIDX(idx);
if (!aircraft) {
cgi->Com_Printf("Invalid aircraft index!\n");
return;
}
/** @todo show specialized info about PHALANX aircraft */
BS_MarketAircraftDescription(aircraft->tpl);
return;
}
if (char const* const rest = Q_strstart(itemid, "ugv-")) {
/* PHALANX ugv - with unique character number index */
int ucn = atoi(rest);
Employee* robot = E_GetEmployeeByTypeFromChrUCN(EMPL_ROBOT, ucn);
if (!robot) {
cgi->Com_Printf("Invalid UCN for UGV!\n");
return;
}
/** @todo show specialized info about PHLANX UGVs */
UP_UGVDescription(robot->getUGV());
return;
}
aircraft = AIR_GetAircraftSilent(itemid);
if (aircraft) {
BS_MarketAircraftDescription(aircraft->tpl);
return;
}
ugv = cgi->Com_GetUGVByIDSilent(itemid);
if (ugv) {
UP_UGVDescription(ugv);
return;
}
/* item */
od = INVSH_GetItemByID(cgi->Cmd_Argv(1));
if (od) {
if (!BS_IsOnMarket(od))
return;
if (od->craftitem.type != MAX_ACITEMS)
UP_AircraftItemDescription(od);
else
cgi->INV_ItemDescription(od);
return;
}
cgi->Com_Printf("Invalid item ID\n");
}
/**
* @brief Buy/Sell item/aircraft/ugv on the market
*/
static void BS_Buy_f (void)
{
const char* itemid;
int count;
base_t* base = B_GetCurrentSelectedBase();
const aircraft_t* aircraft;
const ugv_t* ugv;
const objDef_t* od;
if (cgi->Cmd_Argc() < 2) {
cgi->Com_Printf("Usage: %s <item-id> <count> [base-idx] \nNegative count means selling. If base index is omitted buys on the currently selected base.\n",
cgi->Cmd_Argv(0));
return;
}
itemid = cgi->Cmd_Argv(1);
count = atoi(cgi->Cmd_Argv(2));
if (cgi->Cmd_Argc() >= 4)
base = B_GetFoundedBaseByIDX(atoi(cgi->Cmd_Argv(3)));
if (char const* const rest = Q_strstart(itemid, "aircraft_")) {
/* aircraft sell - with aircraft golbal idx */
int idx = atoi(rest);
aircraft_t* aircraft = AIR_AircraftGetFromIDX(idx);
if (!aircraft) {
cgi->Com_Printf("Invalid aircraft index!\n");
return;
}
AIR_RemoveEmployees(*aircraft);
BS_SellAircraft(aircraft);
return;
}
if (char const* const rest = Q_strstart(itemid, "ugv-")) {
/* ugv sell - with unique character number index */
int ucn = atoi(rest);
Employee* robot = E_GetEmployeeByTypeFromChrUCN(EMPL_ROBOT, ucn);
if (!robot) {
cgi->Com_Printf("Invalid UCN for UGV!\n");
return;
}
BS_SellUGV(robot);
return;
}
if (!base) {
cgi->Com_Printf("No/invalid base selected.\n");
return;
}
aircraft = AIR_GetAircraftSilent(itemid);
if (aircraft) {
if (!B_GetBuildingStatus(base, B_COMMAND)) {
CP_Popup(_("Note"), _("No Command Centre in this base.\nHangars are not functional.\n"));
return;
}
/* We cannot buy aircraft if there is no power in our base. */
if (!B_GetBuildingStatus(base, B_POWER)) {
CP_Popup(_("Note"), _("No power supplies in this base.\nHangars are not functional."));
return;
}
/* We cannot buy aircraft without any hangar. */
if (!AIR_AircraftAllowed(base)) {
CP_Popup(_("Note"), _("Build a hangar first."));
return;
}
/* Check free space in hangars. */
if (CAP_GetFreeCapacity(base, AIR_GetHangarCapacityType(aircraft)) <= 0) {
CP_Popup(_("Notice"), _("You cannot buy this aircraft.\nNot enough space in hangars.\n"));
return;
}
if (ccs.credits < BS_GetAircraftBuyingPrice(aircraft)) {
CP_Popup(_("Notice"), _("You cannot buy this aircraft.\nNot enough credits.\n"));
return;
}
BS_BuyAircraft(aircraft, base);
return;
}
ugv = cgi->Com_GetUGVByIDSilent(itemid);
if (ugv) {
const objDef_t* ugvWeapon = INVSH_GetItemByID(ugv->weapon);
if (!ugvWeapon)
cgi->Com_Error(ERR_DROP, "BS_BuyItem_f: Could not get weapon '%s' for ugv/tank '%s'.", ugv->weapon, ugv->id);
if (E_CountUnhiredRobotsByType(ugv) < 1)
return;
if (ccs.eMarket.numItems[ugvWeapon->idx] < 1)
return;
if (ccs.credits < ugv->price) {
CP_Popup(_("Not enough money"), _("You cannot buy this item as you don't have enough credits."));
return;
}
if (CAP_GetFreeCapacity(base, CAP_ITEMS) < UGV_SIZE + ugvWeapon->size) {
CP_Popup(_("Not enough storage space"), _("You cannot buy this item.\nNot enough space in storage.\nBuild more storage facilities."));
return;
}
BS_BuyUGV(ugv, base);
return;
}
if (count == 0) {
cgi->Com_Printf("Invalid number of items to buy/sell: %s\n", cgi->Cmd_Argv(2));
return;
}
/* item */
od = INVSH_GetItemByID(cgi->Cmd_Argv(1));
if (od) {
if (!BS_IsOnMarket(od))
return;
if (count > 0) {
/* buy */
const int price = BS_GetItemBuyingPrice(od);
count = std::min(count, BS_GetItemOnMarket(od));
/* no items available on market */
if (count <= 0)
return;
if (price <= 0) {
cgi->Com_Printf("Item on market with invalid buying price: %s (%d)\n", od->id, BS_GetItemBuyingPrice(od));
return;
}
/** @todo warn if player can buy less item due to available credits? */
count = std::min(count, ccs.credits / price);
/* not enough money for a single item */
if (count <= 0) {
CP_Popup(_("Not enough money"), _("You cannot buy this item as you don't have enough credits."));
return;
}
if (od->size <= 0) {
cgi->Com_Printf("Item on market with invalid size: %s (%d)\n", od->id, od->size);
return;
}
count = std::min(count, CAP_GetFreeCapacity(base, CAP_ITEMS) / od->size);
if (count <= 0) {
CP_Popup(_("Not enough storage space"), _("You cannot buy this item.\nNot enough space in storage.\nBuild more storage facilities."));
return;
}
BS_BuyItem(od, base, count);
} else {
/* sell */
count = std::min(-1 * count, B_ItemInBase(od, base));
/* no items in storage */
if (count <= 0)
return;
BS_SellItem(od, base, count);
}
return;
}
cgi->Com_Printf("Invalid item ID\n");
}
/**
* @brief Updates the Buy/Sell menu list.
* @param[in] base Pointer to the base to buy/sell at
* @sa BS_BuyType_f
*/
static void BS_BuyType (const base_t *base)
{
const objDef_t *od;
int i, j = 0;
char tmpbuf[MAX_VAR];
if (!base || buyCat >= MAX_FILTERTYPES || buyCat < 0)
return;
CP_UpdateCredits(ccs.credits);
bsMarketNames = NULL;
bsMarketStorage = NULL;
bsMarketMarket = NULL;
bsMarketPrices = NULL;
UI_ResetData(TEXT_ITEMDESCRIPTION);
/* hide autosell checkboxes by default */
for (i = 0; i < MAX_MARKET_MENU_ENTRIES; i++) {
UI_ExecuteConfunc("buy_autoselli %i", i);
}
switch (buyCat) {
case FILTER_AIRCRAFT: /* Aircraft */
{
const aircraft_t *aircraftTemplate;
for (i = 0, j = 0, aircraftTemplate = ccs.aircraftTemplates; i < ccs.numAircraftTemplates; i++, aircraftTemplate++) {
if (!BS_AircraftIsOnMarket(aircraftTemplate))
continue;
assert(aircraftTemplate->tech);
if (BS_GetStorageAmountInBase(base, aircraftTemplate->id) + BS_GetAircraftOnMarket(aircraftTemplate) > 0) {
if (j >= buyList.scroll && j < MAX_MARKET_MENU_ENTRIES) {
UI_ExecuteConfunc("buy_show %i", j - buyList.scroll);
}
BS_AddToList(aircraftTemplate->name, BS_GetStorageAmountInBase(base, aircraftTemplate->id),
BS_GetAircraftOnMarket(aircraftTemplate), BS_GetAircraftBuyingPrice(aircraftTemplate));
if (j >= MAX_BUYLIST)
Com_Error(ERR_DROP, "Increase the MAX_BUYLIST value to handle that much items\n");
buyList.l[j].item = NULL;
buyList.l[j].aircraft = aircraftTemplate;
buyList.length = j + 1;
BS_UpdateItem(base, j - buyList.scroll);
j++;
}
}
}
break;
case FILTER_CRAFTITEM: /* Aircraft items */
/* get item list */
for (i = 0, j = 0, od = csi.ods; i < csi.numODs; i++, od++) {
if (!BS_IsOnMarket(od))
continue;
/* Check whether the item matches the proper filter, storage in current base and market. */
if ((B_ItemInBase(od, base) || ccs.eMarket.numItems[i])
&& INV_ItemMatchesFilter(od, FILTER_CRAFTITEM)) {
if (j >= buyList.scroll && j < MAX_MARKET_MENU_ENTRIES) {
const technology_t *tech = RS_GetTechForItem(od);
UI_ExecuteConfunc("buy_show %i", j - buyList.scroll);
if (RS_IsResearched_ptr(tech)) {
if (ccs.eMarket.autosell[i])
UI_ExecuteConfunc("buy_autoselle %i", j - buyList.scroll);
else
UI_ExecuteConfunc("buy_autoselld %i", j - buyList.scroll);
}
}
BS_AddToList(od->name, B_ItemInBase(od, base), ccs.eMarket.numItems[i], BS_GetItemBuyingPrice(od));
if (j >= MAX_BUYLIST)
Com_Error(ERR_DROP, "Increase the MAX_FILTERLIST value to handle that much items\n");
buyList.l[j].item = od;
buyList.l[j].aircraft = NULL;
buyList.length = j + 1;
BS_UpdateItem(base, j - buyList.scroll);
j++;
}
}
break;
default: /* Normal items */
if (buyCat < MAX_SOLDIER_FILTERTYPES || buyCat == FILTER_DUMMY) {
/* get item list */
for (i = 0, j = 0, od = csi.ods; i < csi.numODs; i++, od++) {
if (!BS_IsOnMarket(od))
continue;
/* Check whether the item matches the proper filter, storage in current base and market. */
if ((B_ItemInBase(od, base) || ccs.eMarket.numItems[i]) && INV_ItemMatchesFilter(od, buyCat)) {
BS_AddToList(od->name, B_ItemInBase(od, base), ccs.eMarket.numItems[i], BS_GetItemBuyingPrice(od));
/* Set state of Autosell button. */
if (j >= buyList.scroll && j < MAX_MARKET_MENU_ENTRIES) {
const technology_t *tech = RS_GetTechForItem(od);
UI_ExecuteConfunc("buy_show %i", j - buyList.scroll);
if (RS_IsResearched_ptr(tech)) {
if (ccs.eMarket.autosell[i])
UI_ExecuteConfunc("buy_autoselle %i", j - buyList.scroll);
else
UI_ExecuteConfunc("buy_autoselld %i", j - buyList.scroll);
}
}
if (j >= MAX_BUYLIST)
Com_Error(ERR_DROP, "Increase the MAX_BUYLIST value to handle that much items\n");
buyList.l[j].item = od;
buyList.l[j].aircraft = NULL;
buyList.length = j + 1;
BS_UpdateItem(base, j - buyList.scroll);
j++;
}
}
}
break;
}
for (; j < MAX_MARKET_MENU_ENTRIES; j++) {
/* Hide the rest of the entries. */
UI_ExecuteConfunc("buy_hide %i", j);
}
/* Update some menu cvars. */
/* Set up base capacities. */
Com_sprintf(tmpbuf, sizeof(tmpbuf), "%i/%i", CAP_GetCurrent(base, CAP_ITEMS),
CAP_GetMax(base, CAP_ITEMS));
Cvar_Set("mn_bs_storage", tmpbuf);
/* select first item */
if (buyList.length) {
switch (buyCat) { /** @sa BS_MarketClick_f */
case FILTER_AIRCRAFT:
BS_MarketAircraftDescription(buyList.l[0].aircraft);
break;
case FILTER_CRAFTITEM:
Cvar_Set("mn_aircraftname", ""); /** @todo Use craftitem name here? See also BS_MarketClick_f */
/* Select current item or first one. */
if (currentSelectedMenuEntry)
UP_AircraftItemDescription(currentSelectedMenuEntry);
else
UP_AircraftItemDescription(buyList.l[0].item);
break;
default:
assert(buyCat != MAX_FILTERTYPES);
/* Select current item or first one. */
if (currentSelectedMenuEntry)
INV_ItemDescription(currentSelectedMenuEntry);
else
INV_ItemDescription(buyList.l[0].item);
break;
}
} else {
/* reset description */
INV_ItemDescription(NULL);
}
UI_RegisterLinkedListText(TEXT_MARKET_NAMES, bsMarketNames);
UI_RegisterLinkedListText(TEXT_MARKET_STORAGE, bsMarketStorage);
UI_RegisterLinkedListText(TEXT_MARKET_MARKET, bsMarketMarket);
UI_RegisterLinkedListText(TEXT_MARKET_PRICES, bsMarketPrices);
}