Помогите дописать задачу хищник и жертва!хищники у меня гоняются за жертвой но не как не может съесть ей.Помогите дописать задачу!
Dim i, p1, e, m, p2, n, l, j, why(3), u, b As Integer
Private Sub Timer1_Timer()
xx = 0
yy = 0
For i = 0 To 3
n = Round(Rnd(1) * 7)
Select Case n
Case 0
xx = 55
Case 1
xx = -55
Case 2
yy = 55
Case 3
yy = -55
Case 4
xx = 55
yy = 55
Case 5
xx = 55
yy = -55
Case 6
xx = -55
yy = -55
Case 7
xx = -55
yy = 55
End Select
p1 = Label1(i).Left + xx
p2 = Label1(i).Top + yy
If (p1 >= 0) And (p1 <= 10000) And (p2 > 0) And (p2 < 6700) Then
Label1(i).Left = Label1(i).Left + xx
Label1(i).Top = Label1(i).Top + yy
End If
Next i
End Sub
Private Sub Timer2_Timer()
xx = 0
yy = 0
For e = 4 To 5
n = Round(Rnd(1) * 7)
Select Case n
Case 0
xx = 55
Case 1
xx = -55
Case 2
yy = 55
Case 3
yy = -55
Case 4
xx = 55
yy = 55
Case 5
xx = 55
yy = -55
Case 6
xx = -55
yy = -55
Case 7
xx = -55
yy = 55
End Select
p3 = Label2(e).Left + xx
p4 = Label2(e).Top + yy
If (p3 >= 0) And (p3 <= 10000) And (p4 > 0) And (p4 < 6700) Then
Label2(e).Left = Label2(e).Left + xx
Label2(e).Top = Label2(e).Top + yy
End If
Next e
End Sub
Private Sub Timer3_Timer()
For i = 4 To 5
If p2 < Label2(i).Top Then
Label2(i).Top = Label2(i).Top - 200
End If
If p2 > Label2(i).Top Then
Label2(i).Top = Label2(i).Top + 200
End If
If p1 < Label2(i).Left Then
Label2(i).Left = Label2(i).Left - 200
End If
If p1 > Label2(i).Left Then
Label2(i).Left = Label2(i).Left + 200
End If
For u = 0 To 3
If Label2(i).Left = Label1(u).Left Then
If Label2(i).Top = Label1(u).Top Then
Label1(u).Visible = False
End If
End If
Next u
Next i
End Sub