home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Fracas20867210102007.psc / Fracas_VB / BitBltStuff.bas < prev    next >
BASIC Source File  |  2000-04-27  |  3KB  |  92 lines
  1. Attribute VB_Name = "BitBlitStuff"
  2. Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
  3. Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
  4. Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  5.  
  6. Public Const SRCCOPY = &HCC0020         ' (DWORD) dest = source
  7. Public Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
  8. Public Const SRCPAINT = &HEE0086        ' (DWORD) dest = source OR dest
  9. Public Const SRCAND = &H8800C6          ' (DWORD) dest = source AND dest
  10.  
  11. 'RollOver tells us that a map exists on the screen and
  12. 'we can therefore interact with it.
  13. Public RollOver As Boolean
  14.  
  15. 'These parameters are used to parse menu settings.
  16. Public MinLakeSize As Integer
  17. Public MaxCountrySize As Integer
  18. Public NumCountries As Integer
  19. Public CFGCountrySize As Integer
  20. Public CFGCheckedPct As Integer
  21. Public CFGIslands As Integer
  22. Public CFGLakeSize As Integer
  23. Public CFGCoast As Integer
  24. Public CFGProportion As Integer
  25. Public CFGShape As Integer
  26. Public CFGColor As Integer
  27. Public CFGBorders As Integer
  28. Public CFGInitTroopPl As Integer
  29. Public CFGInitTroopCt As Integer
  30. Public u As Integer
  31. Public LandPct As Double
  32. Public PropPct As Double
  33. Public ShapePct As Double
  34. Public CoastPctKeep As Double
  35. Public IslePctKeep As Double
  36.  
  37. 'These are the screen dimensions.
  38. Public Const WIDE = 656
  39. Public Const TALL = 472
  40.  
  41. 'Make some map variables public.
  42. Public MyMap As Map
  43. Public CurrentMouse As Long
  44.  
  45. 'These are the offsets (in pixels) for the map within the form container.
  46. Public Const XOFFSET = 10
  47. Public Const YOFFSET = 1
  48.  
  49. 'The maximum number of balls that we can track.
  50. Public Const BALLMAX = 500
  51.  
  52. 'The maximum number of waves in the ocean at one time.
  53. Public Const WAVEMAX = 100
  54.  
  55. 'The gravitational constant (in pixels/timer cycle^2)
  56. Public Const GRAVITY = 1
  57.  
  58. 'These constants contain properties for each type of explosion used.
  59. 'Note that some of these are multipliers, not absolutes.
  60. 'Little splashes in the water.
  61. Public Const SPLASH_COUNT = 15
  62. Public Const SPLASH_INTENSITY = 15
  63. Public Const SPLASH_SPREAD = 20
  64. Public Const SPLASH_ELASTIC = 0
  65. Public Const SPLASH_SIZE = 2
  66. Public Const SPLASH_COLOR = 0
  67. 'A small explosion.
  68. Public Const SMALL_COUNT = 0.2
  69. Public Const SMALL_INTENSITY = 0.03
  70. Public Const SMALL_SPREAD = 25
  71. Public Const SMALL_ELASTIC = 50
  72. Public Const SMALL_SIZE = 2
  73. 'A medium explosion.
  74. Public Const MED_COUNT = 0.3
  75. Public Const MED_INTENSITY = 0.05
  76. Public Const MED_SPREAD = 30
  77. Public Const MED_ELASTIC = 55
  78. Public Const MED_SIZE = 3
  79. 'A big explosion.
  80. Public Const BIG_COUNT = 0.4
  81. Public Const BIG_INTENSITY = 0.07
  82. Public Const BIG_SPREAD = 35
  83. Public Const BIG_ELASTIC = 60
  84. Public Const BIG_SIZE = 4
  85.  
  86. Public Sub DrawMap()
  87.  
  88. 'These commands draw the map.  MapBuffer is where the map is drawn.
  89. MyMap.DisplayMap Land!LandMap.hdc, Land!MapBuffer.hdc, CFGBorders
  90.  
  91. End Sub
  92.