+++ /dev/null
-! Copyright (C) 2019, 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 neighborkitchen "Kitchen"
- with description
- "You are in your neighbor's kitchen. It's a large
- contemporary kitchen with an open design and many flat
- surfaces. The color palette is very bright and in
- perfect harmony with the kitchen. It's timeless and
- beautiful. The walls look like they've been used to
- store things, with some faint outlines remaining that
- gives a lived-in look. It could have been a luxury
- cooking environment, though by now everything has been
- removed. Only the kitchen island and fireplace remain in
- stark contrast to the bare kitchen. The livingroom is to
- the east. The door to the back yard is to the west.",
- e_to neighborlivingroom,
- w_to backyard,
- has light;
-
-Object island "kitchen island" neighborkitchen
- with name 'kitchen' 'island' 'table' 'wood' 'wooden' 'top' 'wood',
- description
- "It has metal legs firmly embedded into the floor, and a
- wooden top. Strangely, all of the drawers have been
- removed.",
- before [;
- Take, Pull, Push, PushDir, Turn:
- print_ret "The kitchen island is firmly planted in the floor.";
- ],
- has scenery supporter enterable;
-
-Object brick "brick" neighborkitchen
- with name 'brick' 'bricks' 'mortar',
- description
- "You find nothing special about the bricks that make up
- the fireplace.",
- has scenery;
-
-Object fireplace "fireplace" neighborkitchen
- with name 'fireplace' 'fire' 'place' 'mouth',
- description [;
- print
- "A stain is splayed against the brick fireplace,
- making its curved mouth appear like a black, toothless
- scream. A confection of ashes occupy the fireplace";
- if (poker in self)
- print
- ", and a poker hangs out which looks like it
- could make an effective weapon";
- print ".";
- new_line;
- ],
- has scenery container transparent open;
-
-Object poker "poker" fireplace
- with name 'poker',
- description
- "This poker may have once been used to expedite the
- flame's envelopment, as well as the house's many stories
- and secrets.",
- before [;
- Take, Pull, Push, PushDir, Remove:
- give poker ~concealed;
- if (poker hasnt visited) {
- score = score + 1;
- give poker visited;
- }
- if (player in neighborlivingroom) {
- if (bluebutton has on)
- machine.shoot();
- }
- ],
- has concealed;
-
-Object ashes "ashes" fireplace
- with name 'ash' 'ashes',
- description "It looks like a pile of ash.",
- before [;
- Take, Pull, Push, PushDir:
- print_ret "The ashes are so fine they fall between your fingers.";
- ],
- has concealed pluralname;
-
-Object stain "stain" fireplace
- with name 'stain',
- has scenery;
-
-Object mouth "mouth of the fireplace" fireplace
- with name 'mouth',
- has scenery;
-
-Object letter "letter" island
- with name 'letter',
- description
- "The letter reads: ~Thank you for evaluating this
- prototype of the Frobozz Magic Teleporter. Please refer to
- the enclosed manual to learn how to program destinations
- in to your teleporter. Pressing the red button recalls the
- last-used destination and teleports you there. Pressing
- the blue button engages Defense Mode, which instantly
- whisks intruders away. Use it to provide defense for any
- location! Please send feedback about this prototype to
- your local FrobozzCo International sales person. Warning:
- Side effects can include disorientation, loss of memory,
- lightheadedness, loss of appetite, nausea, vomiting,
- weakness, and death.~";
\ No newline at end of file