Public Sub HealKontrol()
On Error Resume Next
If PartyHP1 < ((PartyMaxHP1 * Form1.Text12.Text) / 100) Then
HealYap1
Else
If PartyHP2 < ((PartyMaxHP2 * Form1.Text12.Text) / 100) Then
HealYap2
Else
If PartyHP3 < ((PartyMaxHP3 * Form1.Text12.Text) / 100) Then
HealYap3
Else
If PartyHP4 < ((PartyMaxHP4 * Form1.Text12.Text) / 100) Then
HealYap4
Else
If PartyHP5 < ((PartyMaxHP5 * Form1.Text12.Text) / 100) Then
HealYap5
Else
If PartyHP6 < ((PartyMaxHP6 * Form1.Text12.Text) / 100) Then
HealYap6
Else
If PartyHP7 < ((PartyMaxHP7 * Form1.Text12.Text) / 100) Then
HealYap7
Else
If PartyHP8 < ((PartyMaxHP8 * Form1.Text12.Text) / 100) Then
HealYap8
End If
End If
End If
End If
End If
End If
End If
End If
End Sub