/*
Copyright (C) 2003, 2010 - Wolfire Games
Copyright (C) 2010-2017 - Lugaru contributors (see AUTHORS file)

This file is part of Lugaru.

Lugaru 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.

Lugaru 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 Lugaru.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "Devtools/ConsoleCmds.hpp"

#include "Game.hpp"
#include "Level/Dialog.hpp"
#include "Level/Hotspot.hpp"
#include "Tutorial.hpp"
#include "Utils/Folders.hpp"

const char* cmd_names[cmd_count] = {
#define DECLARE_COMMAND(cmd) #cmd,
#include "ConsoleCmds.def"
#undef DECLARE_COMMAND
};

console_handler cmd_handlers[cmd_count] = {
#define DECLARE_COMMAND(cmd) ch_##cmd,
#include "ConsoleCmds.def"
#undef DECLARE_COMMAND
};

using namespace Game;

/* globals */

extern bool campaign;
extern bool cellophane;
extern int editoractive;
extern int editorpathtype;
extern int environment;
extern float fadestart;
extern float slomospeed;
extern float slomofreq;
extern int hostile;
extern int maptype;
extern int slomo;
extern float slomodelay;
extern bool skyboxtexture;
extern float skyboxr;
extern float skyboxg;
extern float skyboxb;
extern float skyboxlightr;
extern float skyboxlightg;
extern float skyboxlightb;
extern Terrain terrain;
extern float viewdistance;

/* defined in GameTick.cpp */

extern int whichlevel;

float tintr = 1, tintg = 1, tintb = 1;

/* Helpers used in console commands */

/* Return true if PFX is a prefix of STR (case-insensitive).  */
static bool stripfx(const char* str, const char* pfx)
{
    return !strncasecmp(str, pfx, strlen(pfx));
}

static void set_proportion(int pnum, const char* args)
{
    float headprop, bodyprop, armprop, legprop;

    sscanf(args, "%f%f%f%f", &headprop, &bodyprop, &armprop, &legprop);

    Person::players[pnum]->setProportions(headprop, bodyprop, armprop, legprop);
}

static void set_protection(int pnum, const char* args)
{
    float head, high, low;
    sscanf(args, "%f%f%f", &head, &high, &low);

    Person::players[pnum]->protectionhead = head;
    Person::players[pnum]->protectionhigh = high;
    Person::players[pnum]->protectionlow = low;
}

static void set_armor(int pnum, const char* args)
{
    float head, high, low;
    sscanf(args, "%f%f%f", &head, &high, &low);

    Person::players[pnum]->armorhead = head;
    Person::players[pnum]->armorhigh = high;
    Person::players[pnum]->armorlow = low;
}

static void set_metal(int pnum, const char* args)
{
    float head, high, low;
    sscanf(args, "%f%f%f", &head, &high, &low);

    Person::players[pnum]->metalhead = head;
    Person::players[pnum]->metalhigh = high;
    Person::players[pnum]->metallow = low;
}

static void set_noclothes(int pnum, const char*)
{
    Person::players[pnum]->numclothes = 0;
    Person::players[pnum]->skeleton.drawmodel.textureptr.load(
        PersonType::types[Person::players[pnum]->creature].skins[Person::players[pnum]->whichskin], 1,
        &Person::players[pnum]->skeleton.skinText[0], &Person::players[pnum]->skeleton.skinsize);
}

