Miscellany

'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(&H6E30E4 + (Target - 1) * 49377)
        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 Ingame = 1 And Dead = 0 And (PlayerTeam = 0 Or TargetTeam <> PlayerTeam) And Target <> Slot Then
                WriteFloat (&HAFAE64 + (Slot - 1) * 8), (ReadFloat(&HAFAE64 + (Target - 1) * 8))
                WriteFloat (&HAFAE68 + (Slot - 1) * 8), (ReadFloat(&HAFAE64 + (Target - 1) * 8))
                WriteByte (&H5A8E84), 1
        'Get Knife
                WriteByte (&HC2B334 + (Slot - 1) * 49377), 14
                WriteByte (&H6EF0CC + (Slot - 1) * 49377), 14
                WriteByte (&HB2746C + (Slot - 1) * 49377), 14
                WriteByte (&H6E311C + (Slot - 1) * 49377), 14
        'Close Menu
                Dim Menu As Long
                Menu = ReadByte(&H5AA5CD)
                WriteByte &H5AA5CD, 0
                WriteByte &HB9CC14, 0
Text6.Text = Target
            Else
            Target = Target + 1
        End If
        If Target = 32 Then
                        Target = 1
                Else
                        Target = Target + 1
        End If