equal
deleted
inserted
replaced
380 chans <- roomSameClanChans |
380 chans <- roomSameClanChans |
381 return [AnswerClients chans ["EM", engineMsg cl]] |
381 return [AnswerClients chans ["EM", engineMsg cl]] |
382 where |
382 where |
383 -- This is formatted in a way so it can parsed by engine to make it translatable |
383 -- This is formatted in a way so it can parsed by engine to make it translatable |
384 -- Format: b<PLAYER NAME>]<MESSAGE> |
384 -- Format: b<PLAYER NAME>]<MESSAGE> |
385 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "]", msg, "\x20\x20"] |
385 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "]", msg] |
386 |
386 |
387 |
387 |
388 handleCmd_inRoom ["BAN", banNick] = do |
388 handleCmd_inRoom ["BAN", banNick] = do |
389 (thisClientId, rnc) <- ask |
389 (thisClientId, rnc) <- ask |
390 maybeClientId <- clientByNick banNick |
390 maybeClientId <- clientByNick banNick |