Dim MouseX As Double
Dim MouseY As Double
Dim ForceX As Double
Dim ForceY As Double

MouseX = ReadFloat(&HB9C584)
MouseY = ReadFloat(&HB9C588)
WriteFloat (&HAFBFE8 + (yourslot - 1) * 8), ((ReadFloat(&HB9C584)) / 10)
WriteFloat (&HAFBFE4 + (yourslot - 1) * 8), ((ReadFloat(&HB9C584)) / 10)