Use fallSpeed for falling instead of moveSpeed (#19)

* Fix silver egg falling

* Remove rubbish

* Oh lord

Author: danieljharvey

.DS_Store

@@ -1,9 +1,11 @@
+.DS_Store
 .vscode/
 yarn-error.log
 /bower_components/
 /node_modules/
 /.pulp-cache/
 /output/
+/output?/
 /generated-docs/
 /.psc-package/
 /.psc*

.gitignore

@@ -75,13 +75,13 @@ incrementPlayerDirection timePassed player = player { coords = newCoords }
   where
   moveAmount = calcMoveAmount player.playerType.moveSpeed timePassed
 
-  newCoords = player.coords <> (createMoveCoord moveAmount newDirection)
+  fallAmount = calcMoveAmount player.playerType.fallSpeed timePassed
 
-  newDirection =
+  newCoords =
     if player.falling then
-      createCoord 0 1
+      player.coords <> (createMoveCoord fallAmount (createCoord 0 1))
     else
-      player.direction
+      player.coords <> (createMoveCoord moveAmount player.direction)
 
 correctPlayerOverflow :: Player -> Player
 correctPlayerOverflow player =

src/logic/Movement.purs

@@ -171,6 +171,24 @@ tests =
         let
           { coords: Coord newCoords } = incrementPlayerDirection 100 player
         newCoords.offsetY `shouldEqual` (expectedMoveAmount)
+      it "Egg with no move speed still falls downwards" do
+        let
+          player =
+            defaultPlayer
+              { direction = createCoord 1 0
+              , coords = createCoord 2 2
+              , falling = true
+              , playerType =
+                defaultPlayer.playerType
+                  { moveSpeed = 0
+                  , fallSpeed = 20
+                  }
+              }
+        let
+          expectedMoveAmount = calcMoveAmount player.playerType.fallSpeed 100
+        let
+          { coords: Coord newCoords } = incrementPlayerDirection 100 player
+        newCoords.offsetY `shouldEqual` (expectedMoveAmount)
     describe "correctTileOverflow" do
       it "Overflow remains the same when within boundary" do
         let