Improve rooms, make consumable use type

2022-03-09 10:51:01 +00:00
parent 8ff18178b1
commit a4ec4e4889
16 changed files with 98 additions and 50 deletions
@@ -40,6 +40,7 @@ rezBox ls = roomRect 40 60 1 1
    & rmPmnts .~ [ sPS (V2 20 1) 0 $ PutLS ls]
    & restrictInLinks  (\(V2 _ h,_)-> h < 1)
    & restrictOutLinks (\(V2 _ h,_)-> h > 59)
+    & rmName .~ "rezBox"

 rezBoxesWp :: RandomGen g => State g (SubCompTree Room)
 rezBoxesWp = do