equal
deleted
inserted
replaced
142 if isNothing ci || ri == lobbyId then |
142 if isNothing ci || ri == lobbyId then |
143 return [] |
143 return [] |
144 else |
144 else |
145 liftM ((:) (AnswerClients [clChan] ["JOINING", roomName])) $ handleCmd_lobby ["JOIN_ROOM", roomName] |
145 liftM ((:) (AnswerClients [clChan] ["JOINING", roomName])) $ handleCmd_lobby ["JOIN_ROOM", roomName] |
146 |
146 |
|
147 |
|
148 handleCmd_lobby ("RND":rs) = do |
|
149 c <- liftM sendChan thisClient |
|
150 return [Random [c] rs] |
|
151 |
147 --------------------------- |
152 --------------------------- |
148 -- Administrator's stuff -- |
153 -- Administrator's stuff -- |
149 |
154 |
150 handleCmd_lobby ["KICK", kickNick] = do |
155 handleCmd_lobby ["KICK", kickNick] = do |
151 (ci, _) <- ask |
156 (ci, _) <- ask |