gameServer/HWProtoInRoomState.hs
changeset 11580 db7743e2fad1
parent 11562 cf5d45444357
child 12119 cdadc1d487f1
--- a/gameServer/HWProtoInRoomState.hs	Wed Feb 24 22:37:03 2016 +0300
+++ b/gameServer/HWProtoInRoomState.hs	Thu Feb 25 23:17:52 2016 +0300
@@ -492,8 +492,8 @@
         return [AnswerClients [sendChan cl] ["CHAT", "[server]", "vote: 'yes' or 'no'"]]
 
 
-handleCmd_inRoom ["SAVE", stateName] = serverAdminOnly $ do
-    return [ModifyRoom $ \r -> r{roomSaves = Map.insert stateName (mapParams r, params r) (roomSaves r)}]
+handleCmd_inRoom ["SAVE", stateName, location] = serverAdminOnly $ do
+    return [ModifyRoom $ \r -> r{roomSaves = Map.insert stateName (location, mapParams r, params r) (roomSaves r)}]
 
 handleCmd_inRoom ["DELETE", stateName] = serverAdminOnly $ do
     return [ModifyRoom $ \r -> r{roomSaves = Map.delete stateName (roomSaves r)}]