terrain.c

Go to the documentation of this file.

/***********************************************************************
 Freeciv - Copyright (C) 2003 - The Freeciv Project
   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, 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.
***********************************************************************/
 
#ifdef HAVE_CONFIG_H
#include <fc_config.h>
#endif
 
/* utility */
#include "fcintl.h"
#include "log.h"                /* fc_assert */
#include "mem.h"                /* free */
#include "rand.h"
#include "shared.h"
#include "string_vector.h"
#include "support.h"
 
/* common */
#include "extras.h"
#include "game.h"
#include "map.h"
#include "rgbcolor.h"
#include "road.h"
 
#include "terrain.h"
 
static struct terrain civ_terrains[MAX_NUM_TERRAINS];
static struct user_flag user_terrain_flags[MAX_NUM_USER_TER_FLAGS];
 
/**********************************************************************/
void terrains_init(void)
{
  int i;
 
  for (i = 0; i < ARRAY_SIZE(civ_terrains); i++) {
    int j;
 
    /* Can't use terrain_by_number here because it does a bounds check. */
    civ_terrains[i].item_number = i;
    civ_terrains[i].ruledit_disabled = FALSE;
    civ_terrains[i].ruledit_dlg = NULL;
    civ_terrains[i].rgb = NULL;
 
    for (j = 0; j < MAX_EXTRA_TYPES; j++) {
      civ_terrains[i].extra_removal_times[j] = 0;
    }
  }
}
 
/**********************************************************************/
void terrains_free(void)
{
  terrain_type_iterate(pterrain) {
    if (NULL != pterrain->helptext) {
      strvec_destroy(pterrain->helptext);
      pterrain->helptext = NULL;
    }
    if (pterrain->resources != NULL) {
      /* Server allocates this on ruleset loading, client when
       * ruleset packet is received. */
      free(pterrain->resources);
      pterrain->resources = NULL;
    }
    if (pterrain->resource_freq != NULL) {
      /* Server allocates this on ruleset loading, client when
       * ruleset packet is received. */
      free(pterrain->resource_freq);
      pterrain->resource_freq = NULL;
    }
    if (pterrain->rgb != NULL) {
      /* Server allocates this on ruleset loading, client when
       * ruleset packet is received. */
      rgbcolor_destroy(pterrain->rgb);
      pterrain->rgb = NULL;
    }
  } terrain_type_iterate_end;
}
 
/**********************************************************************/
struct terrain *terrain_array_first(void)
{
  if (game.control.terrain_count > 0) {
    return civ_terrains;
  }
  return NULL;
}
 
/**********************************************************************/
const struct terrain *terrain_array_last(void)
{
  if (game.control.terrain_count > 0) {
    return &civ_terrains[game.control.terrain_count - 1];
  }
  return NULL;
}
 
/**********************************************************************/
Terrain_type_id terrain_count(void)
{
  return game.control.terrain_count;
}
 
/**********************************************************************/
char terrain_identifier(const struct terrain *pterrain)
{
  fc_assert_ret_val(pterrain, '\0');
  return pterrain->identifier;
}
 
/**********************************************************************/
Terrain_type_id terrain_index(const struct terrain *pterrain)
{
  fc_assert_ret_val(pterrain, -1);
  return pterrain - civ_terrains;
}
 
/**********************************************************************/
Terrain_type_id terrain_number(const struct terrain *pterrain)
{
  fc_assert_ret_val(pterrain, -1);
  return pterrain->item_number;
}
 
/**********************************************************************/
struct terrain *terrain_by_number(const Terrain_type_id type)
{
  if (type < 0 || type >= game.control.terrain_count) {
    /* This isn't an error; some T_UNKNOWN callers depend on it. */
    return NULL;
  }
  return &civ_terrains[type];
}
 
/**********************************************************************/
struct terrain *terrain_by_identifier(const char identifier)
{
  if (TERRAIN_UNKNOWN_IDENTIFIER == identifier) {
    return T_UNKNOWN;
  }
  terrain_type_iterate(pterrain) {
    if (pterrain->identifier == identifier) {
      return pterrain;
    }
  } terrain_type_iterate_end;
 
