home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / sources / chapter12 / WalkAbout / globals.bas < prev    next >
Encoding:
BASIC Source File  |  2004-10-23  |  1.2 KB  |  38 lines
  1. Attribute VB_Name = "globals"
  2. '---------------------------------------------------------------
  3. ' Visual Basic Game Programming for Teens
  4. ' Globals File
  5. '---------------------------------------------------------------
  6.  
  7. Option Explicit
  8. Option Base 0
  9.  
  10. 'Windows API functions
  11. Public Declare Function GetTickCount Lib "kernel32" () As Long
  12.  
  13. 'colors
  14. Public Const C_BLACK As Long = &H0
  15.  
  16. 'customize the program here
  17. Public Const FULLSCREEN As Boolean = False
  18. Public Const SCREENWIDTH As Long = 640
  19. Public Const SCREENHEIGHT As Long = 480
  20. Public Const STEP As Integer = 8
  21.  
  22. 'tile and game world constants
  23. Public Const TILEWIDTH As Long = 64
  24. Public Const TILEHEIGHT As Long = 64
  25. Public Const MAPWIDTH As Long = 1500
  26. Public Const MAPHEIGHT As Long = 2000
  27. Public Const GAMEWORLDWIDTH As Long = TILEWIDTH * MAPWIDTH
  28. Public Const GAMEWORLDHEIGHT As Long = TILEHEIGHT * MAPHEIGHT
  29.  
  30. 'scrolling window size
  31. Public Const WINDOWWIDTH As Integer = (SCREENWIDTH \ TILEWIDTH) * TILEWIDTH
  32. Public Const WINDOWHEIGHT As Integer = (SCREENHEIGHT \ TILEHEIGHT) * TILEHEIGHT
  33.  
  34. 'scroll buffer size
  35. Public Const SCROLLBUFFERWIDTH As Integer = SCREENWIDTH + TILEWIDTH
  36. Public Const SCROLLBUFFERHEIGHT As Integer = SCREENHEIGHT + TILEHEIGHT
  37.  
  38.