land_outfits.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 "naev.h"
 
#include "land_outfits.h"
 
#include "array.h"
#include "cond.h"
#include "dialogue.h"
#include "equipment.h"
#include "hook.h"
#include "land.h"
#include "log.h"
#include "map.h"
#include "naevpedia.h"
#include "nlua.h"
#include "nstring.h"
#include "outfit.h"
#include "pilot_outfit.h"
#include "player.h"
#include "player_gui.h"
#include "slots.h"
#include "space.h"
#include "toolkit.h"
#include "utf8.h"
 
#define OUTFITS_IAR "iarOutfits"
#define OUTFITS_TAB "tabOutfits"
#define OUTFITS_FILTER "inpFilterOutfits"
#define OUTFITS_NTABS 7

typedef struct LandOutfitData_ {
   const Outfit *
      *outfits; 
   int blackmarket; 
} LandOutfitData;
 
static iar_data_t iar_data[OUTFITS_NTABS]; 
static Outfit *
   *iar_outfits[OUTFITS_NTABS]; 
static int             outfit_Mode = 0; 
static PlayerOutfit_t *outfits_sold =
   NULL; 
 
/* Modifier for buying and selling quantity. */
static int outfits_mod = 1;
 
/*
 * Helper functions.
 */
static void outfits_getSize( unsigned int wid, int *w, int *h, int *iw, int *ih,
                             int *bw, int *bh );
static void outfits_buy( unsigned int wid, const char *str );
static void outfits_sell( unsigned int wid, const char *str );
static int  outfits_getMod( void );
static void outfits_rmouse( unsigned int wid, const char *widget_name );
static void outfits_naevpedia( unsigned int wid, const char *str );
static const char *outfit_getPrice( const Outfit *outfit, credits_t *price,
                                    int *canbuy, int *cansell,
                                    char **player_has );
static void        outfit_Popdown( unsigned int wid, const char *str );
static void        outfits_genList( unsigned int wid );
static void outfits_changeTab( unsigned int wid, const char *wgt, int old,
                               int tab );
static void outfits_onClose( unsigned int wid, const char *str );
static void outfit_modifiers( unsigned int wid );
static int  outfit_events( unsigned int wid, SDL_Event *evt );

static void outfits_getSize( unsigned int wid, int *w, int *h, int *iw, int *ih,
                             int *bw, int *bh )
{
   int padding;
 
   /* Get window dimensions. */
   window_dimWindow( wid, w, h );
 
   /* Calculate image array dimensions. */
   if ( iw != NULL )
      *iw = 680 + ( *w - LAND_WIDTH );
   if ( ih != NULL )
      *ih = *h - 60;
 
   /* Left padding + per-button padding * nbuttons */
   padding = 40 + 20 * 4;
 
   /* Calculate button dimensions. */
   if ( bw != NULL )
      *bw = ( *w - ( iw != NULL ? *iw : 0 ) - padding ) / 4;
   if ( bh != NULL )
      *bh = LAND_BUTTON_HEIGHT;
}
 
static void outfit_modifiers( unsigned int wid )
{
   int q = outfits_getMod();
   if ( q != outfits_mod ) {
      outfits_updateEquipmentOutfits();
      outfits_mod = q;
      if ( q == 1 ) {
         window_buttonCaption( wid, "btnBuyOutfit", _( "Buy" ) );
         window_buttonCaption( wid, "btnSellOutfit", _( "Sell" ) );
      } else {
         char buf[STRMAX_SHORT];
         snprintf( buf, sizeof( buf ), _( "Buy (%dx)" ), q );
         window_buttonCaption( wid, "btnBuyOutfit", buf );
         snprintf( buf, sizeof( buf ), _( "Sell (%dx)" ), q );
         window_buttonCaption( wid, "btnSellOutfit", buf );
      }
      toolkit_rerender();
   }
}

static int outfit_events( unsigned int wid, SDL_Event *evt )
{
   (void)evt; /* For constness warning. */
   if ( ( evt->type == SDL_KEYDOWN ) || ( evt->type == SDL_KEYUP ) )
      outfit_modifiers( wid );
   return 0;
}

static void outfits_onClose( unsigned int wid, const char *str )
{
   (void)str;
   LandOutfitData *data = window_getData( wid );
   if ( data != NULL ) {
      array_free( data->outfits );
      free( data );
   }
}

