netserver/HWProto.hs
changeset 1571 574063b456c0
parent 1569 4456a0dfc647
child 1577 e3e37c730dc0
equal deleted inserted replaced
1570:4e6ee597fb34 1571:574063b456c0
   140 		handleCmd_inRoom client clients rooms cmd
   140 		handleCmd_inRoom client clients rooms cmd
   141 
   141 
   142 
   142 
   143 -- 'no info' state - need to get protocol number and nickname
   143 -- 'no info' state - need to get protocol number and nickname
   144 onLoginFinished client clients =
   144 onLoginFinished client clients =
   145 	if (protocol client < 20) || (null $ nick client) || (protocol client == 0) then
   145 	if (null $ nick client) || (protocol client == 0) then
   146 		[]
   146 		[]
   147 	else
   147 	else
   148 		(answerClientOnly $ ["LOBBY:JOINED"] ++ (map nick $ clients)) ++
   148 		(answerClientOnly $ ["LOBBY:JOINED"] ++ (map nick $ clients)) ++
   149 		(answerOthersRoom ["LOBBY:JOINED", nick client])
   149 		(answerOthersRoom ["LOBBY:JOINED", nick client])
   150 
   150