src/objects/intro/livingroom.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  livingroom "Livingroom"
  17   with  description
  18             "You are in a modestly furnished living room. It's very a
  19             traditional but modern as far as the style of rooms go. It
  20             has a certain bourgeois feeling, although it doesn't seem
  21             very large. There's a couch in the middle of the room
  22             facing a television. Pictures hang from the other walls.
  23             The pictures were commissioned by your family, but a lot
  24             of people claim they painted them. You can hear the sound
  25             of vehicles driving by outside. The kitchen is to the
  26             west. The front door is to the east. Your bedroom is to
  27             the south.",
  28         before [;
  29           Listen:
  30             print "You can hear the sound of vehicles driving by outside.^";
  31             return true;
  32         ],
  33         n_to
  34             "Since when did you get the ability to walk through
  35             walls? The kitchen is to the west. The front door is to
  36             the east. Your bedroom is to the south.",
  37         s_to bedroom,
  38         w_to kitchen,
  39         e_to frontdoor,
  40   has   light;
  41
  42 Object  picture "pictures" livingroom
  43   with  description
  44             "The pictures in the room consist of a landscape painting
  45             showing a strangely geometric mountain, another of a
  46             still life painting of a table laid out with a feast and
  47             the third is a portrait of an unknown man. He has a full
  48             beard, is wearing a black robe and no shoes. On his head
  49             is a large 1970s-era hard disk platter.",
  50         name 'picture' 'photo' 'photos' 'frame' 'frames' 'pictures'
  51         'image' 'images',
  52         Before [;
  53           Take:
  54             print_ret
  55                 "They look so nice, perhaps it's better to leave them
  56                 where they are.";
  57         ],
  58   has   scenery pluralname;
  59
  60 Object  man "man" livingroom
  61   with  description "It's a painting of Richard Stallman dressed as
  62                     St IGNUcius.",
  63         name 'man' 'disk' 'hard' 'platter' 'robe' 'rms' 'Richard' 'Stallman'
  64         'robe' 'black' 'image' 'images',
  65         Before [;
  66           Take:
  67             print_ret
  68                 "The painting looks so nice, perhaps it's better to
  69                 leave it where it is.";
  70         ],
  71   has   scenery;
  72
  73 Object  television "television" livingroom
  74   with  name 'television' 'tv',
  75         description
  76             "It's big, gray, and one of those old-fashioned CRT
  77             models. It looks very heavy.",
  78         watch_count 0,
  79         before [;
  80           Listen, Examine:
  81             if (television has on) {
  82                 self.watch_count = self.watch_count + 1;
  83                 switch (self.watch_count) {
  84                   1:
  85                     print
  86                         "It's big, gray, and one of those
  87                         old-fashioned CRT models. It looks very
  88                         heavy.^The TV is currently switched on. Your
  89                         favorite news program is on: U.S. News And
  90                         Grue Report.^The news anchor is saying ~In
  91                         other news, authorities continue to
  92                         investigate the missing persons case.~^";
  93                     score = score + 1;
  94                     return true;
  95                   2:
  96                     print
  97                         "The news anchor continues by saying ~We're
  98                         told the that number of missing people is now
  99                         up to as many as 5.~^";
 100                     score = score + 1;
 101                     return true;
 102                   3:
 103                     print
 104                         "The news anchor concludes their coverage by
 105                         saying ~We'll have more as the story continues
 106                         to develop.~^";
 107                     score = score + 1;
 108                     return true;
 109                   default:
 110                     print
 111                         "It's big, gray, and one of those
 112                         old-fashioned CRT models. It looks very
 113                         heavy.^The TV is currently switched on. Your
 114                         favorite news program is on: U.S. News And
 115                         Grue Report.^";
 116                     return true;
 117                 }
 118             }
 119             ;
 120           Take, Pull, Push, PushDir:
 121             print_ret (The) self, " is too heavy for that.";
 122         ],
 123         after [;
 124           SwitchOn:
 125             print
 126                 "The television comes to life. Your favorite news
 127                 program is on: U.S. News And Grue Report.^";
 128             if (television hasnt visited) {
 129                 score = score + 1;
 130                 give television visited;
 131             }
 132             return true;
 133         ],
 134   has   scenery static switchable;
 135
 136 Object  couch "couch" livingroom
 137   with  name 'couch' 'sofa',
 138         description
 139             "It looks like a throwback from the 1970s but has held up
 140             very well.",
 141         before [;
 142           Take, Pull, Push, PushDir:
 143             print_ret (The) self, " is too heavy for that.";
 144         ],
 145         after [;
 146           Enter:
 147             print
 148                  "The couch makes a nauseating, high-pitched groan as
 149                  your weight is added.^";
 150             return true;
 151           Exit, GetOff:
 152             print "The couch makes a muted snort as your weight is removed.^";
 153             return true;
 154         ],
 155   has   scenery static supporter enterable;
 156
 157 Object  frontdoor "front door" livingroom
 158   with  name 'door' 'front',
 159         description
 160             "Cinnamon brown in color it appears to be a very solid
 161             and hefty door.",
 162         short_name [;
 163             if (location == livingroom)
 164                 print "door to the outside";
 165             else
 166                 print "door to your house";
 167             return true;
 168         ],
 169         found_in livingroom sidewalk,
 170         door_dir [;
 171             if (location == sidewalk)
 172                 return w_to;
 173             else
 174                 return e_to;
 175         ],
 176         door_to [;
 177             if (location == sidewalk)
 178                 return livingroom;
 179             else
 180                 return sidewalk;
 181         ],
 182   has   scenery door openable;