unit.kbasic_class

my_game As game

sName As STRING

nAttack As INTEGER

nDefense As INTEGER

nMovement As INTEGER

my_nation As nation

my_unit_type As unit_type

my_planet As planet

x As INTEGER

y As INTEGER

unit (_planet, _nation, _unit_type)

Class unit

  Private my_game As game

  Private sName As String
  Private nAttack As Integer
  Private nDefense As Integer
  Private nMovement As Integer

  Private my_nation As nation
  Private my_unit_type As unit_type
  Private my_planet As planet

  Private x As Integer
  Private y As Integer

  Constructor unit(_planet As planet, _nation As nation, _unit_type As unit_type)

    my_planet = _planet
    my_nation = _nation
    my_unit_type = _unit_type

    x = 0
    y = 0

    Select Case my_unit_type
      Case unit_type.people
        sName = "People"
        nAttack = 0
        nDefense = 1
        nMovement = 1
      Case unit_type.pilot
        sName = "Pilots"
        nAttack = 2
        nDefense = 1
        nMovement = 4
      Case unit_type.scientist
        sName = "Scientists"
        nAttack = 0
        nDefense = 1
        nMovement = 1
      Case unit_type.soldier
        sName = "Soldiers"
        nAttack = 4
        nDefense = 3
        nMovement = 1
    End Select

  End Constructor



End Class