Unnamed

Private Sub timMaskill_Timer()
'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(&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 (TargetTeam = 0 Or TargetTeam <> PlayerTeam) Then
                WriteFloat (PlayerX), (TargetX)
                WriteFloat (PlayerY), (TargetY)
                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

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