home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Game Programming for Teens / VBGPFT.cdr / sources / chapter08 / ScrollWorld / globals.bas < prev    next >
Encoding:
BASIC Source File  |  2004-11-03  |  1.1 KB  |  39 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 = 800
  19. Public Const SCREENHEIGHT As Long = 600
  20. Public Const STEP As Integer = 8
  21.  
  22. 'game world size
  23. Public Const GAMEWORLDWIDTH As Long = 1600
  24. Public Const GAMEWORLDHEIGHT As Long = 1152
  25.  
  26. 'tile size
  27. Public Const TILEWIDTH As Long = 64
  28. Public Const TILEHEIGHT As Long = 64
  29.  
  30. 'scrolling window size
  31. Public Const WINDOWWIDTH As Long = (SCREENWIDTH \ TILEWIDTH) * TILEWIDTH
  32. Public Const WINDOWHEIGHT As Long = (SCREENHEIGHT \ TILEHEIGHT) * TILEHEIGHT
  33.  
  34. 'scroll buffer size
  35. Public Const SCROLLBUFFERWIDTH As Long = SCREENWIDTH + TILEWIDTH
  36. Public Const SCROLLBUFFERHEIGHT As Long = SCREENHEIGHT + TILEHEIGHT
  37.  
  38.  
  39.