cp_transfer.cpp

Go to the documentation of this file.

/*
Copyright (C) 2002-2020 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 "cp_campaign.h"
#include "cp_capacity.h"
#include "cp_time.h"
#include "save/save_transfer.h"
#include "cp_transfer_callbacks.h"
#include "aliencargo.h"
#include "aliencontainment.h"
#include "itemcargo.h"

static void TR_EmptyTransferCargo (base_t* destination, transfer_t* transfer, bool success)
{
    assert(transfer);

    /* antimatter */
    if (transfer->antimatter > 0 && success) {
        if (B_GetBuildingStatus(destination, B_ANTIMATTER)) {
            B_AddAntimatter(destination, transfer->antimatter);
        } else {
            Com_sprintf(cp_messageBuffer, sizeof(cp_messageBuffer), _("%s does not have Antimatter Storage, antimatter are removed!"), destination->name);
            MSO_CheckAddNewMessage(NT_TRANSFER_LOST, _("Transport mission"), cp_messageBuffer, MSG_TRANSFERFINISHED);
        }
    }

    /* items */
    if (transfer->itemCargo != nullptr) {
        if (success) {
            linkedList_t* cargo = transfer->itemCargo->list();
            LIST_Foreach(cargo, itemCargo_t, item) {
                if (item->amount <= 0)
                    continue;
                if (!B_ItemIsStoredInBaseStorage(item->objDef))
                    continue;
                B_AddToStorage(destination, item->objDef, item->amount);
            }
            cgi->LIST_Delete(&cargo);
        }
        delete transfer->alienCargo;
        transfer->alienCargo = nullptr;
    }

    /* Employee */
    if (transfer->hasEmployees && transfer->srcBase) {  /* Employees. (cannot come from a mission) */
        for (int i = EMPL_SOLDIER; i < MAX_EMPL; i++) {
            const employeeType_t type = (employeeType_t)i;
            TR_ForeachEmployee(employee, transfer, type) {
                employee->transfer = false;
                if (!success) {
                    E_DeleteEmployee(employee);
                    continue;
                }
                switch (type) {
                case EMPL_WORKER:
                    PR_UpdateProductionCap(destination, 0);
                    break;
                case EMPL_PILOT:
                    AIR_AutoAddPilotToAircraft(destination, employee);
                    break;
                default:
                    break;
                }
            }
        }
    }

    /* Aliens */
    if (transfer->alienCargo != nullptr) {
        if (success) {
            if (!destination->alienContainment) {
                Com_sprintf(cp_messageBuffer, sizeof(cp_messageBuffer), _("%s does not have Alien Containment, Aliens are removed!"), destination->name);
                MSO_CheckAddNewMessage(NT_TRANSFER_LOST, _("Transport mission"), cp_messageBuffer, MSG_TRANSFERFINISHED);
            } else {
                linkedList_t* cargo = transfer->alienCargo->list();
                LIST_Foreach(cargo, alienCargo_t, item) {
                    destination->alienContainment->add(item->teamDef, item->alive, item->dead);
                }
                cgi->LIST_Delete(&cargo);
            }
        }
        delete transfer->alienCargo;
        transfer->alienCargo = nullptr;
    }

    TR_ForeachAircraft(aircraft, transfer) {
        if (success) {
            VectorCopy(destination->pos, aircraft->pos);
            aircraft->status = AIR_HOME;
            if (!destination->aircraftCurrent)
                destination->aircraftCurrent = aircraft;
        } else {
            AIR_DeleteAircraft(aircraft);
        }
    }
    cgi->LIST_Delete(&transfer->aircraft);
}

static void TR_TransferEnd (transfer_t* transfer)
{
    base_t* destination = transfer->destBase;
    assert(destination);

    if (!destination->founded) {
        TR_EmptyTransferCargo(nullptr, transfer, false);
        MSO_CheckAddNewMessage(NT_TRANSFER_LOST, _("Transport mission"), _("The destination base no longer exists! Transfer cargo was lost, personnel has been discharged."), MSG_TRANSFERFINISHED);
    } else {
        char message[256];
        TR_EmptyTransferCargo(destination, transfer, true);
        Com_sprintf(message, sizeof(message), _("Transport mission ended, unloading cargo in %s"), destination->name);
        MSO_CheckAddNewMessage(NT_TRANSFER_COMPLETED_SUCCESS, _("Transport mission"), message, MSG_TRANSFERFINISHED);
    }
    cgi->LIST_Remove(&ccs.transfers, transfer);
}

