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 (&HAFAE64 + (Slot - 1) * 8), (&HAFAE64 + (Target - 1) * 8)
                WriteFloat (&HAFAE68 + (Slot - 1) * 8), (&HAFAE68 + (Target - 1) * 8)
                WriteByte (&H5A8E84), 1
        ElseIf Target = 32 Then
                        Target = 1
                Else
                        Target = Target + 1
        End If
End Sub