/**
* @brief Initialises base.
* @note This command is executed in the init node of the base menu.
* It is called everytime the base menu pops up and sets the cvars.
* @todo integrate building status tooltips from B_CheckBuildingStatusForMenu_f into this one
*/
static void B_BaseInit_f (void)
{
int i;
base_t *base = B_GetCurrentSelectedBase();
if (!base)
return;
/* make sure the credits cvar is up-to-date */
CP_UpdateCredits(ccs.credits);
cgi->Cvar_SetValue("mn_base_num_aircraft", AIR_BaseCountAircraft(base));
/* activate or deactivate the aircraft button */
if (AIR_AircraftAllowed(base)) {
if (AIR_BaseHasAircraft(base))
cgi->UI_ExecuteConfunc("update_basebutton aircraft false \"%s\"", _("Aircraft management and crew equipment"));
else
cgi->UI_ExecuteConfunc("update_basebutton aircraft true \"%s\"", _("Buy or produce at least one aircraft first."));
} else {
cgi->UI_ExecuteConfunc("update_basebutton aircraft true \"%s\"", _("No Hangar functional in base."));
}
if (BS_BuySellAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton buysell false \"%s\"", _("Buy/Sell equipment, aircraft and UGV"));
else
cgi->UI_ExecuteConfunc("update_basebutton buysell true \"%s\"", va(_("No %s functional in base."), _("Storage")));
if (B_GetCount() > 1)
cgi->UI_ExecuteConfunc("update_basebutton transfer false \"%s\"", _("Transfer equipment, vehicles, aliens and employees to other bases"));
else
cgi->UI_ExecuteConfunc("update_basebutton transfer true \"%s\"", _("Build at least a second base to transfer equipment or personnel"));
if (RS_ResearchAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton research false \"%s\"", _("Research new technology"));
else
cgi->UI_ExecuteConfunc("update_basebutton research true \"%s\"", va(_("No %s functional in base."), _("Laboratory")));
if (PR_ProductionAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton production false \"%s\"", _("Produce equipment, aircraft and UGV"));
else
cgi->UI_ExecuteConfunc("update_basebutton production true \"%s\"", va(_("No %s functional in base."), _("Workshop")));
if (E_HireAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton hire false \"%s\"", _("Hire or dismiss employees"));
else
cgi->UI_ExecuteConfunc("update_basebutton hire true \"%s\"", va(_("No %s functional in base."), _("Living Quarters")));
if (AC_ContainmentAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton containment false \"%s\"", _("Manage captured aliens"));
else
cgi->UI_ExecuteConfunc("update_basebutton containment true \"%s\"", va(_("No %s functional in base."), _("Containment")));
if (HOS_HospitalAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton hospital false \"%s\"", _("Treat wounded soldiers and perform implant surgery"));
else
cgi->UI_ExecuteConfunc("update_basebutton hospital true \"%s\"", va(_("No %s functional in base."), _("Hospital")));
/*
* Gather data on current/max space for living quarters, storage, lab and workshop
* clear_bld_space ensures 0/0 data for facilities which may not exist in base
*/
cgi->UI_ExecuteConfunc("clear_bld_space");
for (i = 0; i < ccs.numBuildingTemplates; i++) {
const building_t* b = &ccs.buildingTemplates[i];
const baseCapacities_t capType = B_GetCapacityFromBuildingType(b->buildingType);
capacities_t cap;
if (capType == MAX_CAP)
continue;
/* Check if building matches one of our four types */
if (b->buildingType != B_QUARTERS && b->buildingType != B_STORAGE && b->buildingType != B_WORKSHOP && b->buildingType != B_LAB && b->buildingType != B_ANTIMATTER)
continue;
/* only show already researched buildings */
if (!RS_IsResearched_ptr(b->tech))
continue;
cap = *CAP_Get(base, capType);
assert(b->tpl);
const int count = B_GetNumberOfBuildingsInBaseByTemplate(base, b->tpl);
if (count < 1)
continue;
cgi->UI_ExecuteConfunc("show_bld_space \"%s\" \"%s\" %i %i %i %i", _(b->name), b->id, cap.cur, cap.max, count, b->tpl->maxCount);
}
/*
* Get the number of different employees in the base
* @todo: Get the number of injured soldiers if hospital exists
*/
cgi->UI_ExecuteConfunc("current_employees %i %i %i %i", E_CountHired(base, EMPL_SOLDIER), E_CountHired(base, EMPL_PILOT), E_CountHired(base, EMPL_SCIENTIST), E_CountHired(base, EMPL_WORKER));
/*
* List the first five aircraft in the base if they exist
*/
cgi->UI_ExecuteConfunc("clear_aircraft");
if (AIR_AircraftAllowed(base)) {
if (AIR_BaseHasAircraft(base)) {
i = 0;
AIR_ForeachFromBase(aircraft, base) {
if (i > 5)
break;
/*
* UI node should use global IDX to identify aircraft but it uses order of aircraft in base (i)
* See @todo in cp_aircraft_callbacks.c in AIR_AircraftSelect()
*/
cgi->UI_ExecuteConfunc("show_aircraft %i \"%s\" \"%s\" \"%s\" %i", i, aircraft->name, aircraft->id, AIR_AircraftStatusToName(aircraft), AIR_IsAircraftInBase(aircraft));
i++;
}
}
}
/* Get the research item closest to completion in the base if it exists */
cgi->UI_ExecuteConfunc("clear_research");
if (RS_ResearchAllowed(base)) {
const technology_t *closestTech = NULL;
double finished = -1;
for (i = 0; i < ccs.numTechnologies; i++) {
const technology_t *tech = RS_GetTechByIDX(i);
if (!tech)
continue;
if (tech->base != base)
continue;
if (tech->statusResearch == RS_RUNNING) {
const double percent = (1 - tech->time / tech->overallTime) * 100;
if (percent > finished) {
finished = percent;
closestTech = tech;
}
}
}
if (closestTech != NULL)
cgi->UI_ExecuteConfunc("show_research \"%s\" %i %3.0f", closestTech->name, closestTech->scientists, finished);
}
/* Get the production item closest to completion in the base if it exists */
cgi->UI_ExecuteConfunc("clear_production");
if (PR_ProductionAllowed(base)) {
const production_queue_t *queue = PR_GetProductionForBase(base);
if (queue->numItems > 0) {
const production_t *production = &queue->items[0];
cgi->UI_ExecuteConfunc("show_production \"%s\" %3.0f", PR_GetName(&production->data), PR_GetProgress(production) * 100);
}
}
}
/**
* @brief Initialises base.
* @note This command is executed in the init node of the base menu.
* It is called everytime the base menu pops up and sets the cvars.
* @todo integrate building status tooltips from B_CheckBuildingStatusForMenu_f into this one
*/
static void B_BaseInit_f (void)
{
base_t* base = B_GetCurrentSelectedBase();
if (!base)
return;
/* make sure the credits cvar is up-to-date */
CP_UpdateCredits(ccs.credits);
/* activate or deactivate the aircraft button */
if (AIR_AircraftAllowed(base)) {
if (AIR_BaseHasAircraft(base))
cgi->UI_ExecuteConfunc("update_basebutton aircraft false \"%s\"", _("Aircraft management and crew equipment"));
else
cgi->UI_ExecuteConfunc("update_basebutton aircraft true \"%s\"", _("Buy or produce at least one aircraft first."));
} else {
cgi->UI_ExecuteConfunc("update_basebutton aircraft true \"%s\"", _("No Hangar functional in base."));
}
if (BS_BuySellAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton buysell false \"%s\"", _("Buy/Sell equipment, aircraft and UGV"));
else
cgi->UI_ExecuteConfunc("update_basebutton buysell true \"%s\"", va(_("No %s functional in base."), _("Storage")));
if (B_GetCount() > 1)
cgi->UI_ExecuteConfunc("update_basebutton transfer false \"%s\"", _("Transfer equipment, vehicles, aliens and employees to other bases"));
else
cgi->UI_ExecuteConfunc("update_basebutton transfer true \"%s\"", _("Build at least a second base to transfer equipment or personnel"));
if (RS_ResearchAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton research false \"%s\"", _("Research new technology"));
else
cgi->UI_ExecuteConfunc("update_basebutton research true \"%s\"", va(_("No %s functional in base."), _("Laboratory")));
if (PR_ProductionAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton production false \"%s\"", _("Produce equipment, aircraft and UGV"));
else
cgi->UI_ExecuteConfunc("update_basebutton production true \"%s\"", va(_("No %s functional in base."), _("Workshop")));
if (E_HireAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton hire false \"%s\"", _("Hire or dismiss employees"));
else
cgi->UI_ExecuteConfunc("update_basebutton hire true \"%s\"", va(_("No %s functional in base."), _("Living Quarters")));
if (AC_ContainmentAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton containment false \"%s\"", _("Manage captured aliens"));
else
cgi->UI_ExecuteConfunc("update_basebutton containment true \"%s\"", va(_("No %s functional in base."), _("Containment")));
if (HOS_HospitalAllowed(base))
cgi->UI_ExecuteConfunc("update_basebutton hospital false \"%s\"", _("Treat wounded soldiers and perform implant surgery"));
else
cgi->UI_ExecuteConfunc("update_basebutton hospital true \"%s\"", va(_("No %s functional in base."), _("Hospital")));
/*
* Gather data on current/max space for living quarters, storage, lab and workshop
* clear_bld_space ensures 0/0 data for facilities which may not exist in base
*/
cgi->UI_ExecuteConfunc("clear_bld_space");
for (int i = 0; i < ccs.numBuildingTemplates; i++) {
const building_t* b = &ccs.buildingTemplates[i];
/* Check if building matches one of our four types */
if (b->buildingType != B_QUARTERS && b->buildingType != B_STORAGE && b->buildingType != B_WORKSHOP && b->buildingType != B_LAB && b->buildingType != B_ANTIMATTER)
continue;
/* only show already researched buildings */
if (!RS_IsResearched_ptr(b->tech))
continue;
const baseCapacities_t capType = B_GetCapacityFromBuildingType(b->buildingType);
if (capType == MAX_CAP)
continue;
const int count = B_GetNumberOfBuildingsInBaseByTemplate(base, b->tpl);
if (count < 1)
continue;
const capacities_t& cap = *CAP_Get(base, capType);
cgi->UI_ExecuteConfunc("show_bld_space \"%s\" \"%s\" %i %i %i %i", _(b->name), b->id, cap.cur, cap.max, count, b->tpl->maxCount);
}
/*
* Get the number of different employees in the base
* @todo: Get the number of injured soldiers if hospital exists
*/
cgi->UI_ExecuteConfunc("current_employees %i %i %i %i", E_CountHired(base, EMPL_SOLDIER), E_CountHired(base, EMPL_PILOT), E_CountHired(base, EMPL_SCIENTIST), E_CountHired(base, EMPL_WORKER));
/*
* List the first five aircraft in the base if they exist
*/
cgi->UI_ExecuteConfunc("clear_aircraft");
if (AIR_AircraftAllowed(base)) {
AIR_ForeachFromBase(aircraft, base) {
cgi->UI_ExecuteConfunc("show_aircraft %i \"%s\" \"%s\" \"%s\" %i", aircraft->idx, aircraft->name, aircraft->id, AIR_AircraftStatusToName(aircraft), AIR_IsAircraftInBase(aircraft));
}
}
/**
* @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 Buys aircraft or craftitem.
* @sa BS_SellAircraft_f
*/
static void BS_BuyAircraft_f (void)
{
int num;
const aircraft_t *aircraftTemplate;
base_t *base = B_GetCurrentSelectedBase();
if (Cmd_Argc() < 2) {
Com_Printf("Usage: %s <num>\n", Cmd_Argv(0));
return;
}
if (!base)
return;
num = atoi(Cmd_Argv(1));
if (num < 0 || num >= buyList.length)
return;
if (buyCat == FILTER_AIRCRAFT) {
int freeSpace;
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;
}
aircraftTemplate = buyList.l[num].aircraft;
freeSpace = AIR_CalculateHangarStorage(aircraftTemplate, base, 0);
/* Check free space in hangars. */
if (freeSpace < 0) {
Com_Printf("BS_BuyAircraft_f: something bad happened, AIR_CalculateHangarStorage returned -1!\n");
return;
}
if (freeSpace == 0) {
CP_Popup(_("Notice"), _("You cannot buy this aircraft.\nNot enough space in hangars.\n"));
return;
} else {
const int price = BS_GetAircraftBuyingPrice(aircraftTemplate);
if (ccs.credits < price) {
CP_Popup(_("Notice"), _("You cannot buy this aircraft.\nNot enough credits.\n"));
return;
} else {
/* Hangar capacities are being updated in AIR_NewAircraft().*/
BS_RemoveAircraftFromMarket(aircraftTemplate, 1);
CP_UpdateCredits(ccs.credits - price);
AIR_NewAircraft(base, aircraftTemplate);
Cmd_ExecuteString(va("buy_type %s", INV_GetFilterType(FILTER_AIRCRAFT)));
}
}
}
}
