--- a/gameServer/Actions.hs Sat Feb 27 18:15:53 2016 +0300
+++ b/gameServer/Actions.hs Sat Feb 27 20:56:49 2016 +0300
@@ -729,14 +729,15 @@
processAction (LoadGhost location) = do
- points <- io $ loadFile (B.unpack $ "ghosts/" `B.append` sanitizeName location)
ri <- clientRoomA
rnc <- gets roomsClients
thisRoomChans <- liftM (map sendChan) $ roomClientsS ri
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)}
- -- inject ghost points into map
+#endif
cl <- client's id
mapM_ processAction $ map (replaceChans thisRoomChans) $ answerFullConfigParams cl (mapParams rm) (params rm)
where