land.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include "physfs.h"
 
#include "naev.h"
#include "land.h"
 
#include "array.h"
#include "camera.h"
#include "conf.h"
#include "dialogue.h"
#include "economy.h"
#include "equipment.h"
#include "escort.h"
#include "event.h"
#include "gui.h"
#include "gui_omsg.h"
#include "hook.h"
#include "land_outfits.h"
#include "land_shipyard.h"
#include "land_trade.h"
#include "log.h"
#include "map.h"
#include "menu.h"
#include "mission.h"
#include "music.h"
#include "ndata.h"
#include "news.h"
#include "nlua.h"
#include "nlua_tk.h"
#include "nluadef.h"
#include "npc.h"
#include "nstring.h"
#include "ntime.h"
#include "player.h"
#include "player_fleet.h"
#include "rng.h"
#include "render.h"
#include "save.h"
#include "shiplog.h"
#include "toolkit.h"
 
/*
 * we use visited flags to not duplicate missions generated
 */
#define VISITED_LAND          (1<<0) 
#define VISITED_COMMODITY     (1<<1) 
#define VISITED_BAR           (1<<2) 
#define VISITED_OUTFITS       (1<<3) 
#define VISITED_SHIPYARD      (1<<4) 
#define VISITED_EQUIPMENT     (1<<5) 
#define VISITED_MISSION       (1<<6) 
#define visited(f)            (land_visited |= (f)) 
#define has_visited(f)        (land_visited & (f)) 
static unsigned int land_visited = 0; 
/* Which tabs have been generated by their respective open functions. */
unsigned int land_generated = 0;
 
/*
 * land variables
 */
int landed = 0; 
int land_loaded = 0; 
static int land_takeoff = 0; 
static int land_takeoff_nosave = 0; 
unsigned int land_wid = 0; 
static int land_regen = 0; 
static int land_windowsMap[LAND_NUMWINDOWS]; 
static unsigned int *land_windows = NULL; 
Spob* land_spob = NULL; 
static glTexture *gfx_exterior = NULL; 
/*
 * mission computer stack
 */
static Mission* mission_computer = NULL; 
static int mission_ncomputer = 0; 
/*
 * Bar stuff.
 */
static glTexture *mission_portrait = NULL; 
/*
 * player stuff
 */
static int last_window = 0; 
/*
 * Error handling.
 */
static char errorlist[STRMAX_SHORT];
static char errorreason[STRMAX_SHORT];
static int errorappend;
static char *errorlist_ptr;
 
/*
 * Rescue.
 */
static nlua_env rescue_env = LUA_NOREF; 
static void land_stranded (void);
 
/*
 * prototypes
 */
static int land_gc( void *unused );
static int land_hasLocalMap (void);
static void land_createMainTab( unsigned int wid );
static void land_setupTabs (void);
static void land_cleanupWindow( unsigned int wid, const char *name );
static void land_changeTab( unsigned int wid, const char *wgt, int old, int tab );
/* spaceport bar */
static void bar_getDim( int wid, int *w, int *h, int *iw, int *ih, int *bw, int *bh );
static void bar_open( unsigned int wid );
static int bar_genList( unsigned int wid );
static void bar_update( unsigned int wid, const char *str );
static void bar_close( unsigned int wid, const char *str );
static void bar_approach( unsigned int wid, const char *str );
static int news_load (void);
/* mission computer */
static void misn_open( unsigned int wid );
static void misn_autonav( unsigned int wid, const char *str );
static void misn_accept( unsigned int wid, const char *str );
static void misn_genList( unsigned int wid, int first );
static void misn_update( unsigned int wid, const char *str );
 
void land_queueTakeoff (void)
{
   land_takeoff = 1;
   land_takeoff_nosave = player_isFlag(PLAYER_NOSAVE);
}
 
void land_needsTakeoff( int delay )
{
   if (land_takeoff)
      takeoff( delay, land_takeoff_nosave );
}
 
/* Maps are only offered if the spob provides fuel. */
static int land_hasLocalMap (void)
{
   if (!spob_hasService( land_spob, SPOB_SERVICE_REFUEL ))
      return 0;
   return 1;
}
 
int land_canSave (void)
{
   /* Overrided case. */
   if (player_isFlag( PLAYER_NOSAVE ))
      return 0;
 
   /* If the current landed planet is refuelable, no need to check if can land. */
   if ((land_spob!=NULL) && spob_hasService(land_spob,SPOB_SERVICE_REFUEL))
      return 1;
 
   /* For other places we'll have to see if can land. */
   for (int i=0; i<array_size(cur_system->spobs); i++) {
      Spob *p = cur_system->spobs[i];
      spob_updateLand( p );
      if (spob_hasService(p,SPOB_SERVICE_REFUEL) && p->can_land)
         return 1;
   }
   return 0;
}
 
int land_doneLoading (void)
{
   if (landed && land_loaded)
      return 1;
   return 0;
}
 
void land_errClear (void)
{
   errorlist_ptr = NULL; /* Clear errors. */
}
 
void land_errDialogueBuild( const char *fmt, ... )
{
   va_list ap;
 
   if (fmt == NULL)
      return;
   va_start(ap, fmt);
   vsnprintf(errorreason, sizeof(errorreason), fmt, ap);
   va_end(ap);
 
   if (errorlist_ptr == NULL) /* Initialize on first run. */
      errorappend = scnprintf( errorlist, sizeof(errorlist), "%s", errorreason );
   else /* Append newest error to the existing list. */
      scnprintf( &errorlist[errorappend],  sizeof(errorlist)-errorappend, "\n%s", errorreason );
   errorlist_ptr = errorlist;
}
 
int land_errDisplay (void)
{
   if (errorlist_ptr != NULL) {
      dialogue_alert( "%s", errorlist );
      return 1;
   }
   return 0;
}
 
