equal
deleted
inserted
replaced
431 return (cmdHelpActionList [sendChan cl] cmdHelpRoomPlayer) |
431 return (cmdHelpActionList [sendChan cl] cmdHelpRoomPlayer) |
432 |
432 |
433 handleCmd_inRoom ["GREETING", msg] = do |
433 handleCmd_inRoom ["GREETING", msg] = do |
434 cl <- thisClient |
434 cl <- thisClient |
435 rm <- thisRoom |
435 rm <- thisRoom |
436 return [ModifyRoom (\r -> r{greeting = msg}) | isAdministrator cl || (isMaster cl && (not $ isSpecial rm))] |
436 return $ if (not (isAdministrator cl || (isMaster cl && (not $ isSpecial rm)))) then |
437 |
437 [Warning $ loc "You're not the room master or a server admin!"] |
|
438 else |
|
439 [ModifyRoom (\r -> r{greeting = msg}), |
|
440 AnswerClients [sendChan cl] |
|
441 ["CHAT", nickServer, |
|
442 if msg == "" then |
|
443 loc "Greeting message cleared." |
|
444 else |
|
445 loc "Greeting message set." |
|
446 ]] |
438 |
447 |
439 handleCmd_inRoom ["CALLVOTE"] = do |
448 handleCmd_inRoom ["CALLVOTE"] = do |
440 cl <- thisClient |
449 cl <- thisClient |
441 return [AnswerClients [sendChan cl] |
450 return [AnswerClients [sendChan cl] |
442 ["CHAT", nickServer, loc "Available callvote commands: kick <nickname>, map <name>, pause, newseed, hedgehogs"] |
451 ["CHAT", nickServer, loc "Available callvote commands: kick <nickname>, map <name>, pause, newseed, hedgehogs"] |