--- a/netserver/HWProto.hs Fri Oct 24 13:03:06 2008 +0000
+++ b/netserver/HWProto.hs Fri Oct 24 14:28:47 2008 +0000
@@ -128,7 +128,7 @@
if haveSameRoom then
(noChangeClients, noChangeRooms, answerRoomExists)
else
- (modifyClient client{room = newRoom, isMaster = True}, addRoom createRoom{name = newRoom, password = roomPassword, roomProto = (protocol client)}, answerJoined $ nick client)
+ (modifyClient client{room = newRoom, isMaster = True}, addRoom createRoom{name = newRoom, password = roomPassword, roomProto = (protocol client)}, (answerJoined $ nick client) ++ (answerNotReady $ nick client))
where
haveSameRoom = isJust $ find (\room -> newRoom == name room) rooms