static void bar_getDim( int wid,
      int *w, int *h, int *iw, int *ih, int *bw, int *bh )
{
   /* Get window dimensions. */
   window_dimWindow( wid, w, h );
 
   /* Calculate dimensions of portraits. */
   *iw = 704 + (*w - LAND_WIDTH);
   *ih = *h - 60;
 
   /* Calculate button dimensions. */
   *bw = (*w - *iw - 80)/2;
   *bh = LAND_BUTTON_HEIGHT;
}
static void bar_open( unsigned int wid )
{
   int w, h, iw, ih, bw, bh, dh, th;
   const char *desc;
 
   /* Mark as generated. */
   land_tabGenerate(LAND_WINDOW_BAR);
 
   /* Set window functions. */
   window_onClose( wid, bar_close );
 
   /* Get dimensions. */
   desc = (land_spob->bar_description!=NULL) ? _(land_spob->bar_description) : "(NULL)";
   bar_getDim( wid, &w, &h, &iw, &ih, &bw, &bh );
   dh = gl_printHeightRaw( &gl_defFont, w - iw - 60, desc );
 
   /* Approach when pressing enter */
   window_setAccept( wid, bar_approach );
 
   /* Buttons */
   window_addButtonKey( wid, -20, 20,
         bw, bh, "btnCloseBar",
         _("Take Off"), land_buttonTakeoff, SDLK_t );
   window_addButtonKey( wid, -20 - bw - 20, 20,
         bw, bh, "btnApproach",
         p_("bar", "Approach"), bar_approach, SDLK_a );
 
   /* Bar description. */
   window_addText( wid, iw + 40, -40, w - iw - 60, dh, 0,
         "txtDescription", &gl_defFont, NULL, desc );
 
   /* Add portrait text. */
   th = -40 - dh - 40;
   window_addText( wid, iw + 40, th,
         w - iw - 60, gl_defFont.h, 1,
         "txtPortrait", &gl_defFont, NULL, NULL );
 
   /* Add mission description text. */
   th -= 20 + PORTRAIT_HEIGHT + 20 + 20;
   window_addText( wid, iw + 60, th,
         w - iw - 100, h + th - (2*bh+60), 0,
         "txtMission", &gl_defFont, NULL, NULL );
 
   /* Generate the mission list. */
   bar_genList( wid );
}
 
