TABLE OF CONTENTS


Trades/Trades [ Packages ]

[ Top ] [ Packages ]

FUNCTION

 Provides code for trading with ships and bases

SOURCE

package Trades is

Trades/Trades.Trader_Cargo [ Variables ]

[ Top ] [ Trades ] [ Variables ]

FUNCTION

 List of all cargo in trader ship

SOURCE

   Trader_Cargo: BaseCargo_Container.Vector (Capacity => 32);

Trades/Trades.Trade_Buying_Too_Much [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when player trying buy more than can

SOURCE

   Trade_Buying_Too_Much: exception;

Trades/Trades.Trade_Cant_Buy [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when items is not available to buy

SOURCE

   Trade_Cant_Buy: exception;

Trades/Trades.Trade_Invalid_Amount [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when player enter invalid amount

SOURCE

   Trade_Invalid_Amount: exception;

Trades/Trades.Trade_No_Free_Cargo [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when no enough free cargo in ship

SOURCE

   Trade_No_Free_Cargo: exception;

Trades/Trades.Trade_No_Money [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when player don't have money

SOURCE

   Trade_No_Money: exception;

Trades/Trades.Trade_No_Money_In_Base [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when base don't have enough money for buy item

SOURCE

   Trade_No_Money_In_Base: exception;

Trades/Trades.Trade_No_Trader [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when no one is assigned to talk in bases duty

SOURCE

   Trade_No_Trader: exception;

Trades/Trades.Trade_Not_Enough_Money [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when player don't have enough money

SOURCE

   Trade_Not_Enough_Money: exception;

Trades/Trades.Trade_Not_For_Sale_Now [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when no items available at this time for sale

SOURCE

   Trade_Not_For_Sale_Now: exception;

Trades/Trades.Trade_Too_Much_For_Sale [ Exceptions ]

[ Top ] [ Trades ] [ Exceptions ]

FUNCTION

 Raised when player try sell more than have

SOURCE

   Trade_Too_Much_For_Sale: exception;

Trades/Trades.Buy_Items [ Subprograms ]

[ Top ] [ Trades ] [ Subprograms ]

FUNCTION

 Buy items from bases or trader

SOURCE

   procedure Buy_Items
     (Base_Item_Index: BaseCargo_Container.Extended_Index; Amount: String) with
      Pre => Amount'Length > 0;

PARAMETERS

 Base_Item_Index - Base or ship cargo index of item to buy
 Amount          - Amount of items to buy

Trades/Trades.Sell_Items [ Subprograms ]

[ Top ] [ Trades ] [ Subprograms ]

FUNCTION

 Sell items from bases or trader

SOURCE

   procedure Sell_Items
     (Item_Index: Inventory_Container.Extended_Index; Amount: String) with
      Pre => Item_Index in
        Inventory_Container.First_Index(Container => Player_Ship.Cargo) ..
              Inventory_Container.Last_Index
                (Container => Player_Ship.Cargo) and
      Amount'Length > 0;

PARAMETERS

 Item_Index - Player ship cargo index of item to sell
 Amount     - Amount of items to sell