Add basic booster

src/Dodge/Creature/Action.hs

@@ -57,18 +57,17 @@ blinkAction
     :: Creature
     -> World 
     -> World
-blinkAction cr w 
-    = soundOnce teleSound 
-    . set (creatures . ix n . crPos) p3
-    . blinkShockwave n p3
-    $ inverseShockwaveAt cp 40 2 2 2 w
+blinkAction cr w = soundOnce teleSound 
+    . set (creatures . ix cid . crPos) p3
+    . blinkShockwave cid p3
+    $ inverseShockwaveAt cpos 40 2 2 2 w
   where
-    n  = _crID cr
-    p1 = _cameraCenter w +.+ (1 / _cameraZoom w) *.* rotateV (_cameraRot w) (_mousePos w)
-    cp = _crPos $ _creatures w IM.! n
-    p2 = reflectPointWalls cp p1 $ wallsAlongLine cp p1 w
-    r  = 1.5 * _crRad (_creatures w IM.! n)
-    p3 = maybe p1 ((\p -> moveAmountToward p r cp) . fst) p2
+    cid  = _crID cr
+    p1 = mouseWorldPos w
+    cpos = _crPos cr
+    p2 = reflectPointWalls cpos p1 $ wallsAlongLine cpos p1 w
+    r  = 1.5 * _crRad cr
+    p3 = maybe p1 (mvPointTowardAtSpeed r cpos . fst) p2
 
 blinkShockwave 
     :: Int      -- ^ Blinking creature ID.
@@ -77,14 +76,6 @@ blinkShockwave
     -> World
 blinkShockwave i p = makeShockwaveAt [i] p 60 1 2 cyan 
 
-moveAmountToward 
-    :: Point2   -- ^ Start point
-    -> Float    -- ^ Fraction to move along
-    -> Point2   -- ^ End point
-    -> Point2
-moveAmountToward p1 am p2
-    = p1 +.+ am *.* errorNormalizeV 44 (p2 -.- p1)
-
 {- | Get your creature to drop the item under the cursor.  -}
 youDropItem :: World -> World
 youDropItem w = case yourItem w of