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 -- FIXME: Use different method to send team message, without hardcoding the format. |
385 -- This is formatted in a way so it can parsed by engine to make it translatable |
386 -- The formatting should be decided by the engine, not the sever. This one cannot be localized. |
386 -- Format: b<PLAYER NAME>]<MESSAGE> |
387 engineMsg cl = toEngineMsg $ B.concat ["b", "[Clan] ", nick cl, ": ", msg, "\x20\x20"] |
387 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "]", msg, "\x20\x20"] |
388 |
388 |
389 |
389 |
390 handleCmd_inRoom ["BAN", banNick] = do |
390 handleCmd_inRoom ["BAN", banNick] = do |
391 (thisClientId, rnc) <- ask |
391 (thisClientId, rnc) <- ask |
392 maybeClientId <- clientByNick banNick |
392 maybeClientId <- clientByNick banNick |