14  * You should have received a copy of the GNU General Public License

    14  * You should have received a copy of the GNU General Public License

    15  * along with this program; if not, write to the Free Software

    15  * along with this program; if not, write to the Free Software

    16  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

    16  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

    17  \-}

    17  \-}

    18 

    18 

    20 module CommandHelp where

    20 module CommandHelp where

    21 

    21 

    22 import qualified Data.ByteString.Char8 as B

    22 import qualified Data.ByteString.Char8 as B

    23 

    23 

    24 import CoreTypes

    24 import CoreTypes

    31 cmdHelpSharedPlayer = [

    31 cmdHelpSharedPlayer = [

    32     loc "/info <player>: Show info about player",

    32     loc "/info <player>: Show info about player",

    33     loc "/me <message>: Chat action, e.g. '/me eats pizza' becomes '* Player eats pizza'",

    33     loc "/me <message>: Chat action, e.g. '/me eats pizza' becomes '* Player eats pizza'",

    34     loc "/rnd: Flip a virtual coin and reply with 'heads' or 'tails'",

    34     loc "/rnd: Flip a virtual coin and reply with 'heads' or 'tails'",

    35     loc "/rnd [A] [B] [C] [...]: Reply with a random word from the given list",

    35     loc "/rnd [A] [B] [C] [...]: Reply with a random word from the given list",

    36     loc "/watch <id>: Watch a demo stored on the server with the given ID",

    37     loc "/watch <id>: Watch a demo stored on the server with the given ID",

    37     loc "/help: Show chat command help"

    39     loc "/help: Show chat command help"

    38     ]

    40     ]

    39 

    41 

    40 cmdHelpRoomOnlyPlayer :: [B.ByteString]

    42 cmdHelpRoomOnlyPlayer :: [B.ByteString]

    41 cmdHelpRoomOnlyPlayer = [

    43 cmdHelpRoomOnlyPlayer = [