module1.bas

VB6.0平台+.dll制作的超级无敌格斗游戏

Attribute VB_Name = "BASIC"
'★★★★★****************************★★★★★**********************★★★★★
'金诺VB园-收藏整理
'本站是专注于VB和VBNET编程的源码下载站
'发布日期：2008-3-3 9:29:50
'网    站：http://www.vbget.com/          (金诺VB园)
'网    站：http://www.vbget.com/daohan/   (VB编程网址导航)
'E-Mail  ：[e-mail]
'QQ      ：158676144
'源码作者：如果您有VB商业源码需要获得收益，本站将有VIP收费下载频道可供你发布!
'         您有权定价;改价;删除;及即时查看下载量(即收益)，所有收益全部归您！
'         本站将在双方协商的一个金额周期内打款到作者帐户中，您只需负责打款费用！
'         本站只作为一个平台提供最新VB源码咨讯和源码下载！
'本注释由<站长工具之智能注释>软件自动添加！金诺VB园有此软件下载！
'★★★★★****************************★★★★★**********************★★★★★

Option Explicit





Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength _
As Long, ByVal hwndCallback As Long) As Long
Public Res As Integer, Ret As String * 1024

Public Declare Function sndPlaySound& Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long)
Public Const SND_ASYNC = &H1
Public Const SND_SYNC = &H0
Public Const SND_NODEFAULT = &H2
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public Const VK_ESCAPE = &H1B     'ESC
Public Const VK_RETURN = &HD      'ENTER
Public Const VK_SPACE = &H20      '空格
Public Const VK_UP = &H26         '上
Public Const VK_DOWN = &H28       '下
Public Const VK_LEFT = &H25       '左
Public Const VK_RIGHT = &H27      '右
Public Const VK_FIRE1P = 17       'CTRL
Public Const VK_LBUTTON = &H1     '鼠标左键
Public Const VK_RBUTTON = &H2     '鼠标右键

Public Const VK_ATTACK1 = 65        'A
Public Const VK_ATTACK2 = 83        'S

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
I As Long
J As Long
End Type



'//////////////////////////////////////////////////////////////////////////


    '/* Ternary Raster Operations */
    Public Const SRCCOPY = &HCC0020
    Public Const SRCPAINT = &HEE0086