nation.kbasic_class

nation (_nation_type, _bAI)

Class nation

  Private sName As String

  Private my_game As game

  Private my_nation_type As nation_type

  Private my_unit[999] As unit
  Private my_goods[999] As goods
  Private my_building[999] As building

  Private my_science As science

  Private bAI As Boolean

  Public all_people As Integer
  Public all_pilot As Integer
  Public all_scientist As Integer
  Public all_soldier As Integer

  Public earth As Integer
  Public mars As Integer
  Public venus As Integer
  Public mercury As Integer
  Public saturn As Integer
  Public neptune As Integer
  Public jupiter As Integer
  Public moon As Integer

  Public church As Integer
  Public communication As Integer
  Public education As Integer
  Public energy As Integer
  Public entertainment As Integer
  Public farming As Integer
  Public health As Integer
  Public living As Integer
  Public market As Integer
  Public oxygen As Integer
  Public plazma As Integer
  Public rocketlauncher As Integer
  Public science As Integer
  Public settle As Integer
  Public shield As Integer
  Public spaceport As Integer
  Public wall As Integer
  Public water As Integer

  Public all_crystal As Integer
  Public all_energy As Integer
  Public all_entertainment As Integer
  Public all_food As Integer
  Public all_gold As Integer
  Public all_hightech As Integer
  Public all_iron As Integer
  Public all_luxury As Integer
  Public all_oxygen As Integer
  Public all_slave As Integer
  Public all_water As Integer


  Constructor nation(_nation_type As nation_type, _bAI As Boolean)

    bAI = _bAI
    my_nation_type = _nation_type

    Select Case my_nation_type
      Case nation_type.china
        sName = "china"
      Case nation_type.usa
        sName = "usa"
      Case nation_type.eu
        sName = "eu"

    End Select

  End Constructor



End Class