static void set_clothes(int pnum, const char* args)
{
    char buf[64];
    snprintf(buf, 63, "Textures/%s.png", args);

    const std::string file_path = Folders::getResourcePath(buf);
    FILE* tfile;
    tfile = fopen(file_path.c_str(), "rb");
    if (tfile == NULL) {
        perror((std::string("Couldn't find file ") + file_path + " to assign as clothes").c_str());

        // FIXME: Reduce code duplication with GameTick (should come from a Console class)
        for (int k = 14; k >= 1; k--) {
            consoletext[k] = consoletext[k - 1];
        }
        consoletext[0] = std::string("Could not load the requested texture '") + args + "', aborting.";
        consoleselected = 0;

        return;
    }

    int id = Person::players[pnum]->numclothes;
    strncpy(Person::players[pnum]->clothes[id], buf, 64);
    Person::players[pnum]->clothestintr[id] = tintr;
    Person::players[pnum]->clothestintg[id] = tintg;
    Person::players[pnum]->clothestintb[id] = tintb;
    Person::players[pnum]->numclothes++;

    if (!Person::players[pnum]->addClothes(id)) {
        return;
    }

    Person::players[pnum]->DoMipmaps();
}

static void list_clothes(int pnum)
{
    printf("Clothes from player %d:\n", pnum);
    for (int i = 0; i < Person::players[pnum]->numclothes; i++) {
        printf("%s (%f %f %f)\n",
               Person::players[pnum]->clothes[i],
               Person::players[pnum]->clothestintr[i],
               Person::players[pnum]->clothestintg[i],
               Person::players[pnum]->clothestintb[i]);
    }
}

/* Console commands themselves */

void ch_quit(const char*)
{
    tryquit = 1;
}

void ch_map(const char* args)
{
    if (!LoadLevel(args)) {
        // FIXME: Reduce code duplication with GameTick (should come from a Console class)
        for (int k = 14; k >= 1; k--) {
            consoletext[k] = consoletext[k - 1];
        }
        consoletext[0] = std::string("Could not load the requested level '") + args + "', aborting.";
        consoleselected = 0;
    }
    whichlevel = -2;
    campaign = 0;
}

