home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 6 / Eagles_Nest_Mac_Collection_Disc_6.TOAST / Windows / VisBasAPIex / VBAPIGUIDE.image / PUZZLE.BAS < prev    next >
BASIC Source File  |  1992-09-29  |  3KB  |  104 lines
  1.  
  2. '--------------------------------------------------
  3. '
  4. '           Global Constants
  5. '
  6.  
  7. Global Const CBM_INIT = &H4&    '  initialize bitmap
  8. Global Const DIB_RGB_COLORS = 0 '  color table in RGBTriples
  9. Global Const DIB_PAL_COLORS = 1 '  color table in palette indices
  10.  
  11. Global Const OBM_CLOSE = 32754
  12. Global Const OBM_UPARROW = 32753
  13. Global Const OBM_DNARROW = 32752
  14. Global Const OBM_RGARROW = 32751
  15. Global Const OBM_LFARROW = 32750
  16. Global Const OBM_REDUCE = 32749
  17. Global Const OBM_ZOOM = 32748
  18. Global Const OBM_RESTORE = 32747
  19. Global Const OBM_REDUCED = 32746
  20. Global Const OBM_ZOOMD = 32745
  21. Global Const OBM_RESTORED = 32744
  22. Global Const OBM_UPARROWD = 32743
  23. Global Const OBM_DNARROWD = 32742
  24. Global Const OBM_RGARROWD = 32741
  25. Global Const OBM_LFARROWD = 32740
  26. Global Const OBM_MNARROW = 32739
  27. Global Const OBM_COMBO = 32738
  28. Global Const OBM_UPARROWI = 32737
  29. Global Const OBM_DNARROWI = 32736
  30. Global Const OBM_RGARROWI = 32735
  31. Global Const OBM_LFARROWI = 32734
  32. Global Const OBM_OLD_CLOSE = 32767
  33. Global Const OBM_SIZE = 32766
  34. Global Const OBM_OLD_UPARROW = 32765
  35. Global Const OBM_OLD_DNARROW = 32764
  36. Global Const OBM_OLD_RGARROW = 32763
  37. Global Const OBM_OLD_LFARROW = 32762
  38. Global Const OBM_BTSIZE = 32761
  39. Global Const OBM_CHECK = 32760
  40. Global Const OBM_CHECKBOXES = 32759
  41. Global Const OBM_BTNCORNERS = 32758
  42. Global Const OBM_OLD_REDUCE = 32757
  43. Global Const OBM_OLD_ZOOM = 32756
  44. Global Const OBM_OLD_RESTORE = 32755
  45. Global Const OIC_SAMPLE = 32512
  46. Global Const OIC_HAND = 32513
  47. Global Const OIC_QUES = 32514
  48. Global Const OIC_BANG = 32515
  49. Global Const OIC_NOTE = 32516
  50. Global Const SRCCOPY = &HCC0020
  51. Global Const SRCPAINT = &HEE0086
  52. Global Const SRCAND = &H8800C6
  53. Global Const SRCINVERT = &H660046
  54. Global Const SRCERASE = &H440328
  55. Global Const NOTSRCCOPY = &H330008
  56. Global Const NOTSRCERASE = &H1100A6
  57. Global Const MERGECOPY = &HC000CA
  58. Global Const MERGEPAINT = &HBB0226
  59. Global Const PATCOPY = &HF00021
  60. Global Const PATPAINT = &HFB0A09
  61. Global Const PATINVERT = &H5A0049
  62. Global Const DSTINVERT = &H550009
  63. Global Const BLACKNESS = &H42&
  64. Global Const WHITENESS = &HFF0062
  65. Global Const BLACKONWHITE = 1
  66. Global Const WHITEONBLACK = 2
  67. Global Const COLORONCOLOR = 3
  68. Global Const BI_RGB = 0&
  69. Global Const BI_RLE8 = 1&
  70. Global Const BI_RLE4 = 2&
  71. Global Const TRANSPARENT = 1
  72. Global Const OPAQUE = 2
  73.  
  74. '----------------------------------------------
  75. '
  76. '       Global Variables
  77. '
  78. ' Bitmap segment location in each puzzle area
  79. ' This represents a 5x5 square array
  80. ' The index represents the position on picture1
  81. ' The entry for each index indicates the number of the
  82. ' tile in the bitmap to place in position index.
  83. Global Position%(24)
  84.  
  85. Global PuzzleRect As RECT
  86.  
  87. Global ShadowDC%
  88. Global BMinfo As BITMAP
  89.  
  90. Global DestRects(24) As RECT
  91. Global SourceRects(24) As RECT
  92.  
  93. ' A flag set by the Puzzle2 form to let the Puzzle form
  94. ' know that a new bitmap was loaded.
  95. Global DoTheUpdate%
  96.  
  97. ' A random brush used for the empty square
  98. Global EmptySquareBrush%
  99.  
  100. ' The mode of the empty square.
  101. ' 0 = black, 1 = white, 2 = use EmptySquareBrush
  102. Global EmptySquareMode%
  103.  
  104.