escort.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include "naev.h"
#include "escort.h"
 
#include "array.h"
#include "dialogue.h"
#include "hook.h"
#include "log.h"
#include "nlua.h"
#include "nluadef.h"
#include "nstring.h"
#include "player.h"
 
/*
 * Prototypes.
 */
/* Static */
static int escort_command( const Pilot *parent, const char *cmd, unsigned int index );
 
int escort_addList( Pilot *p, const Ship *ship, EscortType_t type,
      unsigned int id, int persist )
{
   Escort_t *escort;
   if (p->escorts == NULL)
      p->escorts = array_create( Escort_t );
   escort         = &array_grow( &p->escorts );
   escort->ship   = ship;
   escort->type   = type;
   escort->id     = id;
   escort->persist= persist;
 
   return 0;
}
 
void escort_freeList( Pilot *p )
{
   array_free(p->escorts);
   p->escorts = NULL;
}
 
void escort_rmListIndex( Pilot *p, int i )
{
   array_erase( &p->escorts, &p->escorts[i], &p->escorts[i+1] );
}
 
void escort_rmList( Pilot *p, unsigned int id )
{
   for (int i=0; i<array_size(p->escorts); i++) {
      if (p->escorts[i].id == id) {
         escort_rmListIndex( p, i );
         break;
      }
   }
}
 
unsigned int escort_create( Pilot *p, const Ship *ship,
      const vec2 *pos, const vec2 *vel, double dir,
      EscortType_t type, int add, int dockslot )
{
   Pilot *pe;
   PilotFlags f;
   unsigned int parent;
 
   /* Get important stuff. */
   parent = p->id;
 
   /* Set flags. */
   pilot_clearFlagsRaw( f );
   //pilot_setFlagRaw( f, PILOT_NOJUMP );
   if (p->faction == FACTION_PLAYER) {
      pilot_setFlagRaw( f, PILOT_PERSIST );
      pilot_setFlagRaw( f, PILOT_NOCLEAR );
   }
   if (type == ESCORT_TYPE_BAY)
      pilot_setFlagRaw( f, PILOT_CARRIED );
 
   /* Create the pilot. */
   pe = pilot_create( ship, NULL, p->faction, "escort", dir, pos, vel, f, parent, dockslot );
   pe->parent = parent;
 
   /* Make invincible to player. */
   if (pe->parent == PLAYER_ID)
      pilot_setFlag( pe, PILOT_INVINC_PLAYER );
 
   /* Set some flags for consistent behaviour. */
   if (pilot_isFlag(p, PILOT_HOSTILE))
      pilot_setFlag( pe, PILOT_HOSTILE );
   if (pilot_isFlag(p, PILOT_FRIENDLY))
      pilot_setFlag( pe, PILOT_FRIENDLY );
 
   /* Compute fighter bay bonuses. */
   if (pilot_isFlagRaw( f, PILOT_CARRIED )) {
      /* Damage. */
      if (p->stats.fbay_damage != 1.) {
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_LAUNCH_DAMAGE, p->stats.fbay_damage, 0, 1 );
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_FORWARD_DAMAGE, p->stats.fbay_damage, 0, 1 );
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_TURRET_DAMAGE, p->stats.fbay_damage, 0, 1 );
      }
      /* Health. */
      if (p->stats.fbay_health != 1.) {;
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_ARMOUR_MOD, p->stats.fbay_health, 0, 1 );
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_SHIELD_MOD, p->stats.fbay_health, 0, 1 );
      }
      /* Movement. */
      if (p->stats.fbay_movement != 1.) {;
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_SPEED_MOD, p->stats.fbay_movement, 0, 1 );
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_TURN_MOD, p->stats.fbay_movement, 0, 1 );
         pe->intrinsic_stats = ss_statsSetList( pe->intrinsic_stats, SS_TYPE_D_ACCEL_MOD, p->stats.fbay_movement, 0, 1 );
      }
      /* Update stats. */
      pilot_calcStats( pe );
   }
 
   /* Add to escort list. */
   if (add != 0)
      escort_addList( p, ship, type, pe->id, 1 );
 
   return pe->id;
}
 
unsigned int escort_createRef( Pilot *p, Pilot *pe,
      const vec2 *pos, const vec2 *vel, double dir,
      EscortType_t type, int add, int dockslot )
{
   if (pilot_get( pe->id ) == NULL) /* Not on stack yet. */
      pilot_addStack( pe ); /* Sets the ID, and resets internals. */
   else
      pilot_reset( pe ); /* Reset internals. */
   pe->parent = p->id;
 
   /* Make invincible to player. */
   if (pe->parent == PLAYER_ID)
      pilot_setFlag( pe, PILOT_INVINC_PLAYER );
 
   /* Copy stuff over if necessary. */
   if (pos != NULL)
      memcpy( &pe->solid.pos, pos, sizeof(vec2) );
   if (vel != NULL)
      memcpy( &pe->solid.vel, vel, sizeof(vec2) );
   pe->solid.dir = dir;
 
   /* Set some flags for consistent behaviour. */
   if (p->faction == FACTION_PLAYER) {
      pilot_setFlag( pe, PILOT_PERSIST );
      pilot_setFlag( pe, PILOT_NOCLEAR );
   }
   if (pilot_isFlag(p, PILOT_HOSTILE))
      pilot_setFlag( pe, PILOT_HOSTILE );
   if (pilot_isFlag(p, PILOT_FRIENDLY))
      pilot_setFlag( pe, PILOT_FRIENDLY );
 
   /* Add to escort list. */
   if (add != 0)
      escort_addList( p, pe->ship, type, pe->id, 1 );
   pe->dockslot = dockslot;
 
   return pe->id;
}
 
