gameServer/Actions.hs
changeset 2345 daf1785f2337
parent 2343 3ab763dc14a3
child 2346 f07fd1ac2c48
--- 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