/*
 * Crossfire -- cooperative multi-player graphical RPG and adventure game
 *
 * Copyright (c) 1999-2013 Mark Wedel and the Crossfire Development Team
 * Copyright (c) 1992 Frank Tore Johansen
 *
 * Crossfire is free software and comes with ABSOLUTELY NO WARRANTY. You are
 * welcome to redistribute it under certain conditions. For details, please
 * see COPYING and LICENSE.
 *
 * The authors can be reached via e-mail at <crossfire@metalforge.org>.
 */

/**
 * @file
 * Those functions handle placement of fountains, submaps, and so on.
 */

#include "global.h"

#include <stdlib.h>
#include <string.h>

#include "random_map.h"
#include "rproto.h"

/**
 * @defgroup SPECIAL_xxx Special objects in random map
 */
/*@{*/
#define NUM_OF_SPECIAL_TYPES 4
#define NO_SPECIAL 0
#define SPECIAL_SUBMAP 1
#define SPECIAL_FOUNTAIN 2
#define SPECIAL_EXIT 3
/*@}*/

/**
 * @defgroup HOLE_xxx Random map holes
 */
/*@{*/
#define GLORY_HOLE 1
#define ORC_ZONE 2
#define MINING_ZONE 3
#define NR_OF_HOLE_TYPES 3
/*@}*/

/**
 * Erases all objects (except floor) in the given rectangle.
 * @param map
 * map to process.
 * @param xstart
 * @param ystart
 * top-left coordinates of zone.
 * @param xsize
 * @param ysize
 * size of zone.
 */
void nuke_map_region(mapstruct *map, int xstart, int ystart, int xsize, int ysize)
{
    int i, j;

    for (i = xstart; i < xstart+xsize; i++)
        for (j = ystart; j < ystart+ysize; j++) {
            FOR_MAP_PREPARE(map, i, j, tmp) {
                if (!QUERY_FLAG(tmp, FLAG_IS_FLOOR)) {
                    tmp = HEAD(tmp);
                    object_remove(tmp);
                    object_free_drop_inventory(tmp);
                }
            }
            FOR_MAP_FINISH();
        }
}

/**
 * Copy in_map into dest_map at point x,y. This also copies shop information if set in in_map.
 * @param dest_map
 * map where to copy to.
 * @param in_map
 * map to copy from.
 * @param x
 * @param y
 * coordinates to put in_map to.
 */
void include_map_in_map(mapstruct *dest_map, const mapstruct *in_map, int x, int y)
{
    int i, j;
    object *new_ob;

    /* First, splatter everything in the dest map at the location */
    nuke_map_region(dest_map, x, y, MAP_WIDTH(in_map), MAP_HEIGHT(in_map));

    for (i = 0; i < MAP_WIDTH(in_map); i++)
        for (j = 0; j < MAP_HEIGHT(in_map); j++) {
            FOR_MAP_PREPARE(in_map, i, j, tmp) {
                /* don't copy things with multiple squares:  must be dealt with
                   specially. */
                if (tmp->head != NULL) {
                    continue;
                }
                new_ob = object_create_arch(tmp->arch);
                object_copy_with_inv(tmp, new_ob);
                if (QUERY_FLAG(tmp, FLAG_IS_LINKED)) {
                    add_button_link(new_ob, dest_map, tmp->path_attuned);
                }
                object_insert_in_map_at(new_ob, dest_map, NULL, INS_NO_MERGE|INS_NO_WALK_ON, i + x, j + y);
            }
            FOR_MAP_FINISH();
        }

    /* Copy shop-related information.
     * This ensures that, if a shop map is included, its information is correctly
     * copied.
     * Most of the time dest_map won't have any information set (random map), but better
     * safe than sorry.
     */

    if (in_map->shopgreed) {
        dest_map->shopgreed = in_map->shopgreed;
    }
    if (in_map->shopmax) {
        dest_map->shopmax = in_map->shopmax;
    }
    if (in_map->shopmin) {
        dest_map->shopmin = in_map->shopmin;
    }
    if (in_map->shoprace) {
        FREE_AND_CLEAR(dest_map->shoprace);
        dest_map->shoprace = strdup_local(in_map->shoprace);
    }
    if (in_map->shopitems) {
        FREE_AND_CLEAR(dest_map->shopitems);
        dest_map->shopitems = CALLOC(in_map->shopitems[0].index + 1, sizeof(shopitems));
        memcpy(dest_map->shopitems, in_map->shopitems, in_map->shopitems[0].index * sizeof(shopitems));
    }
}

/**
 * Finds a place to put a submap into.
 * @param map
 * map to insert.
 * @param layout
 * where to insert into.
 * @param ix
 * @param iy
 * coordinates of suitable location if return is 1.
 * @param xsize
 * @param ysize
 * size of layout.
 * @return
 * 0 if no space found, 1 else.
 */
