create-gameobj
gameobj-loc
gameobj-gm
+ gameobj-desc
gameobj-act-init
gameobj-set-loc!
dyn-ref
;; Some of the more common commands
+ cmd-look-at
cmd-take cmd-drop
cmd-take-from-no-op cmd-put-in-no-op))
;; Commands we can handle
(commands #:allocation #:each-subclass
#:init-thunk (build-commands
+ (("l" "look") ((direct-command cmd-look-at)))
("take" ((direct-command cmd-take)
(prep-indir-command cmd-take-from
'("from" "out of"))))
(contained-commands #:allocation #:each-subclass
#:init-thunk
(build-commands
+ (("l" "look") ((direct-command cmd-look-at)))
("drop" ((direct-command cmd-drop #:obvious? #f)))))
;; The extremely squishy concept of "props"... properties!
(ok-to-be-put-in? gameobj-ok-to-be-put-in)
;; Common commands
+ (cmd-look-at cmd-look-at)
(cmd-take cmd-take)
(cmd-drop cmd-drop)
(cmd-take-from cmd-take-from-no-op)
(define* (gameobj-act-set-name! actor message val)
(slot-set! actor 'name val))
-(define* (gameobj-desc actor #:key whos-looking)
- (match (slot-ref actor 'desc)
+(define* (gameobj-desc gameobj #:key whos-looking)
+ (match (slot-ref gameobj 'desc)
((? procedure? desc-proc)
- (desc-proc actor whos-looking))
+ (desc-proc gameobj whos-looking))
(desc desc)))
(define* (gameobj-get-desc actor message #:key whos-looking)
;;; Basic actions
;;; -------------
+(define %formless-desc
+ "You don't see anything special.")
+
+(define* (cmd-look-at gameobj message
+ #:key direct-obj
+ (player (message-from message)))
+ (let ((desc
+ (or (gameobj-desc gameobj #:whos-looking player)
+ %formless-desc)))
+ (<- player 'tell #:text desc)))
+
(define* (cmd-take gameobj message
#:key direct-obj
(player (message-from message)))