Generalise pathing, usable with flying creatures

src/Dodge/Placement/Instance/Creature.hs

@@ -6,5 +6,5 @@ import Dodge.Data.GenWorld
 import RandomHelp
 
 randC1 :: PSType
-randC1 = RandPS $ takeOne $ map PutCrit $ armourChaseCrit : replicate 50 chaseCrit
+randC1 = RandPS $ takeOne $ map PutCrit $ armourChaseCrit : replicate 50 hoverCrit
 --randC1 = RandPS $ takeOne $ map PutCrit [hoverCrit]

src/Dodge/Placement/PlaceSpot.hs

@@ -176,11 +176,7 @@ mvCr p rot = (crPos . _xy .~ p) . (crOldPos . _xy .~ p) . (crDir .~ rot)
 mvFS :: Point2 -> Float -> ForegroundShape -> ForegroundShape
 mvFS p a = (fsDir +~ a) . (fsPos %~ ((p +) . rotateV a))
 
-plMachine ::
-    Machine ->
-    Maybe Item ->
-    GenWorld ->
-    (Int, GenWorld)
+plMachine :: Machine -> Maybe Item -> GenWorld -> (Int, GenWorld)
 plMachine mc mitm gw =
     ( mcid
     , gw