equal
deleted
inserted
replaced
385 -- This is formatted in a way so it can parsed by engine to make it translatable |
385 -- This is formatted in a way so it can parsed by engine to make it translatable |
386 -- Format: b<PLAYER NAME>]<MESSAGE> |
386 -- Format: b<PLAYER NAME>]<MESSAGE> |
387 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "]", msg, "\x20\x20"] |
387 engineMsg cl = toEngineMsg $ B.concat ["b", nick cl, "]", msg, "\x20\x20"] |
388 |
388 |
389 |
389 |
|
390 handleCmd_inRoom ["TEAMDRAW", msg] = do |
|
391 cl <- thisClient |
|
392 chans <- roomSameClanChans |
|
393 return [AnswerClients chans ["TEAMDRAW", nick cl, msg]] |
|
394 |
|
395 |
390 handleCmd_inRoom ["BAN", banNick] = do |
396 handleCmd_inRoom ["BAN", banNick] = do |
391 (thisClientId, rnc) <- ask |
397 (thisClientId, rnc) <- ask |
392 maybeClientId <- clientByNick banNick |
398 maybeClientId <- clientByNick banNick |
393 master <- liftM isMaster thisClient |
399 master <- liftM isMaster thisClient |
394 let banId = fromJust maybeClientId |
400 let banId = fromJust maybeClientId |