building.kbasic_class

sName As STRING

my_game As game

my_nation As nation

my_planet As planet

my_town As town

nBuyCosts As INTEGER

nSellCosts As INTEGER

my_building_type As building_type

building (_planet, _nation, _town, _building_type)

sell ()

buy ()

Class building

  Private sName As String

  Private my_game As game

  Private my_nation As nation
  Private my_planet As planet
  Private my_town As town

  Private nBuyCosts As Integer
  Private nSellCosts As Integer

  Private my_building_type As building_type


  Constructor building(_planet As planet, _nation As nation, _town As town, _building_type As building_type)

    my_planet = _planet
    my_nation = _nation
    my_town = _town

    my_building_type = _building_type

    Select Case my_building_type
      Case building_type.church
        sName = "church"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.communication
        sName = "communication"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.education
        sName = "education"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.energy
        sName = "energy"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.entertainment
        sName = "entertainment"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.farming
        sName = "farming"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.health
        sName = "health"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.living
        sName = "living"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.market
        sName = "market"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.oxygen
        sName = "oxygen"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.plazma
        sName = "plazma"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.rocketlauncher
        sName = "rocketlauncher"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.science
        sName = "science"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.settle
        sName = "settle"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.shield
        sName = "shield"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.spaceport
        sName = "spaceport"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.wall
        sName = "wall"
        nBuyCosts = 1
        nSellCosts = 1

      Case building_type.water
        sName = "water"
        nBuyCosts = 1
        nSellCosts = 1

    End Select


  End Constructor

  Sub sell()

  End Sub

  Sub buy()

  End Sub

End Class