equal
deleted
inserted
replaced
380 handleCmd_inRoom ["TEAMCHAT", msg] = do |
380 handleCmd_inRoom ["TEAMCHAT", msg] = do |
381 cl <- thisClient |
381 cl <- thisClient |
382 chans <- roomSameClanChans |
382 chans <- roomSameClanChans |
383 return [AnswerClients chans ["EM", engineMsg cl]] |
383 return [AnswerClients chans ["EM", engineMsg cl]] |
384 where |
384 where |
385 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, " (team): ", msg, "\x20\x20"] |
385 -- FIXME: Use different method to send team message, without hardcoding the format. |
|
386 -- The formatting should be decided by the engine, not the sever. This one cannot be localized. |
|
387 engineMsg cl = toEngineMsg $ B.concat ["b", "[Clan] ", nick cl, ": ", msg, "\x20\x20"] |
386 |
388 |
387 |
389 |
388 handleCmd_inRoom ["BAN", banNick] = do |
390 handleCmd_inRoom ["BAN", banNick] = do |
389 (thisClientId, rnc) <- ask |
391 (thisClientId, rnc) <- ask |
390 maybeClientId <- clientByNick banNick |
392 maybeClientId <- clientByNick banNick |