diff -r c8edd93b970f -r fd02a080d962 gameServer/Actions.hs --- 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]