void ch_save(const char* args)
{
    std::string map_path = Folders::getUserDataPath() + "/Maps";
    Folders::makeDirectory(map_path);
    map_path = map_path + "/" + args;

    int mapvers = 12;

    FILE* tfile;
    tfile = fopen(map_path.c_str(), "wb");
    if (tfile == NULL) {
        perror((std::string("Couldn't open file ") + map_path + " for saving").c_str());
        return;
    }
    fpackf(tfile, "Bi", mapvers);
    fpackf(tfile, "Bi", maptype);
    fpackf(tfile, "Bi", hostile);
    fpackf(tfile, "Bf Bf", viewdistance, fadestart);
    fpackf(tfile, "Bb Bf Bf Bf", skyboxtexture, skyboxr, skyboxg, skyboxb);
    fpackf(tfile, "Bf Bf Bf", skyboxlightr, skyboxlightg, skyboxlightb);
    fpackf(tfile, "Bf Bf Bf Bf Bf Bi", Person::players[0]->coords.x, Person::players[0]->coords.y, Person::players[0]->coords.z,
           Person::players[0]->yaw, Person::players[0]->targetyaw, Person::players[0]->num_weapons);
    if (Person::players[0]->num_weapons > 0 && Person::players[0]->num_weapons < 5) {
        for (int j = 0; j < Person::players[0]->num_weapons; j++) {
            fpackf(tfile, "Bi", weapons[Person::players[0]->weaponids[j]].getType());
        }
    }

    fpackf(tfile, "Bf Bf Bf", Person::players[0]->armorhead, Person::players[0]->armorhigh, Person::players[0]->armorlow);
    fpackf(tfile, "Bf Bf Bf", Person::players[0]->protectionhead, Person::players[0]->protectionhigh, Person::players[0]->protectionlow);
    fpackf(tfile, "Bf Bf Bf", Person::players[0]->metalhead, Person::players[0]->metalhigh, Person::players[0]->metallow);
    fpackf(tfile, "Bf Bf", Person::players[0]->power, Person::players[0]->speedmult);

    fpackf(tfile, "Bi", Person::players[0]->numclothes);

    fpackf(tfile, "Bi Bi", Person::players[0]->whichskin, Person::players[0]->creature);

    Dialog::saveDialogs(tfile);

    for (int k = 0; k < Person::players[0]->numclothes; k++) {
        int templength = strlen(Person::players[0]->clothes[k]);
        fpackf(tfile, "Bi", templength);
        for (int l = 0; l < templength; l++) {
            fpackf(tfile, "Bb", Person::players[0]->clothes[k][l]);
        }
        fpackf(tfile, "Bf Bf Bf", Person::players[0]->clothestintr[k], Person::players[0]->clothestintg[k], Person::players[0]->clothestintb[k]);
    }

    fpackf(tfile, "Bi", environment);

    fpackf(tfile, "Bi", Object::objects.size());

    for (unsigned int k = 0; k < Object::objects.size(); k++) {
        fpackf(tfile, "Bi Bf Bf Bf Bf Bf Bf", Object::objects[k]->type, Object::objects[k]->yaw, Object::objects[k]->pitch,
               Object::objects[k]->position.x, Object::objects[k]->position.y, Object::objects[k]->position.z, Object::objects[k]->scale);
    }

    fpackf(tfile, "Bi", Hotspot::hotspots.size());
    for (unsigned i = 0; i < Hotspot::hotspots.size(); i++) {
        fpackf(tfile, "Bi Bf Bf Bf Bf", Hotspot::hotspots[i].type, Hotspot::hotspots[i].size, Hotspot::hotspots[i].position.x, Hotspot::hotspots[i].position.y, Hotspot::hotspots[i].position.z);
        int templength = strlen(Hotspot::hotspots[i].text);
        fpackf(tfile, "Bi", templength);
        for (int l = 0; l < templength; l++) {
            fpackf(tfile, "Bb", Hotspot::hotspots[i].text[l]);
        }
    }

    fpackf(tfile, "Bi", Person::players.size());
    if (Person::players.size() > maxplayers) {
        cout << "Warning: this level contains more players than allowed" << endl;
    }
    for (unsigned j = 1; j < Person::players.size(); j++) {
        fpackf(tfile, "Bi Bi Bf Bf Bf Bi Bi Bf Bb Bf", Person::players[j]->whichskin, Person::players[j]->creature,
               Person::players[j]->coords.x, Person::players[j]->coords.y, Person::players[j]->coords.z,
               Person::players[j]->num_weapons, Person::players[j]->howactive, Person::players[j]->scale, Person::players[j]->immobile, Person::players[j]->yaw);
        if (Person::players[j]->num_weapons < 5) {
            for (int k = 0; k < Person::players[j]->num_weapons; k++) {
                fpackf(tfile, "Bi", weapons[Person::players[j]->weaponids[k]].getType());
            }
        }
        if (Person::players[j]->numwaypoints < 30) {
            fpackf(tfile, "Bi", Person::players[j]->numwaypoints);
            for (int k = 0; k < Person::players[j]->numwaypoints; k++) {
                fpackf(tfile, "Bf", Person::players[j]->waypoints[k].x);
                fpackf(tfile, "Bf", Person::players[j]->waypoints[k].y);
                fpackf(tfile, "Bf", Person::players[j]->waypoints[k].z);
                fpackf(tfile, "Bi", Person::players[j]->waypointtype[k]);
            }
            fpackf(tfile, "Bi", Person::players[j]->waypoint);
        } else {
            Person::players[j]->numwaypoints = 0;
            Person::players[j]->waypoint = 0;
            fpackf(tfile, "Bi Bi Bi", Person::players[j]->numwaypoints, Person::players[j]->waypoint, Person::players[j]->waypoint);
        }

        fpackf(tfile, "Bf Bf Bf", Person::players[j]->armorhead, Person::players[j]->armorhigh, Person::players[j]->armorlow);
        fpackf(tfile, "Bf Bf Bf", Person::players[j]->protectionhead, Person::players[j]->protectionhigh, Person::players[j]->protectionlow);
        fpackf(tfile, "Bf Bf Bf", Person::players[j]->metalhead, Person::players[j]->metalhigh, Person::players[j]->metallow);
        fpackf(tfile, "Bf Bf", Person::players[j]->power, Person::players[j]->speedmult);
        fpackf(tfile, "Bf Bf Bf Bf", Person::players[j]->getProportion(0), Person::players[j]->getProportion(1), Person::players[j]->getProportion(2), Person::players[j]->getProportion(3));

        fpackf(tfile, "Bi", Person::players[j]->numclothes);
        if (Person::players[j]->numclothes) {
            for (int k = 0; k < Person::players[j]->numclothes; k++) {
                int templength;
                templength = strlen(Person::players[j]->clothes[k]);
                fpackf(tfile, "Bi", templength);
                for (int l = 0; l < templength; l++) {
                    fpackf(tfile, "Bb", Person::players[j]->clothes[k][l]);
                }
                fpackf(tfile, "Bf Bf Bf", Person::players[j]->clothestintr[k], Person::players[j]->clothestintg[k], Person::players[j]->clothestintb[k]);
            }
        }
    }

    fpackf(tfile, "Bi", numpathpoints);
    for (int j = 0; j < numpathpoints; j++) {
        fpackf(tfile, "Bf Bf Bf Bi", pathpoint[j].x, pathpoint[j].y, pathpoint[j].z, numpathpointconnect[j]);
        for (int k = 0; k < numpathpointconnect[j]; k++) {
            fpackf(tfile, "Bi", pathpointconnect[j][k]);
        }
    }

    fpackf(tfile, "Bf Bf Bf Bf", mapcenter.x, mapcenter.y, mapcenter.z, mapradius);

    fclose(tfile);
}

