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