164 |
164 |
165 handleCmd_lobby ("RND":rs) = do |
165 handleCmd_lobby ("RND":rs) = do |
166 c <- liftM sendChan thisClient |
166 c <- liftM sendChan thisClient |
167 return [Random [c] rs] |
167 return [Random [c] rs] |
168 |
168 |
|
169 handleCmd_lobby ["HELP"] = do |
|
170 cl <- thisClient |
|
171 return [ |
|
172 AnswerClients [sendChan cl] ["CHAT", "[server]", loc "List of chat commands for lobby:" ], |
|
173 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /info <player>: Show info about player"], |
|
174 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /me <message>: Chat action, e.g. '/me eats piza' becomes '* Player eats pizza'"], |
|
175 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /rnd: Flip a virtual coin and write 'heads' or 'tails' in chat"], |
|
176 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /rnd [A] [B] [C] [...]: Randomly select a word and write it in chat"], |
|
177 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /help: Show command help"] ] |
|
178 |
169 --------------------------- |
179 --------------------------- |
170 -- Administrator's stuff -- |
180 -- Administrator's stuff -- |
171 |
181 |
172 handleCmd_lobby ["KICK", kickNick] = serverAdminOnly $ do |
182 handleCmd_lobby ["KICK", kickNick] = serverAdminOnly $ do |
173 (ci, _) <- ask |
183 (ci, _) <- ask |