Something

Dim Dead, Ingame, Target, slot, PlayerTeam, TargetTeam, Distance 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)
    MyX = ReadFloat(&HAFAE64) + (slot - 1) * 8
    MyY = ReadFloat(&HAFAE68) + (slot - 1) * 8
    Distance = (((EnemyX - MyX) ^ 2) ^ (1 / 2) + ((EnemyY - MyY) ^ 2)) ^ (1 / 2)

    
    If GetAsyncKeyState(vbKeyShift) < 0 And slot <> Target And Dead = 0 And Ingame = 1 And (TargetTeam = 0 Or TargetTeam <> PlayerTeam) And Distance < 50 Then
        WriteFloat (&HB9C584), (EnemyX) - (MidScreenX) + 320
        WriteFloat (&HB9C588), (EnemyY) - (MidScreenY) + 240
        
        
    ElseIf Target = 32 Then
        Target = 1
        Else
            Target = Target + 1
    End If
    
End Sub