Readd block obstruction field

2022-07-01 18:58:21 +01:00
parent fc5d1348d9
commit ca40f315c0
3 changed files with 3 additions and 1 deletions
@@ -357,7 +357,6 @@ data Creature = Creature
    , _crMvDir          :: Float
    , _crTwist          :: Float
    , _crID             :: Int
-    --, _crPict           :: Creature -> Configuration -> World -> SPic
    , _crPict           :: Creature -> SPic
    , _crSkin           :: CreatureSkin
    , _crUpdate         :: Creature -> World -> World
@@ -945,6 +944,7 @@ data Block = Block
    , _blHP         :: Int
    , _blShadows    :: [Int]   -- a list of blocks/walls? that are not shown when this block exists
    , _blFootprint  :: [Point2]
+    , _blObstructs  :: [(Point2,Point2)]
    , _blPos        :: Point2
    , _blDir        :: Float
    , _blDraw       :: Block -> SPic