;;;
;;; Atlantis is a framework for creating multi-user dungeon worlds.
;;; This is the Common Lisp implementation.
;;;
;;; The world stores the current state of the game.
;;;
;;; Licensed under the terms of the MIT license
;;; author: Daniel Vedder
;;; date: 15/05/2015
;;;


(defvar *world*)


;; The world is basically a list of struct instances representing
;; each game object

(defstruct world
	(players NIL)
	(places NIL)
	(monsters NIL)
	(npcs NIL)
	(items NIL))


;; (defmacro add-game-object (game-object)
;; 	"Add a game-object to the *world*"
;; 	(let ((object-function
;; 			  (cond ((playerp game-object) 'world-players)
;; 				  ((place-p game-object) 'world-places)
;; 				  ((monster-p game-object) 'world-monsters)
;; 				  ((npc-p game-object) 'world-npcs)
;; 				  ((itemp-p game-object) 'world-items))))
;; 		`(setf (,object-function *world*)
;; 			 (append (,object-function *world*) ,game-object))))


(defmacro add-game-object (game-object)
	"Add a game-object to the *world*"
	(let ((attribute-list
			  (cond ((player-p game-object) '(world-players *world*))
				  ((place-p game-object) '(world-places *world*))
				  ((monster-p game-object) '(world-monsters *world*))
				  ((npc-p game-object) '(world-npcs *world*))
				  ((item-p game-object) '(world-items *world*)))))
		`(setf ,attribute-list (append ,attribute-list ,game-object))))