goods.kbasic_class

sName As STRING

my_game As game

my_nation As nation

nBuyCosts As INTEGER

nSellCosts As INTEGER

my_goods_type As goods_type

goods (_nation, _goods_type)

Class goods

  Private sName As String

  Private my_game As game

  Private my_nation As nation
  Private nBuyCosts As Integer
  Private nSellCosts As Integer

  Private my_goods_type As goods_type


  Constructor goods(_nation As nation, _goods_type As goods_type)

    my_nation = _nation

    my_goods_type = _goods_type


    Select Case my_goods_type
      Case goods_type.crystal
        sName = "crystal"
      Case goods_type.energy
        sName = "energy"
      Case goods_type.entertainment
        sName = "entertainment"
      Case goods_type.gold
        sName = "gold"
      Case goods_type.hightech
        sName = "hightech"
      Case goods_type.iron
        sName = "iron"
      Case goods_type.luxury
        sName = "luxury"
      Case goods_type.oxygen
        sName = "oxygen"
      Case goods_type.slave
        sName = "slave"
      Case goods_type.water
        sName = "water"

    End Select


  End Constructor



End Class