Anonymous

        'Variable Dimension
        Dim Slot, PlayerTeam, TargetTeam, Target As Byte
        Dim IsPlayerShooting, Ingame, Dead As Boolean
        Dim TargetX, TargetY, PlayerX, PlayerY As Double
        'Variable Declaration
        Slot = ReadByte(&H6E30E4)
        PlayerTeam = ReadByte(&H6EF1C0 + (Slot - 1) * 49377)
        TargetTeam = ReadByte(&H6EF1C0 + (Target - 1) * 49377)
        Ingame = ReadByte(&H6E30E8 + 49377 * (Target - 1))
        Dead = ReadByte(&H6E30E9 + (Target - 1) * 49377)
        TargetX = (&HAFAE64 + (Target - 1) * 8)
        TargetY = (&HAFAE68 + (Target - 1) * 8)
        PlayerX = (&HAFAE64 + (Slot - 1) * 8)
        PlayerY = (&HAFAE68 + (Slot - 1) * 8)
        'Main Code
        If (GetAsyncKeyState(vbKeyEnd) < 0) And Slot <> Target And Dead = 0 And Ingame = 1 And (TargetTeam = 0 Or TargetTeam <> PlayerTeam) Then
                WriteFloat (&HAFAE64 + (8 * (Slot - 1))), ReadFloat(&HAFAE64 + (8 * (Target - 1))) - 8
                WriteFloat (&HAFAE68 + (8 * (Slot - 1))), ReadFloat(&HAFAE68 + (8 * (Target - 1)))
                WriteByte (&H5A8E84), 1

        ElseIf Target = 32 Then
                    Target = 1
                Else
                    Target = Target + 1
        End If