Mine

Private Sub Timer51_Timer()
off = ReadINI("Hotkeys", "Normalvisible", App.Path & "\config\hotkeys.ini")
warp = ReadINI("Hotkeys", "Flickervisible", App.Path & "\config\hotkeys.ini")
''reads the hotkeys

Dim yourslot As Long
yourslot = ReadByte(ReadINI("difference", "slot", App.Path & "\config\addresses.ini")) ''reads your slot
Dim weapon As Long
weapon = ReadByte(ReadINI("stats", "weaponheld", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerbyte", App.Path & "\config\addresses.ini")) ''reads your current weapon
Dim telepoint As Double
telepoint = ReadFloat(ReadINI("coordsmovement", "halfmaplength", App.Path & "\config\addresses.ini")) - 55 ''reads where the edge of the map is
Dim realx As Double
realx = ReadFloat(ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini"))
Dim realy As Double
realy = ReadFloat(ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") + 4)
Dim realxspeed As Double
realxspeed = ReadFloat(ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini")) ''reads your real coords and speeds

If (GetAsyncKeyState(off) = 0) And (GetAsyncKeyState(warp) = 0) Then ''if you dont press any hotkey, it puts you at the maps edge in the 'fake' coords and speeds
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), telepoint
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190 + 4), 0
WriteFloat (ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), 0
End If

If (GetAsyncKeyState(off) < 0) And (GetAsyncKeyState(warp) = 0) Then ''if you press just space by default, it sends your real coords to the fake coords that send to the server
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), realx
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190 + 4), realy
WriteFloat (ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), realxspeed
ElseIf (GetAsyncKeyState(warp) < 0) Then ''if you press mouse button by default
If weapon >= 0 And weapon < 17 And weapon <> 14 And weapon <> 15 Then ''if you dont have a melee weapon, send a random location around your current location to the fake coords
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), realx + (Rnd * 100) * Round(Rnd * -1, 0)
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190 + 4), realy + (Rnd * 100) * Round(Rnd * -1, 0)
WriteFloat (ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), 0
Else ''if you have a melee weapon, send your real coords
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), realx
WriteFloat (ReadINI("coordsmovement", "playerxcoord", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190 + 4), realy
WriteFloat (ReadINI("coordsmovement", "playerxspeed", App.Path & "\config\addresses.ini") + (yourslot - 1) * ReadINI("difference", "playerfloat", App.Path & "\config\addresses.ini") - &H190), realxspeed
End If
End If
End Sub