home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD149932152001.psc / DXMod.bas < prev    next >
Encoding:
BASIC Source File  |  2001-02-15  |  1.1 KB  |  31 lines
  1. Attribute VB_Name = "DXMod"
  2. Option Explicit
  3.  
  4. Public DXMain As New DirectX7 'Main Object
  5. Public ddMain As DirectDraw7 ' DirectDraw Object
  6. Public diMain As DirectInput 'DirectInput Object
  7. Public diDev As DirectInputDevice 'DirectInput Device
  8. Public diState As DIKEYBOARDSTATE 'Direct Input Keyboard
  9. Public sdMain As DDSURFACEDESC2  'Main Surface
  10. Public dsPrim As DirectDrawSurface7 'Primary Surface
  11. Public dsBbuf As DirectDrawSurface7 'Buffer Surface
  12. Public sdStar As DDSURFACEDESC2 'Star Surface Description
  13. Public dsStar As DirectDrawSurface7 'Star Surface
  14. Public sAngle As Single 'Current Star Angle
  15. Public sSpd As Single 'Speed Multiplier
  16. Public sStar(150, 3) As Single 'Star Array
  17.  
  18. Public dsShip As DirectDrawSurface7 'Ship Surface
  19. Public sdShip As DDSURFACEDESC2 'Ship Description
  20. Public rShip As RECT
  21.  
  22. Public dsMissile As DirectDrawSurface7 'Missile Surface
  23. Public sdMissile As DDSURFACEDESC2 'Missile Description
  24. Public rMissile As RECT
  25.  
  26. Public dsStone As DirectDrawSurface7 'Stone Surface
  27. Public sdStone As DDSURFACEDESC2 'Stone Description
  28. Public rStone As RECT
  29.  
  30.  
  31.