author  unc0rr 
Tue, 27 Sep 2011 19:27:19 +0400  
changeset 6068  e18713ecf1e0 
parent 5996  2c72fe81dd37 
child 6191  190a8e5d9956 
permissions  rwrr 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

1 
{# LANGUAGE OverloadedStrings #} 
1804  2 
module HWProtoLobbyState where 
3 

4 
import qualified Data.Map as Map 

1813  5 
import qualified Data.Foldable as Foldable 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

6 
import Data.Maybe 
1804  7 
import Data.List 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

8 
import Control.Monad.Reader 
1804  9 
 
10 
import CoreTypes 

11 
import Actions 

12 
import Utils 

4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

13 
import HandlerUtils 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

14 
import RoomsAndClients 
6068  15 
import EngineInteraction 
1804  16 

4932  17 

4989  18 
answerAllTeams :: ClientInfo > [TeamInfo] > [Action] 
4591  19 
answerAllTeams cl = concatMap toAnswer 
2867
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

20 
where 
4591  21 
clChan = sendChan cl 
2867
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

22 
toAnswer team = 
4591  23 
[AnswerClients [clChan] $ teamToNet team, 
24 
AnswerClients [clChan] ["TEAM_COLOR", teamname team, teamcolor team], 

5030
42746c5d4a80
Changed the standard show function to Text.Show.ByteString, and misc.
EJ <eivind.jahren@gmail.com>
parents:
4989
diff
changeset

25 
AnswerClients [clChan] ["HH_NUM", teamname team, showB $ hhnum team]] 
4568  26 

4989  27 
handleCmd_lobby :: CmdHandler 
1804  28 

4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

29 

1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

30 
handleCmd_lobby ["LIST"] = do 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

31 
(ci, irnc) < ask 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

32 
let cl = irnc `client` ci 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

33 
rooms < allRoomInfos 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

34 
let roomsInfoList = concatMap (roomInfo irnc) . filter (\r > (roomProto r == clientProto cl) && not (isRestrictedJoins r)) 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

35 
return [AnswerClients [sendChan cl] ("ROOMS" : roomsInfoList rooms)] 
2867
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

36 
where 
4932  37 
roomInfo irnc r = [ 
5996
2c72fe81dd37
Convert boolean variable + a bunch of fields which make sense only while game is going on into Maybe + structure
unc0rr
parents:
5931
diff
changeset

38 
showB $ isJust $ gameInfo r, 
4932  39 
name r, 
40 
showB $ playersIn r, 

41 
showB $ length $ teams r, 

42 
nick $ irnc `client` masterID r, 

4942
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

43 
Map.findWithDefault "+rnd+" "MAP" (mapParams r), 
4932  44 
head (Map.findWithDefault ["Default"] "SCHEME" (params r)), 
4941  45 
head (Map.findWithDefault ["Default"] "AMMO" (params r)) 
2867
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

46 
] 
3501  47 

4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

48 

1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

49 
handleCmd_lobby ["CHAT", msg] = do 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

50 
n < clientNick 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

51 
s < roomOthersChans 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

52 
return [AnswerClients s ["CHAT", n, msg]] 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

53 

4932  54 
handleCmd_lobby ["CREATE_ROOM", rName, roomPassword] 
55 
 illegalName rName = return [Warning "Illegal room name"] 

4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

56 
 otherwise = do 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

57 
rs < allRoomInfos 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

58 
cl < thisClient 
4932  59 
return $ if isJust $ find (\r > rName == name r) rs then 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

60 
[Warning "Room exists"] 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

61 
else 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

62 
[ 
4932  63 
AddRoom rName roomPassword, 
4917
8ff92bdc9f98
Convert READY and NOT_READY messages to CLIENT_FLAGS message
unc0rr
parents:
4914
diff
changeset

64 
AnswerClients [sendChan cl] ["CLIENT_FLAGS", "r", nick cl] 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

65 
] 
1804  66 

3536  67 

4932  68 
handleCmd_lobby ["CREATE_ROOM", rName] = 
69 
handleCmd_lobby ["CREATE_ROOM", rName, ""] 

3536  70 

1862  71 

4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

72 
handleCmd_lobby ["JOIN_ROOM", roomName, roomPassword] = do 
4932  73 
(_, irnc) < ask 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

74 
let ris = allRooms irnc 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

75 
cl < thisClient 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

76 
let maybeRI = find (\ri > roomName == name (irnc `room` ri)) ris 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

77 
let jRI = fromJust maybeRI 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

78 
let jRoom = irnc `room` jRI 
5931  79 
let sameProto = clientProto cl == roomProto jRoom 
4597
31e042ab870c
Finally a solution for excess lazyness when working with unsafeThaw'ed arrays
unc0rr
parents:
4595
diff
changeset

80 
let jRoomClients = map (client irnc) $ roomClients irnc jRI 
31e042ab870c
Finally a solution for excess lazyness when working with unsafeThaw'ed arrays
unc0rr
parents:
4595
diff
changeset

81 
let nicks = map nick jRoomClients 
31e042ab870c
Finally a solution for excess lazyness when working with unsafeThaw'ed arrays
unc0rr
parents:
4595
diff
changeset

82 
let chans = map sendChan (cl : jRoomClients) 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

83 
return $ 
5931  84 
if isNothing maybeRI  not sameProto then 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

85 
[Warning "No such rooms"] 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

86 
else if isRestrictedJoins jRoom then 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

87 
[Warning "Joining restricted"] 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

88 
else if roomPassword /= password jRoom then 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

89 
[Warning "Wrong password"] 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

90 
else 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

91 
[ 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

92 
MoveToRoom jRI, 
4597
31e042ab870c
Finally a solution for excess lazyness when working with unsafeThaw'ed arrays
unc0rr
parents:
4595
diff
changeset

93 
AnswerClients [sendChan cl] $ "JOINED" : nicks, 
4917
8ff92bdc9f98
Convert READY and NOT_READY messages to CLIENT_FLAGS message
unc0rr
parents:
4914
diff
changeset

94 
AnswerClients chans ["CLIENT_FLAGS", "r", nick cl] 
4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

95 
] 
4932  96 
++ map (readynessMessage cl) jRoomClients 
4941  97 
++ answerFullConfig cl (mapParams jRoom) (params jRoom) 
4932  98 
++ answerTeams cl jRoom 
99 
++ watchRound cl jRoom 

1804  100 

4587  101 
where 
4942
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

102 
readynessMessage cl c = AnswerClients [sendChan cl] $ 
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

103 
if clientProto cl < 38 then 
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

104 
[if isReady c then "READY" else "NOT_READY", nick c] 
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

105 
else 
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

106 
["CLIENT_FLAGS", if isReady c then "+r" else "r", nick c] 
3536  107 

4587  108 
toAnswer cl (paramName, paramStrs) = AnswerClients [sendChan cl] $ "CFG" : paramName : paramStrs 
1813  109 

4942
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

110 
answerFullConfig cl mpr pr 
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

111 
 clientProto cl < 38 = map (toAnswer cl) $ 
4984  112 
(reverse . map (\(a, b) > (a, [b])) $ Map.toList mpr) 
4942
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

113 
++ (("SCHEME", pr Map.! "SCHEME") 
4984  114 
: (filter (\(p, _) > p /= "SCHEME") $ Map.toList pr)) 
4942
1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

115 

1c85a8e6e11c
Okay, a compatibility layer for clients of 0.9.15 version (not sure about old versions, as I removed all compatibility hacks for older versions previously)
unc0rr
parents:
4941
diff
changeset

116 
 otherwise = map (toAnswer cl) $ 
4941  117 
("FULLMAPCONFIG", Map.elems mpr) 
4936
d65d438acd23
Merge MAP, MAPGEN and SEED params into one on room join, so engine isn't spawned three times for a preview. Not tested as I'm unable to see my rooms (why?)
unc0rr
parents:
4932
diff
changeset

118 
: ("SCHEME", pr Map.! "SCHEME") 
4941  119 
: (filter (\(p, _) > p /= "SCHEME") $ Map.toList pr) 
4587  120 

5996
2c72fe81dd37
Convert boolean variable + a bunch of fields which make sense only while game is going on into Maybe + structure
unc0rr
parents:
5931
diff
changeset

121 
answerTeams cl jRoom = let f = if isJust $ gameInfo jRoom then teamsAtStart . fromJust . gameInfo else teams in answerAllTeams cl $ f jRoom 
4591  122 

5996
2c72fe81dd37
Convert boolean variable + a bunch of fields which make sense only while game is going on into Maybe + structure
unc0rr
parents:
5931
diff
changeset

123 
watchRound cl jRoom = if isNothing $ gameInfo jRoom then 
2867
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

124 
[] 
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

125 
else 
4595  126 
[AnswerClients [sendChan cl] ["RUN_GAME"], 
5996
2c72fe81dd37
Convert boolean variable + a bunch of fields which make sense only while game is going on into Maybe + structure
unc0rr
parents:
5931
diff
changeset

127 
AnswerClients [sendChan cl] $ "EM" : toEngineMsg "e$spectate 1" : Foldable.toList (roundMsgs . fromJust . gameInfo $ jRoom)] 
1813  128 

3536  129 

4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

130 
handleCmd_lobby ["JOIN_ROOM", roomName] = 
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

131 
handleCmd_lobby ["JOIN_ROOM", roomName, ""] 
4568  132 

1804  133 

4616  134 
handleCmd_lobby ["FOLLOW", asknick] = do 
135 
(_, rnc) < ask 

136 
ci < clientByNick asknick 

5573
cc409ee3ad2e
Don't allow to join other protocol room using FOLLOW command (not tested)
unc0rr
parents:
5426
diff
changeset

137 
cl < thisClient 
4616  138 
let ri = clientRoom rnc $ fromJust ci 
139 
let clRoom = room rnc ri 

5931  140 
if isNothing ci  ri == lobbyId then 
4616  141 
return [] 
142 
else 

143 
handleCmd_lobby ["JOIN_ROOM", name clRoom] 

1862  144 

2867
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

145 
 
9be6693c78cb
 Unbreak support for client versions prior to 0.9.13dev
unc0rr
parents:
2408
diff
changeset

146 
 Administrator's stuff  
1862  147 

4618  148 
handleCmd_lobby ["KICK", kickNick] = do 
149 
(ci, _) < ask 

150 
cl < thisClient 

151 
kickId < clientByNick kickNick 

152 
return [KickClient $ fromJust kickId  isAdministrator cl && isJust kickId && fromJust kickId /= ci] 

1866  153 

4909  154 

155 
handleCmd_lobby ["BAN", banNick, reason] = do 

156 
(ci, _) < ask 

157 
cl < thisClient 

158 
banId < clientByNick banNick 

159 
return [BanClient 60 reason (fromJust banId)  isAdministrator cl && isJust banId && fromJust banId /= ci] 

5426
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

160 

109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

161 
handleCmd_lobby ["BANIP", ip, reason, duration] = do 
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

162 
(ci, _) < ask 
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

163 
cl < thisClient 
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

164 
return [BanIP ip (readInt_ duration) reason  isAdministrator cl] 
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

165 

109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

166 
handleCmd_lobby ["BANLIST"] = do 
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

167 
(ci, _) < ask 
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

168 
cl < thisClient 
109e9b5761c2
Implement command for banning by ip and a command for bans list
unc0rr
parents:
5209
diff
changeset

169 
return [BanList  isAdministrator cl] 
1804  170 

3283  171 

4620  172 
handleCmd_lobby ["SET_SERVER_VAR", "MOTD_NEW", newMessage] = do 
173 
cl < thisClient 

174 
return [ModifyServerInfo (\si > si{serverMessage = newMessage})  isAdministrator cl] 

1925  175 

4620  176 
handleCmd_lobby ["SET_SERVER_VAR", "MOTD_OLD", newMessage] = do 
177 
cl < thisClient 

178 
return [ModifyServerInfo (\si > si{serverMessageForOldVersions = newMessage})  isAdministrator cl] 

3260
b44b88908758
Allow to set motd for old client versions (not used yet, as server needs some refactoring)
unc0rr
parents:
2961
diff
changeset

179 

4620  180 
handleCmd_lobby ["SET_SERVER_VAR", "LATEST_PROTO", protoNum] = do 
181 
cl < thisClient 

182 
return [ModifyServerInfo (\si > si{latestReleaseVersion = readNum})  isAdministrator cl && readNum > 0] 

3260
b44b88908758
Allow to set motd for old client versions (not used yet, as server needs some refactoring)
unc0rr
parents:
2961
diff
changeset

183 
where 
5030
42746c5d4a80
Changed the standard show function to Text.Show.ByteString, and misc.
EJ <eivind.jahren@gmail.com>
parents:
4989
diff
changeset

184 
readNum = readInt_ protoNum 
42746c5d4a80
Changed the standard show function to Text.Show.ByteString, and misc.
EJ <eivind.jahren@gmail.com>
parents:
4989
diff
changeset

185 

4620  186 
handleCmd_lobby ["GET_SERVER_VAR"] = do 
187 
cl < thisClient 

188 
return [SendServerVars  isAdministrator cl] 

3283  189 

4620  190 
handleCmd_lobby ["CLEAR_ACCOUNTS_CACHE"] = do 
191 
cl < thisClient 

192 
return [ClearAccountsCache  isAdministrator cl] 

3283  193 

5209
f7a610e2ef5f
On restart command close server socket and spawn new server, keep running until last client quits
unc0rr
parents:
5093
diff
changeset

194 
handleCmd_lobby ["RESTART_SERVER"] = do 
4914  195 
cl < thisClient 
5209
f7a610e2ef5f
On restart command close server socket and spawn new server, keep running until last client quits
unc0rr
parents:
5093
diff
changeset

196 
return [RestartServer] 
4914  197 

3283  198 

4295
1f5604cd99be
This revision should, in theory, correctly merge 0.9.14 and tip, so that future merges of 0.9.14 should work properly
nemo
parents:
4242
diff
changeset

199 
handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"] 