Update to serial 201027
[homeland.git] / src / objects / overworld / g60.inf
1 ! Copyright (C) 2020 Jason Self <j@jxself.org>
2 !
3 ! This file is free software: you may copy, redistribute and/or 
4 ! modify it under the terms of the GNU Affero General Public License 
5 ! as published by the Free Software Foundation, either version 3 of 
6 ! the License, or (at your option) any later version.
7 !
8 ! This file is distributed in the hope that it will be useful, but
9 ! WITHOUT ANY WARRANTY; without even the implied warranty of
10 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 ! Affero General Public License for more details.
12 !
13 ! You should have received a copy of the GNU Affero General Public
14 ! License along with this file. If not, see https://gnu.org/licenses/
15
16 Object  g60 "Grassy Meadow"
17   with  description 
18             "It's a beautiful sunny day. The sky is a brilliant blue 
19             without a cloud in sight. Nearby is a large oak tree, 
20             with a small shed and a small garden. The tree has a 
21             twisted, heavy trunk. The branches are splashed with 
22             green and yellow leaves as the tree reaches toward the 
23             sky, casting its shadow around the meadow. The area smells 
24             fresh and has a peaceful feel about it. A high ridge to 
25             the east appears unclimbable. A creek slowly moves down 
26             the ridge and winds through the grassy meadow toward the 
27             east.",
28         s_to h70,
29         e_to 
30             "The ridge is so steep that you'd first need to find 
31             climbing equipment to be able to continue in that 
32             direction.",
33         up_to 
34             "The ridge is so steep that you'd first need to find 
35             climbing equipment to be able to continue in that 
36             direction.",
37         w_to g59,
38         sw_to campsite,
39   has   light;
40
41 Object  garden "small garden" g60
42   with  name 'garden' 'flowers',
43         found_in g59 g60,
44         description 
45             "The garden contains beautiful flowers of many colors, 
46             red, yellow, blue, purple, and brown. Some are pastel, 
47             others darker.",
48   has   scenery;
49
50 Object  shed2 "shed" g60
51   with  name 'shed',
52         description 
53             "It's a rickety-looking building made of thin wood. It 
54             has no windows but there's a large opening where a door 
55             should be. It's possible to enter the shed.",
56         before [;
57           Enter:
58             PlayerTo(shed);
59             rtrue;
60         ],
61   has   scenery;
62
63 Object  oaktree "oak tree" g60
64   with  name 'oak' 'tree',
65         description 
66             "The tree has a twisted, heavy trunk. The branches are 
67             splashed with green and yellow leaves as the tree reaches 
68             toward the sky, casting its shadow around the meadow.",
69         before [;
70           Climb:
71             print_ret 
72                 "As soon as you make it halfway up the tree, your 
73                 muscles begin to tremble and shake violently, throwing 
74                 your entire body against the bark of the tree and 
75                 making it difficult to continue to ascend, especially 
76                 without the use of climbing equipment. You go back 
77                 down to the ground.";
78           Taste:
79             print_ret "It tastes like wood.";
80           Touch:
81             print_ret "The trunk of the free feels rough to the touch.";
82           Take, Pull, Push, PushDir, Turn:
83             print_ret 
84                 "The tree is firmly anchored into the ground by a
85                 healthy root system. It's not going anywhere.";
86           Drink:
87             print_ret "The tree is not a liquid.";
88           Blow:
89             print_ret "You huff and you puff but nothing happens.";
90           Burn:
91             print_ret "Only you can prevent forest fires.";
92           Buy:
93             print_ret "The tree is not for sale.";
94           JumpOver:
95             print_ret 
96                 "Since when did you gain the ability to jump over
97                 trees in a single bound?";
98         ],
99   has   scenery;