int find_spot_for_submap(mapstruct *map, char **layout, int *ix, int *iy, int xsize, int ysize)
{
    int tries;
    int i = 0, j = 0; /* initialization may not be needed but prevents compiler warnings */
    int is_occupied = 0;
    int l, m;

    /* don't even try to place a submap into a map if the big map isn't
       sufficiently large. */
    if (2*xsize > MAP_WIDTH(map) || 2*ysize > MAP_HEIGHT(map)) {
        return 0;
    }

    tries = 20;
    if (!settings.special_break_map) {
        /* can't break layout, so try harder */
        tries = 50;
    }

    /* search for a completely free spot. */
    for (; tries >= 0; tries--) {
        /* pick a random location in the layout */
        i = RANDOM()%(MAP_WIDTH(map)-xsize-2)+1;
        j = RANDOM()%(MAP_HEIGHT(map)-ysize-2)+1;
        is_occupied = 0;
        for (l = i; l < i+xsize; l++)
            for (m = j; m < j+ysize; m++) {
                is_occupied |= layout[l][m];
            }
        if (!is_occupied) {
            break;
        }
    }

    /* if we failed, relax the restrictions */
    if (is_occupied && settings.special_break_map) { /* failure, try a relaxed placement if allowed. */
        /* pick a random location in the layout */
        for (tries = 0; tries < 10; tries++) {
            i = RANDOM()%(MAP_WIDTH(map)-xsize-2)+1;
            j = RANDOM()%(MAP_HEIGHT(map)-ysize-2)+1;
            is_occupied = 0;
            for (l = i; l < i+xsize; l++)
                for (m = j; m < j+ysize; m++)
                    if (layout[l][m] == 'C' || layout[l][m] == '>' || layout[l][m] == '<') {
                        is_occupied |= 1;
                    }
        }
    }
    if (is_occupied) {
        return 0;
    }
    *ix = i;
    *iy = j;
    return 1;
}

/**
 * Places a special fountain on the map.
 * @param map
 * map to place to.
 * @todo
 * change logic to allocate potion only if success?
 */
void place_fountain_with_specials(mapstruct *map)
{
    int ix, iy, i = -1, tries = 0;
    mapstruct *fountain_style = find_style("/styles/misc", "fountains", -1);
    const archetype *fountain = find_archetype("fountain");
    if (fountain == NULL) {
        return;
    }
    object *potion = object_new();

    object_copy_with_inv(pick_random_object(fountain_style), potion);
    while (i < 0 && tries < 10) {
        ix = RANDOM()%(MAP_WIDTH(map)-2)+1;
        iy = RANDOM()%(MAP_HEIGHT(map)-2)+1;
        i = object_find_first_free_spot(potion, map, ix, iy);
        tries++;
    };
    if (i == -1) { /* can't place fountain */
        object_free_drop_inventory(potion);
        return;
    }
    ix += freearr_x[i];
    iy += freearr_y[i];
    potion->speed = fountain->clone.speed;
    potion->face = fountain->clone.face;
    potion->anim_speed = fountain->clone.anim_speed;
    potion->animation = fountain->clone.animation;
    if (QUERY_FLAG(&fountain->clone, FLAG_ANIMATE)) {
        SET_FLAG(potion, FLAG_ANIMATE);
        SET_FLAG(potion, FLAG_CLIENT_ANIM_RANDOM);
    } else {
        CLEAR_FLAG(potion, FLAG_ANIMATE);
    }
    object_update_speed(potion);
    SET_FLAG(potion, FLAG_NO_PICK);
    SET_FLAG(potion, FLAG_IDENTIFIED);
    FREE_AND_COPY(potion->name, fountain->clone.name);
    FREE_AND_COPY(potion->name_pl, fountain->clone.name_pl);
    object_set_value(potion, "on_use_yield", fountain->name, 1);
    /*
     * Giving no material and no materialname makes the fountain
     * not get destroyed by spells.
     * -- SilverNexus 2015-05-15
     */
    potion->material = 0;
    // Free the string if it exists
    if (potion->materialname)
        FREE_AND_CLEAR_STR(potion->materialname);
    object_insert_in_map_at(potion, map, NULL, 0, ix, iy);
}

/**
 * Place an exit with a resource map.
 * @param map
 * where to put the exit.
 * @param hole_type
 * type of random map to link to, see @ref HOLE_xxx "HOLE_xxx".
 * @param RP
 * parameters from which map was generated.
 */
