Work on airlocks

2025-08-23 17:42:36 +01:00
parent f641805845
commit 32d7120177
19 changed files with 380 additions and 334 deletions
@@ -26,7 +26,8 @@ import NewInt
 import System.Random

 -- when placing a placement, we update the world and the room and assign an id
-- to the placement
+-- to the placement. This id should be associated with the type of placement and
+-- match up with the created id for the object (creature id, flitid id, etc)
 placeSpot :: (GenWorld, Room) -> Placement -> ((GenWorld, Room), [Placement])
 placeSpot (w, rm) plmnt = case plmnt of
    Placement{_plSpot = PSRoomRand i f} -> placeSpotRoomRand rm i f plmnt w