  return T_UNKNOWN;
}
 
/**********************************************************************/
struct terrain *terrain_by_rule_name(const char *name)
{
  const char *qname = Qn_(name);
 
  terrain_type_iterate(pterrain) {
    if (0 == fc_strcasecmp(terrain_rule_name(pterrain), qname)) {
      return pterrain;
    }
  } terrain_type_iterate_end;
 
  return T_UNKNOWN;
}
 
/**********************************************************************/
struct terrain *terrain_by_translated_name(const char *name)
{
  terrain_type_iterate(pterrain) {
    if (0 == strcmp(terrain_name_translation(pterrain), name)) {
      return pterrain;
    }
  } terrain_type_iterate_end;
 
  return T_UNKNOWN;
}
 
/**********************************************************************/
struct terrain *rand_terrain_by_flag(enum terrain_flag_id flag)
{
  int num = 0;
  struct terrain *terr = NULL;
 
  terrain_type_iterate(pterr) {
    if (terrain_has_flag(pterr, flag)) {
      num++;
      if (fc_rand(num) == 1) {
        terr = pterr;
      }
    }
  } terrain_type_iterate_end;
 
  return terr;
}
 
/**********************************************************************/
const char *terrain_name_translation(const struct terrain *pterrain)
{
  return name_translation_get(&pterrain->name);
}
 
/**********************************************************************/
const char *terrain_rule_name(const struct terrain *pterrain)
{
  return rule_name_get(&pterrain->name);
}
 
/**********************************************************************/
bool terrain_has_resource(const struct terrain *pterrain,
                          const struct extra_type *presource)
{
  struct extra_type **r = pterrain->resources;
 
  while (NULL != *r) {
    if (*r == presource) {
      return TRUE;
    }
    r++;
  }
  return FALSE;
}
 
/**********************************************************************/
struct resource_type *resource_type_init(struct extra_type *pextra)
{
  struct resource_type *presource;
 
  presource = fc_malloc(sizeof(*presource));
 
  pextra->data.resource = presource;
 
  presource->self = pextra;
 
  return presource;
}
 
/**********************************************************************/
void resource_types_free(void)
{
  /* Resource structure itself is freed as part of extras destruction. */
}
 
/**********************************************************************/
struct extra_type *resource_extra_get(const struct resource_type *presource)
{
  return presource->self;
}
 
/**********************************************************************/
#define variable_adjc_iterate(nmap, center_tile, _tile, card_only)      \
{                                                                       \
  enum direction8 *_tile##_list;                                        \
  int _tile##_count;                                                    \
                                                                        \
  if (card_only) {                                                      \
    _tile##_list = MAP_CARDINAL_DIRS;                                   \
    _tile##_count = MAP_NUM_CARDINAL_DIRS;                              \
  } else {                                                              \
    _tile##_list = MAP_VALID_DIRS;                                      \
    _tile##_count = MAP_NUM_VALID_DIRS;                                 \
  }                                                                     \
  adjc_dirlist_iterate(nmap, center_tile, _tile, _tile##_dir,           \
                       _tile##_list, _tile##_count) {
 
#define variable_adjc_iterate_end                                       \
  } adjc_dirlist_iterate_end;                                           \
}
 
/**********************************************************************/
bool is_terrain_card_near(const struct civ_map *nmap,
                          const struct tile *ptile,
                          const struct terrain *pterrain,
                          bool check_self)
{
  if (pterrain == NULL) {
    return FALSE;
  }
 
  cardinal_adjc_iterate(nmap, ptile, adjc_tile) {
    if (tile_terrain(adjc_tile) == pterrain) {
      return TRUE;
    }
  } cardinal_adjc_iterate_end;
 
  return check_self && ptile->terrain == pterrain;
}
 
