shrink playarea

This commit is contained in:
nek0 2018-09-19 23:44:27 +02:00
parent 086302be5e
commit 80860264a3

View file

@ -86,7 +86,7 @@ loadMapFork ud ad future progress = do
fc = FloorConfig
(V2 10 10)
[(V2 5 5), (V2 5 20)]
(50, 50)
(40, 40)
modifyMVar_ progress (return . (\(p, _) ->
( p + increment
, "Building floor"