mouse.Swallow = true
mouse.DirectInputX = mouse.DirectInputX + Delta(mouse1.DirectInputX)
mouse.DirectInputY = mouse.DirectInputY + Delta(mouse1.DirectInputY)
mouse.LeftButton = mouse1.LeftButton
mouse.RightButton = mouse1.RightButton
mouse.MiddleButton = mouse1.MiddleButton
mouse.XButton1 = mouse1.XButton1
mouse.XButton2 = mouse1.XButton2
mouse.Button6 = mouse1.Button6
mouse.Button7 = mouse1.Button7
mouse.Button8 = mouse1.Button8

 key.a = var.keya
key.d = var.keyd
   key.Space = joystick.Button2
                debug = joystick.x

if joystick.x < -.1 then
var.keya = true
else
var.keya = false
end if

if joystick.x > .1 then
var.keyd = true
else
var.keyd = false
endif





                          //set walk to false on first run
if var.initialized == false then
    var.walk = false
    var.initialized = true
endif


// Do mouse pointer 4
if mouse.present then
  // How much has mouse 2 moved?
  var.deltax4 = Delta(mouse.DirectInputX)
  var.deltay4 = Delta(mouse.DirectInputY)

  // Mouse ballistics attempt
  var.velocity = ([(smooth(var.deltaX4) / 24ms) in inches per second, (smooth(var.deltaY4) / 24ms) in inches per second] )
  // var.velocity = ([(var.deltaX4 / 24ms) in inches per second, (var.deltaY4 / 24ms) in inches per second] )
  var.speed = |var.velocity|
  //debug=var.speed

  if var.speed > var.maxSpeed then

  var.maxSpeed = var.speed

  endif
     // debug = var.maxSpeed

               //debug = var.walk

 // debug = var.maxSpeed in miles per hour
  //debug=var.maxSpeed in miles per hour

  key.w= var.moveit

  if var.speed <=.01 && var.moveit == true then
     var.moveit = false
              debug = "FAIL"


  endif

  if var.speed > .01 && var.speed <5 then
     if var.walk == false then
          var.walk = true
          key.NumpadPlus = true
          wait 50 ms
          key.NumpadPlus = false
                   wait 20 ms
     endif
               debug = "LOW SPEED"
                     var.moveit = true
                     wait 50 ms
                     var.moveit = false
                     wait 50 ms

  endif
    if var.speed > 5 && var.speed <15 then
     if var.walk == false then
          var.walk = true
          key.NumpadPlus = true
          wait 50 ms
          key.NumpadPlus = false
                   wait 20 ms
     endif
               debug = "mid SPEED"
                     var.moveit = true


  endif

      if var.speed >= 15 then
      if var.walk then
         var.walk = false
         key.NumpadPlus = true
         wait 50 ms
         key.NumpadPlus = false
         wait 20 ms
      endif
      debug = "HIGHer SPEED"
                     var.moveit = true

  endif


 // if var.speed >= .5 then
   //                  key.w= true
     //                wait 300 ms
       //              key.w= false
 // endif
              debug = var.speed

endif