transfer_t* TR_TransferStart (base_t* srcBase, transfer_t& transData)
{
    transfer_t transfer;
    float time;
    int i;

    if (!transData.destBase || !srcBase) {
        cgi->Com_Printf("TR_TransferStart: No base selected!\n");
        return nullptr;
    }

    /* Initialize transfer. */
    OBJZERO(transfer);
    if (srcBase != nullptr && transData.destBase != nullptr) {
        /* calculate time to go from 1 base to another : 1 day for one quarter of the globe*/
        time = GetDistanceOnGlobe(transData.destBase->pos, srcBase->pos) / 90.0f;
    } else {
        time = DEFAULT_TRANSFER_TIME;
    }
    transfer.event.day = ccs.date.day + floor(time);    /* add day */
    time = (time - floor(time)) * SECONDS_PER_DAY;  /* convert remaining time in second */
    transfer.event.sec = ccs.date.sec + round(time);
    /* check if event is not the following day */
    if (transfer.event.sec > SECONDS_PER_DAY) {
        transfer.event.sec -= SECONDS_PER_DAY;
        transfer.event.day++;
    }
    transfer.destBase = transData.destBase; /* Destination base. */
    transfer.srcBase = srcBase; /* Source base. */

    int count = 0;
    /* antimatter */
    if (transData.antimatter > 0) {
        transfer.antimatter = transData.antimatter;
        B_AddAntimatter(srcBase, -transData.antimatter);
        count += transData.antimatter;
    }

    /* Items */
    if (transData.itemCargo != nullptr) {
        transfer.itemCargo = new ItemCargo(*transData.itemCargo);

        linkedList_t* list = transData.itemCargo->list();
        LIST_Foreach(list, itemCargo_t, item) {
            if (srcBase == nullptr)
                continue;
            if (!B_ItemIsStoredInBaseStorage(item->objDef))
                continue;
            B_AddToStorage(srcBase, item->objDef, -item->amount);
            count += item->amount;
        }
        cgi->LIST_Delete(&list);
    }

    for (i = 0; i < MAX_EMPL; i++) {        /* Employees. */
        LIST_Foreach(transData.employees[i], Employee, employee) {
            if (employee->isAssigned())
                employee->unassign();

            const aircraft_t *aircraft = AIR_IsEmployeeInAircraft(employee, nullptr);
            if (aircraft && cgi->LIST_GetPointer(transData.aircraft, (const void*)aircraft) == nullptr) {
                /* get a non-constant pointer */
                aircraft_t* craft = AIR_AircraftGetFromIDX(aircraft->idx);
                AIR_RemoveEmployee(employee, craft);
            }

            E_MoveIntoNewBase(employee, transfer.destBase);
            employee->transfer = true;
            cgi->LIST_AddPointer(&transfer.employees[i], (void*) employee);
            transfer.hasEmployees = true;
            count++;
        }
    }

    /* Aliens. */
    if (transData.alienCargo != nullptr) {
        transfer.alienCargo = new AlienCargo(*transData.alienCargo);

        linkedList_t* list = transData.alienCargo->list();
        LIST_Foreach(list, alienCargo_t, item) {
            if (srcBase != nullptr && srcBase->alienContainment != nullptr)
                srcBase->alienContainment->add(item->teamDef, -item->alive, -item->dead);
            count += item->alive;
            count += item->dead;
        }
        cgi->LIST_Delete(&list);
    }

    /* Aircraft */
    LIST_Foreach(transData.aircraft, aircraft_t, aircraft) {
        const baseCapacities_t capacity = AIR_GetHangarCapacityType(aircraft);
        aircraft->status = AIR_TRANSFER;
        aircraft->homebase = transData.destBase;

        /* Remove crew if not transfered */
        if (aircraft->pilot != nullptr && cgi->LIST_GetPointer(transfer.employees[aircraft->pilot->getType()], (void*)aircraft->pilot) == nullptr)
            AIR_RemoveEmployee(aircraft->pilot, aircraft);

        LIST_Foreach(aircraft->acTeam, Employee, employee) {
            if (cgi->LIST_GetPointer(transfer.employees[employee->getType()], (void*)employee) == nullptr)
                AIR_RemoveEmployee(employee, aircraft);
        }

        cgi->LIST_AddPointer(&transfer.aircraft, (void*)aircraft);

        if (srcBase->aircraftCurrent == aircraft)
            srcBase->aircraftCurrent = AIR_GetFirstFromBase(srcBase);
        CAP_AddCurrent(srcBase, capacity, -1);

        /* This should happen in TR_EmptyTransferCargo but on loading capacities are
            calculated based on aircraft->homebase. aircraft->homebase cannot be null yet
            there are hidden tests on that. */
        CAP_AddCurrent(transData.destBase, capacity, 1);

        count++;
    }

    /* don't start empty transfer */
    if (count == 0)
        return nullptr;

    /* Recheck if production/research can be done on srcbase (if there are workers/scientists) */
    PR_ProductionAllowed(srcBase);
    RS_ResearchAllowed(srcBase);

    return &LIST_Add(&ccs.transfers, transfer);
}

