diff --git a/ATL/Pooh/objects.atl b/ATL/Pooh/objects.atl index f89ddcc..2b97f84 100644 --- a/ATL/Pooh/objects.atl +++ b/ATL/Pooh/objects.atl @@ -81,6 +81,14 @@ impression that it wants you to walk up a hill." cost 50 +define-item "Golden ring" + description "A beautiful golden ring that lies heavily in your hand. + Its smooth surface appears to conceal strange letters, + but you can't be sure, you may just be imagining things." + command "wear" + pickup-hook "ring-of-destiny" + drop-hook "annoying-ring" + define-item "Grandfather's cane" description "Piglet's grandfather used to carry this cane around with him. And woe to any young animal who dared to be disrespectful!" diff --git a/ATL/Pooh/objects.atl b/ATL/Pooh/objects.atl index f89ddcc..2b97f84 100644 --- a/ATL/Pooh/objects.atl +++ b/ATL/Pooh/objects.atl @@ -81,6 +81,14 @@ impression that it wants you to walk up a hill." cost 50 +define-item "Golden ring" + description "A beautiful golden ring that lies heavily in your hand. + Its smooth surface appears to conceal strange letters, + but you can't be sure, you may just be imagining things." + command "wear" + pickup-hook "ring-of-destiny" + drop-hook "annoying-ring" + define-item "Grandfather's cane" description "Piglet's grandfather used to carry this cane around with him. And woe to any young animal who dared to be disrespectful!" diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index ed9a900..a50ac34 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -70,3 +70,23 @@ "A wrapper function for lost-in-the-forest for the deep forest location" (lost-in-the-forest player "Deep forest" 40)) +;; The golden ring is an easter egg referencing, of course, +;; The Lord of the Rings. + +(defun wear (player &optional arg) + "Wear the mystical golden ring..." + (if (and arg (member 'ring (extract-elements arg))) + (progn + (format t "~&You slip the golden ring on your finger.") + (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&What do you want to wear?"))) + +(defun ring-of-destiny (player) + "When the ring is picked up" + (format t "~&You feel a strange stirring of destiny.")) + +(defun annoying-ring (player) + "The ring cannot be dropped!" + (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (format t "~&On second thoughts, you pick it up again.~%~%") + (take player "Golden ring")) diff --git a/ATL/Pooh/objects.atl b/ATL/Pooh/objects.atl index f89ddcc..2b97f84 100644 --- a/ATL/Pooh/objects.atl +++ b/ATL/Pooh/objects.atl @@ -81,6 +81,14 @@ impression that it wants you to walk up a hill." cost 50 +define-item "Golden ring" + description "A beautiful golden ring that lies heavily in your hand. + Its smooth surface appears to conceal strange letters, + but you can't be sure, you may just be imagining things." + command "wear" + pickup-hook "ring-of-destiny" + drop-hook "annoying-ring" + define-item "Grandfather's cane" description "Piglet's grandfather used to carry this cane around with him. And woe to any young animal who dared to be disrespectful!" diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index ed9a900..a50ac34 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -70,3 +70,23 @@ "A wrapper function for lost-in-the-forest for the deep forest location" (lost-in-the-forest player "Deep forest" 40)) +;; The golden ring is an easter egg referencing, of course, +;; The Lord of the Rings. + +(defun wear (player &optional arg) + "Wear the mystical golden ring..." + (if (and arg (member 'ring (extract-elements arg))) + (progn + (format t "~&You slip the golden ring on your finger.") + (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&What do you want to wear?"))) + +(defun ring-of-destiny (player) + "When the ring is picked up" + (format t "~&You feel a strange stirring of destiny.")) + +(defun annoying-ring (player) + "The ring cannot be dropped!" + (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (format t "~&On second thoughts, you pick it up again.~%~%") + (take player "Golden ring")) diff --git a/ATL/Pooh/woods.atl b/ATL/Pooh/woods.atl index 409261b..dd11382 100644 --- a/ATL/Pooh/woods.atl +++ b/ATL/Pooh/woods.atl @@ -136,6 +136,7 @@ home and the stream that marks the edge of the woods." neighbour "Central woods" neighbour "Galleons lap" + hidden "berries" define-place "Galleons lap" description "At the very top of the hill, an enchanted place opens up to @@ -203,7 +204,7 @@ define-place "Rabbit's house" description "TODO" npc "Rabbit" - item "Hunny" + hidden "Hunny" neighbour "Northern woods" neighbour "Rabbit's friends and relations" @@ -224,6 +225,7 @@ quickly. But that is easier said than done, the current here is pretty strong..." neighbour "Floody place" + hidden "Golden ring" define-place "Christopher Robin's house" description "TODO" diff --git a/ATL/Pooh/objects.atl b/ATL/Pooh/objects.atl index f89ddcc..2b97f84 100644 --- a/ATL/Pooh/objects.atl +++ b/ATL/Pooh/objects.atl @@ -81,6 +81,14 @@ impression that it wants you to walk up a hill." cost 50 +define-item "Golden ring" + description "A beautiful golden ring that lies heavily in your hand. + Its smooth surface appears to conceal strange letters, + but you can't be sure, you may just be imagining things." + command "wear" + pickup-hook "ring-of-destiny" + drop-hook "annoying-ring" + define-item "Grandfather's cane" description "Piglet's grandfather used to carry this cane around with him. And woe to any young animal who dared to be disrespectful!" diff --git a/ATL/Pooh/pooh-extensions.lisp b/ATL/Pooh/pooh-extensions.lisp index ed9a900..a50ac34 100644 --- a/ATL/Pooh/pooh-extensions.lisp +++ b/ATL/Pooh/pooh-extensions.lisp @@ -70,3 +70,23 @@ "A wrapper function for lost-in-the-forest for the deep forest location" (lost-in-the-forest player "Deep forest" 40)) +;; The golden ring is an easter egg referencing, of course, +;; The Lord of the Rings. + +(defun wear (player &optional arg) + "Wear the mystical golden ring..." + (if (and arg (member 'ring (extract-elements arg))) + (progn + (format t "~&You slip the golden ring on your finger.") + (format t "~&You feel something ought to happen.~&Nothing does.")) + (format t "~&What do you want to wear?"))) + +(defun ring-of-destiny (player) + "When the ring is picked up" + (format t "~&You feel a strange stirring of destiny.")) + +(defun annoying-ring (player) + "The ring cannot be dropped!" + (format t "~&You feel a stab of pain in your heart as you watch the ring drop.") + (format t "~&On second thoughts, you pick it up again.~%~%") + (take player "Golden ring")) diff --git a/ATL/Pooh/woods.atl b/ATL/Pooh/woods.atl index 409261b..dd11382 100644 --- a/ATL/Pooh/woods.atl +++ b/ATL/Pooh/woods.atl @@ -136,6 +136,7 @@ home and the stream that marks the edge of the woods." neighbour "Central woods" neighbour "Galleons lap" + hidden "berries" define-place "Galleons lap" description "At the very top of the hill, an enchanted place opens up to @@ -203,7 +204,7 @@ define-place "Rabbit's house" description "TODO" npc "Rabbit" - item "Hunny" + hidden "Hunny" neighbour "Northern woods" neighbour "Rabbit's friends and relations" @@ -224,6 +225,7 @@ quickly. But that is easier said than done, the current here is pretty strong..." neighbour "Floody place" + hidden "Golden ring" define-place "Christopher Robin's house" description "TODO" diff --git a/doc/TODO b/doc/TODO index c878ca6..c8e37b6 100644 --- a/doc/TODO +++ b/doc/TODO @@ -1,7 +1,7 @@ ATLANTIS TODO -* add hidden items and the 'search' command * fill in missing place descriptions * hide 5 more pots of honey * require XP minimum to finish game? * think of more quests +* integrate the quests to lead the player through the game