equal
deleted
inserted
replaced
51 [Warning "Room exists"] |
51 [Warning "Room exists"] |
52 else |
52 else |
53 [ |
53 [ |
54 AddRoom rName roomPassword |
54 AddRoom rName roomPassword |
55 , AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+hr", nick cl] |
55 , AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+hr", nick cl] |
56 , ModifyClient (\cl -> cl{isMaster = True, isReady = True}) |
56 , ModifyClient (\c -> c{isMaster = True, isReady = True}) |
57 , ModifyRoom (\r -> r{readyPlayers = 1}) |
57 , ModifyRoom (\r -> r{readyPlayers = 1}) |
58 ] |
58 ] |
59 |
59 |
60 |
60 |
61 handleCmd_lobby ["CREATE_ROOM", rName] = |
61 handleCmd_lobby ["CREATE_ROOM", rName] = |