Add Read/Show instance for Creature

2022-07-22 10:44:54 +01:00
parent 4c5218c633
commit 6b69fc1684
35 changed files with 345 additions and 225 deletions
@@ -3,6 +3,7 @@ module Dodge.Creature.ArmourChase
    , flockArmourChaseCrit
    ) where
 import Dodge.Data
+import Dodge.Data.FloatFunction
 import Dodge.Default
 import Dodge.Creature.ChaseCrit
 import Dodge.Item.Equipment
@@ -38,9 +39,8 @@ armourChaseCrit = chaseCrit
        [(0,frontArmour)
        ,(1,medkit 200)
        ]
-    , _crMvType = defaultChaseMvType {_mvTurnRad = f}
+    , _crMvType = defaultChaseMvType {_mvTurnRad = FloatConst 0.05}
    } 
    & crEquipment . at OnChest ?~ 0
    & crInvEquipped . at 0 ?~ OnChest
  where
-    f _ = 0.05