void ch_tint(const char* args)
{
    sscanf(args, "%f%f%f", &tintr, &tintg, &tintb);
}

void ch_tintr(const char* args)
{
    tintr = atof(args);
}

void ch_tintg(const char* args)
{
    tintg = atof(args);
}

void ch_tintb(const char* args)
{
    tintb = atof(args);
}

void ch_speed(const char* args)
{
    Person::players[0]->speedmult = atof(args);
}

void ch_strength(const char* args)
{
    Person::players[0]->power = atof(args);
}

void ch_power(const char* args)
{
    Person::players[0]->power = atof(args);
}

void ch_size(const char* args)
{
    Person::players[0]->scale = atof(args) * .2;
}

void ch_sizenear(const char* args)
{
    int closest = findClosestPlayer();
    if (closest >= 0) {
        Person::players[closest]->scale = atof(args) * .2;
    }
}

void ch_proportion(const char* args)
{
    set_proportion(0, args);
}

void ch_proportionnear(const char* args)
{
    int closest = findClosestPlayer();
    if (closest >= 0) {
        set_proportion(closest, args);
    }
}

void ch_protection(const char* args)
{
    set_protection(0, args);
}

void ch_protectionnear(const char* args)
{
    int closest = findClosestPlayer();
    if (closest >= 0) {
        set_protection(closest, args);
    }
}

void ch_armor(const char* args)
{
    set_armor(0, args);
}

void ch_armornear(const char* args)
{
    int closest = findClosestPlayer();
    if (closest >= 0) {
        set_armor(closest, args);
    }
}

void ch_protectionreset(const char*)
{
    set_protection(0, "1 1 1");
    set_armor(0, "1 1 1");
}

void ch_metal(const char* args)
{
    set_metal(0, args);
}

void ch_noclothes(const char* args)
{
    set_noclothes(0, args);
}

void ch_noclothesnear(const char* args)
{
    int closest = findClosestPlayer();
    if (closest >= 0) {
        set_noclothes(closest, args);
    }
}

void ch_clothes(const char* args)
{
    set_clothes(0, args);
}

void ch_clothesnear(const char* args)
{
    int closest = findClosestPlayer();
    if (closest >= 0) {
        set_clothes(closest, args);
    }
}

void ch_clotheslist(const char*)
{
    list_clothes(0);
}

void ch_clotheslistnear(const char*)
{
    int closest = findClosestPlayer();
    if (closest >= 0) {
        list_clothes(closest);
    }
}

