src/intro.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  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;
 161
 162 Object  livingroom "Livingroom"
 163   with  description
 164             "You are in a modestly furnished living room. It's very a
 165             traditional but modern as far as the style of rooms go. It
 166             has a certain bourgeois feeling, although it doesn't seem
 167             very large. There's a couch in the middle of the room
 168             facing a television. Pictures hang from the other walls.
 169             The pictures were commissioned by your family, but a lot
 170             of people claim they painted them. You can hear the sound
 171             of vehicles driving by outside. The kitchen is to the
 172             west. The front door is to the east. Your bedroom is to
 173             the south.",
 174         before [;
 175           Listen:
 176             print "You can hear the sound of vehicles driving by outside.^";
 177             return true;
 178         ],
 179         n_to
 180             "Since when did you get the ability to walk through
 181             walls? The kitchen is to the west. The front door is to
 182             the east. Your bedroom is to the south.",
 183         s_to bedroom,
 184         w_to kitchen,
 185         e_to frontdoor,
 186   has   light;
 187
 188 Object  picture "pictures" livingroom
 189   with  description
 190             "The pictures in the room consist of a landscape painting
 191             showing a strangely geometric mountain, another of a
 192             still life painting of a table laid out with a feast and
 193             the third is a portrait of an unknown man. He has a full
 194             beard, is wearing a black robe and no shoes. On his head
 195             is a large 1970s-era hard disk platter.",
 196         name 'picture' 'photo' 'photos' 'frame' 'frames' 'pictures'
 197         'image' 'images',
 198         Before [;
 199           Take:
 200             print_ret
 201                 "They look so nice, perhaps it's better to leave them
 202                 where they are.";
 203         ],
 204   has   scenery pluralname;
 205
 206 Object  man "man" livingroom
 207   with  description "It's a painting of Richard Stallman dressed as
 208                     St IGNUcius.",
 209         name 'man' 'disk' 'hard' 'platter' 'robe' 'rms' 'Richard' 'Stallman'
 210         'robe' 'black' 'image' 'images',
 211         Before [;
 212           Take:
 213             print_ret
 214                 "The painting looks so nice, perhaps it's better to
 215                 leave it where it is.";
 216         ],
 217   has   scenery;
 218
 219 Object  television "television" livingroom
 220   with  name 'television' 'tv',
 221         description
 222             "It's big, gray, and one of those old-fashioned CRT
 223             models. It looks very heavy.",
 224         watch_count 0,
 225         before [;
 226           Listen, Examine:
 227             if (television has on) {
 228                 self.watch_count = self.watch_count + 1;
 229                 switch (self.watch_count) {
 230                   1:
 231                     print
 232                         "It's big, gray, and one of those
 233                         old-fashioned CRT models. It looks very
 234                         heavy.^The TV is currently switched on. Your
 235                         favorite news program is on: U.S. News And
 236                         Grue Report.^The news anchor is saying ~In
 237                         other news, authorities continue to
 238                         investigate the missing persons case.~^";
 239                     score = score + 1;
 240                     return true;
 241                   2:
 242                     print
 243                         "The news anchor continues by saying ~We're
 244                         told the that number of missing people is now
 245                         up to as many as 5.~^";
 246                     score = score + 1;
 247                     return true;
 248                   3:
 249                     print
 250                         "The news anchor concludes their coverage by
 251                         saying ~We'll have more as the story continues
 252                         to develop.~^";
 253                     score = score + 1;
 254                     return true;
 255                   default:
 256                     print
 257                         "It's big, gray, and one of those
 258                         old-fashioned CRT models. It looks very
 259                         heavy.^The TV is currently switched on. Your
 260                         favorite news program is on: U.S. News And
 261                         Grue Report.^";
 262                     return true;
 263                 }
 264             }
 265             ;
 266           Take, Pull, Push, PushDir:
 267             print_ret (The) self, " is too heavy for that.";
 268         ],
 269         after [;
 270           SwitchOn:
 271             print
 272                 "The television comes to life. Your favorite news
 273                 program is on: U.S. News And Grue Report.^";
 274             if (television hasnt visited) {
 275                 score = score + 1;
 276                 give television visited;
 277             }
 278             return true;
 279         ],
 280   has   scenery static switchable;
 281
 282 Object  couch "couch" livingroom
 283   with  name 'couch' 'sofa',
 284         description
 285             "It looks like a throwback from the 1970s but has held up
 286             very well.",
 287         before [;
 288           Take, Pull, Push, PushDir:
 289             print_ret (The) self, " is too heavy for that.";
 290         ],
 291         after [;
 292           Enter:
 293             print
 294                  "The couch makes a nauseating, high-pitched groan as
 295                  your weight is added.^";
 296             return true;
 297           Exit, GetOff:
 298             print "The couch makes a muted snort as your weight is removed.^";
 299             return true;
 300         ],
 301   has   scenery static supporter enterable;
 302
 303 Object  frontdoor "front door" livingroom
 304   with  name 'door' 'front',
 305         description
 306             "Cinnamon brown in color it appears to be a very solid
 307             and hefty door.",
 308         short_name [;
 309             if (location == livingroom)
 310                 print "door to the outside";
 311             else
 312                 print "door to your house";
 313             return true;
 314         ],
 315         found_in livingroom sidewalk,
 316         door_dir [;
 317             if (location == sidewalk)
 318                 return w_to;
 319             else
 320                 return e_to;
 321         ],
 322         door_to [;
 323             if (location == sidewalk)
 324                 return livingroom;
 325             else
 326                 return sidewalk;
 327         ],
 328   has   scenery door openable;
 329
 330 Object  bedroom "Bedroom"
 331   with  description
 332             "You walk through the door and find yourself in your own
 333             bedroom, which was once used by your grandmother. This
 334             room was designed in a renaissance style by a master
 335             decorator. It has a certain sense of extravagance, with
 336             ornate inlaid walls in a variety of complimentary colors
 337             that form exquisite patterns, with gold and marble
 338             highlights. The fully-decorated bed looks very comfortable
 339             - it projects a very light, airy feeling that's perfect
 340             for sleeping and adds to the sense of luxury. On the wall
 341             across from your bed is a large painting. The livingroom
 342             is to the north.",
 343         n_to livingroom,
 344         cant_go
 345             "Since when did you get the ability to walk through
 346             walls? Your livingroom is to the north.",
 347   has   light;
 348
 349 Object  painting "painting" bedroom
 350   with  description
 351             "It's a picture of Aragain Falls, the most breathtaking
 352             and awesome waterfall in the known lands.",
 353         before [;
 354           Insert:
 355             if (second == box)
 356                 print_ret (The) self, " is too big to fit.";
 357         ],
 358         name 'painting' 'paint' 'picture' 'of' 'aragain' 'falls',
 359   has   scenery;
 360
 361 Object  bed "bed" bedroom
 362   with  name 'bed' 'twin',
 363         description
 364             "With a frame of solid wood with a golden brown finish,
 365             it's a finely crafted bed.",
 366         before [;
 367           Take, Pull, Push, PushDir:
 368             print_ret (The) self, " is too heavy for that.";
 369         ],
 370   has   scenery static supporter enterable;
 371
 372 Object  box "dented steel box" bed
 373   with  name 'box' 'safe' 'safety' 'deposit',
 374         description
 375             "It's a safety deposit box. Made of steel, and dented,
 376             the words ~Property Of The Bank of Zork~ are on it.",
 377   has   container openable;
 378
 379 Object  directional "compass" box
 380   with  name 'compass',
 381         description [;
 382             if (location == livingroom || location == sidewalk) {
 383                 print "The compass is pointing west.^";
 384                 rtrue;
 385             }
 386             if (location == frontporch) {
 387                 print "The compass is pointing southeast.^";
 388                 rtrue;
 389             }
 390             else
 391                 print
 392                     "Ordinarily you'd expect a compass to point north
 393                     but this one is spinning wildly in every
 394                     direction.^";
 395         ],
 396         ;
 397
 398 Object  grandlivingroom "Grand Livingroom"
 399   with  description [;
 400             if (grandlivingroom has visited) {
 401                 print
 402                     "This time there's no sign of the woman but the
 403                     guards she called for are here. They grab & arrest
 404                     you. Perhaps you should have listened.^";
 405             }
 406             if (grandlivingroom hasnt visited) {
 407                 print
 408                     "Feeling a little disoriented as you enter, this
 409                     doesn't seem like the same place: The interior
 410                     feels very open. Walls of pine extend upward to a
 411                     ceiling soaring above this two-story height
 412                     livingroom with windows extending all the way up
 413                     the walls, providing an abundance of sunlight for
 414                     the space. The ceiling is painted with soft moss
 415                     on a deep silver background creating an inviting
 416                     effect. A wide doorway on the other side of the
 417                     room leads to a wide balcony, providing a perfect
 418                     view of the garden and pond beyond it. As you
 419                     begin to take in the bold colors of this lavish
 420                     room a woman comes out of one of the walkways on
 421                     the other end. Dressed in a stunning red and blue
 422                     gown she seems a combination of surprised and
 423                     startled to see you. ~Who are you? Why are you
 424                     here?~ she asks, demandingly. Not giving time for
 425                     a response she yells for the guards. I don't know
 426                     where we are but I think now would be a good time
 427                     to leave.^";
 428             }
 429         ],
 430                 each_turn [;
 431                 guardscalled = guardscalled + 1;
 432                 if (guardscalled == 1)
 433                     PlayerTo(neighborlivingroom);
 434                 else
 435                     if (guardscalled == 2) {
 436                         deadflag = 3;
 437                     }
 438         ],
 439   has   light;
 440
 441 Object  Sidewalk "Sidewalk"
 442   with  description
 443             "You are standing on the sidewalk in front of your house.
 444             The street is normally quiet, but it's been very busy
 445             and crowded today, like trying to get through a busy movie
 446             theater, and the sound of the traffic has been
 447             particularly noticeable. The traffic is a good sign of
 448             what's going on in the city as a whole today. It is barely
 449             cloudy and already hot this morning. Smaller branches of
 450             trees are in motion from the light wind, which helps to
 451             provide some relief from the heat. Your home is to the
 452             west. Your neighbor's home is to the northwest.",
 453         n_to
 454             "Some inconsiderate person parked their car on the
 455             sidewalk which blocks your path. It might be nice to call
 456             Parking Enforcement so they can get a ticket for creating
 457             an obstruction but you don't have a phone.",
 458         s_to
 459             "You arrive at an intersection. Lots of traffic drives
 460             past at high speed creating a small breeze that makes your
 461             shirt ripple. You decide it is better to not risk being
 462             run over and go back.",
 463         e_to
 464             "As you start to step out into the street a car quickly
 465             zooms by at high speed. You jump back to avoid becoming
 466             part of the pavement.",
 467         se_to
 468             "As you start to step out into the street a car honks
 469             impatiently for you to get out of the way. You go back to
 470             your old spot.",
 471         ne_to
 472             "The street is very busy. Surely you'd be hit by a moving
 473             vehicle if you went there.",
 474         nw_to frontporch,
 475         sw_to "A rock wall blocks your path.",
 476         w_to frontdoor,
 477   has   light;
 478
 479 Object  street "street" sidewalk
 480   with  name 'street' 'road',
 481         description "It's your typical street.",
 482   has   scenery;
 483
 484 Object  rockwall "rock wall" sidewalk
 485   with  name 'rock' 'wall' 'stone' 'rock' 'boulder' 'stonework'
 486         'cobblestone' 'mortar' 'stones' 'rocks' 'walls',
 487          description
 488             "Made up of assorted stones of various sizes and shapes,
 489             with a healthy dose of mortar between them to fill and
 490             seal the irregular gaps between them, it serves as a wall
 491             separating your property from someone else's.",
 492   has   scenery;
 493
 494 Object  car "car" sidewalk
 495   with  name 'car' 'vehicle' 'automobile',
 496         description
 497             "It's a white two-door car. The license plate holder says
 498             FrobozzCo International.",
 499         before [;
 500           Unlock:
 501             print_ret "The car is locked, and there is apparently no key.";
 502           Open:
 503             print_ret "The car is locked, and there is apparently no key.";
 504           Climb:
 505             print_ret
 506                 "I'm not sure that FrobozzCo International would
 507                 appreciate people climbing on one of their cars.";
 508           Take:
 509             print_ret
 510                 "I doubt that FrobozzCo International would
 511                 appreciate someone taking one of their cars.";
 512           Pull, Push, PushDir, Turn:
 513             print_ret (The) self, " is too heavy for that.";
 514         ],
 515   has   scenery;
 516
 517 Object  licenseplateframe "license plate holder" sidewalk
 518   with  name 'license' 'plate' 'frame' 'holder',
 519         description "It says FrobozzCo International in white letters
 520                     on a black frame.",
 521         Before [;
 522           Take, Pull, Push, PushDir, Turn:
 523             print_ret (The) self, " is firmly attached to the car.";
 524         ],
 525   has   scenery;
 526
 527 Object  frontporch "Front Porch"
 528   with  description
 529             "You are on your neighbor's front porch. It consists of a
 530             coffee brown wooden floor connected to and surrounded a
 531             parchment white wooden fence. The fence is obviously new
 532             and looks great. It's tall enough to make climbing it
 533             impossible. The design of the porch places the focus on
 534             the front door. A deep red color, the door is large, high
 535             quality and has no window. It has a shiny brass handle,
 536             which appears very sturdy. There's an opening to the
 537             southwest toward the sidewalk. Their front door is to the
 538             west.",
 539         cant_go "That parchment white wooden fence is too high to get over.",
 540         se_to sidewalk,
 541         w_to neighbordoor,
 542   has   light;
 543
 544 Object  neighbordoor "front door" frontporch
 545   with  name 'door' 'front' 'red',
 546         description "The door is large and high quality. A deep red
 547                     color it has no window and a shiny brass handle,
 548                     which appears to be very sturdy.",
 549         found_in frontporch neighborlivingroom,
 550         door_dir [;
 551             if (location == frontporch)
 552                 return w_to;
 553             else
 554                 return e_to;
 555         ],
 556         door_to [;
 557             if (location == frontporch)
 558                 return neighborlivingroom;
 559             else
 560                 return frontporch;
 561         ],
 562   has   scenery door openable;
 563
 564 Object  brasshandle "brass door handle" frontporch
 565   with  name 'brass' 'handle',
 566         found_in frontporch neighborlivingroom,
 567   has   scenery;
 568
 569 Object  fence "wooden fence" frontporch
 570   with  name 'fence' 'wooden' 'wood',
 571         found_in backyard frontporch,
 572   has   scenery;
 573
 574 Object  neighborlivingroom "Neighbor's Livingroom"
 575   with  description
 576             "You are in your neighbor's livingroom. It seems that no
 577             one has lived here in a long time, even though you saw
 578             your neighbor here last week. All of the furniture has
 579             been removed and the air smells stale. A large bay window
 580             enclosed by sheer cobalt blue curtains allowing light to
 581             come through. A door is to the east.^^A machine as tall as
 582             you sits in the center of their livingroom. It consists
 583             of three transparent spheres joined together containing
 584             machinery. A barrel with a small aperture comes out of the
 585             farthest sphere, pointing down and to the wall. The
 586             entire thing rests on a shiny metal platform allowing it
 587             to rotate and tilt with ease.",
 588         w_to neighborkitchen,
 589         e_to neighbordoor,
 590         before [;
 591           Go:
 592             if (bluebutton has on && poker notin machine) {
 593                 machine.shoot();
 594                 rtrue;
 595             }
 596         ],
 597   has   light;
 598
 599 Object  neighborwindow "window" neighborlivingroom
 600   with  name 'large' 'bay' 'window' 'windows',
 601         description "A large bay window enclosed by sheer cobalt blue
 602                     curtains allowing light to come through.",
 603         before [;
 604           Go:
 605             print_ret "The window is not something you can go through.";
 606           Open, Close:
 607             print_ret "This isn't the type of window that can be
 608                       opened or closed.";
 609         ],
 610   has   scenery;
 611
 612 Object  neighborcurtains "curtains" neighborlivingroom
 613   with  name 'cobalt' 'blue' 'curtain' 'curtains',
 614         description
 615             "Cobalt blue in color, the curtains have been decorated with
 616             intricate embroidery.",
 617         before [;
 618           Take, Pull, Push, PushDir:
 619             print_ret "Don't you think they look nice where they are?";
 620         ],
 621   has   scenery openable pluralname;
 622
 623 Object  embroidery "embroidery" neighborlivingroom
 624   with  name 'embroidery' 'pattern' 'patterns',
 625   has   scenery;
 626
 627 Object  redbutton "red button" neighborlivingroom
 628   with  name 'red' 'red button' 'button' 'buttons',
 629         before [;
 630           Push:
 631             if (bluebutton has on && poker notin machine) {
 632                 print
 633                     "You reach for the red button, but not in
 634                     time...^ ";
 635                 machine.shoot();
 636                 rtrue;
 637             }
 638             if (poker in machine)
 639                 print_ret
 640                     "You press the red button but it's futile because
 641                     the machine's shorted out.";
 642             else {
 643                 print
 644                     "You push the red button. The machine makes clunky
 645                     noises as machinery moves inside. A loud humming
 646                     begins to emanate from it. It comes to life, spins
 647                     around on its base, aims, and quickly fires a
 648                     series of three bright blue sparks at you. You
 649                     hear a small explosive sound as they impact your
 650                     chest. You feel a little disoriented as it
 651                     teleports you away.^";
 652                 move box to bed ;
 653                 move directional to box ;
 654                 move newspaper to table ;
 655                 move letter to island ;
 656                 move poker to fireplace ;
 657                 PlayerTo(campsite);
 658                 rtrue;
 659             }
 660         ],
 661   has   scenery;
 662
 663 Object  bluebutton "blue button" neighborlivingroom
 664   with  name 'blue' 'blue button' 'button' 'buttons',
 665         before [;
 666           Push:
 667             if (bluebutton has on) {
 668                 if (poker notin machine) {
 669                     print
 670                         "You reach for the blue button, but not
 671                         in time...^ ";
 672                     machine.shoot();
 673                     rtrue;
 674                 }
 675                 else {
 676                     give bluebutton ~on;
 677                     print_ret "You push the blue button. The machine
 678                     sounds like it powers down.";
 679                 }
 680             }
 681             else {
 682                 give bluebutton on;
 683                 if (poker notin machine) {
 684                     machine.shoot();
 685                     rtrue;
 686                 }
 687                 print_ret "You push the blue button.";
 688             }
 689         ],
 690   has   scenery on;
 691
 692 Object  machine "machine" neighborlivingroom
 693   with  name 'machine' 'machinery' 'sphere' 'spheres' 'platform' 'barrel'
 694         'aperture' 'metal platform' 'shiny metal platform' 'shiny platform'
 695         'shiny' 'metal',
 696         description
 697             "It consists of three transparent spheres joined together
 698             containing machinery. A barrel with a small aperture comes
 699             out of the farthest sphere, pointing down and to the wall.
 700             The entire thing rests on a shiny metal platform allowing
 701             it to rotate and tilt with ease. There is a blue button
 702             and a red button.",
 703         time_left,
 704         before [ weapon;
 705           Attack:
 706             if (noun == self)
 707                 weapon = second;
 708             else
 709                 weapon = noun;
 710             if (weapon ~= poker) {
 711                 print "That wasn't helpful.^";
 712                 if (bluebutton has on)
 713                     self.shoot();
 714                 rtrue;
 715             }
 716             self.shortout();
 717             return true;
 718           Receive:
 719             if (noun == poker) {
 720                 self.shortout();
 721                 return true;
 722             }
 723             if (bluebutton has on)
 724                 self.shoot();
 725             rtrue;
 726         ],
 727         time_out [;
 728             if (poker in self)
 729                 StopTimer(machine);
 730             else
 731                 if (bluebutton has on)
 732                     self.shoot();
 733         ],
 734         daemon [;
 735             if (poker in player)
 736                 rfalse;
 737             if (player in parent(self) && poker notin machine)
 738                 self.shoot();
 739         ],
 740         shoot [ destination;
 741             destination = random(3);
 742             print
 743                 "^A loud humming begins to emanate from the machine.
 744                 It comes to life, spins around on its base, aims, and
 745                 quickly fires a series of three bright blue sparks at
 746                 you. You hear a small explosive sound as they impact
 747                 your chest. You feel a little disoriented as it
 748                 teleports you away.^";
 749             if (destination == 1)
 750                 PlayerTo(kitchen);
 751             if (destination == 2)
 752                 PlayerTo(livingroom);
 753             if (destination == 3)
 754                 PlayerTo(bedroom);
 755         ],
 756         shortout [;
 757             if (machine hasnt visited) {
 758                 score = score + 1;
 759                 give machine visited;
 760             }
 761             move poker to self;
 762             print "You put the poker into ", (the) self,
 763                 ". Sparks
 764                 fly wildly in every direction as it shorts out.^";
 765         ],
 766   has   scenery container open;
 767
 768 Object  backyard "Back Yard"
 769   with  description
 770             "You are in your neighbor's back yard. It is barely cloudy
 771             and already hot this morning. Some shade from the sun
 772             would be nice but the closest tree is at the sidewalk, on
 773             the other side of the building and the sun is causing all
 774             of the shadows to go in the wrong direction. The healthy,
 775             dark green grass is well manicured. It looks like a nice
 776             place. You hear some dogs barking in the distance. A high
 777             wooden fence encompasses the area, painted a burnt umber.
 778             Their back door is to the east. Your kitchen window is to
 779             the south.",
 780         before [;
 781           Go:
 782             if (noun == s_obj) {
 783                 print
 784                     "Climbing over the fence you squeeze back through
 785                     your kitchen window.^";
 786             }
 787         ],
 788         s_to window,
 789         n_to "Their fence is too high to climb over in that direction.",
 790         e_to backdoor,
 791         w_to "Their fence is too high to climb over in that direction.",
 792   has   light;
 793
 794 Object  leaves "leaves" backyard
 795   with  name 'leaf' 'leaves',
 796         found_in backyard sidewalk,
 797   has   scenery;
 798
 799 Object  scratches "scratches" backyard
 800   with  name 'scratch' 'scratches' 'mark' 'marks' 'marking' 'markings',
 801         found_in backyard neighborkitchen,
 802   has   scenery;
 803
 804 Object  house "neighbor's house" backyard
 805   with  name 'neighbor' 'neighbors' 'house' 'home' 'building',
 806         found_in backyard frontporch kitchen sidewalk,
 807   has   scenery;
 808
 809 Object  backdoor "back door" backyard
 810   with  name 'door' 'back' 'backdoor',
 811         description
 812             "Burgundy in color it seems a solid and hefty door. It
 813             has scratches along the bottom, as if from a pet long
 814             forgotten.",
 815         short_name [;
 816             if (location == backyard)
 817                 print "door to your neighbor's house";
 818             else
 819                 print "door to the back yard";
 820             return true;
 821         ],
 822         found_in backyard neighborkitchen,
 823         door_dir [;
 824             if (location == backyard)
 825                 return e_to;
 826             else
 827                 return w_to;
 828         ],
 829         door_to [;
 830             if (location == backyard)
 831                 return neighborkitchen;
 832             else
 833                 return backyard;
 834         ],
 835   has   scenery door openable;
 836
 837 Object  neighborkitchen "Kitchen"
 838   with  description
 839             "You are in your neighbor's kitchen. It's a large
 840              contemporary kitchen with an open design and many flat
 841              surfaces. The color palette is very bright and in
 842              perfect harmony with the kitchen. It's timeless and
 843              beautiful. The walls look like they've been used to
 844              store things, with some faint outlines remaining that
 845              gives a lived-in look. It could have been a luxury
 846              cooking environment, though by now everything has been
 847              removed. Only the kitchen island and fireplace remain in
 848              stark contrast to the bare kitchen. The livingroom is to
 849              the east. The door to the back yard is to the west.",
 850         e_to neighborlivingroom,
 851         w_to backyard,
 852   has   light;
 853
 854 Object  island "kitchen island" neighborkitchen
 855   with  name 'kitchen' 'island' 'table' 'wood' 'wooden' 'top' 'wood',
 856         description
 857             "It has metal legs firmly embedded into the floor, and a
 858             wooden top. Strangely, all of the drawers have been
 859             removed.",
 860         before [;
 861           Take, Pull, Push, PushDir, Turn:
 862             print_ret "The kitchen island is firmly planted in the floor.";
 863         ],
 864   has   scenery supporter enterable;
 865
 866 Object  brick "brick" neighborkitchen
 867   with  name 'brick' 'bricks' 'mortar',
 868         description
 869             "You find nothing special about the bricks that make up
 870             the fireplace.",
 871   has   scenery;
 872
 873 Object  fireplace "fireplace" neighborkitchen
 874   with  name 'fireplace' 'fire' 'place' 'mouth',
 875         description [;
 876             print
 877                 "A stain is splayed against the brick fireplace,
 878                 making its curved mouth appear like a black, toothless
 879                 scream. A confection of ashes occupy the fireplace";
 880             if (poker in self)
 881                 print
 882                     ", and a poker hangs out which looks like it
 883                     could make an effective weapon";
 884             print ".";
 885             new_line;
 886         ],
 887   has   scenery container transparent open;
 888
 889 Object  poker "poker" fireplace
 890   with  name 'poker',
 891         description
 892             "This poker may have once been used to expedite the
 893             flame's envelopment, as well as the house's many stories
 894             and secrets.",
 895         before [;
 896           Take, Pull, Push, PushDir, Remove:
 897             give poker ~concealed;
 898             if (poker hasnt visited) {
 899                 score = score + 1;
 900                 give poker visited;
 901                 }
 902             if (player in neighborlivingroom) {
 903                 if (bluebutton has on)
 904                     machine.shoot();
 905             }
 906         ],
 907   has   concealed;
 908
 909 Object  ashes "ashes" fireplace
 910   with  name 'ash' 'ashes',
 911         description "It looks like a pile of ash.",
 912         before [;
 913           Take, Pull, Push, PushDir:
 914             print_ret "The ashes are so fine they fall between your fingers.";
 915         ],
 916   has   concealed pluralname;
 917
 918 Object  stain "stain" fireplace
 919   with  name 'stain',
 920   has   scenery;
 921
 922 Object  mouth "mouth of the fireplace" fireplace
 923   with  name 'mouth',
 924   has   scenery;
 925
 926 Object  letter "letter" island
 927   with  name 'letter',
 928         description
 929             "The letter reads: ~Thank you for evaluating this
 930             prototype of the Frobozz Magic Teleporter. Please refer to
 931             the enclosed manual to learn how to program destinations
 932             in to your teleporter. Pressing the red button recalls the
 933             last-used destination and teleports you there. Pressing
 934             the blue button engages Defense Mode, which instantly
 935             whisks intruders away. Use it to provide defense for any
 936             location! Please send feedback about this prototype to
 937             your local FrobozzCo International sales person. Warning:
 938             Side effects can include disorientation, loss of memory,
 939             lightheadedness, loss of appetite, nausea, vomiting,
 940             weakness, and death.~";