cp_alien_interest.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 "cp_campaign.h"
#include "cp_alien_interest.h"
#include "save/save_interest.h"

void INT_ResetAlienInterest (void)
{
    ccs.lastInterestIncreaseDelay = 0;
    ccs.lastMissionSpawnedDelay = 0;
    ccs.overallInterest = ccs.curCampaign->initialInterest;

    for (int i = 0; i < INTERESTCATEGORY_MAX; i++)
        ccs.interest[i] = 0;
    ccs.interest[INTERESTCATEGORY_RECON] = ccs.curCampaign->initialInterest;
}

void INT_ChangeIndividualInterest (float interestFactor, interestCategory_t category)
{
    if (category == INTERESTCATEGORY_MAX) {
        cgi->Com_Printf("CP_ChangeIndividualInterest: Unsupported value of category\n");
        return;
    }

    if (interestFactor > 0.0f) {
        const int gain = (int) (interestFactor * ccs.overallInterest);
        const int diff = ccs.overallInterest - ccs.interest[category];
        /* Fraction of individual interest that will be won if
         * individal interest becomes higher than overall interest. 0 means no increase */
        const float slowerIncreaseFraction = 0.5f;
        /* Value increases: interestFactor is taken from the overall interest value
         * But it increase slower if the individual interest becomes higher than the overall interest value */
        if (diff > gain)
            /* Final value of individual interest is below overall interest */
            ccs.interest[category] += gain;
        else if (diff > 0)
            /* Initial value of individual interest is below overall interest */
            ccs.interest[category] = ccs.overallInterest + (int) (slowerIncreaseFraction * (gain - diff));
        else
            /* Final value of individual interest is above overall interest */
            ccs.interest[category] += (int) (slowerIncreaseFraction * gain);
    } else {
        /* Value decreases: interestFactor is taken from the individual interest value */
        ccs.interest[category] += (int) (interestFactor * ccs.interest[category]);
        if (ccs.interest[category] < 0) {
            /* this may be reached if interestFactor is below -1 */
            ccs.interest[category] = 0;
        }
    }
}

void INT_IncreaseAlienInterest (const campaign_t* campaign)
{
    /* Adjust interest increase rate by difficulty. */
    const int delayBetweenIncrease = HOURS_PER_ONE_INTEREST - campaign->difficulty;

    ccs.lastInterestIncreaseDelay++;

    if (ccs.lastInterestIncreaseDelay > delayBetweenIncrease) {
        ccs.overallInterest++;
        ccs.lastInterestIncreaseDelay %= delayBetweenIncrease;
    }
}

bool INT_SaveXML (xmlNode_t* parent)
{
    xmlNode_t* interestsNode = cgi->XML_AddNode(parent, SAVE_INTERESTS);

    cgi->XML_AddShortValue(interestsNode, SAVE_INTERESTS_LASTINCREASEDELAY, ccs.lastInterestIncreaseDelay);
    cgi->XML_AddShortValue(interestsNode, SAVE_INTERESTS_LASTMISSIONSPAWNEDDELAY, ccs.lastMissionSpawnedDelay);
    cgi->XML_AddShortValue(interestsNode, SAVE_INTERESTS_OVERALL, ccs.overallInterest);
    cgi->Com_RegisterConstList(saveInterestConstants);
    for (int i = 0; i < INTERESTCATEGORY_MAX; i++) {
        xmlNode_t* interestNode = cgi->XML_AddNode(interestsNode, SAVE_INTERESTS_INTEREST);
        cgi->XML_AddString(interestNode, SAVE_INTERESTS_ID, cgi->Com_GetConstVariable(SAVE_INTERESTCAT_NAMESPACE, i));
        cgi->XML_AddShort(interestNode, SAVE_INTERESTS_VAL, ccs.interest[i]);
    }
    cgi->Com_UnregisterConstList(saveInterestConstants);
    return true;
}

