changeset 9035 | e84d42a4311c |
parent 8897 | d6c310c65c91 |
child 9109 | 878f06e9c484 |
--- a/gameServer/HWProtoLobbyState.hs Wed May 22 00:12:15 2013 +0400 +++ b/gameServer/HWProtoLobbyState.hs Wed May 22 00:49:37 2013 +0400 @@ -144,6 +144,11 @@ else liftM ((:) (AnswerClients [clChan] ["JOINING", roomName])) $ handleCmd_lobby ["JOIN_ROOM", roomName] + +handleCmd_lobby ("RND":rs) = do + c <- liftM sendChan thisClient + return [Random [c] rs] + --------------------------- -- Administrator's stuff --