faction.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <assert.h>
#include <stdlib.h>
 
#include "naev.h"
#include "faction.h"
 
#include "conf.h"
#include "array.h"
#include "colour.h"
#include "hook.h"
#include "log.h"
#include "ndata.h"
#include "nlua.h"
#include "nluadef.h"
#include "nxml.h"
#include "nstring.h"
#include "player.h"
#include "opengl.h"
#include "rng.h"
#include "space.h"
 
#define XML_FACTION_ID  "Factions"  
#define XML_FACTION_TAG "faction"   
#define FACTION_STATIC     (1<<0) 
#define FACTION_INVISIBLE  (1<<1) 
#define FACTION_KNOWN      (1<<2) 
#define FACTION_DYNAMIC    (1<<3) 
#define FACTION_USESHIDDENJUMPS (1<<4) 
#define faction_setFlag(fa,f) ((fa)->flags |= (f))
#define faction_rmFlag(fa,f)  ((fa)->flags &= ~(f))
#define faction_isFlag(fa,f)  ((fa)->flags & (f))
#define faction_isKnown_(fa)  ((fa)->flags & (FACTION_KNOWN))
 
int faction_player; 
typedef struct Faction_ {
   char *name;          
   char *longname;      
   char *displayname;   
   char *mapname;       
   char *ai;            
   char *description;   
   /* Graphics. */
   glTexture *logo; 
   glColour colour; 
   /* Enemies */
   int *enemies; 
   /* Allies */
   int *allies; 
   /* Player information. */
   double player_def; 
   double player; 
   /* Scheduler. */
   nlua_env sched_env; 
   /* Behaviour. */
   double friendly_at;  
   nlua_env lua_env; 
   int lua_hit;         
   int lua_text_rank;   
   int lua_text_broad;  
   int lua_reputation_max; 
   /* Safe lanes. */
   double lane_length_per_presence; 
   double lane_base_cost; 
   /* Presence stuff. */
   FactionGenerator *generators; 
   /* Equipping. */
   nlua_env equip_env; 
   /* Flags. */
   unsigned int flags; 
   unsigned int oflags; 
   /* Tags. */
   char **tags; 
} Faction;
 
static Faction* faction_stack = NULL; 
static int* faction_grid = NULL; 
static size_t faction_mgrid = 0; 
/*
 * Prototypes
 */
/* static */
static int faction_getRaw( const char *name );
static void faction_freeOne( Faction *f );
static void faction_sanitizePlayer( Faction* faction );
static void faction_modPlayerLua( int f, double mod, const char *source, int secondary );
static int faction_parse( Faction* temp, const char *file );
static int faction_parseSocial( const char *file );
static void faction_addStandingScript( Faction* temp, const char* scriptname );
static void faction_computeGrid (void);
/* externed */
int pfaction_save( xmlTextWriterPtr writer );
int pfaction_load( xmlNodePtr parent );
 
static int faction_cmp( const void *p1, const void *p2 )
{
   const Faction *f1, *f2;
   f1 = (const Faction*) p1;
   f2 = (const Faction*) p2;
   return strcmp(f1->name,f2->name);
}
 
static int faction_getRaw( const char* name )
{
   if (name==NULL)
      return -1;
 
   /* Escorts are part of the "player" faction. */
   if (strcmp(name, "Escort") == 0)
      return FACTION_PLAYER;
 
   if (name != NULL) {
      int i;
      for (i=0; i<array_size(faction_stack); i++)
         if (strcmp(faction_stack[i].name, name)==0)
            break;
 
      if (i != array_size(faction_stack))
         return i;
 
      /* Dynamic factions are why we can't have nice things.
      const Faction f = { .name = (char*)name };
      Faction *found = bsearch( &f, faction_stack, array_size(faction_stack), sizeof(Faction), faction_cmp );
      if (found != NULL)
         return found - faction_stack;
      */
   }
   return -1;
}
 
int faction_exists( const char* name )
{
   return faction_getRaw(name)!=-1;
}
 
int faction_get( const char* name )
{
   int id = faction_getRaw(name);
   if (id<0)
      WARN(_("Faction '%s' not found in stack."), name);
   return id;
}
 
int* faction_getAll (void)
{
   int *f = array_create_size( int, array_size(faction_stack) );
   for (int i=0; i<array_size(faction_stack); i++)
      array_push_back( &f, i );
 
   return f;
}
 
int* faction_getAllVisible (void)
{
   int *f = array_create_size( int, array_size(faction_stack) );
   for (int i=0; i<array_size(faction_stack); i++)
      if (!faction_isFlag( &faction_stack[i], FACTION_INVISIBLE ))
         array_push_back( &f, i );
   return f;
}
 
int* faction_getKnown()
{
   int *f = array_create_size( int, array_size(faction_stack) );
   /* Get IDs. */
   for (int i=0; i<array_size(faction_stack); i++)
      if (!faction_isFlag( &faction_stack[i], FACTION_INVISIBLE ) && faction_isKnown_( &faction_stack[i] ))
         array_push_back( &f, i );
   return f;
}
 
void faction_clearKnown()
{
   for (int i=0; i<array_size(faction_stack); i++)
      if (faction_isKnown_( &faction_stack[i] ))
         faction_rmFlag( &faction_stack[i], FACTION_KNOWN );
}
 
int faction_isStatic( int id )
{
   return faction_isFlag( &faction_stack[id], FACTION_STATIC );
}
 
int faction_isInvisible( int id )
{
   return faction_isFlag( &faction_stack[id], FACTION_INVISIBLE );
}
 
int faction_setInvisible( int id, int state )
{
   if (!faction_isFaction(id)) {
      WARN(_("Faction id '%d' is invalid."),id);
      return -1;
   }
   if (state)
      faction_setFlag( &faction_stack[id], FACTION_INVISIBLE );
   else
      faction_rmFlag( &faction_stack[id], FACTION_INVISIBLE );
 
   return 0;
}
 
