/**
* @brief Gets whether or not the player can land on the planet (or bribe it).
*
* @usage can_land, can_bribe = p:canLand()
* @luatparam Planet p Planet to get land and bribe status of.
* @luatreturn boolean The land status of the planet.
* @luatreturn boolean The bribability status of the planet.
* @luafunc canLand( p )
*/
static int planetL_canland( lua_State *L )
{
Planet *p;
p = luaL_validplanet(L,1);
planet_updateLand( p );
lua_pushboolean( L, p->can_land );
lua_pushboolean( L, p->bribe_price > 0 );
return 2;
}
/**
* @brief Applies a hunk and adds it to the diff.
*
* @param diff Diff to which the hunk belongs.
* @param hunk Hunk to apply.
* @return 0 on success.
*/
static int diff_patchHunk( UniHunk_t *hunk )
{
Planet *p;
switch (hunk->type) {
/* Adding an asset. */
case HUNK_TYPE_ASSET_ADD:
planet_updateLand( planet_get(hunk->u.name) );
return system_addPlanet( system_get(hunk->target.u.name), hunk->u.name );
/* Removing an asset. */
case HUNK_TYPE_ASSET_REMOVE:
return system_rmPlanet( system_get(hunk->target.u.name), hunk->u.name );
/* Making an asset a black market. */
case HUNK_TYPE_ASSET_BLACKMARKET:
planet_setBlackMarket( planet_get(hunk->u.name) );
return 0;
/* Making an asset a legal market. */
case HUNK_TYPE_ASSET_LEGALMARKET:
planet_rmFlag( planet_get(hunk->u.name), PLANET_BLACKMARKET );
return 0;
/* Adding a Jump. */
case HUNK_TYPE_JUMP_ADD:
return system_addJumpDiff( system_get(hunk->target.u.name), hunk->node );
/* Removing a jump. */
case HUNK_TYPE_JUMP_REMOVE:
return system_rmJump( system_get(hunk->target.u.name), hunk->u.name );
/* Adding a tech. */
case HUNK_TYPE_TECH_ADD:
return tech_addItem( hunk->target.u.name, hunk->u.name );
/* Removing a tech. */
case HUNK_TYPE_TECH_REMOVE:
return tech_rmItem( hunk->target.u.name, hunk->u.name );
/* Changing asset faction. */
case HUNK_TYPE_ASSET_FACTION:
p = planet_get( hunk->target.u.name );
if (p==NULL)
return -1;
hunk->o.name = faction_name( p->faction );
return planet_setFaction( p, faction_get(hunk->u.name) );
case HUNK_TYPE_ASSET_FACTION_REMOVE:
return planet_setFaction( planet_get(hunk->target.u.name), faction_get(hunk->o.name) );
default:
WARN("Unknown hunk type '%d'.", hunk->type);
break;
}
return -1;
}
/**
* @brief Applies a hunk and adds it to the diff.
*
* @param diff Diff to which the hunk belongs.
* @param hunk Hunk to apply.
* @return 0 on success.
*/
static int diff_patchHunk( UniHunk_t *hunk )
{
Planet *p;
int a, b;
switch (hunk->type) {
/* Adding an asset. */
case HUNK_TYPE_ASSET_ADD:
planet_updateLand( planet_get(hunk->u.name) );
return system_addPlanet( system_get(hunk->target.u.name), hunk->u.name );
/* Removing an asset. */
case HUNK_TYPE_ASSET_REMOVE:
return system_rmPlanet( system_get(hunk->target.u.name), hunk->u.name );
/* Making an asset a black market. */
case HUNK_TYPE_ASSET_BLACKMARKET:
planet_addService( planet_get(hunk->u.name), PLANET_SERVICE_BLACKMARKET );
return 0;
/* Making an asset a legal market. */
case HUNK_TYPE_ASSET_LEGALMARKET:
planet_rmService( planet_get(hunk->u.name), PLANET_SERVICE_BLACKMARKET );
return 0;
/* Adding a Jump. */
case HUNK_TYPE_JUMP_ADD:
return system_addJumpDiff( system_get(hunk->target.u.name), hunk->node );
/* Removing a jump. */
case HUNK_TYPE_JUMP_REMOVE:
return system_rmJump( system_get(hunk->target.u.name), hunk->u.name );
/* Adding a tech. */
case HUNK_TYPE_TECH_ADD:
return tech_addItem( hunk->target.u.name, hunk->u.name );
/* Removing a tech. */
case HUNK_TYPE_TECH_REMOVE:
return tech_rmItem( hunk->target.u.name, hunk->u.name );
/* Changing asset faction. */
case HUNK_TYPE_ASSET_FACTION:
p = planet_get( hunk->target.u.name );
if (p==NULL)
return -1;
hunk->o.name = faction_name( p->faction );
return planet_setFaction( p, faction_get(hunk->u.name) );
case HUNK_TYPE_ASSET_FACTION_REMOVE:
return planet_setFaction( planet_get(hunk->target.u.name), faction_get(hunk->o.name) );
/* Making a faction visible. */
case HUNK_TYPE_FACTION_VISIBLE:
return faction_setInvisible( faction_get(hunk->target.u.name), 0 );
/* Making a faction invisible. */
case HUNK_TYPE_FACTION_INVISIBLE:
return faction_setInvisible( faction_get(hunk->target.u.name), 1 );
/* Making two factions allies. */
case HUNK_TYPE_FACTION_ALLY:
a = faction_get( hunk->target.u.name );
b = faction_get( hunk->u.name );
if (areAllies(a, b))
hunk->o.data = 'A';
else if (areEnemies(a, b))
hunk->o.data = 'E';
else
hunk->o.data = 0;
faction_addAlly( a, b );
faction_addAlly( b, a );
return 0;
/* Making two factions enemies. */
case HUNK_TYPE_FACTION_ENEMY:
a = faction_get( hunk->target.u.name );
b = faction_get( hunk->u.name );
if (areAllies(a, b))
hunk->o.data = 'A';
else if (areEnemies(a, b))
hunk->o.data = 'E';
else
hunk->o.data = 0;
faction_addEnemy( a, b );
faction_addEnemy( b, a );
return 0;
/* Making two factions neutral (removing enemy/ally statuses). */
case HUNK_TYPE_FACTION_NEUTRAL:
a = faction_get( hunk->target.u.name );
b = faction_get( hunk->u.name );
if (areAllies(a, b))
hunk->o.data = 'A';
else if (areEnemies(a, b))
hunk->o.data = 'E';
else
hunk->o.data = 0;
faction_rmAlly( a, b );
faction_rmAlly( b, a );
faction_rmEnemy( a, b );
faction_rmEnemy( b, a );
return 0;
/* Resetting the alignment state of two factions. */
case HUNK_TYPE_FACTION_REALIGN:
a = faction_get( hunk->target.u.name );
b = faction_get( hunk->u.name );
if (hunk->o.data == 'A') {
faction_rmEnemy(a, b);
faction_rmEnemy(b, a);
faction_addAlly(a, b);
faction_addAlly(b, a);
}
else if (hunk->o.data == 'E') {
faction_rmAlly(a, b);
faction_rmAlly(b, a);
faction_addEnemy(a, b);
faction_addAlly(b, a);
}
else {
faction_rmAlly( a, b );
faction_rmAlly( b, a );
faction_rmEnemy( a, b );
faction_rmEnemy( b, a );
}
return 0;
default:
WARN(_("Unknown hunk type '%d'."), hunk->type);
break;
}
return -1;
}
static int planetL_getBackend( lua_State *L, int landable )
{
int i;
int *factions;
int nfactions;
char **planets;
int nplanets;
const char *rndplanet;
LuaSystem luasys;
LuaFaction f;
Planet *pnt;
StarSystem *sys;
char *sysname;
rndplanet = NULL;
planets = NULL;
nplanets = 0;
/* If boolean return random. */
if (lua_isboolean(L,1)) {
pnt = planet_get( space_getRndPlanet(landable, 0, NULL) );
lua_pushplanet(L,planet_index( pnt ));
luasys = system_index( system_get( planet_getSystem(pnt->name) ) );
lua_pushsystem(L,luasys);
return 2;
}
/* Get a planet by faction */
else if (lua_isfaction(L,1)) {
f = lua_tofaction(L,1);
planets = space_getFactionPlanet( &nplanets, &f, 1, landable );
}
/* Get a planet by name */
else if (lua_isstring(L,1)) {
rndplanet = lua_tostring(L,1);
if (landable) {
pnt = planet_get( rndplanet );
if (pnt == NULL) {
NLUA_ERROR(L, _("Planet '%s' not found in stack"), rndplanet);
return 0;
}
/* Check if can land. */
planet_updateLand( pnt );
if (!pnt->can_land)
return 0;
}
}
/* Get a planet from faction list */
else if (lua_istable(L,1)) {
/* Get table length and preallocate. */
nfactions = (int) lua_objlen(L,1);
factions = malloc( sizeof(int) * nfactions );
/* Load up the table. */
lua_pushnil(L);
i = 0;
while (lua_next(L, -2) != 0) {
if (lua_isfaction(L, -1))
factions[i++] = lua_tofaction(L, -1);
lua_pop(L,1);
}
/* get the planets */
planets = space_getFactionPlanet( &nplanets, factions, nfactions, landable );
free(factions);
}
else
NLUA_INVALID_PARAMETER(L); /* Bad Parameter */
/* No suitable planet found */
if ((rndplanet == NULL) && ((planets == NULL) || nplanets == 0))
return 0;
/* Pick random planet */
else if (rndplanet == NULL) {
planets = (char**) arrayShuffle( (void**)planets, nplanets );
for (i=0; i<nplanets; i++) {
if (landable) {
/* Check landing. */
pnt = planet_get( planets[i] );
if (pnt == NULL)
continue;
planet_updateLand( pnt );
if (!pnt->can_land)
continue;
}
rndplanet = planets[i];
break;
}
free(planets);
}
/* Push the planet */
pnt = planet_get(rndplanet); /* The real planet */
if (pnt == NULL) {
NLUA_ERROR(L, _("Planet '%s' not found in stack"), rndplanet);
return 0;
}
sysname = planet_getSystem(rndplanet);
if (sysname == NULL) {
NLUA_ERROR(L, _("Planet '%s' is not placed in a system"), rndplanet);
return 0;
}
sys = system_get( sysname );
if (sys == NULL) {
NLUA_ERROR(L, _("Planet '%s' can't find system '%s'"), rndplanet, sysname);
return 0;
}
lua_pushplanet(L,planet_index( pnt ));
luasys = system_index( sys );
lua_pushsystem(L,luasys);
return 2;
}
/**
* @brief Updates the map window.
*
* @param wid Window id.
*/
static void map_update( unsigned int wid )
{
int i;
StarSystem* sys;
int f, h, x, y;
double standing, nstanding;
unsigned int services;
int l;
int hasPresence, hasPlanets;
char t;
char buf[PATH_MAX];
int p;
glTexture *logo;
double w;
/* Needs map to update. */
if (!map_isOpen())
return;
/* Get selected system. */
sys = system_getIndex( map_selected );
/* Not known and no markers. */
if (!(sys_isFlag(sys, SYSTEM_MARKED | SYSTEM_CMARKED)) &&
!sys_isKnown(sys) && !space_sysReachable(sys)) {
map_selectCur();
sys = system_getIndex( map_selected );
}
/*
* Right Text
*/
x = -70; /* Side bar X offset. */
w = ABS(x) + 60; /* Width of the side bar. */
y = -20 - 20 - 64 - gl_defFont.h; /* Initialized to position for txtSFaction. */
if (!sys_isKnown(sys)) { /* System isn't known, erase all */
/*
* Right Text
*/
if (sys_isFlag(sys, SYSTEM_MARKED | SYSTEM_CMARKED))
window_modifyText( wid, "txtSysname", sys->name );
else
window_modifyText( wid, "txtSysname", "Unknown" );;
/* Faction */
window_modifyImage( wid, "imgFaction", NULL, 0, 0 );
window_moveWidget( wid, "txtSFaction", x, y);
window_moveWidget( wid, "txtFaction", x + 50, y - gl_smallFont.h - 5 );
window_modifyText( wid, "txtFaction", "Unknown" );
y -= 2 * gl_smallFont.h + 5 + 15;
/* Standing */
window_moveWidget( wid, "txtSStanding", x, y );
window_moveWidget( wid, "txtStanding", x + 50, y - gl_smallFont.h - 5 );
window_modifyText( wid, "txtStanding", "Unknown" );
y -= 2 * gl_smallFont.h + 5 + 15;
/* Presence. */
window_moveWidget( wid, "txtSPresence", x, y );
window_moveWidget( wid, "txtPresence", x + 50, y - gl_smallFont.h - 5 );
window_modifyText( wid, "txtPresence", "Unknown" );
y -= 2 * gl_smallFont.h + 5 + 15;
/* Planets */
window_moveWidget( wid, "txtSPlanets", x, y );
window_moveWidget( wid, "txtPlanets", x + 50, y - gl_smallFont.h - 5 );
window_modifyText( wid, "txtPlanets", "Unknown" );
y -= 2 * gl_smallFont.h + 5 + 15;
/* Services */
window_moveWidget( wid, "txtSServices", x, y );
window_moveWidget( wid, "txtServices", x + 50, y -gl_smallFont.h - 5 );
window_modifyText( wid, "txtServices", "Unknown" );
/*
* Bottom Text
*/
window_modifyText( wid, "txtSystemStatus", NULL );
return;
}
/* System is known */
window_modifyText( wid, "txtSysname", sys->name );
standing = 0.;
nstanding = 0.;
f = -1;
for (i=0; i<sys->nplanets; i++) {
if(sys->planets[i]->real == ASSET_REAL) {
if ((f==-1) && (sys->planets[i]->faction>0)) {
f = sys->planets[i]->faction;
standing += faction_getPlayer( f );
nstanding++;
}
else if (f != sys->planets[i]->faction && /** @todo more verbosity */
(sys->planets[i]->faction>0)) {
snprintf( buf, PATH_MAX, "Multiple" );
break;
}
}
}
if (f == -1) {
window_modifyImage( wid, "imgFaction", NULL, 0, 0 );
window_modifyText( wid, "txtFaction", "N/A" );
window_modifyText( wid, "txtStanding", "N/A" );
h = gl_smallFont.h;
}
else {
if (i==sys->nplanets) /* saw them all and all the same */
snprintf( buf, PATH_MAX, "%s", faction_longname(f) );
/* Modify the image. */
logo = faction_logoSmall(f);
window_modifyImage( wid, "imgFaction", logo, 0, 0 );
if (logo != NULL)
window_moveWidget( wid, "imgFaction",
-90 + logo->w/2, -20 - 32 - 10 - gl_defFont.h + logo->h/2);
/* Modify the text */
window_modifyText( wid, "txtFaction", buf );
window_modifyText( wid, "txtStanding",
faction_getStanding( standing / nstanding ) );
h = gl_printHeightRaw( &gl_smallFont, w, buf );
}
/* Faction */
window_moveWidget( wid, "txtSFaction", x, y);
window_moveWidget( wid, "txtFaction", x + 50, y - gl_smallFont.h - 5 );
y -= gl_smallFont.h + h + 5 + 15;
/* Standing */
window_moveWidget( wid, "txtSStanding", x, y );
window_moveWidget( wid, "txtStanding", x + 50, y - gl_smallFont.h - 5 );
y -= 2 * gl_smallFont.h + 5 + 15;
/* Get presence. */
hasPresence = 0;
buf[0] = '\0';
l = 0;
for (i=0; i < sys->npresence; i++) {
if (sys->presence[i].value <= 0)
continue;
hasPresence = 1;
t = faction_getColourChar(sys->presence[i].faction);
/* Use map grey instead of default neutral colour */
l += snprintf( &buf[l], PATH_MAX-l, "%s\e0%s: \e%c%.0f",
(l==0)?"":"\n", faction_shortname(sys->presence[i].faction),
(t=='N')?'M':t, sys->presence[i].value);
}
if (hasPresence == 0)
snprintf(buf, PATH_MAX, "N/A");
window_moveWidget( wid, "txtSPresence", x, y );
window_moveWidget( wid, "txtPresence", x + 50, y-gl_smallFont.h-5 );
window_modifyText( wid, "txtPresence", buf );
/* Scroll down. */
h = gl_printHeightRaw( &gl_smallFont, w, buf );
y -= 40 + (h - gl_smallFont.h);
/* Get planets */
hasPlanets = 0;
p = 0;
buf[0] = '\0';
for (i=0; i<sys->nplanets; i++) {
if(sys->planets[i]->real != ASSET_REAL)
continue;
/* Colourize output. */
planet_updateLand(sys->planets[i]);
t = planet_getColourChar(sys->planets[i]);
if (t == 'N')
t = 'M';
else if (t == 'R')
t = 'S';
if (!hasPlanets)
p += snprintf( &buf[p], PATH_MAX-p, "\e%c%s\en",
t, sys->planets[i]->name );
else
p += snprintf( &buf[p], PATH_MAX-p, ",\n\e%c%s\en",
t, sys->planets[i]->name );
hasPlanets = 1;
}
