'Variable Dimension
        Dim Slot As Byte
        Dim PlayerTeam As Byte
        Dim TargetTeam As Byte
        Dim Target As Byte
        Dim IsPlayerShooting As Byte
        Dim Ingame As Byte
        Dim Dead As Byte
        Dim TargetX As Double
        Dim TargetY As Double
        Dim PlayerX As Double
        Dim 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