/**********************************************************************/
bool is_terrain_near_tile(const struct civ_map *nmap,
                          const struct tile *ptile,
                          const struct terrain *pterrain,
                          bool check_self)
{
  if (pterrain == NULL) {
    return FALSE;
  }
 
  adjc_iterate(nmap, ptile, adjc_tile) {
    if (tile_terrain(adjc_tile) == pterrain) {
      return TRUE;
    }
  } adjc_iterate_end;
 
  return check_self && ptile->terrain == pterrain;
}
 
/**********************************************************************/
int count_terrain_property_near_tile(const struct civ_map *nmap,
                                     const struct tile *ptile,
                                     bool cardinal_only, bool percentage,
                                     enum mapgen_terrain_property prop)
{
  int count = 0, total = 0;
 
  variable_adjc_iterate(nmap, ptile, adjc_tile, cardinal_only) {
    struct terrain *pterrain = tile_terrain(adjc_tile);
 
    if (pterrain->property[prop] > 0) {
      count++;
    }
    total++;
  } variable_adjc_iterate_end;
 
  if (percentage && count > 0) { /* Latter condition avoids div by zero */
    count = count * 100 / total;
  }
 
  return count;
}
 
/**********************************************************************/
bool is_resource_card_near(const struct civ_map *nmap,
                           const struct tile *ptile,
                           const struct extra_type *pres,
                           bool check_self)
{
  if (pres == NULL) {
    return FALSE;
  }
 
  cardinal_adjc_iterate(nmap, ptile, adjc_tile) {
    if (tile_resource(adjc_tile) == pres) {
      return TRUE;
    }
  } cardinal_adjc_iterate_end;
 
  return check_self && tile_resource(ptile) == pres;
}
 
/**********************************************************************/
bool is_resource_near_tile(const struct civ_map *nmap,
                           const struct tile *ptile,
                           const struct extra_type *pres,
                           bool check_self)
{
  if (pres == NULL) {
    return FALSE;
  }
 
  adjc_iterate(nmap, ptile, adjc_tile) {
    if (tile_resource(adjc_tile) == pres) {
      return TRUE;
    }
  } adjc_iterate_end;
 
  return check_self && tile_resource(ptile) == pres;
}
 
/**********************************************************************/
bool is_terrain_flag_card_near(const struct civ_map *nmap,
                               const struct tile *ptile,
                               enum terrain_flag_id flag)
{
  cardinal_adjc_iterate(nmap, ptile, adjc_tile) {
    struct terrain* pterrain = tile_terrain(adjc_tile);
 
    if (T_UNKNOWN != pterrain
        && terrain_has_flag(pterrain, flag)) {
      return TRUE;
    }
  } cardinal_adjc_iterate_end;
 
  return FALSE;
}
 
/**********************************************************************/
bool is_terrain_flag_near_tile(const struct civ_map *nmap,
                               const struct tile *ptile,
                               enum terrain_flag_id flag)
{
  adjc_iterate(nmap, ptile, adjc_tile) {
    struct terrain* pterrain = tile_terrain(adjc_tile);
 
    if (T_UNKNOWN != pterrain
        && terrain_has_flag(pterrain, flag)) {
      return TRUE;
    }
  } adjc_iterate_end;
 
  return FALSE;
}
 
/**********************************************************************/
int count_terrain_flag_near_tile(const struct civ_map *nmap,
                                 const struct tile *ptile,
                                 bool cardinal_only, bool percentage,
                                 enum terrain_flag_id flag)
{
  int count = 0, total = 0;
 
  variable_adjc_iterate(nmap, ptile, adjc_tile, cardinal_only) {
    struct terrain *pterrain = tile_terrain(adjc_tile);
 
    if (T_UNKNOWN != pterrain
        && terrain_has_flag(pterrain, flag)) {
      count++;
    }
    total++;
  } variable_adjc_iterate_end;
 
  if (percentage && count > 0) { /* Latter condition avoids div by zero */
    count = count * 100 / total;
  }
 
  return count;
}
 
