- (full-command "look" cmatch-just-verb always 'look-room)
- (full-command "look" cmatch-direct-obj always 'look-member)
- (full-command "go" cmatch-just-verb always 'go-where)
- (full-command "go" cmatch-direct-obj always 'go-exit)))
+ (loose-direct-command "look" 'cmd-look-at)
+ (empty-command "look" 'cmd-look-room)
+ (empty-command "go" 'cmd-go-where)
+ (loose-direct-command "go" 'cmd-go)))
+
+(define room-actions
+ (build-actions
+ ;; desc == description
+ (init (wrap-apply room-init))
+ (wire-exits! (wrap-apply room-wire-exits!))
+ (cmd-go (wrap-apply room-cmd-go))
+ (cmd-go-where (wrap-apply room-cmd-go-where))
+ (cmd-look-room (wrap-apply room-cmd-look-room))))
+
+(define room-actions*
+ (append room-actions gameobj-actions))
+
+(define room-action-dispatch
+ (simple-dispatcher room-actions*))