void outfits_open( unsigned int wid, const Outfit **outfits, int blackmarket )
{
   int             w, h, iw, ih, bw, bh, off;
   LandOutfitData *data = NULL;
 
   /* Clear sold outfits. */
   array_free( outfits_sold );
   outfits_sold = NULL;
 
   /* initialize the outfit mode. */
   outfit_Mode       = 0;
   data              = malloc( sizeof( LandOutfitData ) );
   data->outfits     = outfits;
   data->blackmarket = blackmarket;
   window_setData( wid, data );
   window_onClose( wid, outfits_onClose );
 
   /* Mark as generated. */
   if ( outfits == NULL )
      land_tabGenerate( LAND_WINDOW_OUTFITS );
 
   /* Get dimensions. */
   outfits_getSize( wid, &w, &h, &iw, &ih, &bw, &bh );
 
   /* Initialize stored positions. */
   for ( int i = 0; i < OUTFITS_NTABS; i++ ) {
      toolkit_initImageArrayData( &iar_data[i] );
      array_free( iar_outfits[i] );
   }
   memset( iar_outfits, 0, sizeof( Outfit ** ) * OUTFITS_NTABS );
 
   /* will allow buying from keyboard */
   window_setAccept( wid, outfits_buy );
 
   /* handle multipliers. */
   window_handleEvents( wid, outfit_events );
   window_setOnFocus( wid, outfit_modifiers );
 
   /* buttons */
   off = -20;
   if ( data->outfits == NULL ) {
      window_addButtonKey( wid, off, 20, bw, bh, "btnCloseOutfits",
                           _( "Take Off" ), land_buttonTakeoff, SDLK_t );
   } else {
      window_addButtonKey( wid, off, 20, bw, bh, "btnCloseOutfits",
                           _( "Close" ), window_close, SDLK_t );
   }
   off -= 20 + bw;
   window_addButtonKey( wid, off, 20, bw, bh, "btnSellOutfit", _( "Sell" ),
                        outfits_sell, SDLK_s );
   off -= 20 + bw;
   window_addButtonKey( wid, off, 20, bw, bh, "btnBuyOutfit", _( "Buy" ),
                        outfits_buy, SDLK_b );
   off -= 20 + bw;
   window_addButtonKey( wid, off, 20, bw, bh, "btnNaevpediaOutfits",
                        _( "Archives" ), outfits_naevpedia, SDLK_a );
 
   /* fancy 256x256 image */
   window_addRect( wid, -40 + 4, -40 + 4, 264, 264, "rctImage", &cBlack, 1 );
   window_addImage( wid, -40, -40, 256, 256, "imgOutfit", NULL, 0 );
 
   /* the descriptive text */
   window_addText( wid, 20 + iw + 20, -40, w - ( 20 + iw + 20 ) - 264 - 40, 160,
                   0, "txtOutfitName", &gl_defFont, NULL, NULL );
   window_addText( wid, 20 + iw + 20, -40 - gl_defFont.h * 2. - 30,
                   w - ( 20 + iw + 20 ) - 264 - 40, 400, 0, "txtDescShort",
                   &gl_defFont, NULL, NULL );
 
   window_addText( wid, 20 + iw + 20, 0, 90, 160, 0, "txtSDesc", &gl_defFont,
                   &cFontGrey, NULL );
   window_addText( wid, 20 + iw + 20 + 90, 0, w - ( 20 + iw + 20 + 90 ), 160, 0,
                   "txtDDesc", &gl_defFont, NULL, NULL );
   window_addText( wid, 20 + iw + 20, 0, w - ( iw + 80 ),
                   h, /* TODO: Size exactly and resize instead of moving? */
                   0, "txtDescription", &gl_defFont, NULL, NULL );
 
   /* Create the image array. */
   outfits_genList( wid );
 
   /* Set default keyboard focus to the list */
   window_setFocus( wid, OUTFITS_IAR );
}

void outfits_regenList( unsigned int wid, const char *str )
{
   (void)str;
   int             tab;
   char           *focused;
   LandOutfitData *data;
 
   /* If local or not. */
   data = window_getData( wid );
 
   /* Must exist. */
   if ( ( data->outfits == NULL ) &&
        ( land_getWid( LAND_WINDOW_OUTFITS ) == 0 ) )
      return;
 
   /* Save focus. */
   focused = window_getFocus( wid );
 
   /* Save positions. */
   tab = window_tabWinGetActive( wid, OUTFITS_TAB );
   toolkit_saveImageArrayData( wid, OUTFITS_IAR, &iar_data[tab] );
   window_destroyWidget( wid, OUTFITS_IAR );
 
   outfits_genList( wid );
 
   /* Restore positions. */
   toolkit_loadImageArrayData( wid, OUTFITS_IAR, &iar_data[tab] );
   outfits_update( wid, NULL );
 
   /* Restore focus. */
   window_setFocus( wid, focused );
   free( focused );
}

 
static int outfitLand_filter( const Outfit *o )
{
   Pilot              *p;
   const PlayerShip_t *ps;
 
   switch ( outfit_Mode ) {
   case 0:
      return 1;
 
   case 1: /* Fits any ship of the player. */
      ps = player_getShipStack();
      for ( int j = 0; j < array_size( ps ); j++ ) {
         p = ps[j].p;
         for ( int i = 0; i < array_size( p->outfits ); i++ ) {
            if ( outfit_fitsSlot( o, &p->outfits[i]->sslot->slot ) )
               return 1;
         }
      }
      return 0;
 
   case 2: /* Fits currently selected ship. */
      p = player.p;
      if ( p == NULL )
         return 1;
      for ( int i = 0; i < array_size( p->outfits ); i++ ) {
         if ( outfit_fitsSlot( o, &p->outfits[i]->sslot->slot ) )
            return 1;
      }
      return 0;
 
   case 3:
      return ( o->slot.size == OUTFIT_SLOT_SIZE_LIGHT );
   case 4:
      return ( o->slot.size == OUTFIT_SLOT_SIZE_MEDIUM );
   case 5:
      return ( o->slot.size == OUTFIT_SLOT_SIZE_HEAVY );
   }
   return 1;
}
static int outfitLand_filterWeapon( const Outfit *o )
{
   return outfitLand_filter( o ) && outfit_filterWeapon( o );
}
static int outfitLand_filterUtility( const Outfit *o )
{
   return outfitLand_filter( o ) && outfit_filterUtility( o );
}
static int outfitLand_filterStructure( const Outfit *o )
{
   return outfitLand_filter( o ) && outfit_filterStructure( o );
}
static int outfitLand_filterCore( const Outfit *o )
{
   return outfitLand_filter( o ) && outfit_filterCore( o );
}