/**********************************************************************/
const char *get_infrastructure_text(bv_extras extras)
{
  static char s[256];
  char *p;
  int len;
 
  s[0] = '\0';
 
  extra_type_iterate(pextra) {
    if (pextra->category == ECAT_INFRA
        && BV_ISSET(extras, extra_index(pextra))) {
      bool hidden = FALSE;
 
      extra_type_iterate(top) {
        int topi = extra_index(top);
 
        if (BV_ISSET(pextra->hidden_by, topi)
            && BV_ISSET(extras, topi)) {
          hidden = TRUE;
          break;
        }
      } extra_type_iterate_end;
 
      if (!hidden) {
        cat_snprintf(s, sizeof(s), "%s/", extra_name_translation(pextra));
      }
    }
  } extra_type_iterate_end;
 
  len = strlen(s);
  p = s + len - 1;
  if (len > 0 && *p == '/') {
    *p = '\0';
  }
 
  return s;
}
 
/**********************************************************************/
struct extra_type *get_preferred_pillage(bv_extras extras)
{
  /* Semi-arbitrary preference order reflecting previous behavior */
  static const enum extra_cause prefs[] = {
    EC_IRRIGATION,
    EC_MINE,
    EC_BASE,
    EC_ROAD,
    EC_HUT,
    EC_APPEARANCE,
    EC_POLLUTION,
    EC_FALLOUT,
    EC_RESOURCE,
    EC_NONE
  };
  int i;
 
  for (i = 0; i < ARRAY_SIZE(prefs); i++) {
    extra_type_by_cause_iterate_rev(prefs[i], pextra) {
      if (is_extra_removed_by(pextra, ERM_PILLAGE)
          && BV_ISSET(extras, extra_index(pextra))) {
        return pextra;
      }
    } extra_type_by_cause_iterate_rev_end;
  }
 
  return NULL;
}
 
/**********************************************************************/
enum terrain_class terrain_type_terrain_class(const struct terrain *pterrain)
{
  return pterrain->tclass;
}
 
/**********************************************************************/
bool is_terrain_class_card_near(const struct civ_map *nmap,
                                const struct tile *ptile,
                                enum terrain_class tclass)
{
  cardinal_adjc_iterate(nmap, ptile, adjc_tile) {
    struct terrain* pterrain = tile_terrain(adjc_tile);
 
    if (pterrain != T_UNKNOWN) {
      if (terrain_type_terrain_class(pterrain) == tclass) {
        return TRUE;
      }
    }
  } cardinal_adjc_iterate_end;
 
  return FALSE;
}
 
/**********************************************************************/
bool is_terrain_class_near_tile(const struct civ_map *nmap,
                                const struct tile *ptile,
                                enum terrain_class tclass)
{
  adjc_iterate(nmap, ptile, adjc_tile) {
    struct terrain* pterrain = tile_terrain(adjc_tile);
 
    if (pterrain != T_UNKNOWN) {
      if (terrain_type_terrain_class(pterrain) == tclass) {
        return TRUE;
      }
    }
  } adjc_iterate_end;
 
  return FALSE;
}
 
/**********************************************************************/
int count_terrain_class_near_tile(const struct civ_map *nmap,
                                  const struct tile *ptile,
                                  bool cardinal_only, bool percentage,
                                  enum terrain_class tclass)
{
  int count = 0, total = 0;
 
  variable_adjc_iterate(nmap, ptile, adjc_tile, cardinal_only) {
    struct terrain *pterrain = tile_terrain(adjc_tile);
 
    if (T_UNKNOWN != pterrain
        && terrain_type_terrain_class(pterrain) == tclass) {
      count++;
    }
    total++;
  } variable_adjc_iterate_end;
 
  if (percentage && count > 0) { /* Latter condition avoids div by zero */
    count = count * 100 / total;
  }
 
  return count;
}
 
/**********************************************************************/
const char *terrain_class_name_translation(enum terrain_class tclass)
{
  if (!terrain_class_is_valid(tclass)) {
    return NULL;
  }
 
  return _(terrain_class_name(tclass));
}
 
