403 return [ModifyRoom (\r -> r{isSpecial = True})] |
403 return [ModifyRoom (\r -> r{isSpecial = True})] |
404 |
404 |
405 handleCmd_inRoom ["UNFIX"] = serverAdminOnly $ |
405 handleCmd_inRoom ["UNFIX"] = serverAdminOnly $ |
406 return [ModifyRoom (\r -> r{isSpecial = False})] |
406 return [ModifyRoom (\r -> r{isSpecial = False})] |
407 |
407 |
|
408 handleCmd_inRoom ["HELP"] = do |
|
409 cl <- thisClient |
|
410 return [ |
|
411 AnswerClients [sendChan cl] ["CHAT", "[server]", loc "List of chat command for rooms:"], |
|
412 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /greeting: Set greeting message to be shown to players who join the room"], |
|
413 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /delegate <player>: Surrender room control to player"], |
|
414 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /maxteams <N>: Limit maximum number of teams to N"], |
|
415 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /callvote [arguments]: Start a vote"], |
|
416 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /vote <yes/no>: Vote 'yes' or 'no' for active vote"], |
|
417 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /info <player>: Show info about player"], |
|
418 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /me <message>: Chat action, e.g. '/me eats piza' becomes '* Player eats pizza'"], |
|
419 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /rnd: Flip a virtual coin and write 'heads' or 'tails' in chat"], |
|
420 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /rnd [A] [B] [C] [...]: Randomly select a word and write it in chat"], |
|
421 AnswerClients [sendChan cl] ["CHAT", "[server]", loc " /help: Show command help"] ] |
|
422 |
408 handleCmd_inRoom ["GREETING", msg] = do |
423 handleCmd_inRoom ["GREETING", msg] = do |
409 cl <- thisClient |
424 cl <- thisClient |
410 rm <- thisRoom |
425 rm <- thisRoom |
411 return [ModifyRoom (\r -> r{greeting = msg}) | isAdministrator cl || (isMaster cl && (not $ isSpecial rm))] |
426 return [ModifyRoom (\r -> r{greeting = msg}) | isAdministrator cl || (isMaster cl && (not $ isSpecial rm))] |
412 |
427 |