static int bar_genList( unsigned int wid )
{
   ImageArrayCell *portraits;
   int w, h, iw, ih, bw, bh;
   int n, pos;
 
   /* Validity check. */
   if (wid == 0)
      return 0;
 
   /* Get dimensions. */
   bar_getDim( wid, &w, &h, &iw, &ih, &bw, &bh );
 
   /* Destroy widget if already exists. */
   if (widget_exists( wid, "iarMissions" )) {
      /* Store position. */
      pos = toolkit_getImageArrayPos( wid, "iarMissions" );
 
      window_destroyWidget( wid, "iarMissions" );
   }
   else
      pos = -1;
 
   /* We sort just in case. */
   npc_sort();
 
   /* Set up missions. */
   if (mission_portrait == NULL)
      mission_portrait = gl_newImage( PORTRAIT_GFX_PATH"news.webp", 0 );
   n = npc_getArraySize();
   if (n <= 0) {
      n            = 1;
      portraits    = calloc(1, sizeof(ImageArrayCell));
      portraits[0].image = gl_dupTexture(mission_portrait);
      portraits[0].caption = strdup(_("News"));
   }
   else {
      n            = n+1;
      portraits    = calloc(n, sizeof(ImageArrayCell));
      portraits[0].image = gl_dupTexture(mission_portrait);
      portraits[0].caption = strdup(_("News"));
      for (int i=0; i<npc_getArraySize(); i++) {
         ImageArrayCell *p = &portraits[i+1];
         const glTexture *bg = npc_getBackground(i);
         p->caption = strdup( npc_getName(i) );
         if (bg!=NULL) {
            p->image = gl_dupTexture( bg );
            p->layers = gl_addTexArray( p->layers, gl_dupTexture( npc_getTexture(i) ) );
         }
         else
            p->image = gl_dupTexture( npc_getTexture(i) );
         if (npc_isImportant(i))
            p->layers = gl_addTexArray( p->layers, gl_newImage( OVERLAY_GFX_PATH"portrait_exclamation.webp", 0 ) );
      }
   }
   window_addImageArray( wid, 20, -40,
         iw, ih, "iarMissions", 128, 96,
         portraits, n, bar_update, bar_approach, bar_approach );
 
   /* Restore position. */
   toolkit_setImageArrayPos( wid, "iarMissions", pos );
 
   /* write the outfits stuff */
   bar_update( wid, NULL );
 
   /* Set default keyboard focus. */
   window_setFocus( wid, "iarMissions" );
 
   return 0;
}
void bar_regen (void)
{
   if (!landed)
      return;
   if (!land_loaded)
      return;
   bar_genList( land_getWid(LAND_WINDOW_BAR) );
}
static void bar_update( unsigned int wid, const char *str )
{
   (void) str;
   int pos;
   int w, h, iw, ih, bw, bh, dh;
 
   /* Get dimensions. */
   bar_getDim( wid, &w, &h, &iw, &ih, &bw, &bh );
   dh = gl_printHeightRaw( &gl_defFont, w - iw - 60, _(land_spob->bar_description) );
 
   /* Get array. */
   pos = toolkit_getImageArrayPos( wid, "iarMissions" );
 
   /* See if is news. */
   if (pos==0) { /* News selected. */
      /* Destroy news widget if needed. */
      if (widget_exists(wid, "cstNews"))
         window_destroyWidget( wid, "cstNews" );
 
      /* Destroy portrait. */
      if (widget_exists(wid, "imgPortrait"))
         window_destroyWidget(wid, "imgPortrait");
      if (widget_exists(wid, "imgPortraitBG"))
         window_destroyWidget(wid, "imgPortraitBG");
 
      /* Disable button. */
      window_disableButton( wid, "btnApproach" );
 
      /* Clear text. */
      window_modifyText(  wid, "txtPortrait", NULL );
      window_modifyText(  wid, "txtMission",  NULL );
 
      /* Create news. */
      news_widget( wid, iw + 60, -40 - (40 + dh),
            w - iw - 100, h - 40 - (dh+20) - 40 - bh - 20 );
      return;
   }
 
   /* Shift to ignore news now. */
   pos--;
 
   /* Destroy news widget if needed. */
   if (widget_exists(wid, "cstNews"))
      window_destroyWidget( wid, "cstNews" );
 
   /* Create widgets if needed. */
   if (!widget_exists(wid, "imgPortraitBG")) /* Must be first */
      window_addImage( wid, iw + 40 + (w-iw-60-PORTRAIT_WIDTH)/2,
            -(40 + dh + 40 + gl_defFont.h + 20 + PORTRAIT_HEIGHT),
            0, 0, "imgPortraitBG", NULL, 1 );
   if (!widget_exists(wid, "imgPortrait"))
      window_addImage( wid, iw + 40 + (w-iw-60-PORTRAIT_WIDTH)/2,
            -(40 + dh + 40 + gl_defFont.h + 20 + PORTRAIT_HEIGHT),
            0, 0, "imgPortrait", NULL, 1 );
 
   /* Enable button. */
   window_enableButton( wid, "btnApproach" );
 
   /* Set portrait. */
   window_modifyText(  wid, "txtPortrait", npc_getName( pos ) );
   window_modifyImage( wid, "imgPortrait", npc_getTexture( pos ),
         PORTRAIT_WIDTH, PORTRAIT_HEIGHT );
   window_modifyImage( wid, "imgPortraitBG", npc_getBackground( pos ),
         PORTRAIT_WIDTH, PORTRAIT_HEIGHT );
 
   /* Set mission description. */
   window_modifyText(  wid, "txtMission", npc_getDesc( pos ));
}
static void bar_close( unsigned int wid, const char *name )
{
   (void) wid;
   (void) name;
 
   /* Must not be regenerating. */
   if (land_regen) {
      land_regen--;
      return;
   }
 
   gl_freeTexture(mission_portrait);
   mission_portrait = NULL;
}
static void bar_approach( unsigned int wid, const char *str )
{
   (void) str;
   int pos, n;
 
   /* Get position. */
   pos = toolkit_getImageArrayPos( wid, "iarMissions" );
 
   /* Should never happen, but in case news is selected */
   if (pos == 0)
      return;
 
   /* Ignore news. */
   pos--;
 
   n = npc_getArraySize();
   npc_approach( pos );
   /* This check is necessary if the player quits the game in the middle of an NPC approach. */
   if (land_spob==NULL)
      return;
   bar_genList( wid ); /* Always just in case. */
 
   /* Focus the news if the number of NPCs has changed. */
   if (n != npc_getArraySize())
      toolkit_setImageArrayPos( wid, "iarMissions", 0 );
 
   /* Reset markers. */
   mission_sysMark();
 
   /* Mission forced take off. */
   land_needsTakeoff( 0 );
}
static int news_load (void)
{
   generate_news(land_spob->presence.faction);
   return 0;
}
 
 
static void misn_open( unsigned int wid )
{
   int w,h, y;
 
   /* Mark as generated. */
   land_tabGenerate(LAND_WINDOW_MISSION);
 
   /* Get window dimensions. */
   window_dimWindow( wid, &w, &h );
 
   /* buttons */
   window_addButtonKey( wid, -20, 20,
         LAND_BUTTON_WIDTH,LAND_BUTTON_HEIGHT, "btnCloseMission",
         _("Take Off"), land_buttonTakeoff, SDLK_t );
   window_addButtonKey( wid, -20, 40+LAND_BUTTON_HEIGHT,
         LAND_BUTTON_WIDTH,LAND_BUTTON_HEIGHT, "btnAcceptMission",
         _("Accept Mission"), misn_accept, SDLK_a );
   window_addButtonKey( wid, -20, 60+2*LAND_BUTTON_HEIGHT,
         LAND_BUTTON_WIDTH,LAND_BUTTON_HEIGHT, "btnAutonavMission",
         _("Autonav"), misn_autonav, SDLK_n );
 
   /* text */
   y = -60;
   window_addText( wid, w/2 + 10, y,
         w/2 - 30, 40, 0,
         "txtSDate", NULL, &cFontGrey,
         _("Date:\n"
         "Free Space:"));
   window_addText( wid, w/2 + 110, y,
         w/2 - 130, 40, 0,
         "txtDate", NULL, NULL, NULL );
   y -= 2 * gl_defFont.h + 30;
   window_addText( wid, w/2 + 10, y,
         w/2 - 30, 50, 0,
         "txtHeader", &gl_defFont, NULL, NULL );
   y -= 50;
   window_addText( wid, w/2 + 10, y,
         w/2 - 30, y - 40 + h - 2*LAND_BUTTON_HEIGHT, 0,
         "txtDesc", &gl_defFont, NULL, NULL );
 
   /* map */
   map_show( wid, 20, 20, w/2 - 30, h/2 - 35, 0.75, 0., 0. );
 
   misn_genList(wid, 1);
   space_clearComputerMarkers(); /* Don't want markers at the beginning. */
}
static void misn_autonav( unsigned int wid, const char *str )
{
   Mission* misn;
   const StarSystem *sys;
   (void) str;
 
   /* Makes sure current mission has system */
   misn = &mission_computer[ toolkit_getListPos( wid, "lstMission" ) ];
   sys = mission_sysComputerMark( misn );
   if (sys==NULL)
      return;
 
   /* Select mission's target system */
   map_select( sys,0 );
 
   /* Autonav to target system */
   player_hyperspacePreempt( 1 );
   player_autonavStart();
}
static void misn_accept( unsigned int wid, const char *str )
{
   (void) str;
   const char *misn_name = toolkit_getList( wid, "lstMission" );
 
   /* Make sure you have missions. */
   if (strcmp(misn_name,_("No Missions"))==0)
      return;
 
   if (dialogue_YesNo( _("Accept Mission"),
         _("Are you sure you want to accept this mission?"))) {
      int changed = 0;
      int pos = toolkit_getListPos( wid, "lstMission" );
      Mission *misn = &mission_computer[pos];
      int ret = mission_accept( misn );
      if (ret==-1) { /* Errored out. */
         mission_cleanup( &mission_computer[pos] );
         changed = 1;
      }
      if ((ret==2) || (ret==3)) /* Deleted or accepted. */
         changed = 1;
 
      if (changed) {
         memmove( &mission_computer[pos], &mission_computer[pos+1],
               sizeof(Mission) * (mission_ncomputer-pos-1) );
         mission_ncomputer--;
 
         /* Regenerate list. */
         misn_genList(wid, 0);
         /* Add position persistancey after a mission has been accepted */
         /* NOTE: toolkit_setListPos protects us from a bad position by clamping */
         toolkit_setListPos( wid, "lstMission", pos-1 ); /*looks better without the -1, makes more sense with*/
      }
 
      /* Reset markers. */
      mission_sysMark();
   }
}
static void misn_genList( unsigned int wid, int first )
{
   char** misn_names;
   int j, w,h;
 
   if (!first)
      window_destroyWidget( wid, "lstMission" );
 
   /* Get window dimensions. */
   window_dimWindow( wid, &w, &h );
 
   /* list */
   j = 1; /* make sure we don't accidentally free the memory twice. */
   misn_names = NULL;
   if (mission_ncomputer > 0) { /* there are missions */
      misn_names = malloc(sizeof(char*) * mission_ncomputer);
      j = 0;
      for (int i=0; i<mission_ncomputer; i++)
         if (mission_computer[i].title != NULL)
            misn_names[j++] = strdup(mission_computer[i].title);
   }
   if ((misn_names==NULL) || (mission_ncomputer==0) || (j==0)) { /* no missions. */
      if (j==0)
         free(misn_names);
      misn_names = malloc(sizeof(char*));
      misn_names[0] = strdup(_("No Missions"));
      j = 1;
   }
   window_addList( wid, 20, -40,
         w/2 - 30, h/2 - 35,
         "lstMission", misn_names, j, 0, misn_update, misn_accept );
 
   /* Set default keyboard focus. */
   window_setFocus( wid, "lstMission" );
}
static void misn_update( unsigned int wid, const char *str )
{
   (void) str;
   const char *active_misn;
   Mission* misn;
   const StarSystem *sys;
   char txt[STRMAX_SHORT], *buf;
 
   /* Clear computer markers. */
   space_clearComputerMarkers();
 
   /* Update date stuff. */
   buf = ntime_pretty( 0, 2 );
   snprintf( txt, sizeof(txt), n_(
            "%s\n%d Tonne", "%s\n%d Tonnes", player.p->cargo_free),
         buf, player.p->cargo_free );
   free(buf);
   window_modifyText( wid, "txtDate", txt );
 
   active_misn = toolkit_getList( wid, "lstMission" );
   if (strcmp(active_misn,_("No Missions"))==0) {
      window_modifyText( wid, "txtHeader", NULL );
      window_modifyText( wid, "txtDesc",
            _("There are no missions available here.") );
      window_disableButton( wid, "btnAcceptMission" );
      window_disableButton( wid, "btnAutonavMission" );
      return;
   }
 
   misn = &mission_computer[ toolkit_getListPos( wid, "lstMission" ) ];
   sys = mission_sysComputerMark( misn );
   if (sys!=NULL)
      map_center( wid, sys->name );
   snprintf( txt, sizeof(txt), _("%s\n#nReward:#0 %s"), misn->title, misn->reward );
   window_modifyText( wid, "txtHeader", txt );
   window_modifyText( wid, "txtDesc", misn->desc );
   window_enableButton( wid, "btnAcceptMission" );
   window_enableButton( wid, "btnAutonavMission" );
}
 
