Public Class Form3
    Dim THealth, MTeam, TTeam, Slot, Dead As Integer
    Dim TPosX, TPosY, TDifX, TDifY As Double
    Dim Target As Integer = 1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Target
        THealth = Read2Byte((&H6E27AC) + (&HC0E1 * (Target - 1)))
        If THealth >= 0 And THealth <= 150 Then
            ProgressBar1.Value = THealth
        End If
        If THealth <= 0 And THealth > 150 Then
            ProgressBar1.Value = 0
        End If
        Slot = ReadByte(&H6E279C)
        MTeam = ReadByte((&H6EE878) + (&HC0E1 * (Slot - 1)))
        TTeam = ReadByte((&H6EE878) + (&HC0E1 * (Target - 1)))
        Dead = ReadByte((&H6E27A1) + (&HC0E1 * (Target - 1)))
        TPosX = ReadFloat((&HAFA320) + (&H8 * (Target - 1)))
        TPosY = ReadFloat((&HAFA324) + (&H8 * (Target - 1)))
        TDifX = TPosX - ReadFloat(&H6E2794) + 320
        TDifY = TPosY - ReadFloat(&H6E2798) + 240
        If Target <> Slot And TTeam <> 5 And Dead = 0 And ReadByte((&H6E27A0) + (&HC0E1 * (Target - 1))) <> 0 And ProgressBar1.Value > 0 Then
            If TTeam = 0 Or TTeam <> MTeam Then
                WriteFloat(&H6E2794, TPosX)
                WriteFloat(&H6E2798, TPosY)
                WriteFloat(&HB9B940, TDifX)
                WriteFloat(&HB9B944, TDifY)
            End If
        Else
            If Target = 32 Then
                Target = 1
            Else
                Target = Target + 1
            End If
        End If
    End Sub
End Class