Work on crab evasion

src/Dodge/Creature/ChaseCrit.hs

@@ -7,6 +7,7 @@ module Dodge.Creature.ChaseCrit (
 ) where
 
 --import Dodge.Data.Equipment.Misc
+import Dodge.Data.FloatFunction
 import Control.Lens
 import Dodge.Data.Creature
 import Dodge.Default
@@ -39,6 +40,7 @@ crabCrit = defaultCreature
         & crHP .~ HP 350
         & crType .~ CrabCrit 0 LeftForward 0 0
         & crFaction .~ ColorFaction red
+        & crPerception . cpVision . viFOV .~ FloatFOV pi
 
 hoverCrit :: Creature
 hoverCrit =