form1.frm

VB街头格斗REALLINE版

'主角被打1
If (DZE1 = 3 Or DZE1 = 4) And X1 > EA1 - 50 And X1 < EA1 + 20 And Y1 > EB1 - 8 And Y1 < EB1 + 8 Then
DONGZUO = 5
Actions = 3
If EYRND < 5 Then sndPlaySound "MUSIC\KUNGFU-1.wav", SND_ASYNC
End If

'主角被打2
If (DZE2 = 3 Or DZE2 = 4) And X1 > EA2 - 50 And X1 < EA2 + 20 And Y1 > EB2 - 8 And Y1 < EB2 + 8 Then
DONGZUO = 5
Actions = 3
If EYRND < 5 Then sndPlaySound "MUSIC\KUNGFU-1.wav", SND_ASYNC
End If

'/////////////////////////////关卡编辑/////////////////////////////////////////
'过关，显示箭头
If ELIFE1 = 0 And ELIFE2 = 0 Then
If BKPICTURE = 1 Or BKPICTURE = 2 Then fxRotate Me.hDC, 560, 50, PIC(6).hDC, 0, 0, 80, 80, 0, vbGreen
End If

If BKPICTURE = 1 And ELIFE1 = 0 And ELIFE2 = 0 And X1 > 580 Then
BKPICTURE = 2
X1 = 50: Y1 = 300
DZE1 = 2: EA1 = 600: EB1 = 240: ELIFE1 = JJ
DZE2 = 2: EA2 = 600: EB2 = 400: ELIFE2 = JJ
End If

If BKPICTURE = 2 And ELIFE1 = 0 And ELIFE2 = 0 And X1 > 580 Then
BKPICTURE = 3
X1 = 50: Y1 = 300
DZE1 = 2: EA1 = 600: EB1 = 260:: ELIFE1 = JJ
DZE2 = 2: EA2 = 600: EB2 = 360:: ELIFE2 = JJ
End If

'检测贴图顺序
If Y1 < EB1 Then
    Call Display_ZJ
    Call Display_DR1
    Call Display_DR2
ElseIf Y1 > EB2 Then
    Call Display_DR1
    Call Display_DR2
    Call Display_ZJ
Else
    Call Display_DR1
    Call Display_ZJ
    Call Display_DR2
End If

Me.Refresh
End Sub

Sub Display_ZJ()

'////////////////////////////主角////////////////////////////////////////////
If DONGZUO = 1 Then
JTIMER = GetTickCount()
If JTIMER - ITIMER > 200 Then FPS = FPS + 80: ITIMER = GetTickCount()
If FPS >= 320 Then FPS = 1
fxRotate Me.hDC, X1, Y1, MANPIC(1).hDC, FPS, 0, 80, 80, 0, vbBlack   '透明黑色
End If

If DONGZUO = 2 Then
JTIMER = GetTickCount()
If JTIMER - ITIMER > 50 Then FPS = FPS + 80: ITIMER = GetTickCount()
If FPS >= 640 Then FPS = 320
fxRotate Me.hDC, X1, Y1, MANPIC(1).hDC, FPS, 0, 80, 80, 0, vbBlack
End If

If DONGZUO = 3 Then
JTIMER = GetTickCount()
If JTIMER - ITIMER > 120 Then FPS = FPS + 80: ITIMER = GetTickCount(): DONGZUO = 1
If FPS >= 320 Then FPS = 1
fxRotate Me.hDC, X1, Y1, MANPIC(1).hDC, FPS, 80, 80, 80, 0, vbBlack
End If

If DONGZUO = 4 Then
JTIMER = GetTickCount()
If JTIMER - ITIMER > 100 Then FPS = FPS + 80: ITIMER = GetTickCount(): DONGZUO = 1
If FPS >= 560 Then FPS = 320
fxRotate Me.hDC, X1, Y1, MANPIC(1).hDC, FPS, 80, 80, 80, 0, vbBlack
End If

