home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / BJ / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-10-12  |  1.8 KB  |  51 lines
  1. DefInt A-Z
  2.  
  3. Declare Sub WinHelp Lib "user" (ByVal Hwnd%, ByVal HelpFile$, ByVal HelpCommand%, ByVal HelpData As Any)
  4. Declare Function BitBlt Lib "Gdi" (ByVal DestDc%, ByVal DestX%, ByVal DestY%, ByVal ImageWidth%, ByVal Height%, ByVal SrcDc%, ByVal SrcX%, ByVal SrcY%, ByVal RasterOp&)
  5. Global Const SRCCOPY = &HCC0020
  6. Declare Function MhExePath$ Lib "mhen200.vbx" (ByVal Hwnd As Integer)
  7. Declare Function MhExeName$ Lib "mhen200.vbx" (ByVal Hwnd As Integer)
  8. Global Const MhTrue = -1, MhFalse = 0
  9. Global Const CARDSINDECK = 52
  10. Global Const HORIZONTALSEPARATION = 1300 'for cards, in twips
  11. ' These are references to the deck option buttons
  12. Global Const SINGLEDECKBUTTON = 0, DOUBLEDECKBUTTON = 1, SIXDECKBUTTON = 2
  13.  
  14. ' Indicates if back or face of card drawn
  15. Global Const BACK = 1, FACE = 0
  16.  
  17. ' Indicates which hand we're dealing with
  18. Global Const DEALER = 0, PLAYER = 1, PLAYERB = 2
  19.  
  20. ' Indicates hand outcome
  21. Global Const WIN = 1, LOSE = 2, PUSH = 3, WINBJ = 4
  22.  
  23. ' These are used for results of MsgBox FUNCTION calls
  24. Global Const MSGBOXOK = 1, MSGBOXCANCEL = 2, MSGBOXYES = 6, MSGBOXNO = 7
  25. Global Stake&, Advance&
  26. Global Bet(2)
  27. Global Split, ActivePlayer, InactivePlayer
  28. Global Aces, Decks
  29. Global Cards(313), hands(2, 10), HowManyCards(2), Total(2), Busted(2), playerdone(2)
  30. Global MasterCardColumn(2, 10)
  31. Global PlayerHasBj(2), CardRow(2), CardColumn(2, 10), OutCome(2)
  32. Global CardsLeft, NextCard, Temp, Insurance, WhichDeck
  33. Global NewDeck, HandInPlay, DealerVisible
  34. Global BJWidth, BJHeight, DBWidth, DBHeight, DBTop, DBLeft
  35.  
  36. Global Message$, CRLF$
  37.  
  38. ' Following are for Windows help system
  39. Global Const HELPKEYCODE = 112  ' F1
  40. Global Const HELP_CONTEXT = 1, HELP_QUIT = 2, HELP_INDEX = 3
  41. Global Const HELP_HELPONHELP = 4, HELP_SETINDEX = 5
  42. Global Const HELP_KEY = &H101, HELP_MULTIKEY = &H201
  43.  
  44. Global HelpFileName$
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.