Miscellany

Public Class Form1
    Dim THealth, MTeam, TTeam, Slot, Dead As Integer
    Dim TPosX, TPosY, MPosX, MPosY, TDifX, TDifY As Double
    Dim Target As Integer = 1
    Dim MouseX, MouseY, ScreenX, ScreenY As Double

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tele2Mouse.Tick
        ScreenX = ReadFloat(&H6E2794)
        ScreenY = ReadFloat(&H6E2798)
        MouseX = ReadFloat(&HB9B940)
        MouseY = ReadFloat(&HB9B944)
        If GetAsyncKeyState(Keys.ControlKey) <> 0 And GetAsyncKeyState(Keys.Z) <> 0 Then
            WriteFloat((&HAFA320) + (&H8 * (Slot - 1)), (ScreenX + (MouseX - 320)))
            WriteFloat((&HAFA324) + (&H8 * (Slot - 1)), (ScreenY + (MouseY - 240)))
        End If
    End Sub

 
    Private Sub Tele2MouseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tele2MouseButton.Click
        If Tele2Mouse.Enabled = False Then
            Tele2Mouse.Enabled = True
            Tele2MousePanel.BackColor = Color.Cyan
        Else
            If Tele2Mouse.Enabled = True Then
                Tele2Mouse.Enabled = False
                Tele2MousePanel.BackColor = Color.Gray
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form3.Show()
    End Sub

    Private Sub MassKillButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MassKillButton.Click
        If MassKill.Enabled = False Then
            MassKill.Enabled = True
            MassKillPanel.BackColor = Color.Cyan
        Else
            If MassKill.Enabled = True Then
                MassKill.Enabled = False
                MassKillPanel.BackColor = Color.Gray
            End If
        End If
    End Sub

    Private Sub Decs_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Decs.Tick
        Slot = ReadByte(&H6E279C)
    End Sub

    Private Sub MassKill_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MassKill.Tick
        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)
        TDifX = TPosX - ReadFloat(&H6E2794) + 320
        TDifY = TPosY - ReadFloat(&H6E2798) + 240
        If GetAsyncKeyState(Keys.ControlKey) <> 0 And GetAsyncKeyState(Keys.B) <> 0 Then
            If Target <> Slot And TTeam <> 5 And Dead = 0 And ReadByte((&H6E27A0) + (&HC0E1 * (Target - 1))) <> 0 Then
                If TTeam = 0 Or TTeam <> MTeam Then
                    WriteFloat((&HAFA320) + (&H8 * (Slot - 1)), TPosX)
                    WriteFloat((&HAFA324) + (&H8 * (Slot - 1)), TPosY)
                End If
            Else
                If Target = 32 Then
                    Target = 1
                Else
                    Target = Target + 1
                End If
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AboutBox1.Show()
    End Sub
End Class