comm.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include "naev.h"
#include "comm.h"
 
#include "ai.h"
#include "array.h"
#include "commodity.h"
#include "dialogue.h"
#include "escort.h"
#include "hook.h"
#include "log.h"
#include "ndata.h"
#include "nlua.h"
#include "opengl.h"
#include "pilot.h"
#include "player.h"
#include "rng.h"
#include "toolkit.h"
 
#define BUTTON_WIDTH    80 
#define BUTTON_HEIGHT   30 
#define GRAPHIC_WIDTH  256 
#define GRAPHIC_HEIGHT 256 
static Spob *comm_spob     = NULL; 
static int comm_commClose  = 0; 
static nlua_env comm_env   = LUA_NOREF; 
static int comm_open       = 0;
 
/*
 * Prototypes.
 */
/* Static. */
static const char* comm_getString( const Pilot *p, const char *str );
 
int comm_isOpen (void)
{
   return comm_open;
}
 
void comm_queueClose (void)
{
   comm_commClose = 1;
}
 
int comm_openPilot( unsigned int pilot )
{
   const char *msg;
   char c;
   Pilot *p;
   Pilot *const* pltstk;
 
   /* Get the pilot. */
   p  = pilot_get( pilot );
   c  = pilot_getFactionColourChar( p );
 
   /* Make sure pilot exists. */
   if (p == NULL)
      return -1;
 
   /* Make sure pilot in range. */
   if (!pilot_isFlag(p, PILOT_HAILING) &&
         pilot_inRangePilot( player.p, p, NULL ) <= 0) {
      player_message(_("#rTarget is out of communications range"));
      return -1;
   }
 
   /* Must not be jumping. */
   if (pilot_isFlag(p, PILOT_HYPERSPACE)) {
      player_message(_("#%c%s#r is jumping and can't respond"), c, p->name);
      return 0;
   }
 
   /* Must not be disabled. */
   if (pilot_isFlag(p, PILOT_DISABLED)) {
      player_message(_("#%c%s#r does not respond"), c, p->name);
      return 0;
   }
 
   /* Check for player faction (escorts). */
   if (p->faction == FACTION_PLAYER) {
      escort_playerCommand( p );
      return 0;
   }
 
   /* Set up for the comm_get* functions. */
   ai_setPilot( p );
 
   /* Have pilot stop hailing. */
   pilot_rmFlag( p, PILOT_HAILING );
 
   /* Don't close automatically. */
   comm_commClose = 0;
 
   /* Run specific hail hooks on hailing pilot. */
   HookParam hparam[] = {
      { .type = HOOK_PARAM_PILOT,
         .u = { .lp = p->id } },
      { .type = HOOK_PARAM_SENTINEL } };
   if (pilot_canTarget( p )) {
      hooks_runParam( "hail", hparam );
      pilot_runHook( p, PILOT_HOOK_HAIL );
   }
 
   /* Check to see if pilot wants to communicate. */
   msg = comm_getString( p, "comm_no" );
   if (msg != NULL) {
      if (comm_commClose==0)
         player_messageRaw( msg );
      return 0;
   }
 
   /* Run generic hail hooks on all pilots. */
   pltstk = pilot_getAll();
   for (int i=0; i<array_size(pltstk); i++)
      ai_hail( pltstk[i] );
 
   /* Close window if necessary. */
   if (comm_commClose) {
      p  = NULL;
      comm_spob = NULL;
      comm_commClose = 0;
      return 0;
   }
 
   /* Set up environment first time. */
   if (comm_env == LUA_NOREF) {
      comm_env = nlua_newEnv();
      nlua_loadStandard( comm_env );
 
      size_t bufsize;
      char *buf = ndata_read( COMM_PATH, &bufsize );
      if (nlua_dobufenv(comm_env, buf, bufsize, COMM_PATH) != 0) {
         WARN( _("Error loading file: %s\n"
             "%s\n"
             "Most likely Lua file has improper syntax, please check"),
               COMM_PATH, lua_tostring(naevL,-1));
         free(buf);
         return -1;
      }
      free(buf);
   }
 
   comm_open = 1;
 
   /* Run Lua. */
   nlua_getenv(naevL, comm_env,"comm");
   lua_pushpilot(naevL, p->id);
   if (nlua_pcall(comm_env, 1, 0)) { /* error has occurred */
      WARN( _("Comm: '%s'"), lua_tostring(naevL,-1));
      lua_pop(naevL,1);
   }
 
   comm_open = 0;
 
   return 0;
}
 
int comm_openSpob( Spob *spob )
{
   /* Must not be disabled. */
   if (!spob_hasService(spob, SPOB_SERVICE_INHABITED)) {
      player_message(_("%s does not respond."), spob_name(spob));
      return 0;
   }
 
   /* Lua stuff. */
   if (spob->lua_comm != LUA_NOREF) {
      comm_open = 1;
      spob_luaInitMem( spob );
      lua_rawgeti(naevL, LUA_REGISTRYINDEX, spob->lua_comm); /* f */
      if (nlua_pcall( spob->lua_env, 0, 0 )) {
         WARN(_("Spob '%s' failed to run '%s':\n%s"), spob->name, "comm", lua_tostring(naevL,-1));
         lua_pop(naevL,1);
      }
      comm_open = 0;
      return 0;
   }
 
   player_message(_("%s does not respond."), spob_name(spob));
   return 0;
}
 
static const char* comm_getString( const Pilot *p, const char *str )
{
   const char *ret;
 
   if (p->ai == NULL)
      return NULL;
 
   /* Get memory table. */
   nlua_getenv(naevL, p->ai->env, "mem");
 
   /* Get str message. */
   lua_getfield(naevL, -1, str );
   if (!lua_isstring(naevL, -1))
      ret = NULL;
   else
      ret = lua_tostring(naevL, -1);
   lua_pop(naevL, 2);
 
   return ret;
}