void land_refuel (void)
{
   unsigned int w;
 
   /* Full fuel. */
   if (player.p->fuel >= player.p->fuel_max)
      return;
 
   /* No refuel service. */
   if (!spob_hasService(land_spob, SPOB_SERVICE_REFUEL))
      return;
 
   player.p->fuel = player.p->fuel_max;
 
   w = land_getWid( LAND_WINDOW_EQUIPMENT );
   if (w > 0)
      equipment_updateShips( w, NULL ); /* Must update counter. */
}
 
static void spaceport_buyMap( unsigned int wid, const char *str )
{
   (void) wid;
   (void) str;
   const Outfit *o = outfit_get( LOCAL_MAP_NAME );
   unsigned int w;
 
   if (o == NULL) {
      WARN( _("Outfit '%s' does not exist!"), LOCAL_MAP_NAME);
      return;
   }
 
   /* Make sure the map isn't already known, etc. */
   if (!outfit_canBuy( o, -1 )) {
      land_errDisplay();
      return;
   }
 
   player_modCredits( -o->price );
   player_addOutfit(o, 1);
 
   /* Disable the button. */
   window_disableButtonSoft( land_windows[0], "btnMap" );
 
   /* Update map quantity in outfitter. */
   w = land_getWid( LAND_WINDOW_OUTFITS );
   if (w > 0)
      outfits_regenList( w, NULL );
 
   /* Update main tab. */
   land_updateMainTab();
}
 
void land_updateMainTab (void)
{
   char buf[STRMAX], cred[ECON_CRED_STRLEN], tons[STRMAX_SHORT];
   size_t l = 0;
   const Outfit *o;
 
   /* Update credits. */
   tonnes2str( tons, player.p->cargo_free );
   credits2str( cred, player.p->credits, 2 );
   l += scnprintf( &buf[l], sizeof(buf)-l, _("%s (%s system)"), spob_name(land_spob), _(cur_system->name) );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n" );
   l += scnprintf( &buf[l], sizeof(buf)-l, _("%s (%s-class)"), spob_getClassName(land_spob->class), _(land_spob->class) );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s",
         land_spob->presence.faction >= 0 ? _(faction_name(land_spob->presence.faction)) : _("None") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", space_populationStr( land_spob ) );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n\n%s", tons );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", cred );
   /* Show tags. */
   if (conf.devmode) {
      l += scnprintf( &buf[l], sizeof(buf)-l, "\n" );
      for (int i=0; i<array_size(land_spob->tags); i++)
         l += scnprintf( &buf[l], sizeof(buf)-l, "%s%s", ((i>0) ? ", " : ""), land_spob->tags[i] );
   }
 
   window_modifyText( land_windows[0], "txtDInfo", buf );
 
   /* Make sure maps are available. */
   if (!land_hasLocalMap())
      return;
 
   o = outfit_get( LOCAL_MAP_NAME );
   if (o == NULL) {
      WARN( _("Outfit '%s' does not exist!"), LOCAL_MAP_NAME);
      return;
   }
 
   /* Just enable button if it exists. */
   if (widget_exists( land_windows[0], "btnMap" ))
      window_enableButton( land_windows[0], "btnMap");
   /* Else create it. */
   else {
      /* Buy local map button. */
      credits2str( cred, o->price, 0 );
      snprintf( buf, sizeof(buf), _("Buy Local Map (%s)"), cred );
      window_addButtonKey( land_windows[0], -20, 20 + (LAND_BUTTON_HEIGHT + 20),
            LAND_BUTTON_WIDTH, LAND_BUTTON_HEIGHT, "btnMap",
            buf, spaceport_buyMap, SDLK_b );
   }
 
   /* Make sure player can click it. */
   if (!outfit_canBuy( o, -1 ))
      window_disableButtonSoft( land_windows[0], "btnMap" );
}
 
