;;; -*- scheme -*-
(world 1
       (list
	;; testing magic code
	(region "Zermatt" '("Lausanne")
		(list
		 (person "Merlin" '()
			 (list (thing 5 "Krhenfsse")
			       (thing 1 "Sternenstaub")) '() '() '() "" ())
		 (person "Igor" '() '() '() '() '() "Merlin" ())
		 (person "Havel" '() '() '() '() '() "Merlin" ())
		 (person "Monique" '() '() '() '() '() "Merlin" ())
		 (person "Rodrigo" '() '() '() '() '() "Merlin" ())
		 (person "Johannes" '() '() '() '() '() "Merlin" ())
		 (person "Rosa" '() '() '() '() '() "Merlin" ())
		 (person "Gandalf"
			 (list
			  (weapon "Knirpsmacher"
				  "Stahl aus Damaskus"
				  "Krhenfsse"))
			 (list (thing 5 "Krhenfsse")
			       (thing 1 "Sternenstaub")) '() '() '() "" ())
		 (person "Frodo" '() '() '() '() '() "Gandalf" ())
		 (person "Bilbo" '() '() '() '() '() "Gandalf" ())
		 (person "Pippin" '() '() '() '() '() "Gandalf" ())
		 (person "Kili" '() '() '() '() '() "Gandalf" ())
		 (person "Fili" '() '() '() '() '() "Gandalf" ())
		 (person "Bifur" '() '() '() '() '() "Gandalf" ())
		 (person "Bombur" '() '() '() '() '() "Gandalf" ())
		 (person "Thorin" '() '() '() '() '() "Gandalf" ())
		 (person "Dain" '() '() '() '() '() "Gandalf" ())
		 (person "Nain" '() '() '() '() '() "Gandalf" ())) '())
	;; testing movement code
	(region "Lausanne" '("Genf" "Zermatt")
		(list
		 (person "Joe" '() '() '() '() '() "Merlin" ())
		 (person "Juri" '() '() '() '() '() "Merlin" ())
		 (person "Jim" '() '() '() '() '() "Merlin" ())) '())
	;; testing messaging code and praying
	(region "Genf" '("Baden" "Lausanne")
		(list
		 (person "Jolanda" '() '() '() '() '() "" ())
		 (person "Joringel" '() '() '() '() '() "" ())) '())
	(region "Baden" '("Zrich" "Genf") '() '())
	;; testing prisoner code
	(region "Seebach" '("Zrich")
		(list
		 (person "Anna" '() '() '() '() '() "" ())
		 (person "Clothilde" '() '() '() '() '() "" ())
		 (person "Zorro" '() '()
			 (list
			  (person "Alfonso" '() '() '() '() '() "" ()))
			 '() '() "" ()))
		'())
	;; testing combat code
	(region "Zrich"
		'("Baden" "Seebach")
		(list 
		 (person "Josef" '()
			 (list
			  (thing 10 "Kupferstcke")) '() '() '() "" ())
		 (person "Rudi" '() '() '() '() '() "" ())
		 (person "Alex"
			 (list
			  (weapon "Sternenspalter"
				  "Stahl aus Damaskus"
				  "Auge der Nacht"
				  "Runen des Salamanders"
				  "Sternenstaub"))
			 (list
			  (thing 100 "Gold"))
			 '()
			 '(("Rudi" . 7))
			 '() "Merlin" ())) '())
	;; testing trade code
	(region "Lonely Island"
		'()
		(list 
		 (person "Maria" '()
			 (list
			  (thing 10 "Kupferstcke")) '() '() '() "" ())
		 (person "Judith" '() 
			 (list
			  (thing 10 "Kupferstcke")) '() '() '() "" ())
		 (person "Evelyn"
			 (list
			  (weapon "Todespfeil"
				  "Dorn der Amaryllis"
				  "Herz der Dunkelheit"))
			 '()
			 '()
			 '(("Judith" . 2))
			 '() "" '())) '())))
