# HG changeset patch # User unc0rr # Date 1231428746 0 # Node ID 65b5d3cd3e01adc5f475b634a9135dc1985d6591 # Parent c853e02ed663adf9c938ba02678de54686a7702b Don't kick everyone from lobby diff -r c853e02ed663 -r 65b5d3cd3e01 netserver/HWProto.hs --- a/netserver/HWProto.hs Thu Jan 08 15:26:12 2009 +0000 +++ b/netserver/HWProto.hs Thu Jan 08 15:32:26 2009 +0000 @@ -125,7 +125,7 @@ if null (room client) then (noChangeClients, noChangeRooms, answerQuit msg ++ (answerQuitLobby (nick client) msg) ) else if isMaster client then - (modifyRoomClients clRoom (\cl -> cl{room = [], isReady = False}), removeRoom (room client), (answerQuit msg) ++ (answerQuitLobby (nick client) msg) ++ (answerAbandoned $ protocol client) ++ (answerRoomDeleted $ room client)) -- core disconnects clients on ROOMABANDONED answer + (modifyRoomClients clRoom (\cl -> cl{isReady = False}), removeRoom (room client), (answerQuit msg) ++ (answerQuitLobby (nick client) msg) ++ (answerAbandoned $ protocol client) ++ (answerRoomDeleted $ room client)) -- core disconnects clients on ROOMABANDONED answer else (noChangeClients, modifyRoom clRoom{teams = othersTeams, playersIn = (playersIn clRoom) - 1, readyPlayers = newReadyPlayers}, (answerQuit msg) ++ (answerQuitInform (nick client) msg) ++ (answerQuitLobby (nick client) msg) ++ answerRemoveClientTeams) where