IF engine rudiments, Common Lisp

Language: Layout:

;;; Wee!

;; Exits should be an assoc list where the cdr is another room object 
(defclass my-room ()
    ((name :initarg :name 
           :reader room-name)
     (description :initarg :description
                  :reader room-descr)
     (exits :initarg :exits 
            :accessor room-exits)
     (objects :initarg :contains
              :initform nil
              :accessor stuff-in-room))
    (:documentation "A basic room here"))

(defclass game-object ()
    ((name :initarg :name
           :reader obj-name)
     (description :initarg :description
                  :reader obj-descr)
     (actions :initarg :actions
              :initform nil
              :reader obj-actions)))

(defvar *current-room*)
(defvar *inventory*)

(defun walk (direction)
    (let ((dest-room (assoc direction (room-exits *current-room*))))
         (if dest-room
             (progn 
                 (setf *current-room* (cdr dest-room))
                 (format t "You walk ~(~a~) to ~a~%" direction (room-name *current-room*)))
             (print "You can't go that way!"))))

(defun look (&optional (room *current-room*))
    (format t "~a~%" (room-descr room))
    (if (stuff-in-room room)
        ; TODO Obvs this part can do a whole lot better!
        (format t "~{You see ~@(~a~) here.~%~}~%" (mapcar (lambda (obj) (obj-name obj)) (stuff-in-room room)))))

;;; :O

(setq *nil-room* (make-instance 'my-room 
                                :name "NIL Room"
                                :description "This is the NIL Room, wooooooo!"
                                :exits nil))

(setq *goo* (make-instance 'game-object 
                           :name "Goo"
                           :description "Some goo"
                           :actions (list (cons 'caress
                                                (lambda ()
                                                        (format t "You caress the goo with your hands... ew!~%"))))))

(setq *junk-room* (make-instance 'my-room 
                                 :name "Junk Room" 
                                 :description "A room full of junk"
                                 :exits (list (cons :out *nil-room*))
                                 :contains (list *goo*)))

(setq *room* (make-instance 'my-room 
                            :name "Room" 
                            :description "This is The Room, from which all other rooms stem"
                            :exits (list (cons :north *junk-room*)
                                         (cons :south *nil-room*))))

(setf *current-room* *room*)
(setf *inventory* NIL)

(look)
(walk :north)
(look)
(walk :out)
(look)

[ + ] Show input
Absolute running time: 0.07 sec, cpu time: 0.03 sec, memory peak: 6 Mb, absolute service time: 0,09 sec