home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / sources / chapter14 / CollisionTest / globals.bas < prev    next >
Encoding:
BASIC Source File  |  2004-10-24  |  1.4 KB  |  46 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. '*** new, added in chapter 14
  14. Public Declare Function IntersectRect _
  15. Lib "user32" ( _
  16. lpDestRect As RECT, _
  17. lpSrc1Rect As RECT, _
  18. lpSrc2Rect As RECT) _
  19. As Long
  20.  
  21. 'colors
  22. Public Const C_BLACK As Long = &H0
  23.  
  24. 'customize the program here
  25. Public Const FULLSCREEN As Boolean = False
  26. Public Const SCREENWIDTH As Long = 640
  27. Public Const SCREENHEIGHT As Long = 480
  28. Public Const STEP As Integer = 8
  29.  
  30. 'tile and game world constants
  31. Public Const TILEWIDTH As Long = 64
  32. Public Const TILEHEIGHT As Long = 64
  33. Public Const MAPWIDTH As Long = 1500
  34. Public Const MAPHEIGHT As Long = 2000
  35. Public Const GAMEWORLDWIDTH As Long = TILEWIDTH * MAPWIDTH
  36. Public Const GAMEWORLDHEIGHT As Long = TILEHEIGHT * MAPHEIGHT
  37.  
  38. 'scrolling window size
  39. Public Const WINDOWWIDTH As Integer = (SCREENWIDTH \ TILEWIDTH) * TILEWIDTH
  40. Public Const WINDOWHEIGHT As Integer = (SCREENHEIGHT \ TILEHEIGHT) * TILEHEIGHT
  41.  
  42. 'scroll buffer size
  43. Public Const SCROLLBUFFERWIDTH As Integer = SCREENWIDTH + TILEWIDTH
  44. Public Const SCROLLBUFFERHEIGHT As Integer = SCREENHEIGHT + TILEHEIGHT
  45.  
  46.