/**********************************************************************/
bool terrain_can_support_alteration(const struct terrain *pterrain,
                                    enum terrain_alteration alter)
{
  switch (alter) {
   case TA_CAN_IRRIGATE:
     return (pterrain->irrigation_time > 0);
   case TA_CAN_MINE:
     return (pterrain->mining_time > 0);
   case TA_CAN_ROAD:
     return (pterrain->road_time > 0);
   case TA_CAN_BASE:
     return (pterrain->base_time > 0);
   case TA_CAN_PLACE:
     return (pterrain->placing_time > 0);
   default:
     break;
  }
 
  fc_assert(FALSE);
 
  return FALSE;
}
 
/**********************************************************************/
int terrain_extra_build_time(const struct terrain *pterrain,
                             enum unit_activity activity,
                             const struct extra_type *tgt)
{
  int factor;
 
  if (tgt != NULL && tgt->build_time != 0) {
    /* Extra specific build time */
    return tgt->build_time;
  }
 
  if (tgt == NULL) {
    factor = 1;
  } else {
    factor = tgt->build_time_factor;
  }
 
  /* Terrain and activity specific build time */
  switch (activity) {
  case ACTIVITY_BASE:
    return pterrain->base_time * factor;
  case ACTIVITY_GEN_ROAD:
    return pterrain->road_time * factor;
  case ACTIVITY_IRRIGATE:
    return pterrain->irrigation_time * factor;
  case ACTIVITY_MINE:
    return pterrain->mining_time * factor;
  default:
    fc_assert(FALSE);
    return 0;
  }
}
 
/**********************************************************************/
int terrain_extra_removal_time(const struct terrain *pterrain,
                               enum unit_activity activity,
                               const struct extra_type *tgt)
{
  int factor;
 
  if (tgt->removal_time != 0) {
    /* Extra specific removal time */
    return tgt->removal_time;
  }
 
  factor = tgt->removal_time_factor;
 
  /* Terrain and activity specific removal time */
  switch (activity) {
  case ACTIVITY_CLEAN:
    return pterrain->extra_removal_times[extra_index(tgt)] * factor;
  case ACTIVITY_PILLAGE:
    return pterrain->pillage_time * factor;
  default:
    fc_assert(FALSE);
 
    return 0;
  }
}
 
/**********************************************************************/
void user_terrain_flags_init(void)
{
  int i;
 
  for (i = 0; i < MAX_NUM_USER_TER_FLAGS; i++) {
    user_flag_init(&user_terrain_flags[i]);
  }
}
 
/**********************************************************************/
void user_terrain_flags_free(void)
{
  int i;
 
  for (i = 0; i < MAX_NUM_USER_TER_FLAGS; i++) {
    user_flag_free(&user_terrain_flags[i]);
  }
}
 
/**********************************************************************/
void set_user_terrain_flag_name(enum terrain_flag_id id, const char *name,
                                const char *helptxt)
{
  int tfid = id - TER_USER_1;
 
  fc_assert_ret(id >= TER_USER_1 && id <= TER_USER_LAST);
 
  if (user_terrain_flags[tfid].name != NULL) {
    FC_FREE(user_terrain_flags[tfid].name);
    user_terrain_flags[tfid].name = NULL;
  }
 
  if (name && name[0] != '\0') {
    user_terrain_flags[tfid].name = fc_strdup(name);
  }
 
  if (user_terrain_flags[tfid].helptxt != NULL) {
    FC_FREE(user_terrain_flags[tfid].helptxt);
    user_terrain_flags[tfid].helptxt = NULL;
  }
 
  if (helptxt && helptxt[0] != '\0') {
    user_terrain_flags[tfid].helptxt = fc_strdup(helptxt);
  }
}
 
/**********************************************************************/
const char *terrain_flag_id_name_cb(enum terrain_flag_id flag)
{
  if (flag < TER_USER_1 || flag > TER_USER_LAST) {
    return NULL;
  }
 
  return user_terrain_flags[flag-TER_USER_1].name;
}
 
/**********************************************************************/
const char *terrain_flag_helptxt(enum terrain_flag_id id)
{
  fc_assert(id >= TER_USER_1 && id <= TER_USER_LAST);
 
  return user_terrain_flags[id - TER_USER_1].helptxt;
}