From fc6361e5b658a4b219cf224af4976dbba221623d Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Fri, 10 Aug 2018 22:44:57 +0200
Subject: [PATCH] smaller map and less NPCs

---
 src/MainGame/WorldMap.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs
index c6e4175..5a12cc0 100644
--- a/src/MainGame/WorldMap.hs
+++ b/src/MainGame/WorldMap.hs
@@ -85,7 +85,7 @@ loadMapFork ud ad future progress = do
       fc = FloorConfig
         (10, 10)
         [] -- [(5, 5), (5, 20)]
-        (30, 50)
+        (40, 40)
   _ <- liftIO $ swapMVar progress (1 / loadSteps, "Building floor")
   (mat, gr) <- buildHallFloorIO fc progress (1 / loadSteps)
   _ <- liftIO $ swapMVar progress (11 / loadSteps, "Converting to images")
@@ -102,7 +102,7 @@ loadMapFork ud ad future progress = do
   _ <- liftIO $ swapMVar progress (13 / loadSteps, "Placing NPCs")
   logIO A.Debug ("number of reachpoints: " ++ show (length rps))
   let nnex = Prelude.filter (\p -> pointType p /= RoomExit) rps
-  npcposs <- placeNPCs inter mat rps 25 -- (length $ filter (\a -> pointType a == Table) nnex)
+  npcposs <- placeNPCs inter mat rps 20 -- (length $ filter (\a -> pointType a == Table) nnex)
   _ <- liftIO $ swapMVar progress (14 / loadSteps, "Preparing MindMap graph")
   A.logIO A.Debug $ "number of placed NPCs: " ++ show (length npcposs)
   !(mmintmat, mmgraph) <- buildFloorMap . springField <$>