/**
 * @file
 * @brief Misc functions.
**/

#include "AppHdr.h"

#include "misc.h"
#include "mpr.h"

#include <algorithm>
#include <cstdio>
#include <cstdlib>
#include <cstring>
#ifdef UNIX
#include <unistd.h>
#endif

#include "database.h"
#include "english.h"
#include "items.h"
#include "libutil.h"
#include "monster.h"
#include "options.h" // tile_grinch
#include "state.h"
#include "stringutil.h" // starts_with
#include "terrain.h"
#include "tileview.h"
#include "traps.h"

// Magically swap the player's position with a given monster, even entangling
// each one in the other's nets.
void transpose_with_monster(monster* mon_to_swap)
{
    monster& mon(*mon_to_swap);
    ASSERT(mon.alive());
    const coord_def newpos = mon.pos();

    if (you.stasis())
    {
        mpr("Your stasis prevents you from teleporting.");
        return;
    }

    // Be nice: no swapping into uninhabitable environments.
    if (!you.is_habitable(newpos) || !mon.is_habitable(you.pos()))
    {
        mpr("You spin around.");
        return;
    }

    const caught_type mon_caught = mon.caught_by();
    const caught_type you_caught = you.caught_by();

    mprf("You swap places with %s.", mon.name(DESC_THE).c_str());

    // Must remove nets first (with no drop) so that we don't clone nets during
    // this swap.
    mon.stop_being_caught();
    mon.move_to(you.pos(), MV_TRANSLOCATION | MV_ALLOW_OVERLAP);

    // Move you to its previous location.
    you.stop_being_caught();
    you.move_to(newpos, MV_TRANSLOCATION | MV_ALLOW_OVERLAP);

    // Exchange caught status.
    if (you_caught != CAUGHT_NONE)
    {
        if (you_caught == CAUGHT_WEB)
            mon.trap_in_web();
        else
            mon.trap_in_net(you_caught == CAUGHT_NET);
    }
    if (mon_caught != CAUGHT_NONE)
    {
        if (mon_caught == CAUGHT_WEB)
            you.trap_in_web();
        else
            you.trap_in_net(mon_caught == CAUGHT_NET);
    }
}

void handle_real_time(chrono::time_point<chrono::system_clock> now)
{
    const chrono::milliseconds elapsed =
     chrono::duration_cast<chrono::milliseconds>(now - you.last_keypress_time);
    you.real_time_delta = min<chrono::milliseconds>(
      elapsed,
      (chrono::milliseconds)(IDLE_TIME_CLAMP * 1000));
    you.real_time_ms += you.real_time_delta;
    you.last_keypress_time = now;
}

unsigned int breakpoint_rank(int val, const int breakpoints[],
                             unsigned int num_breakpoints)
{
    unsigned int result = 0;
    while (result < num_breakpoints && val >= breakpoints[result])
        ++result;

    return result;
}

counted_monster_list::counted_monster_list(vector<monster *> ms)
{
    for (auto mon : ms)
        add(mon);
}

void counted_monster_list::add(const monster* mons)
{
    const string name = mons->name(DESC_PLAIN);
    for (auto &entry : list)
    {
        if (entry.first->name(DESC_PLAIN) == name)
        {
            entry.second++;
            return;
        }
    }
    list.emplace_back(mons, 1);
}

int counted_monster_list::count() const
{
    int nmons = 0;
    for (const auto &entry : list)
        nmons += entry.second;
    return nmons;
}

string counted_monster_list::describe(description_level_type desc) const
{
    string out;

    for (auto i = list.begin(); i != list.end();)
    {
        const counted_monster &cm(*i);
        if (i != list.begin())
        {
            ++i;
            out += (i == list.end() ? " and " : ", ");
        }
        else
            ++i;

        out += cm.second > 1
               ? pluralise_monster(cm.first->name(desc, false, true))
               : cm.first->name(desc);
    }
    return out;
}

void attacked_monster_list::add(const monster& mons, string adj, string suffix,
                                bool penance)
{
    // record the adjectives for the first listed, or
    // first that would cause penance
    if (m_victims.empty() || penance && !m_penance)
    {
        m_adj = std::move(adj);
        m_suffix = std::move(suffix);
        m_penance = penance;
    }
    m_victims.add(&mons);
}

string attacked_monster_list::describe() const
{
    // No "your the Royal Jelly" nor "the the Royal Jelly".
    string mon_name = remove_prepended_the(m_victims.describe(DESC_PLAIN));
    const char* prefix = "";
    if (!starts_with(m_adj, "your"))
        prefix = "the ";
    return prefix + m_adj + mon_name;
}

/**
 * Halloween or Hallowe'en (/ˌhæləˈwiːn, -oʊˈiːn, ˌhɑːl-/; a contraction of
 * "All Hallows' Evening"),[6] also known as Allhalloween,[7] All Hallows' Eve,
 * [8] or All Saints' Eve,[9] is a yearly celebration observed in a number of
 * countries on 31 October, the eve of the Western Christian feast of All
 * Hallows' Day... Within Allhallowtide, the traditional focus of All Hallows'
 * Eve revolves around the theme of using "humor and ridicule to confront the
 * power of death."[12]
 *
 * Typical festive Halloween activities include trick-or-treating (or the
 * related "guising"), attending costume parties, decorating, carving pumpkins
 * into jack-o'-lanterns, lighting bonfires, apple bobbing, visiting haunted
 * house attractions, playing pranks, telling scary stories, and watching
 * horror films.
 *
 * @return  Whether the current day is Halloween. (Cunning players may reset
 *          their system clocks to manipulate this. That's fine.)
 */
bool today_is_halloween()
{
    const time_t curr_time = time(nullptr);
    const struct tm *date = TIME_FN(&curr_time);
    // tm_mon is zero-based in case you are wondering
    // Oct 30th-31th, Nov 1st
    return date->tm_mon == 9 && date->tm_mday >= 30
           || date->tm_mon == 10 && date->tm_mday == 1;
}

/// It's beginning to feel an awful lot like Christmas.
/// Or Hannukah, maybe..? Who can say.
bool december_holidays()
{
    // Currently, this customization only applies to tiles mode.
    // If that changes, we should move this check to the appropriate
    // call sites of this function, or add a wrapper.
#ifndef USE_TILE
    return false;
#else
    if (Options.tile_grinch)
        return false;
    const time_t curr_time = time(nullptr);
    const struct tm *date = TIME_FN(&curr_time);
    // Give em two weeks before Christmas and then until New Year's.
    // (tm_mon is zero-based.)
    return date->tm_mon == 11 && date->tm_mday > 10;
#endif
}

/**
 * Really, this goes without saying.
 */
bool today_is_serious()
{
    const time_t curr_time = time(nullptr);
    const struct tm *date = TIME_FN(&curr_time);
    // As ever, note that tm_mon is 0-based.
    // March 31st, April 1st-2nd
    return date->tm_mon == 2 && date->tm_mday == 31
           || date->tm_mon == 3 && date->tm_mday <= 2;
}