Implement level portal

2021-04-22 13:06:39 +02:00
parent 60b2327909
commit 0e88544de2
9 changed files with 83 additions and 115 deletions
@@ -20,6 +20,7 @@ worldPictures w = pictures $ concat
    , map drawItem . IM.elems $ _floorItems w
    , map crDraw   . IM.elems $ _creatures w
    , map clDraw   . IM.elems $ _clouds w
+    , map ppDraw    . IM.elems $ _pressPlates w
    , map btDraw (IM.elems (_buttons w))
    , map (\pt -> _ptDraw pt pt) $ _particles' w
    , map drawWallFloor (wallFloorsToDraw w)