Untitled

Dim Dead, Ingame, Target, slot, PlayerTeam, TargetTeam As Integer
Dim EnemyX, EnemyY, MyX, MyY, MidScreenX, MidScreenY, MouseX, MouseY As Double

Private Sub Form_Load()
    Target = 1
End Sub

Private Sub Timer1_Timer()
    slot = ReadByte(&H6E30E4)
    Dead = ReadByte(&H6E30E9 + 49377 * (Target - 1))
    Ingame = ReadByte(&H6E30E8 + 49377 * (Target - 1))
    PlayerTeam = ReadByte(&H6EF1C0 + 49377 * (slot - 1))
    TargetTeam = ReadByte(&H6EF1C0 + 49377 * (Target - 1))
    EnemyX = ReadFloat(&HAFAE64 + 8 * (Target - 1))
    EnemyY = ReadFloat(&HAFAE68 + 8 * (Target - 1))
    MidScreenX = ReadFloat(&H6E30DC)
    MidScreenY = ReadFloat(&H6E30E0)
    MouseX = ReadFloat(&HB9C584)
    MouseY = ReadFloat(&HB9C588)
    
    If GetAsyncKeyState(vbKeyEnd) < 0 And slot <> Target And Dead = 0 And Ingame = 1 And (TargetTeam = 0 Or TargetTeam <> PlayerTeam) Then
        WriteFloat (&HB9C584), (EnemyX - MidScreenX)
        WriteFloat (&HB9C588), (EnemyY - MidScreenY)
        
        
    ElseIf Target = 32 Then
        Target = 1
        Else
            Target = Target + 1
    End If
    
End Sub