void land_buttonTakeoff( unsigned int wid, const char *unused )
{
   (void) wid;
   (void) unused;
   /* We'll want the time delay. */
   takeoff( 1, player_isFlag(PLAYER_NOSAVE) );
}
 
static void land_cleanupWindow( unsigned int wid, const char *name )
{
   (void) wid;
   (void) name;
 
   /* Must not be regenerating. */
   if (land_regen) {
      land_regen--;
      return;
   }
 
   /* Clean up possible stray graphic. */
   if (gfx_exterior != NULL) {
      gl_freeTexture( gfx_exterior );
      gfx_exterior = NULL;
   }
}
 
unsigned int land_getWid( int window )
{
   if (land_windowsMap[window] == -1)
      return 0;
   return land_windows[ land_windowsMap[window] ];
}
 
static void land_setupTabs (void)
{
   int j;
   const char *names[LAND_NUMWINDOWS];
 
   /* Destroy if exists. */
   if (widget_exists( land_wid, "tabLand" ))
      window_destroyWidget( land_wid, "tabLand" );
 
   /* Set window map to invalid. */
   for (int i=0; i<LAND_NUMWINDOWS; i++)
      land_windowsMap[i] = -1;
 
   /* See what is available. */
   j = 0;
   /* Main. */
   land_windowsMap[LAND_WINDOW_MAIN] = j;
   names[j++] = _("Landing Main");
   /* Bar. */
   if (spob_hasService(land_spob, SPOB_SERVICE_BAR)) {
      land_windowsMap[LAND_WINDOW_BAR] = j;
      names[j++] = _("Spaceport Bar");
   }
   /* Missions. */
   if (spob_hasService(land_spob, SPOB_SERVICE_MISSIONS)) {
      land_windowsMap[LAND_WINDOW_MISSION] = j;
      names[j++] = _("Missions");
   }
   /* Outfits. */
   if (spob_hasService(land_spob, SPOB_SERVICE_OUTFITS)) {
      land_windowsMap[LAND_WINDOW_OUTFITS] = j;
      names[j++] = _("Outfits");
   }
   /* Shipyard. */
   if (spob_hasService(land_spob, SPOB_SERVICE_SHIPYARD)) {
      land_windowsMap[LAND_WINDOW_SHIPYARD] = j;
      names[j++] = _("Shipyard");
   }
   /* Equipment. */
   if (spob_hasService(land_spob, SPOB_SERVICE_OUTFITS) ||
         spob_hasService(land_spob, SPOB_SERVICE_SHIPYARD)) {
      land_windowsMap[LAND_WINDOW_EQUIPMENT] = j;
      names[j++] = p_("service", "Equipment");
   }
   /* Commodity. */
   if (spob_hasService(land_spob, SPOB_SERVICE_COMMODITY)) {
      land_windowsMap[LAND_WINDOW_COMMODITY] = j;
      names[j++] = _("Commodity");
   }
 
   land_windows = window_addTabbedWindow( land_wid, -1, -1, -1, -1, "tabLand", j, names, 0 );
}
 
void land_genWindows( int load )
{
   int w, h;
   Spob *p;
   int regen;
   unsigned int pntservices;
 
   /* Destroy old window if exists. */
   if (land_wid > 0) {
      land_regen = 2; /* Mark we're regenning. */
      window_destroy( land_wid );
 
      /* Mark tabs as not generated. */
      land_generated = 0;
   }
   land_loaded = 0;
 
   /* Get spob. */
   p     = land_spob;
   regen = landed;
   pntservices = p->services;
 
   /* Create window. */
   if (SCREEN_W < LAND_WIDTH || SCREEN_H < LAND_HEIGHT) {
      w = -1; /* Fullscreen. */
      h = -1;
   }
   else {
      w = LAND_WIDTH + 0.5 * (SCREEN_W - LAND_WIDTH);
      h = LAND_HEIGHT + 0.5 * (SCREEN_H - LAND_HEIGHT);
   }
   land_wid = window_create( "wdwLand", spob_name(p), -1, -1, w, h );
   window_onClose( land_wid, land_cleanupWindow );
 
   /* Create tabbed window. */
   land_setupTabs();
 
   /*
    * Order here is very important:
    *
    *  1) Create main tab - must have decent background.
    *  2) Set landed, play music and run land hooks - so hooks run well.
    *  3) Generate missions - so that campaigns are fluid.
    *  4) Create other tabs - lists depend on NPC and missions.
    */
   /* 1) Create main tab. */
   land_createMainTab( land_getWid(LAND_WINDOW_MAIN) );
 
   /* Add local system map button. */
   land_updateMainTab();
 
   /* 2) Set as landed and run hooks. */
   if (!regen) {
      landed = 1;
      music_choose("land"); /* Must be before hooks in case hooks change music. */
 
      /* We don't run the "land" hook when loading. If you want to have it do stuff when loading, use the "load" hook.
       * Note that you can use the same function for both hooks. */
      if (!load)
         hooks_run("land");
      else
         hooks_run("load"); /* Should be run before generating missions, so if the load hook cancels a mission, it can reappear. */
      events_trigger( EVENT_TRIGGER_LAND );
 
      /* An event, hook or the likes made Naev quit. */
      if (naev_isQuit())
         return;
 
      /* Make sure services didn't change or we have to do the tab window. */
      if (land_spob->services != pntservices) {
         land_setupTabs();
         land_createMainTab( land_getWid(LAND_WINDOW_MAIN) );
         land_updateMainTab();
      }
 
      /* 3) Generate computer and bar missions. */
      /* Generate bar missions first for claims. */
      if (spob_hasService(land_spob, SPOB_SERVICE_BAR))
         npc_generateMissions(); /* Generate bar npc. */
      if (spob_hasService(land_spob, SPOB_SERVICE_MISSIONS))
         mission_computer = missions_genList( &mission_ncomputer,
               land_spob->presence.faction, land_spob, cur_system,
               MIS_AVAIL_COMPUTER );
   }
 
   /* 4) Create other tabs. */
#define should_open(s, w) \
   (spob_hasService(land_spob, s) && (!land_tabGenerated(w)))
 
   /* Things get a bit hairy here. Hooks may have triggered a GUI reload via
    * e.g. player.swapShip, so the land tabs may have been generated already
    * and we need to check that before regenerating them.
    */
 
   /* Basic - bar + missions */
   if (should_open( SPOB_SERVICE_BAR, LAND_WINDOW_BAR ))
      bar_open( land_getWid(LAND_WINDOW_BAR) );
   if (should_open( SPOB_SERVICE_MISSIONS, LAND_WINDOW_MISSION ))
      misn_open( land_getWid(LAND_WINDOW_MISSION) );
   /* Outfits. */
   if (should_open( SPOB_SERVICE_OUTFITS, LAND_WINDOW_OUTFITS ))
      outfits_open( land_getWid(LAND_WINDOW_OUTFITS), NULL, spob_hasService(land_spob, SPOB_SERVICE_BLACKMARKET) );
   /* Shipyard. */
   if (should_open( SPOB_SERVICE_SHIPYARD, LAND_WINDOW_SHIPYARD ))
      shipyard_open( land_getWid(LAND_WINDOW_SHIPYARD) );
   /* Equipment. */
   if ((spob_hasService(land_spob, SPOB_SERVICE_OUTFITS) ||
         spob_hasService(land_spob, SPOB_SERVICE_SHIPYARD)) &&
         !land_tabGenerated( LAND_WINDOW_EQUIPMENT ))
      equipment_open( land_getWid(LAND_WINDOW_EQUIPMENT) );
   /* Commodity. */
   if (should_open( SPOB_SERVICE_COMMODITY, LAND_WINDOW_COMMODITY ))
      commodity_exchange_open( land_getWid(LAND_WINDOW_COMMODITY) );
#undef should_open
 
   if (!regen) {
      /* Reset markers if needed. */
      mission_sysMark();
 
      /* Check land missions. */
      if (!has_visited(VISITED_LAND)) {
         missions_run(MIS_AVAIL_LAND, land_spob->presence.faction,
               land_spob, cur_system);
         visited(VISITED_LAND);
      }
   }
 
   /* Go to last open tab. */
   window_tabWinOnChange( land_wid, "tabLand", land_changeTab );
   if (!land_takeoff && land_windowsMap[ last_window ] != -1)
      window_tabWinSetActive( land_wid, "tabLand", land_windowsMap[ last_window ] );
 
   /* Refresh the map button in case the player couldn't afford it prior to
    * mission payment. */
   land_updateMainTab();
 
   /* Refuel if necessary. */
   land_refuel();
 
   /* Finished loading. */
   land_loaded = 1;
 
   /* Necessary if player.land() was run in an abort() function. */
   if (!load)
      window_lower( land_wid );
}
 
