From: Christopher Allan Webber Date: Mon, 23 Jan 2017 20:39:12 +0000 (-0600) Subject: Rudimentary help system. X-Git-Tag: fosdem-2017~97 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=116dc1f3e5ff87b07602989017ea489414a4eabb;p=mudsync.git Rudimentary help system. --- diff --git a/mudsync/player.scm b/mudsync/player.scm index a0caf23..45cb974 100644 --- a/mudsync/player.scm +++ b/mudsync/player.scm @@ -41,13 +41,14 @@ ;; aliases... ;; @@: Should use an "alias" system for common aliases? (empty-command "inv" 'cmd-inventory) - (empty-command "i" 'cmd-inventory))) + (empty-command "i" 'cmd-inventory) + (empty-command "help" 'cmd-help))) (define-class () (username #:init-keyword #:username #:getter player-username) - (self-commands #:init-value player-self-commands) + (self-commands #:init-value (wrap player-self-commands)) (actions #:allocation #:each-subclass #:init-value @@ -56,7 +57,8 @@ (handle-input player-handle-input) (tell player-tell) (disconnect-self-destruct player-disconnect-self-destruct) - (cmd-inventory player-cmd-inventory)))) + (cmd-inventory player-cmd-inventory) + (cmd-help player-cmd-help)))) ;;; player message handlers @@ -82,7 +84,8 @@ (apply <- winner-id cmd-action message-args)) (#f (<- (gameobj-gm player) 'write-home - #:text "Huh?\n")))) + ;; #:text "? (type \"help\" for common commands)\n" + #:text "?\n")))) (define* (player-tell player message #:key text) (<- (gameobj-gm player) 'write-home @@ -115,6 +118,27 @@ inv-names)))) (<- (actor-id player) 'tell #:text text-to-show)) +(define (player-cmd-help player message) + (<- (actor-id player) 'tell + #:text '((strong "** Mudsync Help **")(br) + (p "You're playing Mudsync, a multiplayer text-adventure. " + "Type different commands to interact with your surroundings " + "and other players.") + (p "Some common commands:" + (ul (li (strong "say ") " -- " + "Chat with other players in the same room. " + "(Also aliased to the " (b "\"") " character.)") + (li (strong "look") " -- " + "Look around the room you're in.") + (li (strong "look [at] ") " -- " + "Examine a particular object.") + (li (strong "go ") " -- " + "Move to another room in direction."))) + (p "Different objects can be interacted with in different ways. " + "For example, if there's a bell in the same room as you, " + "you might try typing " (em "ring bell") + " and see what happens.")))) + ;;; Command handling ;;; ================