Start to implement lock and key system

2021-04-26 11:41:04 +02:00
parent 5d8575b03f
commit 3bc57ff650
19 changed files with 276 additions and 98 deletions
@@ -22,7 +22,7 @@ data PSType = PutCrit Creature
    | PutSwitchDoor Color Point2 Float Point2 Point2
    | RandPS (State StdGen PSType)
    | PutNothing
-    | PutID Int
+    | PutID { _putID :: Int}
    | CollectivePS 
        { _collectiveID  :: Int 
        , _collectiveNum :: Int