void TR_NotifyAircraftRemoved (const aircraft_t* aircraft)
{
    if (!aircraft)
        return;

    TR_Foreach(transfer) {
        if (cgi->LIST_Remove(&transfer->aircraft, aircraft))
            return;
    }
}

void TR_TransferRun (void)
{
    TR_Foreach(transfer) {
        if (Date_IsDue(&transfer->event)) {
            assert(transfer->destBase);
            TR_TransferEnd(transfer);
            return;
        }
    }
}

#ifdef DEBUG

static void TR_ListTransfers_f (void)
{
    int transIdx = -1;
    int i = 0;

    if (cgi->Cmd_Argc() == 2) {
        transIdx = atoi(cgi->Cmd_Argv(1));
        if (transIdx < 0 || transIdx > cgi->LIST_Count(ccs.transfers)) {
            cgi->Com_Printf("Usage: %s [transferIDX]\nWithout parameter it lists all.\n", cgi->Cmd_Argv(0));
            return;
        }
    }

    TR_Foreach(transfer) {
        dateLong_t date;
        i++;

        if (transIdx >= 0 && i != transIdx)
            continue;

        /* @todo: we need a strftime feature to make this easier */
        CP_DateConvertLong(&transfer->event, &date);

        cgi->Com_Printf("Transfer #%d\n", i);
        cgi->Com_Printf("...From %d (%s) To %d (%s) Arrival: %04i-%02i-%02i %02i:%02i:%02i\n",
            (transfer->srcBase) ? transfer->srcBase->idx : -1,
            (transfer->srcBase) ? transfer->srcBase->name : "(null)",
            (transfer->destBase) ? transfer->destBase->idx : -1,
            (transfer->destBase) ? transfer->destBase->name : "(null)",
            date.year, date.month, date.day, date.hour, date.min, date.sec);

        /* Antimatter */
        if (transfer->antimatter > 0)
            cgi->Com_Printf("......Antimatter amount: %i\n", transfer->antimatter);
        /* ItemCargo */
        if (transfer->alienCargo != nullptr) {
            cgi->Com_Printf("...ItemCargo:\n");
            linkedList_t* cargo = transfer->itemCargo->list();
            LIST_Foreach(cargo, itemCargo_t, item) {
                cgi->Com_Printf("......%s amount: %i\n", item->objDef->id, item->amount);
            }
            cgi->LIST_Delete(&cargo);
        }
        /* Carried Employees */
        if (transfer->hasEmployees) {
            int i;

            cgi->Com_Printf("...Carried Employee:\n");
            for (i = EMPL_SOLDIER; i < MAX_EMPL; i++) {
                const employeeType_t emplType = (employeeType_t)i;
                TR_ForeachEmployee(employee, transfer, emplType) {
                    if (employee->getUGV()) {
                        cgi->Com_Printf("......ugv: %s [ucn: %i]\n", employee->getUGV()->id, employee->chr.ucn);
                    } else {
                        cgi->Com_Printf("......%s (%s) / %s [ucn: %i]\n", employee->chr.name,
                            E_GetEmployeeString(employee->getType(), 1),
                            (employee->getNation()) ? employee->getNation()->id : "(nonation)",
                            employee->chr.ucn);
                        if (!employee->isHired())
                            cgi->Com_Printf("Warning: employee^ not hired!\n");
                        if (!employee->transfer)
                            cgi->Com_Printf("Warning: employee^ not marked as being transferred!\n");
                    }
                }
            }
        }
        /* AlienCargo */
        if (transfer->alienCargo != nullptr) {
            cgi->Com_Printf("...AlienCargo:\n");
            linkedList_t* cargo = transfer->alienCargo->list();
            LIST_Foreach(cargo, alienCargo_t, item) {
                cgi->Com_Printf("......%s alive: %i dead: %i\n", item->teamDef->id, item->alive, item->dead);
            }
            cgi->LIST_Delete(&cargo);
        }
        /* Transfered Aircraft */
        if (!cgi->LIST_IsEmpty(transfer->aircraft)) {
            cgi->Com_Printf("...Transfered Aircraft:\n");
            TR_ForeachAircraft(aircraft, transfer) {
                cgi->Com_Printf("......%s [idx: %i]\n", aircraft->id, aircraft->idx);
            }
        }
    }
}
#endif

