land_trade.c

Go to the documentation of this file.

/*
 * See Licensing and Copyright notice in naev.h
 */
#include <assert.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
 
#include "naev.h"
#include "land_trade.h"
 
#include "array.h"
#include "commodity.h"
#include "dialogue.h"
#include "economy.h"
#include "hook.h"
#include "land_shipyard.h"
#include "log.h"
#include "map_find.h"
#include "ndata.h"
#include "nstring.h"
#include "player.h"
#include "player_fleet.h"
#include "space.h"
#include "tk/toolkit_priv.h"
#include "toolkit.h"
 
/*
 * Quantity to buy on one click
*/
static int commodity_mod = 10; 
static Commodity **commodity_list = NULL;
 
static void commodity_exchange_modifiers( unsigned int wid )
{
   int q = commodity_getMod();
   if (q != commodity_mod) {
      char buf[STRMAX_SHORT];
      commodity_mod = q;
      snprintf( buf, sizeof(buf), _("Buy (%d %s)"), q, UNIT_MASS );
      window_buttonCaption( wid, "btnCommodityBuy", buf );
      snprintf( buf, sizeof(buf), _("Sell (%d %s)"), q, UNIT_MASS );
      window_buttonCaption( wid, "btnCommoditySell", buf );
      toolkit_rerender();
   }
}
 
static int commodity_exchange_events( unsigned int wid, SDL_Event *evt )
{
   if ((evt->type==SDL_KEYDOWN) || (evt->type==SDL_KEYUP))
      commodity_exchange_modifiers( wid );
   return 0;
}
 
