fixed crash when trying to sell to base medicines with full ship carg…

…o (issue #49)
thindil · Nov 6, 2019 · 77c4499 · 77c4499
1 parent c9ac30f
commit 77c4499
Showing 1 changed file with 11 additions and 5 deletions.
diff --git a/src/ui/maps-ui-handlers.adb b/src/ui/maps-ui-handlers.adb
@@ -1365,11 +1365,17 @@ package body Maps.UI.Handlers is
            (PlayerShip, PlayerShip.Cargo.Element(ItemIndex).ProtoIndex,
             (0 - PlayerShip.Cargo.Element(ItemIndex).Amount));
       else
-         GainRep
-           (BaseIndex, ((PlayerShip.Cargo(ItemIndex).Amount / 20) * (-1)));
-         SellItems
-           (ItemIndex,
-            Integer'Image(PlayerShip.Cargo.Element(ItemIndex).Amount));
+         begin
+            SellItems
+              (ItemIndex,
+               Integer'Image(PlayerShip.Cargo.Element(ItemIndex).Amount));
+            GainRep
+              (BaseIndex, ((PlayerShip.Cargo(ItemIndex).Amount / 20) * (-1)));
+         exception
+            when Trade_No_Free_Cargo =>
+               ShowDialog
+                 ("You can't sell medicines to the base because you don't have enough free cargo space for money.");
+         end;
       end if;
       UpdateHeader;
       UpdateMessages;