static void outfits_genList( unsigned int wid )
{
   int ( *tabfilters[] )( const Outfit *o ) = {
      outfitLand_filter,        outfitLand_filterWeapon,
      outfitLand_filterUtility, outfitLand_filterStructure,
      outfitLand_filterCore,    outfit_filterOther,
      outfitLand_filter,
   };
 
   int             active;
   ImageArrayCell *coutfits;
   int             noutfits;
   int             w, h, iw, ih;
   const char     *filtertext;
   LandOutfitData *data;
   int             iconsize;
 
   /* Get dimensions. */
   outfits_getSize( wid, &w, &h, &iw, &ih, NULL, NULL );
 
   /* Create tabbed window. */
   if ( !widget_exists( wid, OUTFITS_TAB ) ) {
      int         fx, fy, fw, fh, barw; /* Input filter. */
      const char *tabnames[] = {
         _( "All" ),
         _( OUTFIT_LABEL_WEAPON ),
         _( OUTFIT_LABEL_UTILITY ),
         _( OUTFIT_LABEL_STRUCTURE ),
         _( OUTFIT_LABEL_CORE ),
         _( "#rOther" ),
         _( "Owned" ),
      };
 
      window_addTabbedWindow( wid, 20, 20 + ih - 30, iw, 30, OUTFITS_TAB,
                              OUTFITS_NTABS, tabnames, 1 );
 
      barw = window_tabWinGetBarWidth( wid, OUTFITS_TAB );
      fw   = CLAMP( 0, 150, iw - barw - 30 );
      fh   = 30;
 
      fx = iw - fw + 15;
      fy = ih - 25 - 1 + 20;
 
      /* Only create the filter widgets if it will be a reasonable size. */
      if ( iw >= 65 ) {
         /* Add popdown menu stuff. */
         window_addButton( wid, fx + fw - 30, fy, 30, 30, "btnOutfitFilter",
                           NULL, outfit_Popdown );
         window_buttonCustomRender( wid, "btnOutfitFilter",
                                    window_buttonCustomRenderGear );
         fw -= 35;
 
         /* Set text filter. */
         window_addInput( wid, fx, fy, fw, fh, OUTFITS_FILTER, 32, 1,
                          &gl_defFont );
         inp_setEmptyText( wid, OUTFITS_FILTER, _( "Filter…" ) );
         window_setInputCallback( wid, OUTFITS_FILTER, outfits_regenList );
      }
   }
 
   window_tabWinOnChange( wid, OUTFITS_TAB, outfits_changeTab );
   active = window_tabWinGetActive( wid, OUTFITS_TAB );
 
   /* Widget must not already exist. */
   if ( widget_exists( wid, OUTFITS_IAR ) )
      return;
 
   filtertext = NULL;
   if ( widget_exists( wid, OUTFITS_FILTER ) ) {
      filtertext = window_getInput( wid, OUTFITS_FILTER );
      if ( strlen( filtertext ) == 0 )
         filtertext = NULL;
   }
 
   /* Set up the outfits to buy/sell */
   data = window_getData( wid );
   array_free( iar_outfits[active] );
 
   if ( active == 6 ) {
      /* Show player their owned outfits. */
      const PlayerOutfit_t *po = player_getOutfits();
      iar_outfits[active]      = array_create( Outfit * );
      for ( int i = 0; i < array_size( po ); i++ )
         array_push_back( &iar_outfits[active], (Outfit *)po[i].o );
      /* Also add stuff they sold. */
      for ( int i = 0; i < array_size( outfits_sold ); i++ ) {
         PlayerOutfit_t *os    = &outfits_sold[i];
         int             found = 0;
         for ( int j = 0; j < array_size( po ); j++ ) {
            if ( po[j].o == os->o ) {
               found = 1;
               break;
            }
         }
         if ( !found )
            array_push_back( &iar_outfits[active], (Outfit *)os->o );
      }
      qsort( iar_outfits[active], array_size( iar_outfits[active] ),
             sizeof( Outfit * ), outfit_compareTech );
   } else {
      /* Use custom list; default to landed outfits. */
      iar_outfits[active] = ( data->outfits != NULL )
                               ? array_copy( Outfit *, data->outfits )
                               : tech_getOutfit( land_spob->tech );
   }
   noutfits = outfits_filter( (const Outfit **)iar_outfits[active],
                              array_size( iar_outfits[active] ),
                              tabfilters[active], filtertext );
   coutfits = outfits_imageArrayCells( (const Outfit **)iar_outfits[active],
                                       &noutfits, player.p, 1 );
 
   iconsize = 128;
   if ( !conf.big_icons ) {
      if ( toolkit_simImageArrayVisibleElements( iw, ih - 34, iconsize,
                                                 iconsize ) < noutfits )
         iconsize = 96;
      if ( toolkit_simImageArrayVisibleElements( iw, ih - 34, iconsize,
                                                 iconsize ) < noutfits )
         iconsize = 64;
   }
   window_addImageArray( wid, 20, 20, iw, ih - 34, OUTFITS_IAR, iconsize,
                         iconsize, coutfits, noutfits, outfits_update,
                         outfits_rmouse, NULL );
 
   /* write the outfits stuff */
   outfits_update( wid, NULL );
}

