Option Explicit
Public FG, D, d1, d2, d3, I, l, i1, q, q1, sa
Sub MoveFrame()
Z = 0
diDEV.GetDeviceStateKeyboard STAC
If st = 10 Then Exit Sub
If STAC.key(203) = 0 And STAC.key(205) = 0 And STAC.key(200) = 0 And STAC.key(208) = 0 Then stag.end1
If STAC.key(0) Then End
If STAC.key(1) Then End
If STAC.key(2) Then levl_
If STAC.key(3) Then DmPer.Stop Seg, Nothing, 0, 0
If STAC.key(4) Then DmPer.PlaySegment Seg, 0, 0
If STAC.key(203) Then st = 4
If STAC.key(205) Then st = 2
If STAC.key(200) Then st = 1
If STAC.key(208) Then st = 3
sa = 1
test
End Sub
Sub MOV()
If sa = 1 Then
For I = 1 To 16
X = X + D: Y = Y + d1
If Z > 0 Then
io = 1
FG = FG + 1
g(Z).X = g(Z).X + d2
g(Z).Y = g(Z).Y + d3
kl = Z
Set MySound1 = DXSound_LoadSound(MediaPath & "\HGR.wav", 0)
MySound1.SetVolume (-50)
MySound1.Play DSBPLAY_DEFAULT
For i1 = 1 To 100000: Next
If STAC.key(208) Or STAC.key(205) Then
Select Case I
Case 1
g(Z).Frame = 2
Case 4
g(Z).Frame = 3
Case 7
g(Z).Frame = 4
Case 10
g(Z).Frame = 5
Case 13
g(Z).Frame = 6
Case 16
g(Z).Frame = 1
End Select
End If
If STAC.key(200) Or STAC.key(203) Then
Select Case I
Case 1
g(Z).Frame = 6
Case 4
g(Z).Frame = 5
Case 7
g(Z).Frame = 4
Case 10
g(Z).Frame = 3
Case 13
g(Z).Frame = 2
Case 16
g(Z).Frame = 1
End Select
End If
End If
ddSurf_Backbuffer.BltColorFill vbRect(0, 0, ddDesc2_Backbuffer.lWidth, ddDesc2_Backbuffer.lHeight), 0
Call ddSurf_Backbuffer.BltFast(x_m, y_m, MAP_, vbRect(0, 0, MAP_S.lWidth, MAP_S.lHeight), DDBLTFAST_SRCCOLORKEY Or DDBLTFAST_WAIT)
If lEvl > 18 Then Call ddSurf_Backbuffer.BltFast(256, 256, MAP1_, vbRect(0, 0, MAP1_S.lWidth, MAP1_S.lHeight), DDBLTFAST_SRCCOLORKEY Or DDBLTFAST_WAIT)
MAN.Draw ddSurf_Backbuffer
HGR.Draw ddSurf_Backbuffer
HTA.Draw ddSurf_Backbuffer
ddSurf_primary.Flip Nothing, DDFLIP_WAIT
If I = 4 Then
Set MySound = DXSound_LoadSound(MediaPath & "\ktwa.wav", 0)
MySound.SetVolume (-1000)
MySound.Play DSBPLAY_DEFAULT
End If
Next
stag.end1
FG = 0
D = 0: d1 = 0: d2 = 0: d3 = 0: 'Z = 0
End If
End Sub
Sub test()
Select Case st
Case 1
If Y = 0 Then Exit Sub
If STAC.key(203) Then Exit Sub
If STAC.key(205) Then Exit Sub
For I = 1 To 200
If Y - 32 = h(I).Y And X = h(I).X Then Exit Sub
Next I
For I = 1 To 25
If Y - 32 = g(I).Y And X = g(I).X Then
Z = I
For i1 = 1 To 200
If g(Z).Y - 32 = h(i1).Y And g(Z).X = h(i1).X Then Exit Sub
Next i1
For i1 = 1 To 25
If g(Z).Y - 32 = g(i1).Y And g(Z).X = g(i1).X Then Exit Sub
Next i1
d1 = -2: d3 = -2
End If
Next I
d1 = -2: q1 = q1 - 1: sa = 1
Call MAN.L_FILE(MediaPath & "\man_U.Bmp", 0, 5)
MOV
Exit Sub
Case 2
If X = 736 Then Exit Sub
If STAC.key(200) Then Exit Sub
If STAC.key(208) Then Exit Sub
For I = 1 To 200
If X + 32 = h(I).X And Y = h(I).Y Then Exit Sub
Next I
For I = 1 To 25
If X + 32 = g(I).X And Y = g(I).Y Then
Z = I
For i1 = 1 To 200
If g(Z).X + 32 = h(i1).X And g(Z).Y = h(i1).Y Then Exit Sub
Next i1
For i1 = 1 To 25
If g(Z).X + 32 = g(i1).X And g(Z).Y = g(i1).Y Then Exit Sub
Next i1
D = 2: d2 = 2
End If
Next I
D = 2: q = q + 1: sa = 1
Call MAN.L_FILE(MediaPath & "\man_r.Bmp", 0, 5)
MOV
Exit Sub
Case 3
If Y = 544 Then Exit Sub
If STAC.key(203) Then Exit Sub
If STAC.key(205) Then Exit Sub
For I = 1 To 200
If Y + 32 = h(I).Y And X = h(I).X Then Exit Sub
Next I
For I = 1 To 25
If Y + 32 = g(I).Y And X = g(I).X Then
Z = I
For i1 = 1 To 200
If g(Z).Y + 32 = h(i1).Y And g(Z).X = h(i1).X Then Exit Sub
Next i1
For i1 = 1 To 25
If g(Z).Y + 32 = g(i1).Y And g(Z).X = g(i1).X Then Exit Sub
Next i1
d1 = 2: d3 = 2
End If
Next I
d1 = 2: q1 = q1 + 1: sa = 1
Call MAN.L_FILE(MediaPath & "\man_D.Bmp", 0, 5)
MOV
Exit Sub
Case 4
If X = 32 Then Exit Sub
If STAC.key(200) Then Exit Sub
If STAC.key(208) Then Exit Sub
For I = 1 To 200
If X - 32 = h(I).X And Y = h(I).Y Then Exit Sub
Next I
For I = 1 To 25
If X - 32 = g(I).X And Y = g(I).Y Then
Z = I
For i1 = 1 To 200
If g(Z).X - 32 = h(i1).X And g(Z).Y = h(i1).Y Then Exit Sub
Next i1
For i1 = 1 To 25
If g(Z).X - 32 = g(i1).X And g(Z).Y = g(i1).Y Then Exit Sub
Next i1
D = -2: d2 = -2: sa = 1
End If
Next I
D = -2: q = q - 2
Call MAN.L_FILE(MediaPath & "\man_l.Bmp", 0, 5)
MOV
End Select
End Sub
Sub LoadAllSurfaces()
Set HGR = Nothing: Set HGR = New CD_HGR
Call HGR.L_FILE(MediaPath & "\HGR.Bmp", 0, 5)
Set MAN = Nothing: Set MAN = New CD_man
Call MAN.L_FILE(MediaPath & "\man_r.Bmp", 0, 5)
Set HTA = Nothing: Set HTA = New cd_hta
Call HTA.L_FILE(MediaPath & "\Enemy.Bmp", 0, 2)
Set sc = Nothing: Set sc = New sayed
Call sc.L_FILE(MediaPath & "\cls.Bmp", 0, 2)
End Sub
Sub levl_()
Select Case lEvl
Case 1
stag.SG1
Case 2
stag.sg2
End Select
End Sub
