Add slime crit, start work on slink crit

src/Dodge/Base/CardinalPoint.hs

@@ -21,6 +21,9 @@ cardVec = \case
     East -> V2 1 0
     West -> V2 (-1) 0
 
+vecCard :: Point2 -> CardinalPoint
+vecCard (V2 x y) = undefined
+
 card8Vec :: Cardinal8 -> Point2
 card8Vec cp = case cp of
     North8 -> V2 0 1

src/Dodge/Base/Collide.hs

@@ -180,6 +180,8 @@ crHeight cr = case cr ^. crHP of
         ChaseCrit {} -> 25
         Avatar {} -> 25
         CrabCrit {} -> 25
+        SlinkCrit {} -> 25
+        SlimeCrit {_slimeRad = r} -> r
         _ -> error "Need to define crHeight for this crType"
     CrIsCorpse{} -> Just 5
     CrDestroyed{} -> Nothing