int land_setWindow( int window )
{
   if (land_windowsMap[ window ] < 0)
      return -1;
   last_window = window;
   window_tabWinSetActive( land_wid, "tabLand", land_windowsMap[window] );
   return 0;
}
 
void land( Spob* p, int load )
{
   /* Do not land twice. */
   if (landed)
      return;
 
   /* Incrcement times player landed. */
   if (!load) {
      player.landed_times++;
      player.ps.landed_times++;
   }
 
   /* Clear some unnecessary flags. */
   pilot_rmFlag( player.p, PILOT_COOLDOWN_BRAKE);
   pilot_rmFlag( player.p, PILOT_COOLDOWN );
 
   /* Resets the player's heat. */
   pilot_heatReset( player.p );
 
   /* Heal the player so GUI shows player at full everything. */
   pilot_healLanded( player.p );
 
   player_addEscorts(); /* TODO only regenerate fleet if planet has a shipyard */
 
   /* Stop player sounds. */
   player_soundStop();
 
   /* Clear message stuff. */
   free( player.p->comm_msg );
   player.p->comm_msg = NULL;
 
   /* Clear some target stuff. */
   player.p->nav_spob = -1;
   gui_setNav();
 
   /* Load stuff */
   land_spob = p;
   gfx_exterior = gl_newImage( p->gfx_exterior, 0 );
 
   /* Run outfits as necessary. */
   pilot_outfitLOnland( player.p );
 
   /* Generate the news. */
   if (spob_hasService(land_spob, SPOB_SERVICE_BAR))
      news_load();
 
   /* Average economy prices that player has seen */
   economy_averageSeenPrices( p );
 
   /* Clear the NPC. */
   npc_clear();
 
   /* Create all the windows. */
   land_genWindows( load );
 
   /* Just in case? */
   bar_regen();
 
   /* Do a lua collection pass. Run in a hook since land can be called indirectly from Lua. */
   hook_addFunc( land_gc, NULL, "safe" );
 
   /* Mission forced take off. */
   land_needsTakeoff( 0 );
}
 
static int land_gc( void *unused )
{
   (void) unused;
   lua_gc( naevL, LUA_GCCOLLECT, 0 );
   return 0;
}
 