int escort_clearDeployed( Pilot *p )
{
   int q = 0;
   /* Iterate backwards so we don't have to care about indices. */
   for (int j=array_size(p->escorts)-1; j>=0; j--) {
      Pilot *pe;
      const Escort_t *e = &p->escorts[j];
 
      /* Only try to dock fighters. */
      if (e->type != ESCORT_TYPE_BAY)
         continue;
 
      pe = pilot_get( e->id );
      if (pe==NULL)
         continue;
      /* Hack so it can dock. */
      memcpy( &pe->solid.pos, &p->solid.pos, sizeof(vec2) );
      memcpy( &pe->solid.vel, &p->solid.vel, sizeof(vec2) );
      if (pilot_dock( pe, p ))
         WARN(_("Pilot '%s' has escort '%s' docking error!"), p->name, pe->name);
      else
         q++;
   }
   return q;
}
 
static int escort_command( const Pilot *parent, const char *cmd, unsigned int idx )
{
   if (array_size(parent->escorts) == 0)
      return 1;
 
   for (int i=0; i<array_size(parent->escorts); i++) {
      const Pilot *e = pilot_get( parent->escorts[i].id );
      if (e == NULL) /* Most likely died. */
         continue;
 
      pilot_msg( parent, e, cmd, idx );
   }
 
   return 0;
}
 
int escorts_attack( Pilot *parent )
{
   int ret;
   Pilot *t;
 
   /* Avoid killing self. */
   t = pilot_getTarget( parent );
   if (t == NULL)
      return 1;
   if (t->faction == parent->faction)
      return 1;
 
   /* Send command. */
   ret = 1;
   if (parent->target != parent->id) {
      lua_pushpilot(naevL, parent->target);
      ret = escort_command( parent, "e_attack", -1 );
      lua_pop(naevL, 1);
   }
   if ((ret == 0) && (parent == player.p)) {
      const char *pltname;
      if (pilot_inRangePilot( parent, t, NULL ) > 0)
         pltname = t->name;
      else
         pltname = _("Unknown");
 
      if (pilot_isFlag(t, PILOT_DISABLED))
         player_message(_("#gEscorts: #0Destroying %s."), pltname);
      else
         player_message(_("#gEscorts: #0Engaging %s."), pltname);
   }
   return ret;
}
 
int escorts_hold( const Pilot *parent )
{
   int ret = escort_command( parent, "e_hold", 0 );
   if ((ret == 0) && (parent == player.p))
      player_message(_("#gEscorts: #0Holding formation."));
   return ret;
}
 
int escorts_return( const Pilot *parent )
{
   int ret = escort_command( parent, "e_return", 0 );
   if ((ret == 0) && (parent == player.p))
      player_message(_("#gEscorts: #0Returning to ship."));
   return ret;
}
 
int escorts_clear( const Pilot *parent )
{
   int ret = escort_command( parent, "e_clear", 0 );
   if ((ret == 0) && (parent == player.p))
      player_message(_("#gEscorts: #0Clearing orders."));
   return ret;
}
 
int escort_playerCommand( const Pilot *e )
{
   const char *title, *caption;
   char *choice;
   int ret = 1;
 
   /* "Attack My Target" order is omitted deliberately since e is your
    * target, making "Attack My Target" a useless command. */
   const char *opts[] = {
      _("Hold Formation"),
      _("Return To Ship"),
      _("Clear Orders"),
      _("Cancel")
   };
   const int nopts = 4;
 
   /* Must not be NULL */
   if (e == NULL)
      return 1;
 
   title = _("Escort Orders");
   caption = _("Select the order to give to this escort.");
 
   dialogue_makeChoice( title, caption, nopts );
   for (int i=0; i<nopts; i++)
      dialogue_addChoice( title, caption, opts[i] );
 
   choice = dialogue_runChoice();
   if (choice != NULL) {
      if (strcmp(choice, opts[0]) == 0) { /* Hold position */
         pilot_msg( player.p, e, "e_hold", 0 );
         ret = 0;
      }
      else if (strcmp(choice, opts[1]) == 0) { /* Return to ship */
         pilot_msg( player.p, e, "e_return", 0 );
         ret = 0;
      }
      else if (strcmp(choice, opts[2]) == 0) { /* Clear orders */
         pilot_msg( player.p, e, "e_clear", 0 );
         ret = 0;
      }
   }
   free( choice );
   return ret;
}
 
int escorts_jump( const Pilot *parent, const JumpPoint *jp )
{
   int ret;
   LuaJump lj;
 
   lj.destid = jp->targetid;
   lj.srcid = cur_system->id;
 
   lua_pushjump( naevL, lj );
   ret = escort_command( parent, "hyperspace", -1 );
   lua_pop(naevL, 1);
 
   if ((ret == 0) && (parent == player.p))
      player_message(_("#gEscorts: #0Jumping."));
   return ret;
}