Add laser central room, using new placement/roompos functionality

2021-11-21 17:44:32 +00:00
parent 48cd59069c
commit 2f3896345d
12 changed files with 127 additions and 76 deletions
@@ -36,8 +36,8 @@ data PSType = PutCrit {_unPutCrit :: Creature}
 -- maybe there is a monadic implementation of this?
 data PlacementSpot 
    = PS { _psPos :: Point2 , _psRot :: Float }
-    | PSLnk 
-        { _psLnkShift       :: RoomPos -> Maybe PlacementSpot
+    | PSPos 
+        { _psLnkShift       :: RoomPos -> Maybe (PlacementSpot, RoomPos)
        , _psLnkRoomEff     :: RoomPos -> Room -> Room
        , _psLnkFallback    :: Maybe Placement
        }