static void land_createMainTab( unsigned int wid )
{
   int offset;
   int w, h, y, th;
   char buf[STRMAX_SHORT];
   size_t l = 0;
 
   /* Get window dimensions. */
   window_dimWindow( wid, &w, &h );
 
   /*
    * Faction logo.
    */
   offset = 20;
   if (land_spob->presence.faction != -1) {
      const glTexture *logo = faction_logo(land_spob->presence.faction);
      if (logo != NULL) {
         int logow = logo->w * (double)FACTION_LOGO_SM / MAX( logo->w, logo->h );
         int logoh = logo->h * (double)FACTION_LOGO_SM / MAX( logo->w, logo->h );
         window_addImage( wid, 440 + (w-460-logow)/2, -20,
               logow, logoh, "imgFaction", logo, 0 );
         offset += FACTION_LOGO_SM;
      }
   }
 
   /*
    * Pretty display.
    */
   window_addImage( wid, 20, -40, 400, 400, "imgSpob", gfx_exterior, 1 );
   if (land_spob->description != NULL)
      window_addText( wid, 440, -20-offset,
            w-460, h-20-offset-60-LAND_BUTTON_HEIGHT*2, 0,
            "txtSpobDesc", &gl_defFont, NULL, _(land_spob->description) );
 
   /* Player stats. */
   l += scnprintf( &buf[l], sizeof(buf)-l, "#n%s", _("Stationed at:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Class:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Faction:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Population:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n\n%s", _("Free Space:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Money:") );
   if (conf.devmode)
      l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Tags:") );
   th = gl_printHeightRaw( &gl_defFont, 200, buf );
   window_addText( wid, 20, 20, 200, th,
         0, "txtSInfo", &gl_defFont, NULL, buf );
   window_addText( wid, 20+120, 20, w - 20 - (20+200) - LAND_BUTTON_WIDTH,
         th, 0, "txtDInfo", &gl_defFont, NULL, NULL );
 
   /*
    * buttons
    */
   /* first column */
   window_addButtonKey( wid, -20, 20,
         LAND_BUTTON_WIDTH, LAND_BUTTON_HEIGHT, "btnTakeoff",
         _("Take Off"), land_buttonTakeoff, SDLK_t );
 
   /* Additional notices if necessary. */
   l = 0;
   buf[0] = '\0';
   y = 20 + (LAND_BUTTON_HEIGHT + 20) + 20;
   if (land_hasLocalMap())
      y += LAND_BUTTON_HEIGHT + 20;
   /* Add "no refueling" notice if needed. */
   if (!spob_hasService(land_spob, SPOB_SERVICE_REFUEL))
      l += scnprintf( &buf[l], sizeof(buf)-l, _("No refueling services.") );
   if (!land_canSave()) {
      if (l > 0)
         l += scnprintf( &buf[l], sizeof(buf)-l, "\n" );
      l += scnprintf( &buf[l], sizeof(buf)-l, "#r%s#0", _("Game will not be saved.") );
   }
   if (l>0) {
      th = gl_printHeightRaw( &gl_defFont, 200, buf );
      window_addText( land_windows[0], -20, y, 200, th, 0,
            "txtPlayer", &gl_defFont, NULL, buf );
   }
}
 
static void land_changeTab( unsigned int wid, const char *wgt, int old, int tab )
{
   (void) wid;
   (void) wgt;
   (void) old;
   unsigned int w;
   /* Safe defaults. */
   const char *torun_hook = NULL;
   unsigned int to_visit = 0;
 
   /* Clear markers when not open. */
   if (last_window == LAND_WINDOW_MISSION)
      space_clearComputerMarkers();
 
   /* Find what switched. */
   for (int i=0; i<LAND_NUMWINDOWS; i++) {
      if (land_windowsMap[i] != tab)
         continue;
      last_window = i;
      w = land_getWid( i );
 
      /* Must regenerate outfits. */
      switch (i) {
         case LAND_WINDOW_MAIN:
            land_updateMainTab();
            break;
         case LAND_WINDOW_OUTFITS:
            outfits_update( w, NULL );
            to_visit   = VISITED_OUTFITS;
            torun_hook = "outfits";
            break;
         case LAND_WINDOW_SHIPYARD:
            shipyard_update( w, NULL );
            to_visit   = VISITED_SHIPYARD;
            torun_hook = "shipyard";
            break;
         case LAND_WINDOW_BAR:
            bar_update( w, NULL );
            to_visit   = VISITED_BAR;
            torun_hook = "bar";
            break;
         case LAND_WINDOW_MISSION:
            misn_update( w, NULL );
            to_visit   = VISITED_MISSION;
            torun_hook = "mission";
            break;
         case LAND_WINDOW_COMMODITY:
            commodity_update( w, NULL );
            to_visit   = VISITED_COMMODITY;
            torun_hook = "commodity";
            break;
         case LAND_WINDOW_EQUIPMENT:
            equipment_updateShips( w, NULL );
            equipment_updateOutfits( w, NULL );
            to_visit   = VISITED_EQUIPMENT;
            torun_hook = "equipment";
            break;
 
         default:
            break;
      }
 
      /* Clear markers if closing Mission Computer. */
      if (i != LAND_WINDOW_MISSION)
         space_clearComputerMarkers();
 
      break;
   }
 
   /* Check land missions - always run hooks. */
   /*if ((to_visit != 0) && !has_visited(to_visit)) {*/
   {
      /* Run hooks, run after music in case hook wants to change music. */
      if (torun_hook != NULL)
         if (hooks_run( torun_hook ) > 0)
            bar_genList( land_getWid(LAND_WINDOW_BAR) );
 
      visited(to_visit);
 
      if (land_loaded)
         land_needsTakeoff( 1 );
   }
}
 
void takeoff( int delay, int nosave )
{
   int h;
   char *nt;
   double a, r;
 
   if (!landed)
      return;
 
   /* Check to see if player fleet is ok. */
   if (player.fleet_capacity > 0) {
      char badfleet_ships[STRMAX_SHORT];
      int l = 0;
      int badfleet = 0;
      int nships = 0;
      const PlayerShip_t *pships = player_getShipStack();
 
      /* Check to see if player's fleet is OK and count ships. */
      pfleet_update();
      badfleet_ships[0] = '\0';
      for (int i=0; i<array_size(pships); i++) {
         const PlayerShip_t *pe = &pships[i];
         if (!pe->deployed)
            continue;
         if (!pilot_isSpaceworthy(pe->p)) {
            badfleet = 1;
            l += scnprintf( &badfleet_ships[l], sizeof(badfleet_ships)-l, "\n%s", pe->p->name );
         }
         nships++;
      }
      /* Only care if the player has a fleet deployed. */
      if (nships > 0) {
         if (player.fleet_used > player.fleet_capacity) {
            if (!spob_hasService(land_spob, SPOB_SERVICE_SHIPYARD)) {
               land_stranded(); /* Needs rescuing. */
               return;
            }
            else {
               dialogue_msgRaw( _("Fleet not fit for flight"), _("You lack the fleet capacity to take off with all selected ships.") );
               return;
            }
         }
         if (badfleet) {
            if (!dialogue_YesNo( _("Fleet not fit for flight"), "%s\n%s", _("The following ships in your fleet are not space worthy, are you sure you want to take off without them?"), badfleet_ships ))
               return;
         }
      }
   }
 
   /* Player's ship is not able to fly. */
   if (!pilot_isSpaceworthy(player.p)) {
      char message[STRMAX_SHORT];
      pilot_reportSpaceworthy( player.p, message, sizeof(message) );
      dialogue_msgRaw( _("Ship not fit for flight"), message );
 
      /* Check whether the player needs rescuing. */
      land_stranded();
 
      return;
   }
 
   /* Clear queued takeoff. */
   land_takeoff = 0;
   land_takeoff_nosave = 0;
 
   /* Refuel if needed. */
   land_refuel();
 
   /* In case we had paused messy sounds. */
   sound_stopAll();
 
   /* ze music */
   music_choose("takeoff");
 
   /* to randomize the takeoff a bit */
   a = RNGF() * 2. * M_PI;
   r = RNGF() * land_spob->radius;
 
   /* no longer authorized to land */
   player_rmFlag(PLAYER_LANDACK);
   pilot_rmFlag(player.p,PILOT_LANDING); /* No longer landing. */
 
   /* set player to another position with random facing direction and no vel */
   player_warp( land_spob->pos.x + r * cos(a), land_spob->pos.y + r * sin(a) );
   vec2_pset( &player.p->solid.vel, 0., 0. );
   player.p->solid.dir = RNGF() * 2. * M_PI;
   cam_setTargetPilot( player.p->id, 0 );
 
   /* Clear spob target. Allows for easier autonav out of the system. */
   player_targetSpobSet( -1 );
 
   /* Clear pilots other than player. */
   pilots_clean(1);
 
   /* Clear omsg. */
   omsg_cleanup();
 
   /* initialize the new space */
   h = player.p->nav_hyperspace;
   space_init( NULL, 1 );
   player.p->nav_hyperspace = h;
 
   /* Only save when the player shouldn't get stranded. */
   if (!nosave && land_canSave() && (save_all() < 0)) /* must be before cleaning up spob */
      dialogue_alert( _("Failed to save game! You should exit and check the log to see what happened and then file a bug report!") );
 
   /* time goes by, triggers hook before takeoff */
   if (delay) {
      /* TODO should this depend on something else? */
      int stu = (int)(NT_PERIOD_SECONDS * player.p->stats.land_delay);
      ntime_inc( ntime_create( 0, 0, stu ) );
   }
   nt = ntime_pretty( 0, 2 );
   player_message( _("#oTaking off from %s on %s."), spob_name(land_spob), nt);
   free(nt);
 
   /* Hooks and stuff. */
   land_cleanup(); /* Cleanup stuff */
   hooks_run("takeoff"); /* Must be run after cleanup since we don't want the
                            missions to think we are landed. */
   if (menu_isOpen(MENU_MAIN))
      return;
 
   /* Add escorts and heal up. */
   player_addEscorts(); /* TODO only regenerate fleet if planet has a shipyard */
   effect_clear( &player.p->effects );
   pilot_healLanded( player.p );
 
   hooks_run("enter");
   if (menu_isOpen(MENU_MAIN))
      return;
   events_trigger( EVENT_TRIGGER_ENTER );
   missions_run( MIS_AVAIL_ENTER, -1, NULL, NULL );
   if (menu_isOpen(MENU_MAIN))
      return;
 
   /* Clear effects of all surviving pilots. */
   Pilot*const* plts = pilot_getAll();
   for (int i=0; i<array_size(plts); i++) {
      Pilot *p = plts[i];
      if (pilot_isFlag(p,PILOT_DELETE))
         continue;
 
      effect_clear( &p->effects );
      pilot_calcStats( p );
 
      /* Update lua stuff. */
      pilot_outfitLInitAll( p );
 
      /* Normal pilots stop here. */
      if (!pilot_isWithPlayer( p ))
         continue;
 
      pilot_outfitLOntakeoff( p );
 
      /* Set take off stuff. */
      p->landing_delay = PILOT_TAKEOFF_DELAY * player_dt_default();
      p->ptimer = p->landing_delay;
      pilot_setFlag( p, PILOT_TAKEOFF );
      pilot_setAccel( p, 0. );
      pilot_setTurn( p, 0. );
   }
 
   /* Reset speed */
   player_autonavResetSpeed();
 
   /* Landing is a special case where the player's gear can change and trigger
    * all sorts of things. We have to refresh the GUI to reflect those changes.
    * This is particular important for Lua-side mechanics such as flow. */
   gui_setSystem();
}
 
static void land_stranded (void)
{
   /* Nothing to do if there's no rescue script. */
   if (!PHYSFS_exists(RESCUE_PATH))
      return;
 
   if (rescue_env == LUA_NOREF) {
      char *buf;
      size_t bufsize;
 
      rescue_env = nlua_newEnv();
      nlua_loadStandard( rescue_env );
      nlua_loadTk( rescue_env );
 
      buf = ndata_read( RESCUE_PATH, &bufsize );
      if (buf == NULL) {
         WARN( _("File '%s' not found!"), RESCUE_PATH );
         return;
      }
      if (nlua_dobufenv(rescue_env, buf, bufsize, RESCUE_PATH) != 0) {
         WARN( _("Error loading file: %s\n"
             "%s\n"
             "Most likely Lua file has improper syntax, please check"),
               RESCUE_PATH, lua_tostring(naevL,-1));
         free(buf);
         return;
      }
      free(buf);
   }
 
   /* Run Lua. */
   nlua_getenv(naevL,rescue_env,"rescue");
   if (nlua_pcall(rescue_env, 0, 0)) { /* error has occurred */
      WARN( _("Rescue: 'rescue' : '%s'"), lua_tostring(naevL,-1));
      lua_pop(naevL,1);
   }
}
 
void land_cleanup (void)
{
   /* Clean up default stuff. */
   land_regen     = 0;
   land_spob    = NULL;
   landed         = 0;
   land_visited   = 0;
   land_generated = 0;
 
   /* Destroy window. */
   if (land_wid > 0)
      window_destroy(land_wid);
   land_wid       = 0;
 
   /* Clean up possible stray graphic. */
   if (gfx_exterior != NULL)
      gl_freeTexture( gfx_exterior );
   gfx_exterior   = NULL;
 
   /* Remove computer markers just in case. */
   space_clearComputerMarkers();
 
   /* Clean up mission computer. */
   for (int i=0; i<mission_ncomputer; i++)
      mission_cleanup( &mission_computer[i] );
   free(mission_computer);
   mission_computer  = NULL;
   mission_ncomputer = 0;
 
   /* Clean up bar missions. */
   npc_clear();
 
   /* Clean up shipyard. */
   shipyard_cleanup();
 
   /* Clean up rescue Lua. */
   nlua_freeEnv(rescue_env);
   rescue_env = LUA_NOREF;
 
   /* Deselect stuff. */
   equipment_slotDeselect( NULL );
}
 
void land_exit (void)
{
   land_cleanup();
   equipment_cleanup();
   outfits_cleanup();
   commodity_exchange_cleanup();
}