--- a/gameServer/Actions.hs Wed Sep 02 08:53:46 2009 +0000
+++ b/gameServer/Actions.hs Wed Sep 02 09:04:06 2009 +0000
@@ -233,9 +233,10 @@
adjust (\cl -> cl{isMaster = True}) newMasterId clients,
adjust (\r -> r{name = newRoomName}) rID rooms
)
- newRoomName = "abandoned"
+ newRoomName = nick newMasterClient
otherPlayersSet = IntSet.delete clID (playersIDs room)
newMasterId = IntSet.findMin otherPlayersSet
+ newMasterClient = clients ! newMasterId
processAction (clID, serverInfo, clients, rooms) (AddRoom roomName roomPassword) = do