science.kbasic_class

science ()

Class science

  Private my_game As game

  Static Public level_people[3] As Integer
  Static Public level_pilot[3] As Integer
  Static Public level_scientist[3] As Integer
  Static Public level_soldier[3] As Integer

  Static Public level_earth[3] As Integer
  Static Public level_mars[3] As Integer
  Static Public level_venus[3] As Integer
  Static Public level_mercury[3] As Integer
  Static Public level_saturn[3] As Integer
  Static Public level_neptune[3] As Integer
  Static Public level_jupiter[3] As Integer
  Static Public level_moon[3] As Integer

  Static Public level_church[3] As Integer
  Static Public level_communication[3] As Integer
  Static Public level_education[3] As Integer
  Static Public level_energy[3] As Integer
  Static Public level_entertainment[3] As Integer
  Static Public level_farming[3] As Integer
  Static Public level_health[3] As Integer
  Static Public level_living[3] As Integer
  Static Public level_market[3] As Integer
  Static Public level_oxygen[3] As Integer
  Static Public level_plazma[3] As Integer
  Static Public level_rocketlauncher[3] As Integer
  Static Public level_science[3] As Integer
  Static Public level_settle[3] As Integer
  Static Public level_shield[3] As Integer
  Static Public level_spaceport[3] As Integer
  Static Public level_wall[3] As Integer
  Static Public level_water[3] As Integer

  Static Public level_crystal[3] As Integer
  Static Public level_energy2[3] As Integer
  Static Public level_entertainment2[3] As Integer
  Static Public level_food[3] As Integer
  Static Public level_gold[3] As Integer
  Static Public level_hightech[3] As Integer
  Static Public level_iron[3] As Integer
  Static Public level_luxury[3] As Integer
  Static Public level_oxygen2[3] As Integer
  Static Public level_slave[3] As Integer
  Static Public level_water2[3] As Integer

  Static
    level_people[1] = 1 : level_people[2] = 3 : level_people[3] = 4
    level_pilot[1] = 1 : level_pilot[2] = 3 : level_pilot[3] = 4
  End Static

  Sub calculate()

'    Select Case people
'      Case 1 : Parent.people = Parent.people + 1
'      Case 2 : Parent.people = Parent.people + 2
'      Case 3 : Parent.people = Parent.people + 5
'    End Select
'
'    Select Case pilot
'      Case 1 : Parent.pilot = Parent.pilot + 1
'      Case 2 : Parent.pilot = Parent.pilot + 2
'      Case 3 : Parent.pilot = Parent.pilot + 5
'    End Select

  End Sub

  Public people As Integer
  Public pilot As Integer
  Public scientist As Integer
  Public 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 crystal As Integer
  Public energy2 As Integer
  Public entertainment2 As Integer
  Public food As Integer
  Public gold As Integer
  Public hightech As Integer
  Public iron As Integer
  Public luxury As Integer
  Public oxygen2 As Integer
  Public slave As Integer
  Public water2 As Integer

  Public level As Integer

    /*
    doscience:

    */

  Constructor science()

  End Constructor

End Class