Further tweak jetpack

src/Dodge/Creature.hs

@@ -256,7 +256,7 @@ startCr = defaultCreature
 
 startInventory = IM.fromList (zip [0..20] 
     (
-    [ --jetPack
+    [ jetPack
     --[pistol
     --,blinkGun
     --,spawnGun lamp

src/Dodge/Creature/YourControl.hs

@@ -28,11 +28,15 @@ yourControl w (f,g) cr = ( (updateUsingInput . f, g)
     speed = _varMovementSpeedModifier w * equipFactor
     equipFactor = product $ map equipSpeed $ IM.elems $ _crInv $ _creatures w IM.! 0
 
+{-
+Turns key presses into creature movement.
+-}
 wasdWithAiming :: World -> Float -> Float -> Int -> Creature -> Creature
 wasdWithAiming w speed aimSpeed i cr
     | (any (\it -> it ^? itIdentity == Just JetPack) $ _crInv cr) && isMoving && isAiming
-            && diffAngles mouseDir (argV mov) < pi/3
+            && diffAngles mouseDir (argV mov) < pi/2
-        = over crPos (+.+ (0.2 *.* mov)) 
+        -- = over crPos (+.+ (speed *.* mov)) 
+        = over crPos (+.+ (speed *.* unitVectorAtAngle mouseDir)) 
           . set crDir mouseDir 
           $ set (crState . stance . carriage) (Boosting mov)
           cr
@@ -41,7 +45,7 @@ wasdWithAiming w speed aimSpeed i cr
           $ set (crState . stance . carriage) Floating
           cr
     | (any (\it -> it ^? itIdentity == Just JetPack) $ _crInv cr) && isMoving
-        = over crPos (+.+ (0.2 *.* mov)) 
+        = over crPos (+.+ (speed *.* mov)) 
           . over crDir (flip fromMaybe dir) 
           $ set (crState . stance . carriage) (Boosting mov)
           cr
@@ -65,7 +69,8 @@ wasdWithAiming w speed aimSpeed i cr
     | otherwise
         = over ( crDir) (flip fromMaybe dir) 
                         cr
-    where (mov',dir') = wasdComp (view keys w) w
+  where 
+    (mov',dir') = wasdComp (view keys w) w
     (mov,dir)   = (rotateV (_cameraRot w) mov',fmap (_cameraRot w +) dir')
     isMoving    = mov' /= (0,0)
     isAiming    = (_posture $ _stance $ _crState cr) == Aiming