void place_special_exit(mapstruct *map, int hole_type, const RMParms *RP)
{
    int ix, iy, i = -1;
    char *buf;
    const char *style, *decor, *mon;
    mapstruct *exit_style = find_style("/styles/misc", "obscure_exits", -1);
    int g_xsize, g_ysize;
    object *the_exit;
    RMParms hole;

    if (!exit_style) {
        return;
    }

    the_exit = object_new();

    object_copy(pick_random_object(exit_style), the_exit);

    while (i < 0) {
        ix = RANDOM()%(MAP_WIDTH(map)-2)+1;
        iy = RANDOM()%(MAP_HEIGHT(map)-2)+1;
        i = object_find_first_free_spot(the_exit, map, ix, iy);
    }

    if (!hole_type) {
        hole_type = RANDOM()%NR_OF_HOLE_TYPES+1;
    }

    switch (hole_type) {
    case GLORY_HOLE: { /* treasures */
        g_xsize = RANDOM()%3+4+RP->difficulty/4;
        g_ysize = RANDOM()%3+4+RP->difficulty/4;
        style = "onion";
        decor = "wealth2";
        mon = "none";
        break;
    }

    case ORC_ZONE: { /* hole with orcs in it. */
        g_xsize = RANDOM()%3+4+RP->difficulty/4;
        g_ysize = RANDOM()%3+4+RP->difficulty/4;
        style = "onion";
        decor = "wealth2";
        mon = "orc";
        break;
    }

    case MINING_ZONE: { /* hole with orcs in it. */
        g_xsize = RANDOM()%9+4+RP->difficulty/4;
        g_ysize = RANDOM()%9+4+RP->difficulty/4;
        style = "maze";
        decor = "minerals2";
        mon = "none";
        break;
    }

    default:  /* undefined */
        LOG(llevError, "place_special_exit: undefined hole type %d\n", hole_type);
        return;
        break;
    }

    /* Need to be at least this size, otherwise the load
     * code will generate new size values which are too large.
     */
    if (g_xsize < MIN_RANDOM_MAP_SIZE) {
        g_xsize = MIN_RANDOM_MAP_SIZE;
    }
    if (g_ysize < MIN_RANDOM_MAP_SIZE) {
        g_ysize = MIN_RANDOM_MAP_SIZE;
    }

    memset(&hole, 0, sizeof(hole));
    hole.Xsize = g_xsize;
    hole.Ysize = g_ysize;
    strcpy(hole.wallstyle, RP->wallstyle);
    strcpy(hole.floorstyle, RP->floorstyle);
    strcpy(hole.monsterstyle, mon);
    strcpy(hole.treasurestyle, "none");
    strcpy(hole.layoutstyle, style);
    strcpy(hole.decorstyle, decor);
    strcpy(hole.doorstyle, "none");
    strcpy(hole.exitstyle, RP->exitstyle);
    strcpy(hole.final_map, "");
    strcpy(hole.exit_on_final_map, "");
    strcpy(hole.this_map, "");
    hole.layoutoptions1 = OPT_WALLS_ONLY;
    hole.layoutoptions2 = 0;
    hole.symmetry = 1;
    hole.dungeon_depth = RP->dungeon_level;
    hole.dungeon_level = RP->dungeon_level;
    hole.difficulty = RP->difficulty;
    hole.difficulty_given = RP->difficulty;
    hole.decoroptions = -1;
    hole.orientation = 1;
    hole.origin_x = 0;
    hole.origin_y = 0;
    hole.random_seed = 0;
    hole.treasureoptions = 0;
    hole.difficulty_increase = RP->difficulty_increase;

    buf = stringbuffer_finish(write_map_parameters_to_string(&hole));
    object_set_msg(the_exit, buf);
    free(buf);

    the_exit->slaying = add_string("/!");

    object_insert_in_map_at(the_exit, map, NULL, 0, ix+freearr_x[i], iy+freearr_y[i]);
}

/**
 * Main function for specials.
 * @param map
 * map to alter.
 * @param layout
 * layout the map was generated from.
 * @param RP
 * parameters the map was generated from.
 */
void place_specials_in_map(mapstruct *map, char **layout, RMParms *RP)
{
    mapstruct *special_map;
    int ix, iy;  /* map insertion locatons */
    int special_type; /* type of special to make */

    special_type = RANDOM()%NUM_OF_SPECIAL_TYPES;
    switch (special_type) {
        /* includes a special map into the random map being made. */
    case SPECIAL_SUBMAP: {
        special_map = find_style("/styles/specialmaps", NULL, RP->difficulty);
        if (special_map == NULL) {
            return;
        }

        if (find_spot_for_submap(map, layout, &ix, &iy, MAP_WIDTH(special_map), MAP_HEIGHT(special_map))) {
            include_map_in_map(map, special_map, ix, iy);
        }
        break;
    }

    /* Make a special fountain:  an unpickable potion disguised as
     * a fountain, or rather, colocated with a fountain.
     */
    case SPECIAL_FOUNTAIN: {
        place_fountain_with_specials(map);
        break;
    }

    /* Make an exit to another random map, e.g. a gloryhole. */
    case SPECIAL_EXIT: {
        place_special_exit(map, 0, RP);
        break;
    }
    }
}