netserver/HWProto.hs
changeset 1302 4290ba4a14ca
parent 1083 3448dd03483f
child 1304 05cebf68ebd8
equal deleted inserted replaced
1301:c6fe8a4bfd34 1302:4290ba4a14ca
    89 	(noChangeClients, noChangeRooms, othersInRoom, ["CONFIG_PARAM", paramName, value])
    89 	(noChangeClients, noChangeRooms, othersInRoom, ["CONFIG_PARAM", paramName, value])
    90 
    90 
    91 handleCmd_inRoom client clients rooms ["CONFIG_PARAM", paramName, value1, value2] =
    91 handleCmd_inRoom client clients rooms ["CONFIG_PARAM", paramName, value1, value2] =
    92 	(noChangeClients, noChangeRooms, othersInRoom, ["CONFIG_PARAM", paramName, value1, value2])
    92 	(noChangeClients, noChangeRooms, othersInRoom, ["CONFIG_PARAM", paramName, value1, value2])
    93 
    93 
    94 handleCmd_inRoom client clients rooms ["ADDTEAM:", teamName, teamColor, graveName, fortName, teamLevel, hh0, hh1, hh2, hh3, hh4, hh5, hh6, hh7] =
    94 handleCmd_inRoom client clients rooms ("ADDTEAM:" : teamName : teamColor : graveName : fortName : teamLevel : hhs) =
    95 	(noChangeClients, noChangeRooms, othersInRoom, ["TEAM_ACCEPTED", "1", teamName])
    95 	(noChangeClients, noChangeRooms, clientOnly, ["TEAM_ACCEPTED", teamName, "1"])
    96 
    96 
    97 handleCmd_inRoom _ _ _ _ = (noChangeClients, noChangeRooms, clientOnly, badCmd)
    97 handleCmd_inRoom _ _ _ _ = (noChangeClients, noChangeRooms, clientOnly, badCmd)