void commodity_exchange_open( unsigned int wid )
{
   int j, ngoods;
   ImageArrayCell *cgoods;
   int w, h, iw, ih, dw, bw, titleHeight, infoHeight;
   char buf[STRMAX_SHORT];
   size_t l = 0;
   int iconsize;
   int q = commodity_getMod();
 
   /* Mark as generated. */
   land_tabGenerate(LAND_WINDOW_COMMODITY);
 
   /* Get window dimensions. */
   window_dimWindow( wid, &w, &h );
 
   /* Calculate image array dimensions. */
   /* Window size minus right column size minus space on left and right */
   iw = 565 + (w - LAND_WIDTH);
   ih = h - 60;
   dw = w - iw - 60;
 
   /* buttons */
   bw = (dw - 40) / 3;
   snprintf( buf, sizeof(buf), _("Buy (%d %s)"), q, UNIT_MASS );
   window_addButtonKey( wid, 40 + iw, 20, bw, LAND_BUTTON_HEIGHT,
         "btnCommodityBuy", buf, commodity_buy, SDLK_b );
   snprintf( buf, sizeof(buf), _("Sell (%d %s)"), q, UNIT_MASS );
   window_addButtonKey( wid, 60 + iw + bw, 20, bw, LAND_BUTTON_HEIGHT,
         "btnCommoditySell", buf, commodity_sell, SDLK_s );
   window_addButtonKey( wid, 80 + iw + 2*bw, 20, bw, LAND_BUTTON_HEIGHT,
         "btnCommodityClose", _("Take Off"), land_buttonTakeoff, SDLK_t );
 
   /* handle multipliers. */
   window_handleEvents( wid, commodity_exchange_events );
   window_setOnFocus( wid, commodity_exchange_modifiers );
 
   /* store gfx */
   window_addRect( wid, -20, -40, 192, 192, "rctStore", &cBlack, 0 );
   window_addImage( wid, -20, -40, 192, 192, "imgStore", NULL, 1 );
 
   /* text */
   titleHeight = gl_printHeightRaw(&gl_defFont, LAND_BUTTON_WIDTH+80, _("None"));
   window_addText( wid, 40 + iw, -40, dw, titleHeight, 0,
         "txtName", &gl_defFont, NULL, _("None") );
 
   l += scnprintf( &buf[l], sizeof(buf)-l, "%s", (player.fleet_capacity > 0) ? _("Your fleet has:") : _("You have:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", (player.fleet_capacity > 0) ? _("Free Space (fleet):") : _("Free Space:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Money:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Market Price:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Average price here:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Average galactic price:") );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", _("Purchased for:") );
   infoHeight = gl_printHeightRaw( &gl_smallFont, LAND_BUTTON_WIDTH+80, buf );
   window_addText( wid, 40 + iw, -60 - titleHeight, 200, infoHeight, 0,
         "txtSInfo", &gl_smallFont, &cFontGrey, buf );
   window_addText( wid, 40 + iw + 224, -60 - titleHeight,
         dw - (200 + 20+192), infoHeight, 0,
         "txtDInfo", &gl_smallFont, NULL, NULL );
 
   window_addText( wid, 40 + iw, -80-titleHeight-infoHeight,
         dw, 100, 0, "txtDRef", &gl_smallFont, NULL, NULL );
   window_addText( wid, 40 + iw, MIN(-80-titleHeight-infoHeight, -192-60),
         dw, h - (80+titleHeight+infoHeight) - (40+LAND_BUTTON_HEIGHT), 0,
         "txtDesc", &gl_smallFont, NULL, NULL );
 
   /* goods list */
   ngoods  = array_size( land_spob->commodities );
 
   /* Count always sellable goods. */
   PilotCommodity* pclist = pfleet_cargoList();
   for (int i=0; i<array_size(pclist); i++) {
      PilotCommodity *pc = &pclist[i];
      if (pc->id > 0) /* Ignore mission stuff. */
         continue;
      if (!commodity_isFlag(pc->commodity, COMMODITY_FLAG_ALWAYS_CAN_SELL))
         continue;
      ngoods++;
   }
   if (ngoods > 0) {
      cgoods = calloc( ngoods, sizeof(ImageArrayCell) );
      if (commodity_list != NULL)
         free(commodity_list);
      commodity_list = malloc( ngoods*sizeof(Commodity*) );
      j = 0;
 
      /* First add special sellable. */
      for (int i=0; i<array_size(pclist); i++) {
         PilotCommodity *pc = &pclist[i];
         if (pc->id > 0) /* Ignore mission stuff. */
            continue;
         if (!commodity_isFlag(pc->commodity, COMMODITY_FLAG_ALWAYS_CAN_SELL))
            continue;
         cgoods[j].image = gl_dupTexture(pc->commodity->gfx_store);
         cgoods[j].caption = strdup( _(pc->commodity->name) );
         commodity_list[j] = (Commodity*) pc->commodity;
         j++;
      }
 
      /* Then add default. */
      for (int i=0; i<array_size(land_spob->commodities); i++) {
         cgoods[j].image = gl_dupTexture(land_spob->commodities[i]->gfx_store);
         cgoods[j].caption = strdup( _(land_spob->commodities[i]->name) );
         commodity_list[j] = land_spob->commodities[i];
         j++;
      }
   }
   else {
      ngoods   = 1;
      cgoods   = calloc( ngoods, sizeof(ImageArrayCell) );
      cgoods[0].image = NULL;
      cgoods[0].caption = strdup(_("None"));
   }
   array_free(pclist);
 
   /* set up the goods to buy/sell */
   iconsize = 128;
   if (!conf.big_icons) {
      if (toolkit_simImageArrayVisibleElements(iw,ih,iconsize,iconsize) < ngoods)
         iconsize = 96;
      if (toolkit_simImageArrayVisibleElements(iw,ih,iconsize,iconsize) < ngoods)
         iconsize = 64;
   }
   window_addImageArray( wid, 20, 20,
         iw, ih, "iarTrade", iconsize, iconsize,
         cgoods, ngoods, commodity_update, commodity_update, commodity_update );
 
   /* Set default keyboard focuse to the list */
   window_setFocus( wid , "iarTrade" );
}
 
void commodity_exchange_cleanup (void)
{
   free(commodity_list);
   commodity_list = NULL;
}
 
void commodity_update( unsigned int wid, const char *str )
{
   (void) str;
   char buf[STRMAX];
   char buf_purchase_price[ECON_CRED_STRLEN], buf_credits[ECON_CRED_STRLEN];
   size_t l = 0;
   const Commodity *com;
   credits_t mean,globalmean;
   double std, globalstd;
   char buf_mean[ECON_CRED_STRLEN], buf_globalmean[ECON_CRED_STRLEN];
   char buf_std[ECON_CRED_STRLEN], buf_globalstd[ECON_CRED_STRLEN];
   char buf_local_price[ECON_CRED_STRLEN];
   char buf_tonnes_owned[ECON_MASS_STRLEN], buf_tonnes_free[ECON_MASS_STRLEN];
   int owned, cargo_free;
   int i = toolkit_getImageArrayPos( wid, "iarTrade" );
   credits2str( buf_credits, player.p->credits, 2 );
   cargo_free = pfleet_cargoFree();
   tonnes2str( buf_tonnes_free, cargo_free );
 
   if (i < 0 || array_size(land_spob->commodities) == 0) {
      l += scnprintf( &buf[l], sizeof(buf)-l, "%s", _("N/A") );
      l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", buf_tonnes_free );
      l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", buf_credits  );
      l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", "" );
      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, "txtDInfo", buf );
      window_modifyText( wid, "txtDesc", _("No commodities available.") );
      window_disableButton( wid, "btnCommodityBuy" );
      window_disableButton( wid, "btnCommoditySell" );
      return;
   }
   com = commodity_list[i];
 
   /* modify image */
   window_modifyImage( wid, "imgStore", com->gfx_store, 192, 192 );
 
   spob_averageSpobPrice( land_spob, com, &mean, &std);
   credits2str( buf_mean, mean, -1 );
   snprintf( buf_std, sizeof(buf_std), _("%.1f ¤"), std ); /* TODO credit2str could learn to do this... */
   economy_getAveragePrice( com, &globalmean, &globalstd );
   credits2str( buf_globalmean, globalmean, -1 );
   snprintf( buf_globalstd, sizeof(buf_globalstd), _("%.1f ¤"), globalstd ); /* TODO credit2str could learn to do this... */
   /* modify text */
   buf_purchase_price[0]='\0';
   owned = pfleet_cargoOwned( com );
   if (owned > 0)
      credits2str( buf_purchase_price, com->lastPurchasePrice, -1 );
   credits2str( buf_local_price, spob_commodityPrice( land_spob, com ), -1 );
   tonnes2str( buf_tonnes_owned, owned );
   l += scnprintf( &buf[l], sizeof(buf)-l, "%s", buf_tonnes_owned );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", buf_tonnes_free );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", buf_credits );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n" );
   l += scnprintf( &buf[l], sizeof(buf)-l, _("%s/t"), buf_local_price );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n" );
   l += scnprintf( &buf[l], sizeof(buf)-l, _("%s/t ± %s/t"), buf_mean, buf_std );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n" );
   l += scnprintf( &buf[l], sizeof(buf)-l, _("%s/t ± %s/t"), buf_globalmean, buf_globalstd );
   l += scnprintf( &buf[l], sizeof(buf)-l, "\n%s", buf_purchase_price );
 
   window_modifyText( wid, "txtDInfo", buf );
   window_modifyText( wid, "txtName", _(com->name) );
   window_modifyText( wid, "txtDesc", _(com->description) );
 
   /* Add relative price. */
   l = 0;
   if (commodity_isFlag(com, COMMODITY_FLAG_PRICE_CONSTANT)) {
      l += scnprintf( &buf[l], sizeof(buf)-l, _("Price is constant.") );
      window_modifyText( wid, "txtDRef", buf );
   }
   else if (com->price_ref != NULL) {
      char c = '0';
      if (com->price_mod > 1.)
         c = 'g';
      else if (com->price_mod < 1.)
         c = 'r';
      l += scnprintf( &buf[l], sizeof(buf)-l, _("Price is based on #%c%.0f%%#0 of the price of #o%s#0."), c, com->price_mod*100., _(com->price_ref) );
      window_modifyText( wid, "txtDRef", buf );
   }
   else
      window_modifyText( wid, "txtDRef", NULL );
 
   /* Button enabling/disabling */
   if (commodity_canBuy( com ))
      window_enableButton( wid, "btnCommodityBuy" );
   else
      window_disableButtonSoft( wid, "btnCommodityBuy" );
 
   if (commodity_canSell( com ))
      window_enableButton( wid, "btnCommoditySell" );
   else
      window_disableButtonSoft( wid, "btnCommoditySell" );
}
 
