home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1746.psc / GAME.BAS < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  543 b   |  14 lines
  1. Declare Function BITBLT Lib "GDI" (ByVal HDESTDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal WIDTHX As Integer, ByVal HEIGHTX As Integer, ByVal HSRCDC As Integer, ByVal XSRC As Integer, ByVal YSRC As Integer, ByVal DWORP As Long) As Integer
  2. Global Const SRCCOPY = &HCC0020
  3. Global Const SRCAND = &H8800C6
  4. Global Const SRCPAINT = &HEE0086
  5.  
  6. Global XPLANE As Integer
  7. Global YPLANE As Integer
  8. Global XENEMY As Integer
  9. Global YENEMY As Integer
  10. Global XBULLET As Integer
  11. Global YBULLET As Integer
  12. Global FIRESW As Integer
  13.  
  14.