Freeciv

Return TRUE iff a city exists within a city radius of the given

location. may_be_on_center determines if a city at x,y counts.

**************************************************************************/

bool may_be_on_center)

{

city_tile_iterate(nmap, CITY_MAP_MAX_RADIUS_SQ, ptile, ptile1) {

if (may_be_on_center || !same_pos(ptile, ptile1)) {

if (tile_city(ptile1)) {

bool is_friendly_city_near(const struct civ_map *nmap,

const struct player *owner,

const struct tile *ptile);

bool may_be_on_center);

/* Granary size as a function of city size */

LUASCRIPT_CHECK_STATE(L, FALSE);

LUASCRIPT_CHECK_SELF(L, ptile, FALSE);

}

/**********************************************************************//**

bool ok = TRUE;

int hut_chance = fc_rand(12);

struct player *pplayer = unit_owner(punit);

/* 1 in 12 to get barbarians */

if (hut_chance != 0) {

int cred = 25;

notify_player(pplayer, unit_tile(punit), E_HUT_GOLD, ftc_server,

PL_("You found %d gold.",

"You found %d gold.", cred), cred);

pplayer->economic.gold += cred;

|| unit_has_type_flag(punit, UTYF_GAMELOSS)) {

notify_player(pplayer, unit_tile(punit),

E_HUT_BARB_CITY_NEAR, ftc_server,

wipe_unit(punit, ULR_BARB_UNLEASH, NULL);

ok = FALSE;

}

return ok;

}