bool INT_LoadXML (xmlNode_t* parent)
{
    xmlNode_t* node;
    xmlNode_t* interestsNode = cgi->XML_GetNode(parent, SAVE_INTERESTS);

    ccs.lastInterestIncreaseDelay = cgi->XML_GetInt(interestsNode, SAVE_INTERESTS_LASTINCREASEDELAY, 0);
    ccs.lastMissionSpawnedDelay = cgi->XML_GetInt(interestsNode, SAVE_INTERESTS_LASTMISSIONSPAWNEDDELAY, 0);
    ccs.overallInterest = cgi->XML_GetInt(interestsNode, SAVE_INTERESTS_OVERALL, 0);

    cgi->Com_RegisterConstList(saveInterestConstants);
    for (node = cgi->XML_GetNode(interestsNode, SAVE_INTERESTS_INTEREST); node;
            node = cgi->XML_GetNextNode(node, interestsNode, SAVE_INTERESTS_INTEREST)) {
        const char* categoryId = cgi->XML_GetString(node, SAVE_INTERESTS_ID);
        int cat;

        if (!cgi->Com_GetConstInt(categoryId, (int*) &cat)) {
            cgi->Com_Printf("Invalid interest category '%s'\n", categoryId);
            continue;
        }
        ccs.interest[cat]= cgi->XML_GetInt(node, SAVE_INTERESTS_VAL, 0);
    }
    cgi->Com_UnregisterConstList(saveInterestConstants);

    return true;
}

#ifdef DEBUG

const char* INT_InterestCategoryToName (interestCategory_t category)
{
    switch (category) {
    case INTERESTCATEGORY_NONE:
        return "None";
    case INTERESTCATEGORY_RECON:
        return "Recon mission";
    case INTERESTCATEGORY_TERROR_ATTACK:
        return "Terror mission";
    case INTERESTCATEGORY_BASE_ATTACK:
        return "Base attack";
    case INTERESTCATEGORY_BUILDING:
    case INTERESTCATEGORY_SUBVERT:
        return "Building Base or Subverting Government";
    case INTERESTCATEGORY_SUPPLY:
        return "Supply base";
    case INTERESTCATEGORY_XVI:
        return "XVI propagation";
    case INTERESTCATEGORY_INTERCEPT:
    case INTERESTCATEGORY_INTERCEPTBOMBING:
        return "Interception";
    case INTERESTCATEGORY_HARVEST:
        return "Harvest";
    case INTERESTCATEGORY_ALIENBASE:
        return "Alien base discovered";
    case INTERESTCATEGORY_RESCUE:
        return "Rescue mission";
    case INTERESTCATEGORY_UFOCARRIER:
        return "UFO-Carrier";
    case INTERESTCATEGORY_MAX:
        return "Unknown mission category";
    }

    /* Can't reach this point */
    return "INVALID";
}

static void INT_AlienInterestList_f (void)
{
    cgi->Com_Printf("Overall interest: %i\n", ccs.overallInterest);
    cgi->Com_Printf("Individual interest:\n");
    for (int i = INTERESTCATEGORY_NONE; i < INTERESTCATEGORY_MAX; i++)
        cgi->Com_Printf("...%i. %s -- %i\n", i, INT_InterestCategoryToName((interestCategory_t)i), ccs.interest[i]);
}

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

    const int interest = atoi(cgi->Cmd_Argv(1));
    ccs.overallInterest = std::max(0, interest);
}
#endif

static const cmdList_t debugInterestCmds[] = {
#ifdef DEBUG
    {"debug_interestlist", INT_AlienInterestList_f, "Debug function to show alien interest values"},
    {"debug_interestset", INT_SetAlienInterest_f, "Set overall interest level."},
#endif
    {nullptr, nullptr, nullptr}
};
void INT_InitStartup (void)
{
    cgi->Cmd_TableAddList(debugInterestCmds);
}

void INT_Shutdown (void)
{
    cgi->Cmd_TableRemoveList(debugInterestCmds);
}