void ch_belt(const char*)
{
    Person::players[0]->skeleton.clothes = !Person::players[0]->skeleton.clothes;
}

void ch_cellophane(const char*)
{
    cellophane = !cellophane;
}

void ch_funnybunny(const char*)
{
    Person::players[0]->creature = rabbittype;
    Person::players[0]->skeletonLoad(true);
    Person::players[0]->scale = .2;
    Person::players[0]->headless = 0;
    Person::players[0]->damagetolerance = 200;
    set_proportion(0, "1 1 1 1");
}

void ch_wolfie(const char*)
{
    Person::players[0]->creature = wolftype;
    Person::players[0]->skeletonLoad();
    Person::players[0]->scale = .23;
    Person::players[0]->damagetolerance = 300;
    set_proportion(0, "1 1 1 1");
}

void ch_lizardwolf(const char*)
{
    Person::players[0]->skeleton.drawmodel.textureptr.load("Textures/FurWolfLizard.jpg", 1, &Person::players[0]->skeleton.skinText[0], &Person::players[0]->skeleton.skinsize);
}

void ch_darko(const char*)
{
    Person::players[0]->skeleton.drawmodel.textureptr.load("Textures/FurDarko.jpg", 1, &Person::players[0]->skeleton.skinText[0], &Person::players[0]->skeleton.skinsize);
}

void ch_sizemin(const char*)
{
    for (unsigned i = 1; i < Person::players.size(); i++) {
        if (Person::players[i]->scale < 0.8 * 0.2) {
            Person::players[i]->scale = 0.8 * 0.2;
        }
    }
}

void ch_tutorial(const char* args)
{
    Tutorial::active = atoi(args);
}

void ch_hostile(const char* args)
{
    hostile = atoi(args);
}

void ch_type(const char* args)
{
    int n = sizeof(editortypenames) / sizeof(editortypenames[0]);
    for (int i = 0; i < n; i++) {
        if (stripfx(args, editortypenames[i])) {
            editoractive = i;
            break;
        }
    }
}

void ch_path(const char* args)
{
    unsigned int n = sizeof(pathtypenames) / sizeof(pathtypenames[0]);
    for (unsigned int i = 0; i < n; i++) {
        if (stripfx(args, pathtypenames[i])) {
            editorpathtype = i;
            break;
        }
    }
}

void ch_hs(const char* args)
{
    float size;
    int type, shift;
    sscanf(args, "%f%d %n", &size, &type, &shift);

    Hotspot::hotspots.emplace_back(Person::players[0]->coords, type, size);

    strcpy(Hotspot::hotspots.back().text, args + shift);
    strcat(Hotspot::hotspots.back().text, "\n");
}

void ch_dialog(const char* args)
{
    int type;
    char buf1[32];

    sscanf(args, "%d %31s", &type, buf1);
    std::string filename = std::string("Dialogues/") + buf1 + ".txt";

    Dialog::dialogs.push_back(Dialog(type, filename));

    Dialog::directing = true;
    Dialog::indialogue = 0;
    Dialog::whichdialogue = Dialog::dialogs.size();
}

void ch_fixdialog(const char* args)
{
    char buf1[32];
    int whichdlg = 0;

    sscanf(args, "%d %31s", &whichdlg, buf1);
    std::string filename = std::string("Dialogues/") + buf1 + ".txt";

    Dialog::dialogs[whichdlg] = Dialog(Dialog::dialogs[whichdlg].type, filename);
}

void ch_fixtype(const char* args)
{
    int whichdlg = 0;
    int type = 0;
    sscanf(args, "%d %d", &whichdlg, &type);
    Dialog::dialogs[whichdlg].type = type;
}

void ch_fixrotation(const char*)
{
    int playerId = Dialog::currentScene().participantfocus;
    Dialog::currentDialog().participantyaw[playerId] = Person::players[playerId]->yaw;
}

