home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ape-ad1a / game.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-21  |  1.3 KB  |  51 lines
  1. Attribute VB_Name = "Game"
  2. Public Const GS_MENU = 0
  3. Public Const GS_PLAYING = 1
  4. Public Const GS_PAUSED = 2
  5. Public Const GS_NEWGAME = 3
  6. Public Const GS_LOADNEXTLEVEL = 4
  7. Public Const GS_EXITING = 5
  8. Public GameState As Integer
  9.  
  10. Public Const MS_NEW_ON = 0
  11. Public Const MS_LOAD_ON = 1
  12. Public Const MS_SAVE_ON = 2
  13. Public Const MS_QUIT_ON = 3
  14. Public Const MENU_LOWEST = 0
  15. Public Const MENU_HIGHEST = 3
  16. Public MenuState As Integer
  17.  
  18. Public Const IMAGES_DIR = "\StaticBitmaps\"
  19. Public Const CONFIG_DIR = "\Config\"
  20. Public Const LEVELS_DIR = "\Levels\"
  21. Public Const MUSIC_DIR = "\Music\"
  22. Public Const SOUND_DIR = "\Sounds\"
  23.  
  24. Public LevelNumber As Integer
  25.  
  26. Public TimeAddOn As Integer
  27.  
  28. Public Sub LoadCreditsTXT()
  29.     ' Resize the strings array to no strings
  30.     ReDim Credits.Strings(0)
  31.  
  32.     ' Open the text file
  33.     Open App.Path & CONFIG_DIR & "\credits.txt" For Input As #1
  34.         ' Repeat until the end of the file
  35.         Do Until EOF(1)
  36.             ' Resize the array preserving the current entries
  37.             ReDim Preserve Credits.Strings(UBound(Credits.Strings) + 1)
  38.             ' Load in the string
  39.             Input #1, Credits.Strings(UBound(Credits.Strings))
  40.         Loop
  41.     Close #1
  42. End Sub
  43.  
  44. Public Sub SaveGame()
  45.  
  46. End Sub
  47.  
  48. Public Sub LoadGame()
  49.  
  50. End Sub
  51.