Update to serial number 200614
[homeland.git] / src / objects / intro / backyard.inf
1 ! Copyright (C) 2019, 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  backyard "Back Yard"
17   with  description 
18             "You are in your neighbor's back yard. It is barely cloudy 
19             and already hot this morning. Some shade from the sun 
20             would be nice but the closest tree is at the sidewalk, on 
21             the other side of the building and the sun is causing all 
22             of the shadows to go in the wrong direction. The healthy, 
23             dark green grass is well manicured. It looks like a nice 
24             place. You hear some dogs barking in the distance. A high 
25             wooden fence encompasses the area, painted a burnt umber. 
26             Their back door is to the east. Your kitchen window is to 
27             the south.",
28         before [;
29           Go:
30             if (noun == s_obj) {
31                 print 
32                     "Climbing over the fence you squeeze back through 
33                     your kitchen window.^";
34             }
35         ],
36         s_to window,
37         n_to "Their fence is too high to climb over in that direction.",
38         e_to backdoor,
39         w_to "Their fence is too high to climb over in that direction.",
40   has   light;
41
42 Object  leaves "leaves" backyard
43   with  name 'leaf' 'leaves',
44         found_in backyard sidewalk,
45   has   scenery;
46
47 Object  scratches "scratches" backyard
48   with  name 'scratch' 'scratches' 'mark' 'marks' 'marking' 'markings',
49         found_in backyard neighborkitchen,
50   has   scenery;
51
52 Object  house "neighbor's house" backyard
53   with  name 'neighbor' 'neighbors' 'house' 'home' 'building',
54         found_in backyard frontporch kitchen sidewalk,
55   has   scenery;
56
57 Object  backdoor "back door" backyard
58   with  name 'door' 'back' 'backdoor',
59         description 
60             "Burgundy in color it seems a solid and hefty door. It 
61             has scratches along the bottom, as if from a pet long 
62             forgotten.",
63         short_name [;
64             if (location == backyard)
65                 print "door to your neighbor's house";
66             else
67                 print "door to the back yard";
68             return true;
69         ],
70         found_in backyard neighborkitchen,
71         door_dir [;
72             if (location == backyard)
73                 return e_to;
74             else
75                 return w_to;
76         ],
77         door_to [;
78             if (location == backyard)
79                 return neighborkitchen;
80             else
81                 return backyard;
82         ],
83   has   scenery door openable;