src/objects/intro/kitchen.inf

   1 ! Copyright (C) 2019 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  kitchen "Kitchen"
  17   with  description
  18             "This looks like a restaurant-quality kitchen. It's small
  19             but full of natural light coming in through the large
  20             window, adding a nice sense of a warm glow. Despite the
  21             small size it has a high ceiling, and the room was set up
  22             into a rectangular shape. The layout allows for easy
  23             access. The walls are painted a buttery yellow and broken
  24             up by celery green curtains on the window. The highly
  25             polished floor ties everything together to create a
  26             feeling of comfort and elegance. It's the perfect example
  27             of well-balanced home design. The livingroom is to the
  28             east.",
  29         n_to window,
  30         cant_go "You walk smack into one of those buttery yellow
  31                 walls I described.",
  32         e_to livingroom,
  33         before [;
  34           Go:
  35             if (chair in player) {
  36                 print_ret "The chair is too awkward to do that while
  37                           you're carrying it.";
  38             }
  39         ],
  40   has   light;
  41
  42 Object  wall "wall" kitchen
  43   with  name 'yellow' 'wall' 'walls',
  44         description [;
  45             if (location == kitchen)
  46                 print
  47                     "The walls are painted a buttery yellow and
  48                     broken up by celery green curtains on the
  49                     windows.^";
  50             else
  51                 print "You see nothing special about the walls.^";
  52         ],
  53         found_in kitchen livingroom bedroom neighborkitchen neighborlivingroom,
  54   has   scenery;
  55
  56 Object  chair "chair" kitchen
  57   with  name 'chair' 'backrest' 'seat',
  58         description
  59             "It seems to be your average kitchen chair: Four chrome
  60             legs and a backrest with a yellow seat that matches the
  61             walls.",
  62         before [;
  63           Take:
  64             move chair to player;
  65             print_ret "As awkward as it is, you take the chair.";
  66         ],
  67   has   scenery supporter enterable;
  68
  69 Object  table "table" kitchen
  70   with  name 'table' 'kitchen table' 'formica',
  71         description
  72             "It looks like something right out of the 1950s: Green
  73             formica and chrome legs.",
  74         before [;
  75           Take, Pull, Push, PushDir, Turn:
  76             print_ret (The) self, " is too heavy for that.";
  77         ],
  78   has   scenery supporter enterable;
  79
  80 Object  newspaper "newspaper" table
  81   with  name 'newspaper' 'paper',
  82         description
  83             "It's your favorite newspaper: U.S. News And Grue Report,
  84             which also airs on TV. The headline story says ~The GUE's
  85             redesigned 100 zorkmid bill makes history today, becoming
  86             the first ever zorkmid to feature a woman on the front.
  87             The bill is set to become legal tender next year, with
  88             the decision finalized by the Governor yesterday.~
  89             ~I have enthusiastically embraced this bold new way of
  90             designing money, showing a woman's face. I believe this
  91             landmark achievement will stimulate public confidence in
  92             our monetary system and will help build the GUE's
  93             creative capabilities,~ the Governor said. The next
  94             story talks about how a local resident has won the
  95             carrot-growing contest for the third time in a row.";
  96
  97 Object  window "window" kitchen
  98   with  name 'window' 'windows',
  99         description
 100             "Framed by celery green curtains it seems almost large
 101             enough to climb through.",
 102         short_name [;
 103             if (location == kitchen)
 104                 print "window to your neighbor's back yard";
 105             else
 106                 print "window to your kitchen";
 107             return true;
 108         ],
 109         found_in kitchen backyard,
 110         door_dir [;
 111             if (location == kitchen)
 112                 return n_to;
 113             else
 114                 return s_to;
 115         ],
 116         door_to [;
 117             if (location == kitchen)
 118                 return backyard;
 119             else
 120                 return kitchen;
 121         ],
 122         before [;
 123           Search:
 124             if (curtains has open) {
 125                 print "You see your neighbor's backyard.^";
 126                 return true;
 127             }
 128             else {
 129                 print "The curtains are closed, and you can't see
 130                       through them.^";
 131                 return true;
 132             }
 133           Open:
 134             if (window hasnt visited) {
 135                 score = score + 1;
 136                 give window visited;
 137             }
 138           Climb:
 139             if (window hasnt visited) {
 140                 score = score + 1;
 141                 give window visited;
 142             }
 143             PlayerTo(backyard);
 144         ],
 145   has   scenery door openable;
 146
 147 Object  curtains "curtains" kitchen
 148   with  name 'celery' 'green' 'curtain' 'curtains',
 149         description "Celery green in color, you see nothing special
 150                     about the curtains.",
 151         before [;
 152           Take, Pull, Push, PushDir:
 153             print_ret "Don't you think they look nice where they are?";
 154         ],
 155   has   scenery open openable pluralname;
 156
 157 Object  legs "legs" kitchen
 158   with  name 'leg' 'legs',
 159         found_in kitchen neighborkitchen,
 160   has   scenery;