home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / sources / chapter19 / CelticCrusader4 / globals.bas < prev    next >
Encoding:
BASIC Source File  |  2004-10-27  |  1.8 KB  |  61 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. 'customize the program here
  22. Public Const FULLSCREEN As Boolean = False
  23. Public Const SCREENWIDTH As Long = 640
  24. Public Const SCREENHEIGHT As Long = 480
  25. Public Const STEP As Integer = 8
  26.  
  27. 'player constants
  28. Public Const WALKSPEED As Integer = 2
  29. Public Const PLAYERSTARTX As Long = 1445
  30. Public Const PLAYERSTARTY As Long = 1207
  31.  
  32. 'colors
  33. Public Const C_PURPLE As Long = &HFFFF00FF
  34. Public Const C_RED As Long = &HFFFF0000
  35. Public Const C_GREEN As Long = &HFF00FF00
  36. Public Const C_BLUE As Long = &HFF0000FF
  37. Public Const C_WHITE As Long = &HFFFFFFFF
  38. Public Const C_BLACK As Long = &H0
  39. Public Const C_GRAY As Long = &HFFAAAAAA
  40.  
  41. 'tile and game world constants
  42. Public Const TILEWIDTH As Long = 64
  43. Public Const TILEHEIGHT As Long = 64
  44. Public Const MAPWIDTH As Long = 1500
  45. Public Const MAPHEIGHT As Long = 2000
  46. Public Const GAMEWORLDWIDTH As Long = TILEWIDTH * MAPWIDTH
  47. Public Const GAMEWORLDHEIGHT As Long = TILEHEIGHT * MAPHEIGHT
  48.  
  49. 'scrolling window size
  50. Public Const WINDOWWIDTH As Integer = (SCREENWIDTH \ TILEWIDTH) * TILEWIDTH
  51. Public Const WINDOWHEIGHT As Integer = (SCREENHEIGHT \ TILEHEIGHT) * TILEHEIGHT
  52.  
  53. 'scroll buffer size
  54. Public Const SCROLLBUFFERWIDTH As Integer = SCREENWIDTH + TILEWIDTH
  55. Public Const SCROLLBUFFERHEIGHT As Integer = SCREENHEIGHT + TILEHEIGHT
  56.  
  57. Public fontImg As Direct3DTexture8
  58. Public fontSpr As TSPRITE
  59.  
  60.  
  61.