void outfits_update( unsigned int wid, const char *str )
{
   (void)str;
   int     i, active;
   Outfit *outfit;
   char    buf[STRMAX], lbl[STRMAX], buf_credits[ECON_CRED_STRLEN],
      buf_mass[ECON_MASS_STRLEN];
   const char *buf_price, *summary;
   credits_t   price;
   size_t      l = 0, k = 0;
   int         iw, ih, w, h, blackmarket, canbuy, cansell, sw, th;
   double      mass;
   char       *youhave;
 
   /* Get dimensions. */
   outfits_getSize( wid, &w, &h, &iw, &ih, NULL, NULL );
 
   /* See if black market. */
   const LandOutfitData *data = window_getData( wid );
   blackmarket                = data->blackmarket;
 
   /* Set up keys. */
   k += scnprintf( &lbl[k], sizeof( lbl ) - k, "%s", _( "Owned:" ) );
   k += scnprintf( &lbl[k], sizeof( lbl ) - k, "\n%s", _( "Mass:" ) );
   k += scnprintf( &lbl[k], sizeof( lbl ) - k, "\n%s", _( "Price:" ) );
   k += scnprintf( &lbl[k], sizeof( lbl ) - k, "\n%s", _( "You have:" ) );
 
   /* Get and set parameters. */
   active = window_tabWinGetActive( wid, OUTFITS_TAB );
   i      = toolkit_getImageArrayPos( wid, OUTFITS_IAR );
   if ( i < 0 || array_size( iar_outfits[active] ) == 0 ) { /* No outfits */
      window_modifyImage( wid, "imgOutfit", NULL, 256, 256 );
      window_disableButton( wid, "btnBuyOutfit" );
      window_disableButton( wid, "btnSellOutfit" );
      l += scnprintf( &buf[l], sizeof( buf ) - l, "%s", _( "N/A" ) );
      l += scnprintf( &buf[l], sizeof( buf ) - l, "\n%s", _( "N/A" ) );
      l += scnprintf( &buf[l], sizeof( buf ) - l, "\n%s", _( "N/A" ) );
      /*l +=*/scnprintf( &buf[l], sizeof( buf ) - l, "\n%s", _( "N/A" ) );
      window_modifyText( wid, "txtSDesc", buf );
      window_modifyText( wid, "txtDDesc", buf );
      window_modifyText( wid, "txtOutfitName", _( "None" ) );
      window_modifyText( wid, "txtDescShort", NULL );
      window_modifyText( wid, "txtDescription", NULL );
      /* Reposition. */
      th = 260;
      window_moveWidget( wid, "txtSDesc", 20 + iw + 20, -40 - th - 30 - 32 );
      window_moveWidget( wid, "txtDDesc", 20 + iw + 20 + 90,
                         -40 - th - 30 - 32 );
      window_moveWidget( wid, "txtDescription", 20 + iw + 20, -240 - 32 );
      return;
   }
 
   i      = MIN( i, array_size( iar_outfits[active] ) - 1 );
   outfit = iar_outfits[active][i];
 
   /* new image */
   window_modifyImage( wid, "imgOutfit", outfit->gfx_store, 256, 256 );
 
   /* new text */
   if ( outfit->slot.type == OUTFIT_SLOT_INTRINSIC ) {
      scnprintf( buf, sizeof( buf ), "%s\n\n#o%s#0", _( outfit->desc_raw ),
                 _( "This is an intrinsic outfit that will be directly "
                    "equipped on the current ship and can not be moved." ) );
      window_modifyText( wid, "txtDescription", buf );
   } else
      window_modifyText( wid, "txtDescription", _( outfit->desc_raw ) );
   buf_price = outfit_getPrice( outfit, &price, &canbuy, &cansell, &youhave );
   credits2str( buf_credits, player.p->credits, 2 );
 
   /* gray out sell button */
   if ( ( outfit_canSell( outfit ) > 0 ) && cansell )
      window_enableButton( wid, "btnSellOutfit" );
   else
      window_disableButtonSoft( wid, "btnSellOutfit" );
 
   if ( ( outfit_canBuy( outfit, wid ) > 0 ) && canbuy )
      window_enableButton( wid, "btnBuyOutfit" );
   else
      window_disableButtonSoft( wid, "btnBuyOutfit" );
 
   mass = outfit->mass;
   if ( outfit_isLauncher( outfit ) )
      mass += outfit_amount( outfit ) * outfit->u.lau.ammo_mass;
   else if ( outfit_isFighterBay( outfit ) )
      mass += outfit_amount( outfit ) * outfit->u.bay.ship_mass;
   tonnes2str( buf_mass, (int)round( mass ) );
 
   outfit_getNameWithClass( outfit, buf, sizeof( buf ) );
   window_modifyText( wid, "txtOutfitName", buf );
   window_dimWidget( wid, "txtOutfitName", &sw, NULL );
   th = gl_printHeightRaw( &gl_defFont, sw, buf ) + gl_defFont.h / 2;
   l  = 0;
   l += scnprintf( &buf[l], sizeof( buf ) - l, "%d",
                   player_outfitOwned( outfit ) );
   l += scnprintf( &buf[l], sizeof( buf ) - l, "\n%s", buf_mass );
   l += scnprintf( &buf[l], sizeof( buf ) - l, "\n%s", buf_price );
   l += scnprintf( &buf[l], sizeof( buf ) - l, "\n%s",
                   ( ( youhave ) != NULL ) ? youhave : buf_credits );
   if ( outfit->license ) {
      int meets_reqs = player_hasLicense( outfit->license );
      k += scnprintf( &lbl[k], sizeof( lbl ) - k, "\n%s", _( "License:" ) );
      if ( blackmarket )
         l += scnprintf( &buf[l], sizeof( buf ) - l, "\n%s#0",
                         _( "Not Necessary (Blackmarket)" ) );
      else
         l += scnprintf( &buf[l], sizeof( buf ) - l, "\n%s%s#0",
                         meets_reqs ? "" : "#r", _( outfit->license ) );
   }
   if ( outfit->cond ) {
      int meets_reqs = 0;
      if ( land_spob != NULL )
         meets_reqs = cond_check( outfit->cond );
      /*k +=*/scnprintf( &lbl[k], sizeof( lbl ) - k, "\n%s", _( "Requires:" ) );
      if ( blackmarket )
         /*l +=*/scnprintf( &buf[l], sizeof( buf ) - l, "\n%s#0",
                            _( "Not Necessary (Blackmarket)" ) );
      else
         /*l +=*/scnprintf( &buf[l], sizeof( buf ) - l, "\n%s%s#0",
                            meets_reqs ? "" : "#r", _( outfit->condstr ) );
   }
   window_modifyText( wid, "txtSDesc", lbl );
   window_modifyText( wid, "txtDDesc", buf );
   summary = pilot_outfitSummary( player.p, outfit, 0 );
   window_modifyText( wid, "txtDescShort", summary );
   window_moveWidget( wid, "txtDescShort", 20 + iw + 20, -40 - th );
   window_dimWidget( wid, "txtDescShort", &sw, NULL );
   th += gl_printHeightRaw( &gl_defFont, sw, summary );
   th = MAX( th + gl_defFont.h / 2, 240 );
   window_moveWidget( wid, "txtSDesc", 20 + iw + 20, -40 - th );
   window_moveWidget( wid, "txtDDesc", 20 + iw + 20 + 90, -40 - th );
   window_dimWidget( wid, "txtDDesc", &sw, NULL );
   th += gl_printHeightRaw( &gl_defFont, sw, buf );
   th = MAX( th + gl_defFont.h / 2, 256 + 10 );
   window_moveWidget( wid, "txtDescription", 20 + iw + 20, -40 - th );
}

