Add basic corpse shapes

2022-06-04 13:23:31 +01:00
parent 5f5b1dd422
commit 63af928a1a
4 changed files with 44 additions and 19 deletions
@@ -277,7 +277,7 @@ data Corpse = Corpse
    { _cpID  :: Int
    , _cpPos :: Point2
    , _cpDir :: Float
-    , _cpPict :: SPic
+    , _cpPict :: Corpse -> SPic
    , _cpRes :: Maybe Creature
    }
 data Gust = Gust
@@ -339,7 +339,7 @@ data Creature = Creature
    , _crEquipment      :: M.Map EquipPosition Int
    , _crLeftInvSel     :: Maybe Int
    , _crState          :: CreatureState
-    , _crCorpse         :: Creature -> SPic
+    , _crCorpse         :: Creature -> Corpse -> SPic
    , _crApplyDamage    :: [Damage] -> Creature -> World -> World
    , _crPastDamage     :: Int
    , _crStance         :: Stance