Update to serial number 200614

[homeland.git] / src / objects / overworld / g60.inf

diff --git a/src/objects/overworld/g60.inf b/src/objects/overworld/g60.inf
new file mode 100644 (file)
index 0000000..98cd028
--- /dev/null
+++ b/src/objects/overworld/g60.inf
@@ -0,0 +1,99 @@
+! Copyright (C) 2020 Jason Self <j@jxself.org>
+!
+! This file is free software: you may copy, redistribute and/or 
+! modify it under the terms of the GNU Affero General Public License 
+! as published by the Free Software Foundation, either version 3 of 
+! the License, or (at your option) any later version.
+!
+! This file is distributed in the hope that it will be useful, but
+! WITHOUT ANY WARRANTY; without even the implied warranty of
+! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+! Affero General Public License for more details.
+!
+! You should have received a copy of the GNU Affero General Public
+! License along with this file. If not, see https://gnu.org/licenses/
+
+Object  g60 "Grassy Meadow"
+  with  description 
+            "It's a beautiful sunny day. The sky is a brilliant blue 
+            without a cloud in sight. Nearby is a large oak tree, 
+            with a small shed and a small garden. The tree has a 
+            twisted, heavy trunk. The branches are splashed with 
+            green and yellow leaves as the tree reaches toward the 
+            sky, casting its shadow around the meadow. The area smells 
+            fresh and has a peaceful feel about it. A high ridge to 
+            the east appears unclimbable. A creek slowly moves down 
+            the ridge and winds through the grassy meadow toward the 
+            east.",
+        s_to h70,
+        e_to 
+            "The ridge is so steep that you'd first need to find 
+            climbing equipment to be able to continue in that 
+            direction.",
+        up_to 
+            "The ridge is so steep that you'd first need to find 
+            climbing equipment to be able to continue in that 
+            direction.",
+        w_to g59,
+        sw_to campsite,
+  has   light;
+
+Object  garden "small garden" g60
+  with  name 'garden' 'flowers',
+        found_in g59 g60,
+        description 
+            "The garden contains beautiful flowers of many colors, 
+            red, yellow, blue, purple, and brown. Some are pastel, 
+            others darker.",
+  has   scenery;
+
+Object  shed2 "shed" g60
+  with  name 'shed',
+        description 
+            "It's a rickety-looking building made of thin wood. It 
+            has no windows but there's a large opening where a door 
+            should be. It's possible to enter the shed.",
+        before [;
+          Enter:
+            PlayerTo(shed);
+            rtrue;
+        ],
+  has   scenery;
+
+Object  oaktree "oak tree" g60
+  with  name 'oak' 'tree',
+        description 
+            "The tree has a twisted, heavy trunk. The branches are 
+            splashed with green and yellow leaves as the tree reaches 
+            toward the sky, casting its shadow around the meadow.",
+        before [;
+          Climb:
+            print_ret 
+                "As soon as you make it halfway up the tree, your 
+                muscles begin to tremble and shake violently, throwing 
+                your entire body against the bark of the tree and 
+                making it difficult to continue to ascend, especially 
+                without the use of climbing equipment. You go back 
+                down to the ground.";
+          Taste:
+            print_ret "It tastes like wood.";
+          Touch:
+            print_ret "The trunk of the free feels rough to the touch.";
+          Take, Pull, Push, PushDir, Turn:
+            print_ret 
+                "The tree is firmly anchored into the ground by a
+                healthy root system. It's not going anywhere.";
+          Drink:
+            print_ret "The tree is not a liquid.";
+          Blow:
+            print_ret "You huff and you puff but nothing happens.";
+          Burn:
+            print_ret "Only you can prevent forest fires.";
+          Buy:
+            print_ret "The tree is not for sale.";
+          JumpOver:
+            print_ret 
+                "Since when did you gain the ability to jump over
+                trees in a single bound?";
+        ],
+  has   scenery;
\ No newline at end of file