If DONGZUO = 5 Then
JTIMER = GetTickCount()
If JTIMER - ITIMER > 150 Then FPS = FPS - 80: ITIMER = GetTickCount(): DONGZUO = 1
If FPS < 480 Then FPS = 640
fxRotate Me.hDC, X1, Y1, MANPIC(1).hDC, FPS, 320, 80, 80, 0, vbBlack
End If
'///////////////////////////////////////////////////////////////////////////////

End Sub


Sub Display_DR1()

'////////////////////////////敌人1////////////////////////////////////////////

EYRND = Int(Rnd * 30)      '敌人随机动作1

'敌人AI
If EA1AI = 1 And ELIFE1 > 0 Then
    DZE1 = 2
    EA1 = EA1 + 3
    If EA1 > X1 + 80 Then EA1AI = 0
Else
    If ELIFE1 > 0 And EYRND = 1 Then ENEMYDZ1 = Int(Rnd * 5 + 1)
    If ENEMYDZ1 = 1 Then DZE1 = 1
    If ENEMYDZ1 = 2 Then DZE1 = 2    '走路比出拳多1
    If ENEMYDZ1 = 3 Then DZE1 = 2
    If ENEMYDZ1 = 4 Then DZE1 = 3
    If ENEMYDZ1 = 5 Then DZE1 = 4
End If

If DZE1 = 1 Then
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 200 Then FPSENEMY1 = FPSENEMY1 - 80: ATIMER1 = GetTickCount()
If FPSENEMY1 <= 480 Then FPSENEMY1 = 720
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 0, 80, 80, 0, vbBlack   '透明黑色
End If

If DZE1 = 2 Then
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 60 Then FPSENEMY1 = FPSENEMY1 - 80: ATIMER1 = GetTickCount()
If FPSENEMY1 <= 80 Then FPSENEMY1 = 480
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 0, 80, 80, 0, vbBlack
EA1 = EA1 - 1
If EA1 < 0 Then EA1 = 600
End If

If DZE1 = 3 Then
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 100 Then FPSENEMY1 = FPSENEMY1 - 80: ATIMER1 = GetTickCount()
If FPSENEMY1 <= 1 Then FPSENEMY1 = 480
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 80, 80, 80, 0, vbBlack
End If

If DZE1 = 4 Then
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 100 Then FPSENEMY1 = FPSENEMY1 - 80: ATIMER1 = GetTickCount()
If FPSENEMY1 <= 480 Then FPSENEMY1 = 720
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 80, 80, 80, 0, vbBlack
End If

If DZE1 = 5 Then    '敌人1被拳打
If EYRND < 5 Then sndPlaySound "MUSIC\KUNGFU-1.wav", SND_ASYNC
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 100 Then FPSENEMY1 = FPSENEMY1 - 80: ATIMER1 = GetTickCount()
If FPSENEMY1 <= 560 Then FPSENEMY1 = 720
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 240, 80, 80, 0, vbBlack
If ELIFE1 <= 0 Then ELIFE1 = 0: DZE1 = 6
End If

If DZE1 = 6 Then    '敌人1被打倒
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 120 Then FPSENEMY1 = FPSENEMY1 - 80: ATIMER1 = GetTickCount()
If FPSENEMY1 <= 320 Then FPSENEMY1 = 400
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 240, 80, 80, 0, vbBlack
End If

If DZE1 = 7 Then     '敌人1被脚踢
If EYRND < 5 Then sndPlaySound "MUSIC\KUNGFU-1.wav", SND_ASYNC
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 120 Then FPSENEMY1 = FPSENEMY1 + 80: ATIMER1 = GetTickCount()
If FPSENEMY1 >= 320 Then FPSENEMY1 = 80
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 320, 80, 80, 0, vbBlack
If ELIFE1 <= 0 Then ELIFE1 = 0: DZE1 = 8
End If

If DZE1 = 8 Then     '敌人1被踢倒
BTIMER1 = GetTickCount()
If BTIMER1 - ATIMER1 > 100 Then FPSENEMY1 = FPSENEMY1 - 80: ATIMER1 = GetTickCount()
If FPSENEMY1 <= 400 Then FPSENEMY1 = 400
fxRotate Me.hDC, EA1, EB1, MANPIC(3).hDC, FPSENEMY1, 320, 80, 80, 0, vbBlack
End If

