netserver/HWProto.hs
changeset 1344 4004e597f1bf
parent 1338 758c39a3dcfe
child 1345 73119de7d3be
equal deleted inserted replaced
1343:7a47a80b20ad 1344:4004e597f1bf
   216 	if not $ isMaster client then
   216 	if not $ isMaster client then
   217 		(noChangeClients, noChangeRooms, answerNotMaster)
   217 		(noChangeClients, noChangeRooms, answerNotMaster)
   218 	else
   218 	else
   219 		(noChangeClients, noChangeRooms, answerRunGame)
   219 		(noChangeClients, noChangeRooms, answerRunGame)
   220 
   220 
       
   221 handleCmd_inRoom client _ _ ["ROUNDFINISHED"] =
       
   222 		(noChangeClients, noChangeRooms, [])
       
   223 
   221 handleCmd_inRoom client _ _ ["GAMEMSG", msg] =
   224 handleCmd_inRoom client _ _ ["GAMEMSG", msg] =
   222 	(noChangeClients, noChangeRooms, [(othersInRoom, ["GAMEMSG", msg])])
   225 	(noChangeClients, noChangeRooms, [(othersInRoom, ["GAMEMSG", msg])])
   223 
   226 
   224 handleCmd_inRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd)
   227 handleCmd_inRoom _ _ _ _ = (noChangeClients, noChangeRooms, answerBadCmd)