Untitled

    Dim THealth, MTeam, TTeam, Slot, Dead As Integer
    Dim TPosX, TAmmo, TMaxAmmo, BTime, BVel, MVelX, MVelY, Distance, TPosY, MPosX, MPosY, TDifX, TDifY, ScreenX, ScreenY, MMX, MMY, MouseX, MouseY, TVelX, TVelY As Double
    Dim Target As Integer
    
    Private Sub Timer1_Timer()
        THealth = Read2Byte((&H6E27AC) + (&HC0E1 * (Target - 1)))
        TAmmo = ReadByte((&H6EE78B) + (&HC0E1 * (Target - 1)))
        TMaxAmmo = ReadByte((&H6EE78A) + (&HC0E1 * (Target - 1)))
        Slot = ReadByte(&H6E279C)
        MTeam = ReadByte((&H6EE878) + (&HC0E1 * (Slot - 1)))
        TTeam = ReadByte((&H6EE878) + (&HC0E1 * (Target - 1)))
        Dead = ReadByte((&H6E27A1) + (&HC0E1 * (Target - 1)))
        MPosX = ReadFloat((&HAFA320) + (&H8 * (Slot - 1)))
        MPosY = ReadFloat((&HAFA324) + (&H8 * (Slot - 1)))
        TPosX = ReadFloat((&HAFA320) + (&H8 * (Target - 1)))
        TPosY = ReadFloat((&HAFA324) + (&H8 * (Target - 1)))
        ScreenX = ReadFloat(&H6E2794)
        ScreenY = ReadFloat(&H6E2798)
        MouseX = ReadFloat(&HB9B940)
        MouseY = ReadFloat(&HB9B944)
        MMX = (ScreenX + (MouseX - 320))
        MMY = (ScreenY + (MouseY - 240))
        Distance = Math.Sqr((MPosX - TPosX) ^ 2 + (MPosY - TPosY) ^ 2)
        TVelX = ReadFloat((&HAFB4A0) + (&H8 * (Target - 1)))
        TVelY = ReadFloat((&HAFB4A4) + (&H8 * (Target - 1)))
        MVelX = ReadFloat((&HAFB4A0) + (&H8 * (Slot - 1)))
        MVelY = ReadFloat((&HAFB4A4) + (&H8 * (Slot - 1)))
        BVel = ReadFloat((&H6EE794) + (&HC0E1 * (Slot - 1)))
        BTime = Distance / BVel
        TDifX = TPosX - ReadFloat(&H6E2794) + 320
        TDifY = TPosY - ReadFloat(&H6E2798) + 240
        If GetAsyncKeyState(vbKeyMButton) <> 0 And Target <> Slot And Target <> 0 And -200 <= (MMX - TPosX) And 200 >= (MMX - TPosX) And -200 <= (MMY - TPosY) And 200 >= (MMY - TPosY) And TTeam <> 5 And Dead = 0 And ReadByte((&H6E27A0) + (&HC0E1 * (Target - 1))) <> 0 Then
            If TTeam = 0 Or TTeam <> MTeam Then
                WriteFloat &HB9B940, TDifX + ((TVelX - MVelX) * BTime)
                WriteFloat &HB9B944, TDifY + ((TVelY - MVelY) * BTime)
            End If
        Else
            If Target = 32 Then
                Target = 1
            Else
            If Target = 0 Then
                Target = 1
            End If
                Target = Target + 1
            End If
        End If
    End Sub