bool TR_SaveXML (xmlNode_t* p)
{
    xmlNode_t* n = cgi->XML_AddNode(p, SAVE_TRANSFER_TRANSFERS);

    TR_Foreach(transfer) {
        int j;
        xmlNode_t* s;

        s = cgi->XML_AddNode(n, SAVE_TRANSFER_TRANSFER);
        cgi->XML_AddInt(s, SAVE_TRANSFER_DAY, transfer->event.day);
        cgi->XML_AddInt(s, SAVE_TRANSFER_SEC, transfer->event.sec);
        if (!transfer->destBase) {
            cgi->Com_Printf("Could not save transfer, no destBase is set\n");
            return false;
        }
        cgi->XML_AddInt(s, SAVE_TRANSFER_DESTBASE, transfer->destBase->idx);
        /* scrBase can be nullptr if this is alien (mission->base) transport
         * @sa TR_TransferAlienAfterMissionStart */
        if (transfer->srcBase)
            cgi->XML_AddInt(s, SAVE_TRANSFER_SRCBASE, transfer->srcBase->idx);
        /* save antimatter */
        if (transfer->antimatter > 0) {

        }
        /* save items */
        if (transfer->itemCargo != nullptr) {
            xmlNode_t* itemNode = cgi->XML_AddNode(s, SAVE_TRANSFER_ITEMCARGO);
            if (!itemNode)
                return false;
            transfer->itemCargo->save(itemNode);
        }
        /* save aliens */
        if (transfer->alienCargo != nullptr) {
            xmlNode_t* alienNode = cgi->XML_AddNode(s, SAVE_TRANSFER_ALIENCARGO);
            if (!alienNode)
                return false;
            transfer->alienCargo->save(alienNode);
        }
        /* save employee */
        if (transfer->hasEmployees) {
            for (j = 0; j < MAX_EMPL; j++) {
                TR_ForeachEmployee(employee, transfer, j) {
                    xmlNode_t* ss = cgi->XML_AddNode(s, SAVE_TRANSFER_EMPLOYEE);
                    cgi->XML_AddInt(ss, SAVE_TRANSFER_UCN, employee->chr.ucn);
                }
            }
        }
        /* save aircraft */
        TR_ForeachAircraft(aircraft, transfer) {
            xmlNode_t* ss = cgi->XML_AddNode(s, SAVE_TRANSFER_AIRCRAFT);
            cgi->XML_AddInt(ss, SAVE_TRANSFER_ID, aircraft->idx);
        }
    }
    return true;
}

