;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                          World Objects                           ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Use a "obj:" prefix for all symbols so they are easily identified.

;;; Objects used in the game

(define obj:quest
  (make <inanimate> :nick 'quest :name "The Quest"
	:holder chr:god
	:description
        '("A moderately-sized quest, to be sure."
          "Its got to fit into a two hour programme, you see.")))

(define obj:grail
  (make <inanimate> :nick 'grail :name "The Holy Grail"
	:holder chr:frenchie
	:description
        '("A jeweled cup-like object.  You are not impressed.")))

(define obj:coconut
  (make <inanimate> :nick 'coconut :name "Coconuts"
	:location loc:pub
	:description '("Not a horse.")))

(define obj:horse
  (make <inanimate> :nick 'horse :name "A horse"
	:location chr:rbg
	:description
        '("A fine and athletic looking beast."
          "This is truly a mode of transportation worthy of one such as"
          "yourself.  Actually, it looks inanimate.")))

(define obj:shrubbery
  (make <inanimate> :nick 'shrubbery :name "Shrubbery"
	:location chr:roger
	:description
        '("It is a good shrubbery.  The laurels are especially nice."
          "You think about keeping the shrubbery to yourself, but then"
          "you sneeze and forget the whole thing.")))

(define obj:boat
  (make <inanimate> :nick 'boat :name "The Water Buffalo"
	:location loc:town
	:description
        '("This contraption only passes for a boat in that the the"
          "wizards at The University are giving 6:5 odds on the fact"
          "that it probably won't sink much.")))

(define obj:message
  (make <inanimate> :nick 'message :name "Message from Joseph"
	:location loc:caverns
	:description
        '("A piece of parchment (someone must have transcribed this"
          "from the cavern walls) that says:"
          "    Here may be found the last words of Joseph of Arimathea:"
          "      He who is valiant and pure of spirit"
          "      may find the Holy Grail in the"
          "      Castle of aaaaaaagh..."
          "Your head spins as you try to figure out why they bothered"
          "to transcribe \"aaaaaaagh\".")))

;;; Weapons used in the game

(define obj:manual
  (make <weapon> :nick 'manual :name "A Scheme Manual"
        :location loc:toilet
        :description
        '("It's the Swindle manual."
          "Somebody from the course staff must have forgotten this book"
          "here when they worked on the game.")))

(define obj:excalibur
  (make <weapon> :nick 'excalibur :name "Excalibur"
	:location chr:lady :potency 35
	:description
        '("And it was prophecied that whomsoever wields Excalibur shall"
          "be the king of all Britons.  This is, of course, no method"
          "for deciding on a system of government.")))

(define obj:grenade
  (make <weapon> :nick 'grenade
        :name "The Holy Hand Grenade of Antioch"
	:location loc:camelot :potency 40
	:description
        '("The most dreaded of the Holy Weapons, the Holy Hand Grenade"
          "was a favourite of Saint Attila.")))

(define obj:sword
  (make <weapon> :nick 'sword :name "A sword"
	:location loc:black :potency 25
	:description
        '("An ordinary sword.")))

(define obj:bow
  (make <weapon> :nick 'bow :name "A bow and arrows"
	:location loc:swamp :potency 20
	:description
        '("The bow and arrow is a weapon worthy of those of princely"
          "status.  You can use it too.")))

(define obj:accent
  (make <weapon> :nick 'accent :name "Valley Accent"
	:location loc:valley :potency 15
	:description
        '("It's like... you know...  totally like... awesome!")))

(define obj:rabbit
  (make <weapon> :nick 'rabbit :name "The Trojan Rabbit"
	:location loc:forest :potency 15
	:description
        '("It's a 30 foot tall wooden rabbit on wheels."
          "You imagine your adversaries trembling in fear.")))

(define obj:cow
  (make <weapon> :nick 'cow :name "Projectile Livestock"
	:location loc:town :potency 10
	:description
        '("No PETA representatives were harmed during the making of"
          "this game.")))

(define obj:spam
  (make <weapon> :nick 'spam :name "SPAM!"
        :location loc:pub :potency 5
	:description
        '("You can hear vikings chanting in the distance...")))