End Sub

Sub Display_DR2()

'////////////////////////////敌人2////////////////////////////////////////////

EYRND = Int(Rnd * 30)      '敌人随机动作2

'敌人AI
If EA2AI = 1 And ELIFE2 > 0 Then
    DZE2 = 2
    EA2 = EA2 + 3
    If EA2 > X1 + 80 Then EA2AI = 0
Else
    If ELIFE2 > 0 And EYRND = 2 Then ENEMYDZ2 = Int(Rnd * 5 + 1)
    If ENEMYDZ2 = 1 Then DZE2 = 1
    If ENEMYDZ2 = 2 Then DZE2 = 2   '走路比出拳多2
    If ENEMYDZ2 = 3 Then DZE2 = 2
    If ENEMYDZ2 = 4 Then DZE2 = 3
    If ENEMYDZ2 = 5 Then DZE2 = 4
End If

If DZE2 = 1 Then
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 200 Then FPSENEMY2 = FPSENEMY2 - 80: ATIMER2 = GetTickCount()
If FPSENEMY2 <= 480 Then FPSENEMY2 = 720
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 0, 80, 80, 0, vbBlack   '透明黑色
End If

If DZE2 = 2 Then
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 60 Then FPSENEMY2 = FPSENEMY2 - 80: ATIMER2 = GetTickCount()
If FPSENEMY2 <= 80 Then FPSENEMY2 = 480
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 0, 80, 80, 0, vbBlack
EA2 = EA2 - 1
If EA2 < 0 Then EA2 = 600
End If

If DZE2 = 3 Then
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 100 Then FPSENEMY2 = FPSENEMY2 - 80: ATIMER2 = GetTickCount()
If FPSENEMY2 <= 1 Then FPSENEMY2 = 480
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 80, 80, 80, 0, vbBlack
End If

If DZE2 = 4 Then
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 100 Then FPSENEMY2 = FPSENEMY2 - 80: ATIMER2 = GetTickCount()
If FPSENEMY2 <= 480 Then FPSENEMY2 = 720
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 80, 80, 80, 0, vbBlack
End If

If DZE2 = 5 Then    '敌人2被拳打
If EYRND < 5 Then sndPlaySound "MUSIC\KUNGFU-1.wav", SND_ASYNC
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 100 Then FPSENEMY2 = FPSENEMY2 - 80: ATIMER2 = GetTickCount()
If FPSENEMY2 <= 560 Then FPSENEMY2 = 720
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 240, 80, 80, 0, vbBlack
If ELIFE2 <= 0 Then ELIFE2 = 0: DZE2 = 6
End If

If DZE2 = 6 Then    '敌人2被打倒
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 120 Then FPSENEMY2 = FPSENEMY2 - 80: ATIMER2 = GetTickCount()
If FPSENEMY2 <= 320 Then FPSENEMY2 = 400
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 240, 80, 80, 0, vbBlack
End If

If DZE2 = 7 Then     '敌人1被脚踢
If EYRND < 5 Then sndPlaySound "MUSIC\KUNGFU-1.wav", SND_ASYNC
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 100 Then FPSENEMY2 = FPSENEMY2 + 80: ATIMER2 = GetTickCount()
If FPSENEMY2 >= 320 Then FPSENEMY2 = 80
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 320, 80, 80, 0, vbBlack
If ELIFE2 <= 0 Then ELIFE2 = 0: DZE2 = 8
End If

If DZE2 = 8 Then     '敌人1被踢倒
BTIMER2 = GetTickCount()
If BTIMER2 - ATIMER2 > 120 Then FPSENEMY2 = FPSENEMY2 - 80: ATIMER2 = GetTickCount()
If FPSENEMY2 <= 400 Then FPSENEMY2 = 400
fxRotate Me.hDC, EA2, EB2, MANPIC(3).hDC, FPSENEMY2, 320, 80, 80, 0, vbBlack
End If


End Sub