Miscellany

    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()
        On Error Resume Next
        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 + (MPosX - TPosX) ^ 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(System.Windows.Forms.Keys.Z) <> 0 And Target <> Slot 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
                Target = Target + 1
            End If
        End If
    End Sub