floor.c

Go to the documentation of this file.

/*
 * 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>.
 */
 
#include <global.h>
#include <random_map.h>
#include <rproto.h>
 
static int can_propagate(char item)
{
    return (item == '\0' || item == '<' || item == '>') ? 1 : 0;
}
 
static void put_floor(mapstruct *map, char **layout, int x, int y, object *floor_arch)
{
    int dx, dy;
    object *floor;
 
    floor = arch_to_object(floor_arch->arch);
    object_insert_in_map_at(floor, map, floor, INS_NO_MERGE|INS_NO_WALK_ON, x, y);
 
    for (dx = -1; dx < 2; dx++) {
        for (dy = -1; dy < 2; dy++) {
            if (GET_MAP_OB(map, x+dx, y+dy) == NULL && can_propagate(layout[x+dx][y+dy])) {
                put_floor(map, layout, x+dx, y+dy, floor_arch);
            }
        }
    }
}
 
mapstruct *make_map_floor(char **layout, char *floorstyle, RMParms *RP)
{
    mapstruct *style_map = NULL;
    object *the_floor;
    mapstruct *newMap = NULL;
    int x, y;
 
    /* allocate the map */
    newMap = get_empty_map(RP->Xsize, RP->Ysize);
 
    /* get the style map */
    const char *styledirname = "/styles/floorstyles";
    style_map = find_style(styledirname, floorstyle, -1);
    if (style_map == NULL) {
        return newMap;
    }
 
    if (RP->multiple_floors) {
        for (x = 0; x < RP->Xsize; x++) {
            for (y = 0; y < RP->Ysize; y++) {
                if (GET_MAP_OB(newMap, x, y) == NULL && layout[x][y] == '\0') {
                    put_floor(newMap, layout, x, y, pick_random_object(style_map));
                }
            }
        }
    }
 
    /* fill up the map with the given floor style */
    if ((the_floor = pick_random_object(style_map)) != NULL) {
        object *thisfloor;
 
        for (x = 0; x < RP->Xsize; x++)
            for (y = 0; y < RP->Ysize; y++) {
                if (GET_MAP_OB(newMap, x, y) != NULL) {
                    continue;
                }
                thisfloor = arch_to_object(the_floor->arch);
                object_insert_in_map_at(thisfloor, newMap, thisfloor, INS_NO_MERGE|INS_NO_WALK_ON, x, y);
            }
    }
    return newMap;
}