adventure.lisp

; SHITTY ADVENTURE GAME
; Is it can be lisp tiems nao

(defvar *objects*)
(defvar *map*)
(defvar *object-locations*)
(defvar *location*)

(defun init ()
  (setf *objects*
	'(bottle bucket purple-dildo amulet-of-yendor))
  (setf *map* 
	'((dark-pit
	   (You are standing in an empty room. 
	    There is a faint glow emanating from somewhere ahead.)
	   (ahead hell exit))
	  (ahead
	   (As you walk forwards the light appears to be light 
	    blue in color and you can vaguely discern what looks
	    like some kind of altar.)
	   (dark-pit altar))
	  (hell
	   (Your wish is granted and you are immediatly teleported
	    to the deepest pits of hell where a million spiked 
	    demon cocks invade your anus all at once)
	   ())
	  (altar
	   (You see an altar made of grey stone onto which a blue
	    gemstone glows faintly of this surreal blue light.)
	   (tutorial clearing assbandit-land))))
	
  (setf *object-locations*
	'((bottle dark-pit)
	  (bucket dark-pit)
	  (purple-dildo hell)
	  (amulet-of-yendor altar)))
  
  (setf *location* 'dark-pit))

(defun describe-location (location map)
  (second (assoc location map)))