diff --git a/ATL/Pooh/items.atl b/ATL/Pooh/items.atl index 459756a..73e7fbf 100644 --- a/ATL/Pooh/items.atl +++ b/ATL/Pooh/items.atl @@ -73,6 +73,12 @@ to protect the wick and a metal grip by which to carry it. It's very useful for dark places." +define-item "Map" + description "This is a map of the 100 Acre Wood. The woods may not be that + large, but it's still easy to get lost in them. So it may be + a good idea to carry this around with you..." + command "map" + define-item "Life" description " ................................... diff --git a/ATL/Pooh/items.atl b/ATL/Pooh/items.atl index 459756a..73e7fbf 100644 --- a/ATL/Pooh/items.atl +++ b/ATL/Pooh/items.atl @@ -73,6 +73,12 @@ to protect the wick and a metal grip by which to carry it. It's very useful for dark places." +define-item "Map" + description "This is a map of the 100 Acre Wood. The woods may not be that + large, but it's still easy to get lost in them. So it may be + a good idea to carry this around with you..." + command "map" + define-item "Life" description " ................................... diff --git a/ATL/Pooh/pooh.atl b/ATL/Pooh/pooh.atl index c05a4d6..058781b 100644 --- a/ATL/Pooh/pooh.atl +++ b/ATL/Pooh/pooh.atl @@ -9,6 +9,7 @@ name-world "100 Acre Wood" load-file "pooh-extensions.lisp" +load-file "woodland-map.lisp" load-file "items.atl" load-file "characters.atl" load-file "woods.atl" @@ -22,6 +23,6 @@ dexterity 4 constitution 4 -define-player "Christopher Robin" - description "Just debugging..." - ;place "Christopher Robin's house" \ No newline at end of file +;define-player "Christopher Robin" +; description "Just debugging..." +; place "Christopher Robin's house" \ No newline at end of file diff --git a/ATL/Pooh/items.atl b/ATL/Pooh/items.atl index 459756a..73e7fbf 100644 --- a/ATL/Pooh/items.atl +++ b/ATL/Pooh/items.atl @@ -73,6 +73,12 @@ to protect the wick and a metal grip by which to carry it. It's very useful for dark places." +define-item "Map" + description "This is a map of the 100 Acre Wood. The woods may not be that + large, but it's still easy to get lost in them. So it may be + a good idea to carry this around with you..." + command "map" + define-item "Life" description " ................................... diff --git a/ATL/Pooh/pooh.atl b/ATL/Pooh/pooh.atl index c05a4d6..058781b 100644 --- a/ATL/Pooh/pooh.atl +++ b/ATL/Pooh/pooh.atl @@ -9,6 +9,7 @@ name-world "100 Acre Wood" load-file "pooh-extensions.lisp" +load-file "woodland-map.lisp" load-file "items.atl" load-file "characters.atl" load-file "woods.atl" @@ -22,6 +23,6 @@ dexterity 4 constitution 4 -define-player "Christopher Robin" - description "Just debugging..." - ;place "Christopher Robin's house" \ No newline at end of file +;define-player "Christopher Robin" +; description "Just debugging..." +; place "Christopher Robin's house" \ No newline at end of file diff --git a/ATL/Pooh/woodland-map.lisp b/ATL/Pooh/woodland-map.lisp new file mode 100644 index 0000000..7527d19 --- /dev/null +++ b/ATL/Pooh/woodland-map.lisp @@ -0,0 +1,42 @@ +; The 100 Acre Wood was invented by A.A. Milne for his Winnie-the-Pooh stories. +; This Atlantis world is based on the novels. +; +; This file shows the game map. +; +; author: Daniel Vedder +; date: 31/07/2017 + +(defun map (player &optional arg) + "Print out the map" + (setf map-string " +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: +") + (format t "~A" map-string)) diff --git a/ATL/Pooh/items.atl b/ATL/Pooh/items.atl index 459756a..73e7fbf 100644 --- a/ATL/Pooh/items.atl +++ b/ATL/Pooh/items.atl @@ -73,6 +73,12 @@ to protect the wick and a metal grip by which to carry it. It's very useful for dark places." +define-item "Map" + description "This is a map of the 100 Acre Wood. The woods may not be that + large, but it's still easy to get lost in them. So it may be + a good idea to carry this around with you..." + command "map" + define-item "Life" description " ................................... diff --git a/ATL/Pooh/pooh.atl b/ATL/Pooh/pooh.atl index c05a4d6..058781b 100644 --- a/ATL/Pooh/pooh.atl +++ b/ATL/Pooh/pooh.atl @@ -9,6 +9,7 @@ name-world "100 Acre Wood" load-file "pooh-extensions.lisp" +load-file "woodland-map.lisp" load-file "items.atl" load-file "characters.atl" load-file "woods.atl" @@ -22,6 +23,6 @@ dexterity 4 constitution 4 -define-player "Christopher Robin" - description "Just debugging..." - ;place "Christopher Robin's house" \ No newline at end of file +;define-player "Christopher Robin" +; description "Just debugging..." +; place "Christopher Robin's house" \ No newline at end of file diff --git a/ATL/Pooh/woodland-map.lisp b/ATL/Pooh/woodland-map.lisp new file mode 100644 index 0000000..7527d19 --- /dev/null +++ b/ATL/Pooh/woodland-map.lisp @@ -0,0 +1,42 @@ +; The 100 Acre Wood was invented by A.A. Milne for his Winnie-the-Pooh stories. +; This Atlantis world is based on the novels. +; +; This file shows the game map. +; +; author: Daniel Vedder +; date: 31/07/2017 + +(defun map (player &optional arg) + "Print out the map" + (setf map-string " +..............................[ 100 ACRE WOODS ].............................. +: : +: Misty forest Rapids : +: : +: Bee tree : +: Sandy pit : +: : +: Rabbit : +: Kanga Northern : +: woods Rabbit's : +: Stream | friends-and-relations : +: | : +: Deep | Hill : +: forest | : +: | : +: POOH'S Western ___________ Central _____________ Eastern : +: HOME woods woods woods : +: | : +: | Owl Christopher : +: Six pine | Robin : +: trees | : +: | : +: Southern : +: Piglet woods : +: : +: : +: Floody Bridge : +: place Eeyore : +:..............................................................................: +") + (format t "~A" map-string)) diff --git a/ATL/Pooh/woods.atl b/ATL/Pooh/woods.atl index 0ec62e1..37507c9 100644 --- a/ATL/Pooh/woods.atl +++ b/ATL/Pooh/woods.atl @@ -14,6 +14,7 @@ neighbour "Pooh's branch" item "Hunny" item "Jar" + item "Map" hidden "Lamp" ;XXX development define-place "Pooh's porch"