+++ /dev/null
-! Copyright (C) 2019 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 kitchen "Kitchen"
- with description
- "This looks like a restaurant-quality kitchen. It's small
- but full of natural light coming in through the large
- window, adding a nice sense of a warm glow. Despite the
- small size it has a high ceiling, and the room was set up
- into a rectangular shape. The layout allows for easy
- access. The walls are painted a buttery yellow and broken
- up by celery green curtains on the window. The highly
- polished floor ties everything together to create a
- feeling of comfort and elegance. It's the perfect example
- of well-balanced home design. The livingroom is to the
- east.",
- n_to window,
- cant_go "You walk smack into one of those buttery yellow
- walls I described.",
- e_to livingroom,
- before [;
- Go:
- if (chair in player) {
- print_ret "The chair is too awkward to do that while
- you're carrying it.";
- }
- ],
- has light;
-
-Object wall "wall" kitchen
- with name 'yellow' 'wall' 'walls',
- description [;
- if (location == kitchen)
- print
- "The walls are painted a buttery yellow and
- broken up by celery green curtains on the
- windows.^";
- else
- print "You see nothing special about the walls.^";
- ],
- found_in kitchen livingroom bedroom neighborkitchen neighborlivingroom,
- has scenery;
-
-Object chair "chair" kitchen
- with name 'chair' 'backrest' 'seat',
- description
- "It seems to be your average kitchen chair: Four chrome
- legs and a backrest with a yellow seat that matches the
- walls.",
- before [;
- Take:
- move chair to player;
- print_ret "As awkward as it is, you take the chair.";
- ],
- has scenery supporter enterable;
-
-Object table "table" kitchen
- with name 'table' 'kitchen table' 'formica',
- description
- "It looks like something right out of the 1950s: Green
- formica and chrome legs.",
- before [;
- Take, Pull, Push, PushDir, Turn:
- print_ret (The) self, " is too heavy for that.";
- ],
- has scenery supporter enterable;
-
-Object newspaper "newspaper" table
- with name 'newspaper' 'paper',
- description
- "It's your favorite newspaper: U.S. News And Grue Report,
- which also airs on TV. The headline story says ~The GUE's
- redesigned 100 zorkmid bill makes history today, becoming
- the first ever zorkmid to feature a woman on the front.
- The bill is set to become legal tender next year, with
- the decision finalized by the Governor yesterday.~
- ~I have enthusiastically embraced this bold new way of
- designing money, showing a woman's face. I believe this
- landmark achievement will stimulate public confidence in
- our monetary system and will help build the GUE's
- creative capabilities,~ the Governor said. The next
- story talks about how a local resident has won the
- carrot-growing contest for the third time in a row.";
-
-Object window "window" kitchen
- with name 'window' 'windows',
- description
- "Framed by celery green curtains it seems almost large
- enough to climb through.",
- short_name [;
- if (location == kitchen)
- print "window to your neighbor's back yard";
- else
- print "window to your kitchen";
- return true;
- ],
- found_in kitchen backyard,
- door_dir [;
- if (location == kitchen)
- return n_to;
- else
- return s_to;
- ],
- door_to [;
- if (location == kitchen)
- return backyard;
- else
- return kitchen;
- ],
- before [;
- Search:
- if (curtains has open) {
- print "You see your neighbor's backyard.^";
- return true;
- }
- else {
- print "The curtains are closed, and you can't see
- through them.^";
- return true;
- }
- Open:
- if (window hasnt visited) {
- score = score + 1;
- give window visited;
- }
- Climb:
- if (window hasnt visited) {
- score = score + 1;
- give window visited;
- }
- PlayerTo(backyard);
- ],
- has scenery door openable;
-
-Object curtains "curtains" kitchen
- with name 'celery' 'green' 'curtain' 'curtains',
- description "Celery green in color, you see nothing special
- about the curtains.",
- before [;
- Take, Pull, Push, PushDir:
- print_ret "Don't you think they look nice where they are?";
- ],
- has scenery open openable pluralname;
-
-Object legs "legs" kitchen
- with name 'leg' 'legs',
- found_in kitchen neighborkitchen,
- has scenery;
\ No newline at end of file