void outfits_updateEquipmentOutfits( void )
{
   if ( landed && ( land_spob != NULL ) && land_doneLoading() ) {
      if ( spob_hasService( land_spob, SPOB_SERVICE_OUTFITS ) ) {
         int ow = land_getWid( LAND_WINDOW_OUTFITS );
         outfits_regenList( ow, NULL );
      } else if ( !spob_hasService( land_spob, SPOB_SERVICE_SHIPYARD ) )
         return;
 
      int ew = land_getWid( LAND_WINDOW_EQUIPMENT );
      equipment_addAmmo();
      equipment_regenLists( ew, 1, 0 );
   }
}

static void outfits_changeTab( unsigned int wid, const char *wgt, int old,
                               int tab )
{
   (void)wgt;
   iar_data_t old_data;
 
   toolkit_saveImageArrayData( wid, OUTFITS_IAR, &iar_data[old] );
 
   /* Store the currently-saved positions for the new tab. */
   old_data = iar_data[tab];
 
   /* Resetting the input will cause the outfit list to be regenerated. */
   if ( widget_exists( wid, OUTFITS_FILTER ) )
      window_setInput( wid, OUTFITS_FILTER, NULL );
   else
      outfits_regenList( wid, NULL );
 
   /* Set positions for the new tab. This is necessary because the stored
    * position for the new tab may have exceeded the size of the old tab,
    * resulting in it being clipped. */
   toolkit_loadImageArrayData( wid, OUTFITS_IAR, &old_data );
 
   /* Focus the outfit image array. */
   window_setFocus( wid, OUTFITS_IAR );
}

int outfits_filter( const Outfit **outfits, int                    n,
                    int ( *filter )( const Outfit * ), const char *name )
{
   int j = 0;
   for ( int i = 0; i < n; i++ ) {
      const Outfit *o = outfits[i];
 
      /* First run filter. */
      if ( ( filter != NULL ) && !filter( outfits[i] ) )
         continue;
 
      /* Try to match name somewhere. */
      if ( name != NULL ) {
         if ( ( SDL_strcasestr( _( o->name ), name ) == NULL ) &&
              ( SDL_strcasestr( _( outfit_getType( o ) ), name ) == NULL ) )
            continue;
      }
 
      /* Shift matches downward. */
      outfits[j++] = o;
   }
 
   return j;
}

static void outfits_naevpedia( unsigned int wid, const char *str )
{
   (void)wid;
   (void)str;
   naevpedia_open( "outfits" );
}

static const char *outfit_getPrice( const Outfit *outfit, credits_t *price,
                                    int *canbuy, int *cansell,
                                    char **player_has )
{
   static char  pricestr[STRMAX_SHORT];
   static char  youhave[STRMAX_SHORT];
   unsigned int q = outfits_getMod();
   if ( outfit->lua_price == LUA_NOREF ) {
      price2str( pricestr, outfit->price * q, player.p->credits, 2 );
      *price   = outfit->price * q;
      *canbuy  = 1;
      *cansell = 1;
      if ( player_has != NULL )
         *player_has = NULL;
      return pricestr;
   }
   const char *str;
 
   lua_rawgeti( naevL, LUA_REGISTRYINDEX, outfit->lua_price );
   lua_pushinteger( naevL, q );
   if ( nlua_pcall( outfit->lua_env, 1, 4 ) ) { /* */
      WARN( _( "Outfit '%s' failed to run '%s':\n%s" ), outfit->name, "price",
            lua_tostring( naevL, -1 ) );
      *price   = 0;
      *canbuy  = 0;
      *cansell = 0;
      if ( player_has != NULL )
         *player_has = NULL;
      lua_pop( naevL, 1 );
      return pricestr;
   }
 
   str = luaL_checkstring( naevL, -4 );
   strncpy( pricestr, str, sizeof( pricestr ) - 1 );
   *price   = 0;
   *canbuy  = lua_toboolean( naevL, -3 );
   *cansell = lua_toboolean( naevL, -2 );
   if ( player_has != NULL ) {
      str = luaL_optstring( naevL, -1, NULL );
      if ( str == NULL )
         *player_has = NULL;
      else {
         strncpy( youhave, str, sizeof( youhave ) - 1 );
         *player_has = youhave;
      }
   }
   lua_pop( naevL, 4 );
 
   return pricestr;
}

int outfit_altText( char *buf, int n, const Outfit *o, const Pilot *plt )
{
   int p = outfit_getNameWithClass( o, buf, n );
   p += scnprintf( &buf[p], n - p, "\n" );
   if ( outfit_isProp( o, OUTFIT_PROP_UNIQUE ) )
      p += scnprintf( &buf[p], n - p, "#o%s#0\n", _( "Unique" ) );
   if ( o->limit != NULL )
      p += scnprintf( &buf[p], n - p, "#r%s#0\n",
                      _( "Only 1 of type per ship" ) );
   if ( o->slot.spid != 0 )
      p += scnprintf( &buf[p], n - p, "#o%s#0\n",
                      _( sp_display( o->slot.spid ) ) );
   p += scnprintf( &buf[p], n - p, "%s", pilot_outfitSummary( plt, o, 0 ) );
   return 0;
}

