home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / callin1g / modgame.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-17  |  1.2 KB  |  24 lines
  1. Attribute VB_Name = "modGame"
  2. 'The BitBlt function allows for fast and smooth drawing to the form
  3. 'and to picture boxes, but isn't as fast as it should be for making games.
  4.  
  5. Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal animX As Long, ByVal animY 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
  6.  
  7. 'allows the playing of wav files
  8. Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  9. 'for the sound function
  10. Public Const SND_SYNC = &H0         '  play synchronously
  11. Public Const SND_ASYNC = &H1         '  play asynchronously
  12. Public Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
  13.  
  14. 'for the bitblt function
  15. Public Const SRCCOPY = &HCC0020   'Copies the source over the destination
  16. Public Const SRCINVERT = &H660046 'Copies and inverts the source over the destination
  17. Public Const SRCAND = &H8800C6    'Adds the source to the destination
  18.  
  19. Public Walkable(0 To 899) As Integer
  20. Public Texture(0 To 899) As Integer
  21. Public tileLeft(0 To 899) As Integer
  22. Public tileTop(0 To 899) As Integer
  23.  
  24.