gameServer/Actions.hs
changeset 11586 fd02a080d962
parent 11585 c8edd93b970f
child 11859 0b8f2116aa26
--- a/gameServer/Actions.hs	Sat Feb 27 20:56:49 2016 +0300
+++ b/gameServer/Actions.hs	Sun Feb 28 00:00:46 2016 +0300
@@ -732,13 +732,14 @@
     ri <- clientRoomA
     rnc <- gets roomsClients
     thisRoomChans <- liftM (map sendChan) $ roomClientsS ri
+#if defined(OFFICIAL_SERVER)
     rm <- io $ room'sM rnc id ri
-#if defined(OFFICIAL_SERVER)
     points <- io $ loadFile (B.unpack $ "ghosts/" `B.append` sanitizeName location)
     when (roomProto rm > 51) $ do
         processAction $ ModifyRoom $ \r -> r{params = Map.insert "DRAWNMAP" [prependGhostPoints (toP points) $ head $ (params r) Map.! "DRAWNMAP"] (params r)}
 #endif
     cl <- client's id
+    rm <- io $ room'sM rnc id ri
     mapM_ processAction $ map (replaceChans thisRoomChans) $ answerFullConfigParams cl (mapParams rm) (params rm)
     where
     loadFile :: String -> IO [Int]