int commodity_canBuy( const Commodity* com )
{
   int failure, incommodities;
   unsigned int q, price;
   char buf[ECON_CRED_STRLEN];
 
   land_errClear();
   failure = 0;
   q = commodity_getMod();
   price = spob_commodityPrice( land_spob, com ) * q;
 
   if (!player_hasCredits( price )) {
      credits2str( buf, price - player.p->credits, 2 );
      land_errDialogueBuild(_("You need %s more."), buf );
      failure = 1;
   }
   if (pfleet_cargoFree() <= 0) {
      land_errDialogueBuild(_("No cargo space available!"));
      failure = 1;
   }
 
   incommodities = 0;
   for (int i=0; i<array_size(land_spob->commodities); i++) {
      if (land_spob->commodities[i] == com) {
         incommodities = 1;
         break;
      }
   }
   if (!incommodities) {
      land_errDialogueBuild(_("%s is not sold here!"), _(com->name));
      failure = 1;
   }
 
   return !failure;
}
 
int commodity_canSell( const Commodity* com )
{
   int failure = 0;
   land_errClear();
   if (pfleet_cargoOwned( com ) ==0) {
      land_errDialogueBuild(_("You can't sell something you don't have!"));
      failure = 1;
   }
   return !failure;
}
 
void commodity_buy( unsigned int wid, const char *str )
{
   (void)str;
   int i;
   Commodity *com;
   unsigned int q;
   credits_t price;
   HookParam hparam[3];
 
   /* Get selected. */
   q     = commodity_getMod();
   i     = toolkit_getImageArrayPos( wid, "iarTrade" );
   com   = commodity_list[i];
   price = spob_commodityPrice( land_spob, com );
 
   /* Check stuff. */
   if (!commodity_canBuy( com )) {
      land_errDisplay();
      return;
   }
 
   /* Make the buy. */
   q = pfleet_cargoAdd( com, q );
   com->lastPurchasePrice = price; /* To show the player how much they paid for it */
   price *= q;
   player_modCredits( -price );
   commodity_update(wid, NULL);
 
   /* Run hooks. */
   hparam[0].type    = HOOK_PARAM_COMMODITY;
   hparam[0].u.commodity = com;
   hparam[1].type    = HOOK_PARAM_NUMBER;
   hparam[1].u.num   = q;
   hparam[2].type    = HOOK_PARAM_SENTINEL;
   hooks_runParam( "comm_buy", hparam );
   land_needsTakeoff( 1 );
}
 
