All pastes #923211 Raw Edit

Someone

public text v1 · immutable
#923211 ·published 2008-02-29 10:52 UTC
rendered paste body
Private Sub forcemode_Timer()
  
  Dim Slot As Byte
  Dim ForceX As Double
  Dim ForceY As Double
  
 Slot = ReadByte(&HB1F048)
 ForceX = ReadFloat(&HAFBFE4)
 ForceY = ReadFloat(&HAFBFE8)
 
If GetAsyncKeyState(vbKeyEnd) < 0 Then
   WriteFloat (&HAFBFE4), (ForceX * 4)
   WriteFloat (&HAFBFE8), (ForceY * 4)
   
End If

End Sub