gameServer/HWProtoCore.hs
changeset 1841 fba7210b438b
parent 1814 e5391d901cff
child 1862 7f303aa066da
equal deleted inserted replaced
1840:4747f0232b88 1841:fba7210b438b
    23 		room = rooms IntMap.! (roomID client)
    23 		room = rooms IntMap.! (roomID client)
    24 		clientTeams = filter (\t -> teamowner t == nick client) $ teams room
    24 		clientTeams = filter (\t -> teamowner t == nick client) $ teams room
    25 		removeClientTeams = map (RemoveTeam . teamname) clientTeams
    25 		removeClientTeams = map (RemoveTeam . teamname) clientTeams
    26 
    26 
    27 handleCmd clID clients rooms cmd =
    27 handleCmd clID clients rooms cmd =
    28 	if null (nick client) || clientProto client == 0 then
    28 	if not $ logonPassed client then
    29 		handleCmd_NotEntered clID clients rooms cmd
    29 		handleCmd_NotEntered clID clients rooms cmd
    30 	else if roomID client == 0 then
    30 	else if roomID client == 0 then
    31 		handleCmd_lobby clID clients rooms cmd
    31 		handleCmd_lobby clID clients rooms cmd
    32 	else
    32 	else
    33 		handleCmd_inRoom clID clients rooms cmd
    33 		handleCmd_inRoom clID clients rooms cmd