ImageArrayCell *outfits_imageArrayCells( const Outfit **outfits, int *noutfits,
                                         const Pilot *p, int store )
{
   ImageArrayCell *coutfits =
      calloc( MAX( 1, *noutfits ), sizeof( ImageArrayCell ) );
 
   if ( *noutfits == 0 ) {
      *noutfits           = 1;
      coutfits[0].image   = NULL;
      coutfits[0].caption = strdup( _( "None" ) );
   } else {
      /* Threaded loading of graphics for speed. */
      int needsgfx = 0;
      for ( int i = 0; i < *noutfits; i++ ) {
         Outfit *o = (Outfit *)outfits[i];
         if ( !outfit_gfxStoreLoaded( o ) ) {
            outfit_setProp( o, OUTFIT_PROP_NEEDSGFX );
            needsgfx = 1;
         }
      }
      if ( needsgfx )
         outfit_gfxStoreLoadNeeded();
      /* Just to be safe, we assume some ships colud potentially be duplicated.
       */
 
      /* Set alt text. */
      for ( int i = 0; i < *noutfits; i++ ) {
         const glColour *c;
         glTexture      *t;
         const Outfit   *o = outfits[i];
 
         coutfits[i].image   = gl_dupTexture( o->gfx_store );
         coutfits[i].caption = strdup( outfit_shortname( o ) );
         if ( !store && outfit_isProp( o, OUTFIT_PROP_UNIQUE ) )
            coutfits[i].quantity = -1; /* Don't display. */
         else
            coutfits[i].quantity = player_outfitOwned( o );
         coutfits[i].sloticon = sp_icon( o->slot.spid );
 
         /* Background colour. */
         c = outfit_slotSizeColour( &o->slot );
         if ( c == NULL )
            c = &cBlack;
         col_blend( &coutfits[i].bg, c, &cGrey70, 1 );
 
         /* Short description. */
         coutfits[i].alt = strdup( pilot_outfitSummary( p, o, 1 ) );
 
         /* Slot type. */
         if ( ( strcmp( outfit_slotName( o ), "N/A" ) != 0 ) &&
              ( strcmp( outfit_slotName( o ), "NULL" ) != 0 ) ) {
            size_t sz            = 0;
            const char *typename = _( outfit_slotName( o ) );
            u8_inc( typename, &sz );
            coutfits[i].slottype = malloc( sz + 1 );
            memcpy( coutfits[i].slottype, typename, sz );
            coutfits[i].slottype[sz] = '\0';
         }
 
         /* Layers. */
         coutfits[i].layers = gl_copyTexArray( o->gfx_overlays );
         if ( o->rarity > 0 ) {
            t                  = rarity_texture( o->rarity );
            coutfits[i].layers = gl_addTexArray( coutfits[i].layers, t );
         }
      }
   }
   return coutfits;
}

static void outfit_PopdownSelect( unsigned int wid, const char *str )
{
   int m = toolkit_getListPos( wid, str );
   if ( m == outfit_Mode )
      return;
 
   outfit_Mode = m;
   outfits_regenList( wid, NULL );
}
 
static void outfit_PopdownActivate( unsigned int wid, const char *str )
{
   outfit_PopdownSelect( wid, str );
   window_destroyWidget( wid, str );
}
 
static void outfit_Popdown( unsigned int wid, const char *str )
{
   const char *name    = "lstOutfitPopdown";
   const char *modes[] = {
      N_( "Show all outfits" ),
      N_( "Show only outfits equipable on any of your ships" ),
      N_( "Show only outfits equipable on current ship" ),
      N_( "Show only light outfits" ),
      N_( "Show only medium outfits" ),
      N_( "Show only heavy outfits" ),
   };
   char       **modelist;
   const size_t n = sizeof( modes ) / sizeof( const char * );
   int          x, y, w, h;
 
   if ( widget_exists( wid, name ) ) {
      window_destroyWidget( wid, name );
      return;
   }
 
   modelist = malloc( sizeof( modes ) );
   for ( size_t i = 0; i < n; i++ )
      modelist[i] = strdup( _( modes[i] ) );
 
   window_dimWidget( wid, str, &w, &h );
   window_posWidget( wid, str, &x, &y );
   window_addList( wid, x + w, y - 120 + h, 350, 120, name, modelist, n,
                   outfit_Mode, outfit_PopdownSelect, outfit_PopdownActivate );
   window_setFocus( wid, name );
}
 
static int outfit_isSold( const Outfit *outfit, int wid )
{
   LandOutfitData *data = NULL;
   if ( wid >= 0 )
      data = window_getData( wid );
   if ( ( data != NULL ) && ( data->outfits != NULL ) ) {
      for ( int i = 0; i < array_size( data->outfits ); i++ ) {
         if ( data->outfits[i] == outfit )
            return 1;
      }
      return 0;
   } else if ( ( land_spob != NULL ) &&
               tech_checkOutfit( land_spob->tech, outfit ) )
      return 1;
   return 0;
}

