equal
deleted
inserted
replaced
42 |
42 |
43 |
43 |
44 handleCmd_lobby clID clients rooms ["CREATE_ROOM", newRoom, roomPassword] = |
44 handleCmd_lobby clID clients rooms ["CREATE_ROOM", newRoom, roomPassword] = |
45 if haveSameRoom then |
45 if haveSameRoom then |
46 [Warning "Room exists"] |
46 [Warning "Room exists"] |
|
47 else if illegalName newRoom then |
|
48 [Warning "Illegal room name"] |
47 else |
49 else |
48 [RoomRemoveThisClient "", -- leave lobby |
50 [RoomRemoveThisClient "", -- leave lobby |
49 AddRoom newRoom roomPassword, |
51 AddRoom newRoom roomPassword, |
50 AnswerThisClient ["NOT_READY", clientNick] |
52 AnswerThisClient ["NOT_READY", clientNick] |
51 ] |
53 ] |