void ch_ddialog(const char* args)
{
    if (Dialog::dialogs.empty() || Dialog::inDialog()) {
        return;
    }

    int dlg = -1;
    sscanf(args, "%d", &dlg);
    if (dlg == -1) {
        // Remove last entry
        Dialog::dialogs.pop_back();
        return;
    }

    if (dlg >= int(Dialog::dialogs.size())) {
        // Invalid index, abort
        return;
    }

    // Erase given index, higher indexes will be decreased by 1
    Dialog::dialogs.erase(Dialog::dialogs.begin() + dlg);
}

void ch_dhs(const char*)
{
    if (!Hotspot::hotspots.empty()) {
        Hotspot::hotspots.pop_back();
    }
}

void ch_immobile(const char*)
{
    Person::players[0]->immobile = 1;
}

void ch_allimmobile(const char*)
{
    for (unsigned i = 1; i < Person::players.size(); i++) {
        Person::players[i]->immobile = 1;
    }
}

void ch_mobile(const char*)
{
    Person::players[0]->immobile = 0;
}

void ch_default(const char*)
{
    Person::players[0]->armorhead = 1;
    Person::players[0]->armorhigh = 1;
    Person::players[0]->armorlow = 1;
    Person::players[0]->protectionhead = 1;
    Person::players[0]->protectionhigh = 1;
    Person::players[0]->protectionlow = 1;
    Person::players[0]->metalhead = 1;
    Person::players[0]->metalhigh = 1;
    Person::players[0]->metallow = 1;
    Person::players[0]->power = 1;
    Person::players[0]->speedmult = 1;
    if (Person::players[0]->creature == wolftype) {
        Person::players[0]->scale = .23;
    } else if (Person::players[0]->creature == rabbittype) {
        Person::players[0]->scale = .2;
    }

    Person::players[0]->setProportions(1, 1, 1, 1);

    Person::players[0]->numclothes = 0;
    Person::players[0]->skeleton.drawmodel.textureptr.load(
        PersonType::types[Person::players[0]->creature].skins[Person::players[0]->whichskin], 1,
        &Person::players[0]->skeleton.skinText[0], &Person::players[0]->skeleton.skinsize);

    editoractive = typeactive;
    Person::players[0]->immobile = 0;
}

void ch_play(const char* args)
{
    int dlg;
    sscanf(args, "%d", &dlg);
    Dialog::whichdialogue = dlg;

    if (Dialog::whichdialogue >= int(Dialog::dialogs.size())) {
        return;
    }

    Dialog::currentDialog().play();
}

void ch_mapkilleveryone(const char*)
{
    maptype = mapkilleveryone;
}

void ch_mapkillmost(const char*)
{
    maptype = mapkillmost;
}

void ch_mapkillsomeone(const char*)
{
    maptype = mapkillsomeone;
}

void ch_mapgosomewhere(const char*)
{
    maptype = mapgosomewhere;
}

void ch_viewdistance(const char* args)
{
    viewdistance = atof(args) * 100;
}

void ch_fadestart(const char* args)
{
    fadestart = atof(args);
}

void ch_slomo(const char* args)
{
    slomospeed = atof(args);
    slomo = !slomo;
    slomodelay = 1000;
}

void ch_slofreq(const char* args)
{
    slomofreq = atof(args);
}

void ch_skytint(const char* args)
{
    sscanf(args, "%f%f%f", &skyboxr, &skyboxg, &skyboxb);

    skyboxlightr = skyboxr;
    skyboxlightg = skyboxg;
    skyboxlightb = skyboxb;

    SetUpLighting();

    terrain.DoShadows();
    Object::DoShadows();
}

void ch_skylight(const char* args)
{
    sscanf(args, "%f%f%f", &skyboxlightr, &skyboxlightg, &skyboxlightb);

    SetUpLighting();

    terrain.DoShadows();
    Object::DoShadows();
}

void ch_skybox(const char*)
{
    skyboxtexture = !skyboxtexture;

    SetUpLighting();

    terrain.DoShadows();
    Object::DoShadows();
}