int outfit_canBuy( const Outfit *outfit, int wid )
{
   int             failure, canbuy, cansell;
   credits_t       price;
   LandOutfitData *data = NULL;
   if ( wid >= 0 )
      data = window_getData( wid );
   int           blackmarket = ( data != NULL ) ? data->blackmarket : 0;
   const Outfit *omap        = outfit_get( LOCAL_MAP_NAME );
 
   land_errClear();
   failure = 0;
   outfit_getPrice( outfit, &price, &canbuy, &cansell, NULL );
 
   /* Special exception for local map. */
   if ( outfit != omap ) {
      int sold = 0;
      /* See if the player previously sold it. */
      for ( int i = 0; i < array_size( outfits_sold ); i++ ) {
         if ( outfits_sold[i].o == outfit ) {
            sold = outfits_sold[i].q;
            break;
         }
      }
 
      /* Not sold at planet. */
      if ( !sold && !outfit_isSold( outfit, wid ) ) {
         land_errDialogueBuild( _( "Outfit not sold here!" ) );
         return 0;
      }
   }
 
   /* Unique. */
   if ( outfit_isProp( outfit, OUTFIT_PROP_UNIQUE ) &&
        ( player_outfitOwnedTotal( outfit ) > 0 ) ) {
      land_errDialogueBuild( _( "You can only own one of this outfit." ) );
      return 0;
   }
 
   /* Intrinsic. */
   if ( outfit->slot.type == OUTFIT_SLOT_INTRINSIC ) {
      if ( pilot_hasOutfitLimit( player.p, outfit->limit ) ) {
         land_errDialogueBuild(
            _( "You can only equip one of this outfit type." ) );
         return 0;
      }
   }
 
   /* Map already mapped */
   if ( ( outfit_isMap( outfit ) && map_isUseless( outfit ) ) ||
        ( outfit_isLocalMap( outfit ) && localmap_isUseless( outfit ) ) ) {
      land_errDialogueBuild(
         _( "You already know of everything this map contains." ) );
      return 0;
   }
   /* GUI already owned */
   if ( outfit_isGUI( outfit ) && player_guiCheck( outfit->u.gui.gui ) ) {
      land_errDialogueBuild( _( "You already own this GUI." ) );
      return 0;
   }
   /* Already has license. */
   if ( outfit_isLicense( outfit ) &&
        player_hasLicense( outfit->u.lic.provides ) ) {
      land_errDialogueBuild( _( "You already have this license." ) );
      return 0;
   }
   /* Not enough $$ */
   if ( !player_hasCredits( price ) ) {
      char buf[ECON_CRED_STRLEN];
      credits2str( buf, price - player.p->credits, 2 );
      land_errDialogueBuild( _( "You need %s more." ), buf );
      failure = 1;
   }
   /* Needs license. */
   if ( !blackmarket && !player_hasLicense( outfit->license ) ) {
      land_errDialogueBuild(
         _( "You need the '%s' license to buy this outfit." ),
         _( outfit->license ) );
      failure = 1;
   }
   /* Needs requirements. */
   if ( !blackmarket && ( outfit->cond != NULL ) &&
        !cond_check( outfit->cond ) ) {
      land_errDialogueBuild( "%s", _( outfit->condstr ) );
      failure = 1;
   }
   /* Custom condition failed. */
   if ( !canbuy ) {
      land_errDialogueBuild(
         _( "You lack the resources to buy this outfit." ) );
      failure = 1;
   }
 
   return !failure;
}

static void outfits_rmouse( unsigned int wid, const char *widget_name )
{
   outfits_buy( wid, widget_name );
}

static void outfits_buy( unsigned int wid, const char *str )
{
   (void)str;
   int             i, active;
   Outfit         *outfit;
   int             q;
   PlayerOutfit_t *sold = NULL;
   HookParam       hparam[3];
 
   active = window_tabWinGetActive( wid, OUTFITS_TAB );
   i      = toolkit_getImageArrayPos( wid, OUTFITS_IAR );
   if ( i < 0 || array_size( iar_outfits[active] ) == 0 )
      return;
 
   outfit = iar_outfits[active][i];
   q      = outfits_getMod();
   /* Can only get one unique item. */
   if ( outfit_isProp( outfit, OUTFIT_PROP_UNIQUE ) ||
        ( outfit->slot.type == OUTFIT_SLOT_INTRINSIC ) ||
        outfit_isMap( outfit ) || outfit_isLocalMap( outfit ) ||
        outfit_isGUI( outfit ) || outfit_isLicense( outfit ) )
      q = MIN( q, 1 );
 
   /* Can buy the outfit? */
   if ( !outfit_canBuy( outfit, wid ) ) {
      land_errDisplay();
      return;
   }
 
   /* See if the player previously sold it, and limit it to that amount. */
   for ( int j = 0; j < array_size( outfits_sold ); j++ ) {
      if ( outfits_sold[j].o == outfit ) {
         sold = &outfits_sold[j];
         q    = MIN( q, outfits_sold[j].q );
         break;
      }
   }
 
   /* Give dialogue when trying to buy intrinsic. */
   if ( outfit->slot.type == OUTFIT_SLOT_INTRINSIC )
      if ( !dialogue_YesNo(
              _( "Buy Intrinsic Outfit?" ),
              _( "Are you sure you wish to buy '%s'? It will be automatically "
                 "equipped on your current ship '%s'." ),
              _( outfit->name ), player.p->name ) )
         return;
 
   /* Try Lua. */
   if ( outfit->lua_buy != LUA_NOREF ) {
      lua_rawgeti( naevL, LUA_REGISTRYINDEX, outfit->lua_buy );
      lua_pushinteger( naevL, q );
      if ( nlua_pcall( outfit->lua_env, 1, 2 ) ) { /* */
         WARN( _( "Outfit '%s' failed to run '%s':\n%s" ), outfit->name,
               "price", lua_tostring( naevL, -1 ) );
         lua_pop( naevL, 1 );
      }
 
      int bought = lua_toboolean( naevL, -2 );
 
      if ( !bought ) {
         dialogue_alert( "%s", lua_tostring( naevL, -1 ) );
         lua_pop( naevL, 2 );
         return;
      }
      q = luaL_checkinteger( naevL, -1 );
      player_addOutfit( outfit, q );
 
      lua_pop( naevL, 2 );
   } else
      player_modCredits( -outfit->price * player_addOutfit( outfit, q ) );
 
   /* Actually buy the outfit. */
   outfits_updateEquipmentOutfits();
   hparam[0].type     = HOOK_PARAM_OUTFIT;
   hparam[0].u.outfit = outfit;
   hparam[1].type     = HOOK_PARAM_NUMBER;
   hparam[1].u.num    = q;
   hparam[2].type     = HOOK_PARAM_SENTINEL;
   hooks_runParam( "outfit_buy", hparam );
   land_needsTakeoff( 1 );
 
   /* Mark it that it was sold. */
   if ( sold != NULL )
      sold->q -= q;
 
   /* Regenerate list. */
   outfits_regenList( wid, NULL );
}

