From c50a9bd318b7e572e83c1320e863e206f0ddd0f0 Mon Sep 17 00:00:00 2001
From: Applevangelist <post@tniedermeier.com>
Date: Sun, 12 Sep 2021 17:37:21 +0200
Subject: [PATCH] CTLD - small bug fix on stock removal

---
 Moose Development/Moose/Ops/CTLD.lua | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/Moose Development/Moose/Ops/CTLD.lua b/Moose Development/Moose/Ops/CTLD.lua
index 0309975df..779e21e7b 100644
--- a/Moose Development/Moose/Ops/CTLD.lua	
+++ b/Moose Development/Moose/Ops/CTLD.lua	
@@ -932,7 +932,7 @@ CTLD.UnitTypes = {
 
 --- CTLD class version.
 -- @field #string version
-CTLD.version="0.1.8a1"
+CTLD.version="0.1.8a2"
 
 --- Instantiate a new CTLD.
 -- @param #CTLD self
@@ -1323,9 +1323,6 @@ function CTLD:_LoadTroops(Group, Unit, Cargotype)
     -- nothing left over
     self:_SendMessage(string.format("Sorry, all %s are gone!", cgoname), 10, false, Group)
     return self
-  else
-    -- remove one
-    Cargotype:RemoveStock()
   end
   -- landed or hovering over load zone?
   local grounded = not self:IsUnitInAir(Unit)
@@ -1379,6 +1376,7 @@ function CTLD:_LoadTroops(Group, Unit, Cargotype)
     self:_SendMessage("Troops boarded!", 10, false, Group)
     self:__TroopsPickedUp(1,Group, Unit, Cargotype)
     self:_UpdateUnitCargoMass(Unit)
+    Cargotype:RemoveStock()
   end
   return self
 end
@@ -1637,9 +1635,6 @@ function CTLD:_GetCrates(Group, Unit, Cargo, number, drop)
       -- nothing left over
       self:_SendMessage(string.format("Sorry, we ran out of %s", cgoname), 10, false, Group)
       return self
-    else
-      -- remove one
-      Cargo:RemoveStock()
     end
   end
   -- check if we are in LOAD zone
@@ -1755,6 +1750,7 @@ function CTLD:_GetCrates(Group, Unit, Cargo, number, drop)
       table.insert(droppedcargo,realcargo)
     else
       realcargo = CTLD_CARGO:New(self.CargoCounter,cratename,templ,sorte,false,false,cratesneeded,self.Spawned_Crates[self.CrateCounter],nil,cargotype.PerCrateMass)
+      Cargo:RemoveStock()
     end
     table.insert(self.Spawned_Cargo, realcargo)
   end