int faction_isKnown( int id )
{
   return faction_isKnown_( &faction_stack[id] );
}
 
int faction_isDynamic( int id )
{
   return faction_isFlag( &faction_stack[id], FACTION_DYNAMIC );
}
 
int faction_setKnown( int id, int state )
{
   if (state)
      faction_setFlag( &faction_stack[id], FACTION_KNOWN );
   else
      faction_rmFlag( &faction_stack[id], FACTION_KNOWN );
   return 0;
}
 
const char* faction_name( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
   /* Don't want player to see their escorts as "Player" faction. */
   if (f == FACTION_PLAYER)
      return "Escort";
 
   return faction_stack[f].name;
}
 
const char* faction_shortname( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
   /* Don't want player to see their escorts as "Player" faction. */
   if (f == FACTION_PLAYER)
      return _("Escort");
 
   /* Possibly get display name. */
   if (faction_stack[f].displayname != NULL)
      return _(faction_stack[f].displayname);
 
   return _(faction_stack[f].name);
}
 
const char* faction_longname( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
   if (faction_stack[f].longname != NULL)
      return _(faction_stack[f].longname);
   return _(faction_stack[f].name);
}
 
const char* faction_mapname( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
   if (faction_stack[f].mapname != NULL)
      return _(faction_stack[f].mapname);
   return _(faction_stack[f].name);
}
 
const char* faction_description( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
   if (faction_stack[f].description != NULL)
      return _(faction_stack[f].description);
   return NULL;
}
 
const char* faction_default_ai( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return NULL;
   }
   return faction_stack[f].ai;
}
 
const char** faction_tags( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return NULL;
   }
   return (const char**) faction_stack[f].tags;
}
 
double faction_lane_length_per_presence( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return 0.;
   }
   return faction_stack[f].lane_length_per_presence;
}
 
double faction_lane_base_cost( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return 0.;
   }
   return faction_stack[f].lane_base_cost;
}
 
const glTexture* faction_logo( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
 
   return faction_stack[f].logo;
}
 
const glColour* faction_colour( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
 
   return &faction_stack[f].colour;
}
 
const int* faction_getEnemies( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
 
   /* Player's faction ratings can change, so regenerate each call. */
   if (f == FACTION_PLAYER) {
      int *enemies = array_create( int );
 
      for (int i=0; i<array_size(faction_stack); i++)
         if (faction_isPlayerEnemy(i)) {
            int *tmp = &array_grow( &enemies );
            *tmp = i;
         }
 
      array_free( faction_stack[f].enemies );
      faction_stack[f].enemies = enemies;
   }
 
   return faction_stack[f].enemies;
}
 
const int* faction_getAllies( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return NULL;
   }
 
   /* Player's faction ratings can change, so regenerate each call. */
   if (f == FACTION_PLAYER) {
      int *allies = array_create( int );
 
      for (int i=0; i<array_size(faction_stack); i++)
         if (faction_isPlayerFriend(i)) {
            int *tmp = &array_grow( &allies );
            *tmp = i;
         }
 
      array_free( faction_stack[ f ].allies );
      faction_stack[f].allies = allies;
   }
 
   return faction_stack[f].allies;
}
 