void commodity_sell( unsigned int wid, const char *str )
{
   (void) str;
   int i;
   Commodity *com;
   unsigned int q;
   credits_t price;
   HookParam hparam[3];
 
   /* Get parameters. */
   q     = commodity_getMod();
   i     = toolkit_getImageArrayPos( wid, "iarTrade" );
   com   = commodity_list[i];
   price = spob_commodityPrice( land_spob, com );
 
   /* Check stuff. */
   if (!commodity_canSell( com )) {
      land_errDisplay();
      return;
   }
 
   /* Remove commodity. */
   q = pfleet_cargoRm( com, q, 0 );
   price = price * (credits_t)q;
   player_modCredits( price );
   if (pfleet_cargoOwned( com ) == 0) /* None left, set purchase price to zero, in case missions add cargo. */
     com->lastPurchasePrice = 0;
   commodity_update(wid, NULL);
 
   /* Run hooks. */
   hparam[0].type    = HOOK_PARAM_COMMODITY;
   hparam[0].u.commodity = com;
   hparam[1].type    = HOOK_PARAM_NUMBER;
   hparam[1].u.num   = q;
   hparam[2].type    = HOOK_PARAM_SENTINEL;
   hooks_runParam( "comm_sell", hparam );
   land_needsTakeoff( 1 );
}
 
int commodity_getMod (void)
{
   SDL_Keymod mods = SDL_GetModState();
   int q = 10;
   if (mods & (KMOD_LCTRL | KMOD_RCTRL))
      q *= 5;
   if (mods & (KMOD_LSHIFT | KMOD_RSHIFT))
      q *= 10;
   if (mods & (KMOD_LALT | KMOD_RALT))
      q = 1;
 
   return q;
}
 
void commodity_renderMod( double bx, double by, double w, double h, void *data )
{
   (void) data;
   (void) h;
   int q;
   char buf[8];
 
   q = commodity_getMod();
   if (q != commodity_mod) {
      //commodity_update( land_getWid(LAND_WINDOW_COMMODITY), NULL );
      commodity_mod = q;
   }
   snprintf( buf, sizeof(buf), "%dx", q );
   gl_printMidRaw( &gl_smallFont, w, bx, by, &cFontWhite, -1, buf );
}