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
@@ -5,7 +5,6 @@ module Dodge.Creature.ChaseCrit
    ) where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Creature.Picture
 import Dodge.Item.Consumable
 import Dodge.Item.Equipment
 import Dodge.SoundLogic
@@ -20,7 +19,7 @@ smallChaseCrit = chaseCrit
    { _crHP = 1
    , _crRad = 4
    , _crInv = IM.fromList [(0,medkit 200)]
-    , _crCorpse = basicCrCorpse
+    , _crCorpse = MakeDefaultCorpse
    }
 invisibleChaseCrit :: Creature
 invisibleChaseCrit = chaseCrit