void faction_clearEnemy( int f )
{
   Faction *ff;
   /* Get faction. */
   if (faction_isFaction(f))
      ff = &faction_stack[f];
   else { /* f is invalid */
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
   array_erase( &ff->enemies, array_begin(ff->enemies), array_end(ff->enemies) );
   faction_computeGrid();
}
 
void faction_addEnemy( int f, int o )
{
   Faction *ff;
   int *tmp;
 
   if (f==o) return;
 
   if (faction_isFaction(f))
      ff = &faction_stack[f];
   else { /* f is invalid */
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
 
   if (!faction_isFaction(o)) { /* o is invalid */
      WARN(_("Faction id '%d' is invalid."), o);
      return;
   }
 
   /* player cannot be made an enemy this way */
   if (f==FACTION_PLAYER) {
      WARN(_("%d is the player faction"), f);
      return;
   }
   if (o==FACTION_PLAYER) {
      WARN(_("%d is the player faction"), o);
      return;
   }
 
   for (int i=0;i<array_size(ff->enemies);i++) {
      if (ff->enemies[i] == o)
         return;
   }
 
   tmp = &array_grow( &ff->enemies );
   *tmp = o;
 
   faction_computeGrid();
}
 
void faction_rmEnemy( int f, int o )
{
   Faction *ff;
 
   if (f==o) return;
 
   if (faction_isFaction(f))
      ff = &faction_stack[f];
   else { /* f is invalid */
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
 
   for (int i=0;i<array_size(ff->enemies);i++) {
      if (ff->enemies[i] == o) {
         array_erase( &ff->enemies, &ff->enemies[i], &ff->enemies[i+1] );
         faction_computeGrid();
         return;
      }
   }
}
 
void faction_clearAlly( int f )
{
   Faction *ff;
   /* Get faction. */
   if (faction_isFaction(f))
      ff = &faction_stack[f];
   else { /* f is invalid */
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
   array_erase( &ff->allies, array_begin(ff->allies), array_end(ff->allies) );
   faction_computeGrid();
}
 
void faction_addAlly( int f, int o )
{
   Faction *ff;
   int *tmp;
 
   if (f==o) return;
 
   if (faction_isFaction(f))
      ff = &faction_stack[f];
   else { /* f is invalid */
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
 
   if (!faction_isFaction(o)) { /* o is invalid */
      WARN(_("Faction id '%d' is invalid."), o);
      return;
   }
 
   /* player cannot be made an ally this way */
   if (f==FACTION_PLAYER) {
      WARN(_("%d is the player faction"), f);
      return;
   }
   if (o==FACTION_PLAYER) {
      WARN(_("%d is the player faction"), o);
      return;
   }
 
   for (int i=0;i<array_size(ff->allies);i++) {
      if (ff->allies[i] == o)
         return;
   }
 
   tmp = &array_grow( &ff->allies );
   *tmp = o;
 
   faction_computeGrid();
}
 
void faction_rmAlly( int f, int o )
{
   Faction *ff;
 
   if (f==o) return;
 
   if (faction_isFaction(f))
      ff = &faction_stack[f];
   else { /* f is invalid */
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
 
   for (int i=0;i<array_size(ff->allies);i++) {
      if (ff->allies[i] == o) {
         array_erase( &ff->allies, &ff->allies[i], &ff->allies[i+1] );
         faction_computeGrid();
         return;
      }
   }
}
 
nlua_env faction_getScheduler( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return LUA_NOREF;
   }
   return faction_stack[f].sched_env;
}
 
nlua_env faction_getEquipper( int f )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."),f);
      return LUA_NOREF;
   }
   return faction_stack[f].equip_env;
}
 
static void faction_sanitizePlayer( Faction* faction )
{
   faction->player = CLAMP( -100., 100., faction->player );
}
 
static void faction_modPlayerLua( int f, double mod, const char *source, int secondary )
{
   Faction *faction;
   double old, delta;
 
   /* Ignore it if player is dead. */
   if (player.p==NULL)
      return;
 
   faction = &faction_stack[f];
 
   /* Make sure it's not static. */
   if (faction_isFlag(faction, FACTION_STATIC))
      return;
 
   /* Player is dead or cleared. */
   if (player.p == NULL)
      return;
 
   old   = faction->player;
 
   if (faction->lua_env == LUA_NOREF)
      faction->player += mod;
   else {
 
      /* Set up the function:
       * standing:hit( current, amount, source, secondary ) */
      lua_rawgeti( naevL, LUA_REGISTRYINDEX, faction->lua_hit );
      lua_pushnumber(  naevL, faction->player );
      lua_pushnumber(  naevL, mod );
      lua_pushstring(  naevL, source );
      lua_pushboolean( naevL, secondary );
 
      /* Call function. */
      if (nlua_pcall( faction->lua_env, 4, 1 )) { /* An error occurred. */
         WARN(_("Faction '%s': %s"), faction->name, lua_tostring(naevL,-1));
         lua_pop( naevL, 1 );
         return;
      }
 
      /* Parse return. */
      if (!lua_isnumber( naevL, -1 ))
         WARN(_("Lua script for faction '%s' did not return a %s from '%s'."), faction->name, _("number"), "hit" );
      else
         faction->player = lua_tonumber( naevL, -1 );
      lua_pop( naevL, 1 );
   }
 
   /* Sanitize just in case. */
   faction_sanitizePlayer( faction );
 
   /* Run hook if necessary. */
   delta = faction->player - old;
   if (FABS(delta) > 1e-10) {
      HookParam hparam[3];
      hparam[0].type    = HOOK_PARAM_FACTION;
      hparam[0].u.lf    = f;
      hparam[1].type    = HOOK_PARAM_NUMBER;
      hparam[1].u.num   = delta;
      hparam[2].type    = HOOK_PARAM_SENTINEL;
      hooks_runParam( "standing", hparam );
 
      /* Tell space the faction changed. */
      space_factionChange();
   }
}
 
void faction_modPlayer( int f, double mod, const char *source )
{
   Faction *faction;
 
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
   faction = &faction_stack[f];
 
   /* Modify faction standing with parent faction. */
   faction_modPlayerLua( f, mod, source, 0 );
 
   /* Now mod allies to a lesser degree */
   for (int i=0; i<array_size(faction->allies); i++)
      /* Modify faction standing */
      faction_modPlayerLua( faction->allies[i], mod, source, 1 );
 
   /* Now mod enemies */
   for (int i=0; i<array_size(faction->enemies); i++)
      /* Modify faction standing. */
      faction_modPlayerLua( faction->enemies[i], -mod, source, 1 );
}
 
void faction_modPlayerSingle( int f, double mod, const char *source )
{
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
 
   faction_modPlayerLua( f, mod, source, 0 );
}
 
void faction_modPlayerRaw( int f, double mod )
{
   Faction *faction;
   HookParam hparam[3];
 
   /* Ignore it if player is dead. */
   if (player.p==NULL)
      return;
 
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
 
   faction = &faction_stack[f];
   faction->player += mod;
   /* Run hook if necessary. */
   hparam[0].type    = HOOK_PARAM_FACTION;
   hparam[0].u.lf    = f;
   hparam[1].type    = HOOK_PARAM_NUMBER;
   hparam[1].u.num   = mod;
   hparam[2].type    = HOOK_PARAM_SENTINEL;
   hooks_runParam( "standing", hparam );
 
   /* Sanitize just in case. */
   faction_sanitizePlayer( faction );
 
   /* Tell space the faction changed. */
   space_factionChange();
}
 
void faction_setPlayer( int f, double value )
{
   Faction *faction;
   double mod;
 
   /* Ignore it if player is dead. */
   if (player.p==NULL)
      return;
 
   if (!faction_isFaction(f)) {
      WARN(_("Faction id '%d' is invalid."), f);
      return;
   }
 
   faction = &faction_stack[f];
   mod = value - faction->player;
   faction->player = value;
   /* Run hook if necessary. */
   if (!faction_isFlag(faction, FACTION_DYNAMIC)) {
      HookParam hparam[3];
      hparam[0].type    = HOOK_PARAM_FACTION;
      hparam[0].u.lf    = f;
      hparam[1].type    = HOOK_PARAM_NUMBER;
      hparam[1].u.num   = mod;
      hparam[2].type    = HOOK_PARAM_SENTINEL;
      hooks_runParam( "standing", hparam );
 
      /* Sanitize just in case. */
      faction_sanitizePlayer( faction );
 
      /* Tell space the faction changed. */
      space_factionChange();
   }
}
 
double faction_getPlayer( int f )
{
   if (faction_isFaction(f))
      return faction_stack[f].player;
   WARN(_("Faction id '%d' is invalid."), f);
   return -1000.;
}
 
double faction_getPlayerDef( int f )
{
   if (faction_isFaction(f))
      return faction_stack[f].player_def;
   WARN(_("Faction id '%d' is invalid."), f);
   return -1000.;
}
 
int faction_isPlayerFriend( int f )
{
   const Faction *faction = &faction_stack[f];
   return (faction->player >= faction->friendly_at);
}
 
int faction_isPlayerEnemy( int f )
{
   const Faction *faction = &faction_stack[f];
   return (faction->player < 0);
}
 
const glColour* faction_getColour( int f )
{
   if (f<0) return &cInert;
   else if (areAllies(FACTION_PLAYER,f)) return &cFriend;
   else if (areEnemies(FACTION_PLAYER,f)) return &cHostile;
   else return &cNeutral;
}
 
char faction_getColourChar( int f )
{
   if (f<0) return 'I';
   else if (areEnemies(FACTION_PLAYER,f)) return 'H';
   else if (areAllies(FACTION_PLAYER,f)) return 'F';
   else return 'N';
}
 
const char *faction_getStandingText( int f )
{
   return faction_getStandingTextAtValue( f, faction_stack[f].player );
}
 
const char *faction_getStandingTextAtValue( int f, double value )
{
   Faction *faction;
 
   /* Ignore it if player is dead. */
   if (player.p==NULL)
      return _("???");
 
   /* Escorts always have the same standing. */
   if (f == FACTION_PLAYER)
      return _("Escort");
 
   faction = &faction_stack[f];
 
   if (faction->lua_env == LUA_NOREF)
      return _("???");
   else {
      const char *r;
      /* Set up the method:
       * standing:text_rank( standing ) */
      lua_rawgeti( naevL, LUA_REGISTRYINDEX, faction->lua_text_rank );
      lua_pushnumber( naevL, value );
 
      /* Call function. */
      if (nlua_pcall( faction->lua_env, 1, 1 )) {
         /* An error occurred. */
         WARN( _("Faction '%s': %s"), faction->name, lua_tostring( naevL, -1 ) );
         lua_pop( naevL, 1 );
         return _("???");
      }
 
      /* Parse return. */
      if (!lua_isstring( naevL, -1 )) {
         WARN(_("Lua script for faction '%s' did not return a %s from '%s'."), faction->name, _("string"), "text_rank" );
         r = _("???");
      }
      else
         r = lua_tostring( naevL, -1 ); /* Should be translated already. */
      lua_pop( naevL, 1 );
      return r;
   }
}
 
const char *faction_getStandingBroad( int f, int bribed, int override )
{
   Faction *faction;
   const char *r;
 
   /* Ignore it if player is dead. */
   if (player.p==NULL)
      return _("???");
 
   /* Escorts always have the same standing. */
   if (f == FACTION_PLAYER)
      return _("Escort");
 
   faction = &faction_stack[f];
 
   if (faction->lua_env == LUA_NOREF)
      return _("???");
 
   /* Set up the method:
      * standing:text_broad( standing, bribed, override ) */
   lua_rawgeti( naevL, LUA_REGISTRYINDEX, faction->lua_text_broad );
   lua_pushnumber( naevL, faction->player );
   lua_pushboolean( naevL, bribed );
   lua_pushinteger( naevL, override );
 
   /* Call function. */
   if (nlua_pcall( faction->lua_env, 3, 1 )) {
      /* An error occurred. */
      WARN( _("Faction '%s': %s"), faction->name, lua_tostring( naevL, -1 ) );
      lua_pop( naevL, 1 );
      return _("???");
   }
 
   /* Parse return. */
   if (!lua_isstring( naevL, -1 )) {
      WARN(_("Lua script for faction '%s' did not return a %s from '%s'."), faction->name, _("string"), "text_broad" );
      r = _("???");
   }
   else
      r = lua_tostring( naevL, -1 );
   lua_pop( naevL, 1 );
   return r;
}
 
double faction_reputationMax( int f )
{
   Faction *faction;
   double r;
 
   /* Ignore it if player is dead. */
   if (player.p==NULL)
      return 0.;
 
   /* Escorts always have the same standing. */
   if (f == FACTION_PLAYER)
      return 100.;
 
   faction = &faction_stack[f];
 
   if (faction->lua_env == LUA_NOREF)
      return 0.;
 
   /* Set up the method:
      * standing:reputation_max( standing ) */
   lua_rawgeti( naevL, LUA_REGISTRYINDEX, faction->lua_reputation_max );
 
   /* Call function. */
   if (nlua_pcall( faction->lua_env, 0, 1 )) {
      /* An error occurred. */
      WARN( _("Faction '%s': %s"), faction->name, lua_tostring( naevL, -1 ) );
      lua_pop( naevL, 1 );
      return 0.;
   }
 
   /* Parse return. */
   if (!lua_isnumber( naevL, -1 )) {
      WARN(_("Lua script for faction '%s' did not return a %s from '%s'."), faction->name, _("number"), "reputation_max" );
      r =  0.;
   }
   else
      r = lua_tonumber( naevL, -1 );
   lua_pop( naevL, 1 );
   return r;
}
 
int areEnemies( int a, int b )
{
   /* luckily our factions aren't masochistic */
   if (a==b)
      return 0;
 
   /* Make sure they're valid. */
   if (!faction_isFaction(a) || !faction_isFaction(b))
      return 0;
 
   /* player handled separately */
   if (a==FACTION_PLAYER)
      return faction_isPlayerEnemy(b);
   else if (b==FACTION_PLAYER)
      return faction_isPlayerEnemy(a);
 
   return faction_grid[ a * faction_mgrid + b ] < 0;
}
 
int areAllies( int a, int b )
{
   /* If they are the same they must be allies. */
   if (a==b) return 1;
 
   /* Make sure they're valid. */
   if (!faction_isFaction(a) || !faction_isFaction(b))
      return 0;
 
   /* we assume player becomes allies with high rating */
   if (a==FACTION_PLAYER)
      return faction_isPlayerFriend(b);
   else if (b==FACTION_PLAYER)
      return faction_isPlayerFriend(a);
 
   return faction_grid[ a * faction_mgrid + b ] > 0;
}
 
int faction_isFaction( int f )
{
   if ((f<0) || (f>=array_size(faction_stack)))
      return 0;
   return 1;
}
 
static int faction_parse( Faction* temp, const char *file )
{
   xmlNodePtr node, parent;
   int saw_player;
 
   xmlDocPtr doc = xml_parsePhysFS( file );
   if (doc == NULL)
      return -1;
 
   parent = doc->xmlChildrenNode; /* first faction node */
   if (parent == NULL) {
      ERR( _("Malformed '%s' file: does not contain elements"), file);
      return -1;
   }
 
   /* Clear memory. */
   memset( temp, 0, sizeof(Faction) );
   temp->equip_env   = LUA_NOREF;
   temp->sched_env   = LUA_NOREF;
   temp->lua_env     = LUA_NOREF;
   temp->lua_hit     = LUA_NOREF;
   temp->lua_text_rank = LUA_NOREF;
   temp->lua_text_broad = LUA_NOREF;
   temp->lua_reputation_max = LUA_NOREF;
 
   xmlr_attr_strd(parent,"name",temp->name);
   if (temp->name == NULL)
      WARN(_("Faction from file '%s' has no name!"), file);
 
   saw_player = 0;
   node   = parent->xmlChildrenNode;
   do {
      /* Only care about nodes. */
      xml_onlyNodes(node);
 
      /* Can be 0 or negative, so we have to take that into account. */
      if (xml_isNode(node,"player")) {
         temp->player_def = xml_getFloat(node);
         saw_player = 1;
         continue;
      }
 
      xmlr_strd(node,"longname",temp->longname);
      xmlr_strd(node,"display",temp->displayname);
      xmlr_strd(node,"mapname",temp->mapname);
      xmlr_strd(node,"description",temp->description);
      xmlr_strd(node,"ai",temp->ai);
      xmlr_float(node,"lane_length_per_presence",temp->lane_length_per_presence);
      xmlr_float(node,"lane_base_cost",temp->lane_base_cost);
      if (xml_isNode(node, "colour")) {
         const char *ctmp = xml_get(node);
         if (ctmp != NULL)
            temp->colour = *col_fromName(xml_raw(node));
         /* If no named colour is present, RGB attributes are used. */
         else {
            /* Initialize in case a colour channel is absent. */
            xmlr_attr_float(node,"r",temp->colour.r);
            xmlr_attr_float(node,"g",temp->colour.g);
            xmlr_attr_float(node,"b",temp->colour.b);
            temp->colour.a = 1.;
            col_gammaToLinear( &temp->colour );
         }
         continue;
      }
 
      if (xml_isNode(node, "known")) {
         faction_setFlag(temp, FACTION_KNOWN);
         continue;
      }
 
      if (xml_isNode(node,"logo")) {
         char buf[PATH_MAX];
         if (temp->logo != NULL)
            WARN(_("Faction '%s' has duplicate 'logo' tag."), temp->name);
         snprintf( buf, sizeof(buf), FACTION_LOGO_PATH"%s.webp", xml_get(node) );
         temp->logo = gl_newImage(buf, 0);
         continue;
      }
 
      if (xml_isNode(node,"static")) {
         faction_setFlag(temp, FACTION_STATIC);
         continue;
      }
 
      if (xml_isNode(node,"invisible")) {
         faction_setFlag(temp, FACTION_INVISIBLE);
         continue;
      }
 
      if (xml_isNode(node,"useshiddenjumps")) {
         faction_setFlag(temp, FACTION_USESHIDDENJUMPS);
         continue;
      }
 
      if (xml_isNode(node, "tags")) {
         xmlNodePtr cur = node->children;
         if (temp->tags != NULL)
            WARN(_("Faction '%s' has duplicate '%s' node!"), temp->name, "tags");
         else
            temp->tags = array_create( char* );
         do {
            xml_onlyNodes(cur);
            if (xml_isNode(cur, "tag")) {
               const char *tmp = xml_get(cur);
               if (tmp != NULL)
                  array_push_back( &temp->tags, strdup(tmp) );
               continue;
            }
            WARN(_("Faction '%s' has unknown node in tags '%s'."), temp->name, cur->name );
         } while (xml_nextNode(cur));
         continue;
      }
 
#if DEBUGGING
      /* Avoid warnings. */
      if (xml_isNode(node,"allies") || xml_isNode(node,"enemies") ||
            xml_isNode(node,"generator") || xml_isNode(node,"standing") ||
            xml_isNode(node,"spawn") || xml_isNode(node,"equip"))
         continue;
      WARN(_("Unknown node '%s' in faction '%s'"),node->name,temp->name);
#endif /* DEBUGGING */
 
   } while (xml_nextNode(node));
 
   if (!saw_player)
      WARN(_("Faction '%s' missing 'player' tag."), temp->name);
   if (faction_isKnown_(temp) && !faction_isFlag(temp, FACTION_INVISIBLE) && temp->description==NULL)
      WARN(_("Faction '%s' is known but missing 'description' tag."), temp->name);
 
   xmlFreeDoc(doc);
 
   return 0;
}
 
static void faction_addStandingScript( Faction* temp, const char* scriptname )
{
   char buf[PATH_MAX], *dat;
   size_t ndat;
 
   snprintf( buf, sizeof(buf), FACTIONS_PATH"standing/%s.lua", scriptname );
   temp->lua_env = nlua_newEnv();
 
   nlua_loadStandard( temp->lua_env );
   dat = ndata_read( buf, &ndat );
   if (nlua_dobufenv(temp->lua_env, dat, ndat, buf) != 0) {
      WARN(_("Failed to run standing script: %s\n"
            "%s\n"
            "Most likely Lua file has improper syntax, please check"),
            buf, lua_tostring(naevL,-1));
      nlua_freeEnv( temp->lua_env );
      temp->lua_env = LUA_NOREF;
   }
   free(dat);
 
   /* Set up the references. */
   temp->lua_hit           = nlua_refenvtype( temp->lua_env, "hit",        LUA_TFUNCTION );
   temp->lua_text_broad    = nlua_refenvtype( temp->lua_env, "text_broad", LUA_TFUNCTION );
   temp->lua_text_rank     = nlua_refenvtype( temp->lua_env, "text_rank",  LUA_TFUNCTION );
   temp->lua_reputation_max= nlua_refenvtype( temp->lua_env, "reputation_max", LUA_TFUNCTION );
 
   nlua_getenv( naevL, temp->lua_env, "friendly_at" );
   temp->friendly_at = lua_tonumber( naevL, -1 );
   lua_pop( naevL, 1 );
}
 
static int faction_parseSocial( const char *file )
{
   char buf[PATH_MAX], *name, *dat;
   size_t ndat;
   xmlNodePtr node, parent;
   Faction *base;
 
   xmlDocPtr doc = xml_parsePhysFS( file );
   if (doc == NULL)
      return -1;
 
   parent = doc->xmlChildrenNode; /* first faction node */
   if (parent == NULL) {
      ERR( _("Malformed '%s' file: does not contain elements"), file);
      return -1;
   }
 
   /* Get name. */
   base = NULL;
   xmlr_attr_strd(parent, "name", name);
   if (name != NULL)
      base = &faction_stack[ faction_get( name ) ];
   free( name );
   name = NULL;
 
   assert( base != NULL );
 
   /* Create arrays, not much memory so it doesn't really matter. */
   base->allies = array_create( int );
   base->enemies = array_create( int );
 
   /* Parse social stuff. */
   node = parent->xmlChildrenNode;
   do {
      if (xml_isNode(node, "generator")) {
         FactionGenerator *fg;
         if (base->generators==NULL)
            base->generators = array_create( FactionGenerator );
         fg = &array_grow( &base->generators );
         xmlr_attr_float(node,"weight",fg->weight);
         fg->id = faction_get( xml_get(node) );
         continue;
      }
 
      /* Standing scripts. */
      if (xml_isNode(node, "standing")) {
         if (base->lua_env != LUA_NOREF)
            WARN(_("Faction '%s' has duplicate 'standing' tag."), base->name);
         faction_addStandingScript( base, xml_raw(node) );
         continue;
      }
 
      /* Spawning scripts. */
      if (xml_isNode(node, "spawn")) {
         if (base->sched_env != LUA_NOREF)
            WARN(_("Faction '%s' has duplicate 'spawn' tag."), base->name);
         snprintf( buf, sizeof(buf), FACTIONS_PATH"spawn/%s.lua", xml_raw(node) );
         base->sched_env = nlua_newEnv();
         nlua_loadStandard( base->sched_env );
         dat = ndata_read( buf, &ndat );
         if (nlua_dobufenv(base->sched_env, dat, ndat, buf) != 0) {
            WARN(_("Failed to run spawn script: %s\n"
                  "%s\n"
                  "Most likely Lua file has improper syntax, please check"),
                  buf, lua_tostring(naevL,-1));
            nlua_freeEnv( base->sched_env );
            base->sched_env = LUA_NOREF;
         }
         free(dat);
         continue;
      }
 
      /* Equipment scripts. */
      if (xml_isNode(node, "equip")) {
         if (base->equip_env != LUA_NOREF)
            WARN(_("Faction '%s' has duplicate 'equip' tag."), base->name);
         snprintf( buf, sizeof(buf), FACTIONS_PATH"equip/%s.lua", xml_raw(node) );
         base->equip_env = nlua_newEnv();
         nlua_loadStandard( base->equip_env );
         dat = ndata_read( buf, &ndat );
         if (nlua_dobufenv(base->equip_env, dat, ndat, buf) != 0) {
            WARN(_("Failed to run equip script: %s\n"
                  "%s\n"
                  "Most likely Lua file has improper syntax, please check"),
                  buf, lua_tostring(naevL, -1));
            nlua_freeEnv( base->equip_env );
            base->equip_env = LUA_NOREF;
         }
         free(dat);
         continue;
      }
 
      /* Grab the allies */
      if (xml_isNode(node,"allies")) {
         xmlNodePtr cur = node->xmlChildrenNode;
         do {
            xml_onlyNodes(cur);
            if (xml_isNode(cur,"ally")) {
               int *tmp = &array_grow( &base->allies );
               *tmp = faction_get(xml_get(cur));
            }
         } while (xml_nextNode(cur));
         continue;
      }
 
      /* Grab the enemies */
      if (xml_isNode(node,"enemies")) {
         xmlNodePtr cur = node->xmlChildrenNode;
         do {
            xml_onlyNodes(cur);
            if (xml_isNode(cur,"enemy")) {
               int *tmp = &array_grow( &base->enemies );
               *tmp = faction_get(xml_get(cur));
            }
         } while (xml_nextNode(cur));
         continue;
      }
   } while (xml_nextNode(node));
 
   if ((base->lua_env==LUA_NOREF) && !faction_isFlag( base, FACTION_STATIC ))
      WARN(_("Faction '%s' has no Lua and isn't static!"), base->name);
 
   xmlFreeDoc(doc);
   return 0;
}
 
void factions_reset (void)
{
   for (int i=0; i<array_size(faction_stack); i++) {
      faction_stack[i].player = faction_stack[i].player_def;
      faction_stack[i].flags = faction_stack[i].oflags;
   }
}
 
int factions_load (void)
{
#if DEBUGGING
   Uint32 time = SDL_GetTicks();
#endif /* DEBUGGING */
   Faction *f;
   char **faction_files = ndata_listRecursive( FACTION_DATA_PATH );
 
   /* player faction is hard-coded */
   faction_stack = array_create( Faction );
   f = &array_grow( &faction_stack );
   memset( f, 0, sizeof(Faction) );
   f->name        = strdup("Player");
   f->flags       = FACTION_STATIC | FACTION_INVISIBLE;
   f->equip_env   = LUA_NOREF;
   f->sched_env   = LUA_NOREF;
   f->lua_env     = LUA_NOREF;
   f->lua_hit     = LUA_NOREF;
   f->lua_text_rank = LUA_NOREF;
   f->lua_text_broad = LUA_NOREF;
   f->lua_reputation_max = LUA_NOREF;
   f->allies      = array_create( int );
   f->enemies     = array_create( int );
 
   /* Add the base factions. */
   for (int i=0; i<array_size(faction_files); i++) {
      if (ndata_matchExt( faction_files[i], "xml" )) {
         Faction nf;
         int ret = faction_parse( &nf, faction_files[i] );
         if (ret == 0) {
            nf.oflags = nf.flags;
            array_push_back( &faction_stack, nf );
         }
 
         /* Render if necessary. */
         naev_renderLoadscreen();
      }
   }
 
   /* Sort by name. */
   qsort( faction_stack, array_size(faction_stack), sizeof(Faction), faction_cmp );
   faction_player = faction_get("Player");
 
   /* Second pass - sets allies and enemies */
   for (int i=0; i<array_size(faction_files); i++) {
      if (ndata_matchExt( faction_files[i], "xml" )) {
         faction_parseSocial( faction_files[i] );
      }
   }
 
   /* Third pass, Make allies/enemies symmetric. */
   for (int i=0; i<array_size(faction_stack); i++) {
      f = &faction_stack[i];
 
      /* First run over allies and make sure it's mutual. */
      for (int j=0; j < array_size(f->allies); j++) {
         const Faction *sf = &faction_stack[ f->allies[j] ];
         int r = 0;
         for (int k=0; k < array_size(sf->allies); k++)
            if (sf->allies[k] == i) {
               r = 1;
               break;
            }
 
         /* Add ally if necessary. */
         if (r == 0)
            faction_addAlly( f->allies[j], i );
      }
 
      /* Now run over enemies. */
      for (int j=0; j < array_size(f->enemies); j++) {
         const Faction *sf = &faction_stack[ f->enemies[j] ];
         int r = 0;
         for (int k=0; k < array_size(sf->enemies); k++)
            if (sf->enemies[k] == i) {
               r = 1;
               break;
            }
 
         if (r == 0)
            faction_addEnemy( f->enemies[j], i );
      }
   }
 
   /* Clean up stuff. */
   for (int i=0; i<array_size(faction_files); i++)
      free( faction_files[i] );
   array_free( faction_files );
 
   /* Compute grid and finalize. */
   faction_computeGrid();
#if DEBUGGING
   if (conf.devmode) {
      time = SDL_GetTicks() - time;
      DEBUG( n_( "Loaded %d Faction in %.3f s", "Loaded %d Factions in %.3f s", array_size(faction_stack) ), array_size(faction_stack), time/1000. );
   }
   else
      DEBUG( n_( "Loaded %d Faction", "Loaded %d Factions", array_size(faction_stack) ), array_size(faction_stack) );
#endif /* DEBUGGING */
 
   return 0;
}
 
static void faction_freeOne( Faction *f )
{
   free(f->name);
   free(f->longname);
   free(f->displayname);
   free(f->mapname);
   free(f->description);
   free(f->ai);
   array_free(f->generators);
   gl_freeTexture(f->logo);
   array_free(f->allies);
   array_free(f->enemies);
   nlua_freeEnv( f->sched_env );
   nlua_freeEnv( f->lua_env );
   if (!faction_isFlag(f, FACTION_DYNAMIC))
      nlua_freeEnv( f->equip_env );
   for (int i=0; i<array_size(f->tags); i++)
      free(f->tags[i]);
   array_free(f->tags);
}
 
void factions_free (void)
{
   /* Free factions. */
   for (int i=0; i<array_size(faction_stack); i++)
      faction_freeOne( &faction_stack[i] );
   array_free(faction_stack);
   faction_stack = NULL;
 
   /* Clean up faction grid. */
   free( faction_grid );
   faction_grid = NULL;
   faction_mgrid = 0;
}
 
int pfaction_save( xmlTextWriterPtr writer )
{
   xmlw_startElem(writer,"factions");
 
   for (int i=0; i<array_size(faction_stack); i++) { /* player is faction 0 */
      /* Must not be static. */
      if (faction_isFlag( &faction_stack[i], FACTION_STATIC ))
         continue;
 
      xmlw_startElem(writer,"faction");
 
      xmlw_attr(writer,"name","%s",faction_stack[i].name);
      xmlw_elem(writer,"standing","%f",faction_stack[i].player);
 
      if (faction_isKnown_(&faction_stack[i]))
         xmlw_elemEmpty(writer, "known");
 
      xmlw_endElem(writer); /* "faction" */
   }
 
   xmlw_endElem(writer); /* "factions" */
 
   return 0;
}
 
int pfaction_load( xmlNodePtr parent )
{
   xmlNodePtr node = parent->xmlChildrenNode;
 
   do {
      if (xml_isNode(node,"factions")) {
         xmlNodePtr cur = node->xmlChildrenNode;
         do {
            if (xml_isNode(cur,"faction")) {
               int faction;
               char *str;
               xmlr_attr_strd(cur, "name", str);
               faction = faction_get(str);
 
               if (faction != -1) { /* Faction is valid. */
                  xmlNodePtr sub = cur->xmlChildrenNode;
                  do {
                     if (xml_isNode(sub,"standing")) {
 
                        /* Must not be static. */
                        if (!faction_isFlag( &faction_stack[faction], FACTION_STATIC ))
                           faction_stack[faction].player = xml_getFloat(sub);
                        continue;
                     }
                     if (xml_isNode(sub,"known")) {
                        faction_setFlag(&faction_stack[faction], FACTION_KNOWN);
                        continue;
                     }
                  } while (xml_nextNode(sub));
               }
               free(str);
            }
         } while (xml_nextNode(cur));
      }
   } while (xml_nextNode(node));
 
   return 0;
}
 
int *faction_getGroup( int which )
{
   int *group;
 
   switch (which) {
      case 0: /* 'all' */
         return array_copy( int, faction_stack );
 
      case 1: /* 'friendly' */
         group = array_create( int );
         for (int i=0; i < array_size(faction_stack); i++)
            if (areAllies( FACTION_PLAYER, i ))
               array_push_back( &group, i );
         return group;
 
      case 2: /* 'neutral' */
         group = array_create( int );
         for (int i=0; i < array_size(faction_stack); i++)
            if (!areAllies( FACTION_PLAYER, i ) && !areEnemies( FACTION_PLAYER, i ))
               array_push_back( &group, i );
         return group;
 
      case 3: /* 'hostile' */
         group = array_create( int );
         for (int i=0; i < array_size(faction_stack); i++)
            if (areEnemies( FACTION_PLAYER, i ))
               array_push_back( &group, i );
         return group;
 
      default:
         return NULL;
   }
}
 
int faction_usesHiddenJumps( int f )
{
   if (faction_isFaction(f))
      return faction_isFlag( &faction_stack[f], FACTION_USESHIDDENJUMPS );
   return 0;
}
 
const FactionGenerator* faction_generators( int f )
{
   if (faction_isFaction(f))
      return faction_stack[f].generators;
   return NULL;
}
 
void factions_clearDynamic (void)
{
   for (int i=0; i<array_size(faction_stack); i++) {
      Faction *f = &faction_stack[i];
      if (faction_isFlag(f, FACTION_DYNAMIC)) {
         faction_freeOne( f );
         array_erase( &faction_stack, f, f+1 );
         i--;
      }
   }
   faction_computeGrid();
}
 
int faction_dynAdd( int base, const char* name, const char* display, const char* ai, const glColour* colour )
{
   Faction *f = &array_grow( &faction_stack );
   memset( f, 0, sizeof(Faction) );
   f->name        = strdup( name );
   f->displayname = (display==NULL) ? NULL : strdup( display );
   f->ai          = (ai==NULL) ? NULL : strdup( ai );
   f->allies      = array_create( int );
   f->enemies     = array_create( int );
   f->equip_env   = LUA_NOREF;
   f->lua_env     = LUA_NOREF;
   f->sched_env   = LUA_NOREF;
   f->flags       = FACTION_STATIC | FACTION_INVISIBLE | FACTION_DYNAMIC | FACTION_KNOWN;
   faction_addStandingScript( f, "static" );
   if (base>=0) {
      Faction *bf = &faction_stack[base];
 
      if (bf->ai!=NULL && f->ai==NULL)
         f->ai = strdup( bf->ai );
      if (bf->logo!=NULL)
         f->logo = gl_dupTexture( bf->logo );
 
      for (int i=0; i<array_size(bf->allies); i++) {
         int *tmp = &array_grow( &f->allies );
         *tmp = bf->allies[i];
      }
      for (int i=0; i<array_size(bf->enemies); i++) {
         int *tmp = &array_grow( &f->enemies );
         *tmp = bf->enemies[i];
      }
 
      f->player_def = bf->player_def;
      f->player = bf->player;
      f->colour = bf->colour;
 
      /* Lua stuff. */
      f->equip_env = bf->equip_env;
   }
 
   /* Copy colour over if applicable. */
   if (colour != NULL)
      f->colour = *colour;
 
   /* TODO make this incremental. */
   faction_computeGrid();
 
   return f-faction_stack;
}
 
static void faction_computeGrid (void)
{
   size_t n = array_size(faction_stack);
   if (faction_mgrid < n) {
      free( faction_grid );
      faction_grid = malloc( n * n * sizeof(int) );
      faction_mgrid = n;
   }
   n = faction_mgrid;
   memset( faction_grid, 0, n*n*sizeof(int) );
   for (int i=0; i<array_size(faction_stack); i++) {
      Faction *fa = &faction_stack[i];
      for (int k=0; k<array_size(fa->allies); k++) {
         int j = fa->allies[k];
#if DEBUGGING
         if ((faction_grid[i*n+j] < 0) || (faction_grid[j*n+i]) < 0)
            WARN("Incoherent faction grid! '%s' and '%s' are already enemies, but trying to set to allies!", faction_stack[i].name, faction_stack[j].name );
#endif /* DEBUGGING */
         faction_grid[i*n+j] = 1;
         faction_grid[j*n+i] = 1;
      }
      for (int k=0; k<array_size(fa->enemies); k++) {
         int j = fa->enemies[k];
#if DEBUGGING
         if ((faction_grid[i*n+j] > 0) || (faction_grid[j*n+i] > 0))
            WARN("Incoherent faction grid! '%s' and '%s' are already allies, but trying to set to enemies!", faction_stack[i].name, faction_stack[j].name );
#endif /* DEBUGGING */
         faction_grid[i*n+j] = -1;
         faction_grid[j*n+i] = -1;
      }
   }
}