int outfit_canSell( const Outfit *outfit )
{
   int       failure = 0;
   int       canbuy, cansell;
   credits_t price;
 
   land_errClear();
   outfit_getPrice( outfit, &price, &canbuy, &cansell, NULL );
 
   /* Unique item. */
   if ( outfit_isProp( outfit, OUTFIT_PROP_UNIQUE ) ) {
      land_errDialogueBuild( _( "You can't sell a unique outfit." ) );
      failure = 1;
   }
   /* Map check. */
   if ( outfit_isMap( outfit ) || outfit_isLocalMap( outfit ) ) {
      land_errDialogueBuild( _( "You can't sell a map." ) );
      failure = 1;
   }
   /* GUI check. */
   if ( outfit_isGUI( outfit ) ) {
      land_errDialogueBuild( _( "You can't sell a GUI." ) );
      failure = 1;
   }
   /* License check. */
   if ( outfit_isLicense( outfit ) ) {
      land_errDialogueBuild( _( "You can't sell a license." ) );
      failure = 1;
   }
   /* has no outfits to sell */
   if ( !pilot_hasIntrinsic( player.p, outfit ) &&
        ( player_outfitOwned( outfit ) <= 0 ) ) {
      land_errDialogueBuild( _( "You can't sell something you don't have!" ) );
      failure = 1;
   }
   /* Custom condition failed. */
   if ( !cansell ) {
      land_errDialogueBuild( _( "You are unable to sell this outfit!" ) );
      failure = 1;
   }
 
   return !failure;
}

static void outfits_sell( unsigned int wid, const char *str )
{
   (void)str;
   int       i, active;
   Outfit   *outfit;
   int       q;
   HookParam hparam[3];
 
   active = window_tabWinGetActive( wid, OUTFITS_TAB );
   i      = toolkit_getImageArrayPos( wid, OUTFITS_IAR );
   if ( i < 0 || array_size( iar_outfits[active] ) == 0 )
      return;
 
   outfit = iar_outfits[active][i];
 
   q = outfits_getMod();
 
   /* Check various failure conditions. */
   if ( !outfit_canSell( outfit ) ) {
      land_errDisplay();
      return;
   }
 
   /* Try Lua. */
   if ( outfit->lua_sell != LUA_NOREF ) {
      lua_rawgeti( naevL, LUA_REGISTRYINDEX, outfit->lua_sell );
      lua_pushinteger( naevL, q );
      if ( nlua_pcall( outfit->lua_env, 1, 2 ) ) { /* */
         WARN( _( "Outfit '%s' failed to run '%s':\n%s" ), outfit->name,
               "price", lua_tostring( naevL, -1 ) );
         lua_pop( naevL, 1 );
      }
 
      int bought = lua_toboolean( naevL, -2 );
 
      if ( !bought ) {
         dialogue_alert( "%s", lua_tostring( naevL, -1 ) );
         lua_pop( naevL, 2 );
         return;
      }
      q = luaL_checkinteger( naevL, -1 );
 
      lua_pop( naevL, 2 );
   } else {
      q = player_rmOutfit( outfit, q );
      player_modCredits( outfit->price * q );
   }
 
   outfits_updateEquipmentOutfits();
   hparam[0].type     = HOOK_PARAM_OUTFIT;
   hparam[0].u.outfit = outfit;
   hparam[1].type     = HOOK_PARAM_NUMBER;
   hparam[1].u.num    = q;
   hparam[2].type     = HOOK_PARAM_SENTINEL;
   hooks_runParam( "outfit_sell", hparam );
   land_needsTakeoff( 1 );
 
   /* Update sold outfits list. */
   if ( !outfit_isSold( outfit, wid ) ) {
      int found = 0;
      if ( outfits_sold == NULL )
         outfits_sold = array_create( PlayerOutfit_t );
      for ( int j = 0; j < array_size( outfits_sold ); j++ ) {
         PlayerOutfit_t *poi = &outfits_sold[j];
         if ( poi->o == outfit ) {
            poi->q += q;
            found = 1;
            break;
         }
      }
      if ( !found ) {
         PlayerOutfit_t po = {
            .o = outfit,
            .q = q,
         };
         array_push_back( &outfits_sold, po );
      }
   }
 
   /* Regenerate list. */
   outfits_regenList( wid, NULL );
}

static int outfits_getMod( void )
{
   SDL_Keymod mods = SDL_GetModState();
   int        q    = 1;
   if ( mods & ( KMOD_LCTRL | KMOD_RCTRL ) )
      q *= 5;
   if ( mods & ( KMOD_LSHIFT | KMOD_RSHIFT ) )
      q *= 10;
   return q;
}

void outfits_cleanup( void )
{
   /* Free stored positions. */
   for ( int i = 0; i < OUTFITS_NTABS; i++ )
      array_free( iar_outfits[i] );
   memset( iar_outfits, 0, sizeof( Outfit ** ) * OUTFITS_NTABS );
}