planet.kbasic_class

planet (_planet_type)

Class planet

  Private sName As String

  Private my_game As game

  Private my_planet_type As planet_type


  Constructor planet(_planet_type As planet_type)

    my_planet_type = _planet_type


    Select Case my_planet_type
      Case planet_type.earth
        sName = "earth"
      Case planet_type.mars
        sName = "mars"
      Case planet_type.venus
        sName = "venus"
      Case planet_type.mercury
        sName = "mercury"
      Case planet_type.saturn
        sName = "saturn"
      Case planet_type.neptune
        sName = "neptune"
      Case planet_type.jupiter
        sName = "jupiter"
      Case planet_type.moon
        sName = "moon"

    End Select


  End Constructor



End Class