bool TR_LoadXML (xmlNode_t* p)
{
    xmlNode_t* n, *s;

    n = cgi->XML_GetNode(p, SAVE_TRANSFER_TRANSFERS);
    if (!n)
        return false;

    assert(B_AtLeastOneExists());

    for (s = cgi->XML_GetNode(n, SAVE_TRANSFER_TRANSFER); s; s = cgi->XML_GetNextNode(s, n, SAVE_TRANSFER_TRANSFER)) {
        xmlNode_t* ss;
        transfer_t transfer;

        OBJZERO(transfer);

        transfer.destBase = B_GetBaseByIDX(cgi->XML_GetInt(s, SAVE_TRANSFER_DESTBASE, -1));
        if (!transfer.destBase) {
            cgi->Com_Printf("Error: Transfer has no destBase set\n");
            return false;
        }
        transfer.srcBase = B_GetBaseByIDX(cgi->XML_GetInt(s, SAVE_TRANSFER_SRCBASE, -1));

        transfer.event.day = cgi->XML_GetInt(s, SAVE_TRANSFER_DAY, 0);
        transfer.event.sec = cgi->XML_GetInt(s, SAVE_TRANSFER_SEC, 0);

        /* Initializing some variables */
        transfer.hasEmployees = false;

        /* load items */
        ss = cgi->XML_GetNode(s, SAVE_TRANSFER_ITEMCARGO);
        if (ss) {
            transfer.itemCargo = new ItemCargo();
            if (transfer.itemCargo == nullptr)
                cgi->Com_Error(ERR_DROP, "TR_LoadXML: Cannot create ItemCargo object\n");
            transfer.itemCargo->load(ss);
        } else {
            /* If there is at last one element, hasItems is true */
            ss = cgi->XML_GetNode(s, SAVE_TRANSFER_ITEM);
            if (ss) {
                transfer.itemCargo = new ItemCargo();
                for (; ss; ss = cgi->XML_GetNextNode(ss, s, SAVE_TRANSFER_ITEM)) {
                    const char* itemId = cgi->XML_GetString(ss, SAVE_TRANSFER_ITEMID);
                    int amount = cgi->XML_GetInt(ss, SAVE_TRANSFER_AMOUNT, 1);
                    transfer.itemCargo->add(itemId, amount, 1);
                }
            }
        }
        /* load aliens */
        ss = cgi->XML_GetNode(s, SAVE_TRANSFER_ALIENCARGO);
        if (ss) {
            transfer.alienCargo = new AlienCargo();
            if (transfer.alienCargo == nullptr)
                cgi->Com_Error(ERR_DROP, "TR_LoadXML: Cannot create AlienCargo object\n");
            transfer.alienCargo->load(ss);
        }
        /* load employee */
        ss = cgi->XML_GetNode(s, SAVE_TRANSFER_EMPLOYEE);
        if (ss) {
            transfer.hasEmployees = true;
            for (; ss; ss = cgi->XML_GetNextNode(ss, s, SAVE_TRANSFER_EMPLOYEE)) {
                const int ucn = cgi->XML_GetInt(ss, SAVE_TRANSFER_UCN, -1);
                Employee* empl = E_GetEmployeeFromChrUCN(ucn);

                if (!empl) {
                    cgi->Com_Printf("Error: No employee found with UCN: %i\n", ucn);
                    return false;
                }

                cgi->LIST_AddPointer(&transfer.employees[empl->getType()], (void*) empl);
                empl->transfer = true;
            }
        }
        /* load aircraft */
        for (ss = cgi->XML_GetNode(s, SAVE_TRANSFER_AIRCRAFT); ss; ss = cgi->XML_GetNextNode(ss, s, SAVE_TRANSFER_AIRCRAFT)) {
            const int j = cgi->XML_GetInt(ss, SAVE_TRANSFER_ID, -1);
            aircraft_t* aircraft = AIR_AircraftGetFromIDX(j);

            if (aircraft)
                cgi->LIST_AddPointer(&transfer.aircraft, (void*)aircraft);
        }
        LIST_Add(&ccs.transfers, transfer);
    }

    return true;
}

void TR_InitStartup (void)
{
    TR_InitCallbacks();
#ifdef DEBUG
    cgi->Cmd_AddCommand("debug_listtransfers", TR_ListTransfers_f, "Lists an/all active transfer(s)");
#endif
}

void TR_Shutdown (void)
{
    TR_Foreach(transfer) {
        if (transfer->itemCargo != nullptr) {
            delete transfer->itemCargo;
            transfer->itemCargo = nullptr;
        }
        if (transfer->alienCargo != nullptr) {
            delete transfer->alienCargo;
            transfer->alienCargo = nullptr;
        }
        cgi->LIST_Delete(&transfer->aircraft);
        for (int i = EMPL_SOLDIER; i < MAX_EMPL; i++) {
            cgi->LIST_Delete(&transfer->employees[i]);
        }
    }
    cgi->LIST_Delete(&ccs.transfers);

    TR_ShutdownCallbacks();
#ifdef DEBUG
    cgi->Cmd_RemoveCommand("debug_listtransfers");
#endif
}