Data-ify creature drawing (partially)

2022-07-10 23:24:25 +01:00
parent 646942d20c
commit 75cd15c240
20 changed files with 52 additions and 76 deletions
@@ -31,7 +31,7 @@ barrel :: Creature
 barrel = defaultInanimate
    { _crUpdate = updateBarrel
    , _crHP = 500
-    , _crPict = picAtCrPos $ setDepth 20 $ pictures 
+    , _crType = DrawnCreature $ picAtCrPos $ setDepth 20 $ pictures 
        [ color orange $ circleSolid 10
        , setDepth 0.049 . color (greyN 0.5) $ circleSolid 8
        , color (greyN 0.5) $ circleSolid 8
@@ -46,7 +46,7 @@ explosiveBarrel :: Creature
 explosiveBarrel = defaultInanimate
    { _crUpdate = updateExpBarrel
    , _crHP = 400
-    , _crPict = shapeAtCrPos
+    , _crType = DrawnCreature $ shapeAtCrPos
        . colorSH orange
        . upperPrismPoly 20
        $ polyCirc 4 10