Aimbot

keyvalu = ReadINI("Hotkeys", "Aimbot", App.Path & "\config\hotkeys.ini")

Dim yourslot As Long
yourslot = ReadByte(ReadINI("difference", "slot", App.Path & "\config\addresses.ini"))

If Val(Text10.Text) > 32 Then
Text10.Text = 1
End If

Dim slot As Long
slot = Val(Text10.Text)

Dim connected As Long
connected = ReadByte(ReadINI("stats", "connected", App.Path & "\config\addresses.ini") + (slot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))

Dim stance As Long
stance = ReadByte(&H6E3142 + (slot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))

If Val(Text16.Text) > 0 Then
slot = Val(Text16.Text)
End If

Dim yourteam As Long
yourteam = ReadByte(ReadINI("stats", "team", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))

Dim team As Long
team = ReadByte(ReadINI("stats", "team", App.Path & "\config\addresses.ini") + (slot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))

Dim alive As Long
alive = ReadByte(ReadINI("stats", "alive", App.Path & "\config\addresses.ini") + (slot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))

Dim youralive As Long
youralive = ReadByte(ReadINI("stats", "alive", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))

Dim xspeed As Double
xspeed = ReadFloat(ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + (slot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))
Dim yspeed As Double
yspeed = ReadFloat(ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + 4 + (slot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))



Dim yourxspeed As Double
yourxspeed = ReadFloat(ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))
Dim youryspeed As Double
youryspeed = ReadFloat(ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + 4 + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))



Dim yourx As Double
yourx = ReadFloat(ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))
Dim youry As Double
youry = ReadFloat(ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + 4 + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))


Dim playerx As Double
playerx = ReadFloat(ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (slot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))
Dim playery As Double
playery = ReadFloat(ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + 4 + (slot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))


If stance = 2 Then
playery = playery + 8
ElseIf stance = 4 Then
playery = playery + 12
End If
Dim mousex As Double
mousex = ReadFloat(ReadINI("coordsmovement", "mouseonscreenxcoord", App.Path & "\config\addresses.ini"))
Dim mousey As Double
mousey = ReadFloat(ReadINI("coordsmovement", "mouseonscreenxcoord", App.Path & "\config\addresses.ini") + 4)
Dim screenx As Double
screenx = ReadFloat(ReadINI("coordsmovement", "screenxcoord", App.Path & "\config\addresses.ini")) + (mousex - 320)
Dim screeny As Double
screeny = ReadFloat(ReadINI("coordsmovement", "screenxcoord", App.Path & "\config\addresses.ini") + 4) + (mousey - 240)
Dim speed As Double
speed = ReadFloat(&H6EF0DC + (yourslot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))
Dim weapon As Long
weapon = ReadByte(&H6EF0CC + (yourslot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini"))
Dim direction As Long
Dim ydirection As Long

If yourx > playerx Then
direction = 1
Else: direction = -1
End If

If youry > playery Then
ydirection = -1
Else: ydirection = 1
End If

If weapon = 14 Then
speed = ((speed ^ 0.1) * 8)
yourxspeed = 0
youryspeed = 0
End If


Dim targety As Double
Dim targetx As Double

distance = ((Abs(playerx - yourx) ^ 2) + (Abs(playerx - yourx) ^ 2)) ^ 0.35

If speed > 0 Then
targety = 232 + (((playery - youry)) / 2) + ((yspeed / (speed ^ 0.8)) * (Abs(playerx - yourx) ^ 0.62) * 3.5)
targetx = 320 + (((playerx - yourx)) / 2) + ((xspeed / (speed ^ 0.8)) * (Abs(playery - youry) ^ 0.62) * 3.5)
End If

If weapon <> 11 And weapon <> 15 And speed > 0 Then
targety = targety - ((0.003125 / (speed ^ 3) * (Abs(playerx - yourx) ^ 3)) / 2) + ((-youryspeed / (speed ^ 0.8)) * (Abs(playerx - yourx) ^ 0.6))
ta