Ticket #3917: tradeinternational.5.diff

binaries/data/mods/public/simulation/components/Market.js

@@ -8 +8 @@
                     "<value>land</value>" +
                     "<value>naval</value>" +
                 "</choice>" +
             "</oneOrMore>" +
         "</list>" +
+    "</element>" +
+    "<element name='InternationalBonus' a:help='Additional part of the gain donated when two different players trade'>" +
+        "<ref name='nonNegativeDecimal'/>" +
     "</element>";
 
 Market.prototype.Init = function()
 {
     this.traders = new Set();   // list of traders with a route on this market
@@ -26 +29 @@
 Market.prototype.RemoveTrader = function(ent)
 {
     this.traders.delete(ent);
 };
 
+Market.prototype.GetInternationalBonus = function()
+{
+    return ApplyValueModificationsToEntity("Market/InternationalBonus", +this.template.InternationalBonus, this.entity);
+}
+
 Market.prototype.HasType = function(type)
 {
     return this.tradeType.has(type);
 };
 

binaries/data/mods/public/simulation/components/Trader.js

@@ -12 +12 @@
 Trader.prototype.Schema =
     "<a:help>Lets the unit generate resouces while moving between markets (or docks in case of water trading).</a:help>" +
     "<a:example>" +
         "<MaxDistance>2.0</MaxDistance>" +
         "<GainMultiplier>1.0</GainMultiplier>" +
+        "<InternationalBonus>0.25</InternationalBonus>" +
     "</a:example>" +
     "<element name='GainMultiplier' a:help='Additional gain multiplier'>" +
         "<ref name='positiveDecimal'/>" +
     "</element>";
 
@@ -131 +132 @@
 Trader.prototype.GetSecondMarket = function()
 {
     return this.markets[1] || null;
 };
 
+Trader.prototype.GetTraderGainMultiplier = function()
+{
+    return ApplyValueModificationsToEntity("Trader/GainMultiplier", +this.template.GainMultiplier, this.entity);
+}
+
 Trader.prototype.HasBothMarkets = function()
 {
     return this.markets.length >= 2;
 };
 

binaries/data/mods/public/simulation/data/technologies/trade_commercial_treaty.json

@@ +1 @@
+{
+    "genericName": "Commercial Treaty",
+    "description": "Improve the international trading profit.",
+    "cost": { "food": 0, "wood": 0, "stone": 0, "metal": 100 },
+    "requirements": { "tech": "phase_town" },
+    "requirementsTooltip": "Unlocked in Town Phase.",
+    "icon": "sibylline_books.png",
+    "researchTime": 40,
+    "tooltip": "Market +10% International Bonus.",
+    "modifications": [{ "value": "Market/InternationalBonus", "add": 0.10 }],
+    "affects": ["Market"],
+    "soundComplete": "interface/alarm/alarm_upgradearmory.xml"
+}

binaries/data/mods/public/simulation/helpers/TraderGain.js

@@ -1 +1 @@
 // This constant used to adjust gain value depending on distance
-const DISTANCE_FACTOR = 1 / 115;
+const DISTANCE_FACTOR = 1 / 13225;
 
-// Additional gain (applying to each market) for trading performed between markets of different players, in percents
-const INTERNATIONAL_TRADING_ADDITION = 25;
-
-// If trader undefined, the trader owner is supposed to be the same as the first market
-function CalculateTraderGain(firstMarket, secondMarket, template, trader)
+function CalculateTraderGain(firstMarket, secondMarket, traderTemplate, trader)
 {
+    if (!traderTemplate)
+        return null;
     var gain = {};
 
     var cmpFirstMarketPosition = Engine.QueryInterface(firstMarket, IID_Position);
     var cmpSecondMarketPosition = Engine.QueryInterface(secondMarket, IID_Position);
     if (!cmpFirstMarketPosition || !cmpFirstMarketPosition.IsInWorld() ||
@@ -17 +15 @@
     var firstMarketPosition = cmpFirstMarketPosition.GetPosition2D();
     var secondMarketPosition = cmpSecondMarketPosition.GetPosition2D();
 
     // Calculate ordinary Euclidean distance between markets.
     // We don't use pathfinder, because ordinary distance looks more fair.
-    var distance = firstMarketPosition.distanceTo(secondMarketPosition);
+    var distanceSq = firstMarketPosition.distanceToSquared(secondMarketPosition);
     // We calculate gain as square of distance to encourage trading between remote markets
-    gain.traderGain = Math.pow(distance * DISTANCE_FACTOR, 2);
-    if (template && template.GainMultiplier)
-    {
-        if (trader)
-            gain.traderGain *= ApplyValueModificationsToEntity("Trader/GainMultiplier", +template.GainMultiplier, trader);
-        else    // called from the gui with modifications already applied
-            gain.traderGain *= template.GainMultiplier;
-    }
+    gain.traderGain = distanceSq * DISTANCE_FACTOR;
+    let gainMultiplier = traderTemplate.GainMultiplier || 1;
+    // false when called from the gui, modifications already applied
+    if (trader)
+        gainMultiplier = ApplyValueModificationsToEntity("Trader/GainMultiplier", gainMultiplier, trader);
+    let cmpMarket1Player = QueryOwnerInterface(firstMarket);
+    let cmpMarket2Player = QueryOwnerInterface(secondMarket);
+    if (!cmpMarket1Player || !cmpMarket2Player)
+        return null;
+    gain.market1Owner = cmpMarket1Player.GetPlayerID();
+    gain.market2Owner = cmpMarket2Player.GetPlayerID();
     // If trader undefined, the trader owner is supposed to be the same as the first market
-    var cmpOwnership = trader ? Engine.QueryInterface(trader, IID_Ownership) : Engine.QueryInterface(firstMarket, IID_Ownership);
-    if (!cmpOwnership)
+    let cmpPlayer = trader ? QueryOwnerInterface(trader) : cmpMarket1Player;
+    if (!cmpPlayer)
         return null;
-    gain.traderOwner = cmpOwnership.GetOwner();
-
+    gain.traderOwner = cmpPlayer.GetPlayerID();
+    // Add potential player trade multipliers
+    let playerBonus = cmpPlayer.GetTradeRateMultiplier();
+    let market1PlayerBonus = gain.traderOwner == gain.market1Owner ? cmpMarket1Player.GetTradeRateMultiplier() : 1;
+    let market2PlayerBonus = gain.traderOwner == gain.market2Owner ? cmpMarket2Player.GetTradeRateMultiplier() : 1;
     // If markets belong to different players, add gain from international trading
-    var ownerFirstMarket = Engine.QueryInterface(firstMarket, IID_Ownership).GetOwner();
-    var ownerSecondMarket = Engine.QueryInterface(secondMarket, IID_Ownership).GetOwner();
-    if (ownerFirstMarket != ownerSecondMarket)
-    {
-        gain.market1Gain = gain.traderGain * ApplyValueModificationsToEntity("Trade/International", INTERNATIONAL_TRADING_ADDITION, firstMarket) / 100;
-        gain.market1Owner = ownerFirstMarket;
-        gain.market2Gain = gain.traderGain * ApplyValueModificationsToEntity("Trade/International", INTERNATIONAL_TRADING_ADDITION, secondMarket) / 100;
-        gain.market2Owner = ownerSecondMarket;
-    }
-
-    // Add potential trade multipliers and roundings
-    var cmpPlayer = trader ? QueryOwnerInterface(trader) : QueryOwnerInterface(firstMarket);
-    if (cmpPlayer)
-        gain.traderGain *= cmpPlayer.GetTradeRateMultiplier();
-    gain.traderGain = Math.round(gain.traderGain);
-
-    if (ownerFirstMarket != ownerSecondMarket)
-    {
-        if ((cmpPlayer = QueryOwnerInterface(firstMarket)))
-            gain.market1Gain *= cmpPlayer.GetTradeRateMultiplier();
-        gain.market1Gain = Math.round(gain.market1Gain);
-
-        if ((cmpPlayer = QueryOwnerInterface(secondMarket)))
-            gain.market2Gain *= cmpPlayer.GetTradeRateMultiplier();
-        gain.market2Gain = Math.round(gain.market2Gain);
-    }
+    let cmpMarket1 = Engine.QueryInterface(firstMarket, IID_Market);
+    let cmpMarket2 = Engine.QueryInterface(secondMarket, IID_Market);
+    if (!cmpMarket1 || !cmpMarket2)
+        return null;
+    let internationalBonus1 = gain.market1Owner != gain.market2Owner ? cmpMarket1.GetInternationalBonus() : 0;
+    let internationalBonus2 = gain.market1Owner != gain.market2Owner ? cmpMarket2.GetInternationalBonus() : 0;
+    gain.traderGain *= gainMultiplier;
+    gain.market1Gain = Math.round(gain.traderGain * internationalBonus1 * market1PlayerBonus);
+    gain.market2Gain = Math.round(gain.traderGain * internationalBonus2 * market2PlayerBonus);
+    gain.traderGain = Math.round(gain.traderGain * playerBonus);
 
     return gain;
 }
 
 Engine.RegisterGlobal("CalculateTraderGain", CalculateTraderGain);

binaries/data/mods/public/simulation/templates/structures/cart_dock.xml

@@ -17 +17 @@
     <GenericName>Commercial Port</GenericName>
     <SpecificName>Namel</SpecificName>
     <History>The Carthaginians were famous for their sea trade. Carthage itself had an entire harbor dedicated to nothing more than commercial sea trade.</History>
     <Tooltip>Construct fishing boats to gather meat and merchant ships to trade with other docks.</Tooltip>
   </Identity>
+  <Market>
+    <InternationalBonus op="add">0.1</InternationalBonus>
+  </Market>
   <Obstruction>
     <Static width="30.0" depth="19.0"/>
   </Obstruction>
   <ProductionQueue>
     <Technologies datatype="tokens">

binaries/data/mods/public/simulation/templates/structures/cart_market.xml

@@ -10 +10 @@
   <Identity>
     <Civ>cart</Civ>
     <SpecificName>Šūq</SpecificName>
     <History>Carthaginian markets were probably just big sheds or structures surrounding a ?market? area or in a wharf area of a port.</History>
   </Identity>
+  <Market>
+    <InternationalBonus op="add">0.1</InternationalBonus>
+  </Market>
   <Obstruction>
     <Static width="27.0" depth="20.0"/>
   </Obstruction>
   <VisualActor>
     <Actor>structures/carthaginians/market.xml</Actor>

binaries/data/mods/public/simulation/templates/template_structure_economic_market.xml

@@ -32 +32 @@
     <stone>25</stone>
     <metal>25</metal>
   </Loot>
   <Market>
     <TradeType>land</TradeType>
+    <InternationalBonus>0.2</InternationalBonus>
   </Market>
   <Obstruction>
     <Static width="30.0" depth="26.0"/>
   </Obstruction>
   <Sound>
@@ -57 +58 @@
       unlock_shared_dropsites
       trade_convoys_speed
       trade_convoys_armor
       trade_gain_01
       trade_gain_02
+      trade_commercial_treaty
     </Technologies>
     <Entities datatype="tokens">
       units/{civ}_support_trader
     </Entities>
   </ProductionQueue>

binaries/data/mods/public/simulation/templates/template_structure_military_dock.xml

@@ -34 +34 @@
     <stone>0</stone>
     <metal>0</metal>
   </Loot>
   <Market>
     <TradeType>land naval</TradeType>
+    <InternationalBonus>0.2</InternationalBonus>
   </Market>
   <Obstruction>
     <Static width="18.0" depth="18.0"/>
   </Obstruction>
   <Position>