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
@@ -48,3 +48,4 @@ tanksRoom crs its = do
            ++ replicate ntanks thetank
 --            , sps0 $ PutShape $ colorSH orange $ pipePP 2 (V3 50 50 25) (V3 50 120 25)
    return $ room & rmPmnts .++~ plmnts
+        & rmName .~ "tanksRoom"