equal
deleted
inserted
replaced
49 cl <- thisClient |
49 cl <- thisClient |
50 return $ if isJust $ find (\r -> rName == name r) rs then |
50 return $ if isJust $ find (\r -> rName == name r) rs then |
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", "-r", nick cl] |
55 , AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+hr", nick cl] |
|
56 , ModifyClient (\cl -> cl{isMaster = True, isReady = True}) |
|
57 , ModifyRoom (\r -> r{readyPlayers = 1}) |
56 ] |
58 ] |
57 |
59 |
58 |
60 |
59 handleCmd_lobby ["CREATE_ROOM", rName] = |
61 handleCmd_lobby ["CREATE_ROOM", rName] = |
60 handleCmd_lobby ["CREATE_ROOM", rName, ""] |
62 handleCmd_lobby ["CREATE_ROOM", rName, ""] |