the-server-room.inf

   1 !% -SD
   2 !=========================================================================
   3 ! Copyright (C) 2019 Jason Self <j@jxself.org>
   4 !
   5 ! This program is free software: you can redistribute it and/or modify
   6 ! it under the terms of the GNU Affero General Public License as
   7 ! published by the Free Software Foundation, either version 3 of the
   8 ! License, or (at your option) any later version.
   9 !
  10 ! This program is distributed in the hope that it will be useful,
  11 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13 ! GNU Affero General Public License for more details.
  14 !
  15 ! You should have received a copy of the GNU Affero General Public
  16 ! License along with this program. If not, see
  17 ! <https://www.gnu.org/licenses/>.
  18 !
  19 !This file incorporates work covered by the following copyright and
  20 !permission notice:
  21 !
  22 ! Copyright (C) 2008 Daniel Bartholomew
  23 !
  24 ! This program is free software: you can redistribute it and/or modify
  25 ! it under the terms of the GNU General Public License as published by
  26 ! the Free Software Foundation, either version 3 of the License, or
  27 ! (at your option) any later version.
  28 !
  29 ! This program is distributed in the hope that it will be useful,
  30 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
  31 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  32 ! GNU General Public License for more details.
  33 !
  34 ! You should have received a copy of the GNU General Public License
  35 ! along with this program. If not, see
  36 ! <https://www.gnu.org/licenses/>.
  37 !=========================================================================
  38 Constant Story "The Server Room";
  39 Constant Headline "^An Interactive Fiction by Daniel Bartholomew.^";
  40 Release 1;
  41 Serial "190908";
  42 Constant MAX_SCORE = 6;
  43 Include "parser";
  44 Include "verblib";
  45 Global openedbackpack = 1;
  46 Global openedtray = 1;
  47 Global takencd = 1;
  48 Global beeping = 1;
  49 !=========================================================================
  50 ! The Game Objects
  51
  52 Object  break_room "Break Room"
  53   with  description
  54             "Your standard break room. A fridge, and a long counter
  55             take up one wall. East is the outside world and west is
  56             the hallway to the server room.",
  57         w_to hallway,
  58         e_to
  59             "You take one look outside and think better of it. The
  60             daystar is too bright and terrible to face today. Besides,
  61             you have work to do.",
  62   has   light;
  63
  64 Object  fridge "refrigerator" break_room
  65   with  description "Your standard refrigerator.",
  66         name 'fridge' 'refrigerator',
  67   has   container openable scenery;
  68
  69 Object  counter "long counter" break_room
  70   with  description
  71             "A long counter. You can't quite determine the color,
  72             it's somewhere between green and brown. On the counter is
  73             a microwave.",
  74         name 'counter',
  75   has   static supporter scenery;
  76
  77 Object  microwave "microwave" counter
  78   with  description
  79             "A combination of silver and black, this microwave looks
  80             like a real workhorse. It's compact, quiet, and works
  81             great.",
  82         name 'microwave' 'micro',
  83   has   container openable scenery;
  84
  85 Object  table "table" break_room
  86   with  description "It's a table. Were you expecting something else?",
  87         name 'table',
  88         before [;
  89           Take:
  90             "Let me spell it out for you: it is a T A B L E and you
  91             are NOT Superman.";
  92         ],
  93   has   supporter;
  94
  95 Object  backpack "backpack" table
  96   with  description "Your backpack.",
  97         name 'pack' 'back' 'bag' 'backpack',
  98         article "your",
  99         before [;
 100           Open:
 101             if (openedbackpack == 1) {
 102                 score = score + 2;
 103                 openedbackpack = 2;
 104             }
 105         ],
 106   has   clothing container openable;
 107
 108 Object  disc "Trisquel CD" backpack
 109   with  description
 110             "An automatic recovery CD, guaranteed to fix almost any
 111             server.^^Ok, it's just an install CD that auto-installs
 112             Trisquel, but hey, if it works, it works.",
 113         name 'disk' 'disc' 'Trisquel' 'cd',
 114         after [;
 115           Take:
 116             if (takencd == 1) {
 117                 score = score + 2;
 118                 takencd = 2;
 119                 print_ret "You pick up the Trisquel CD.^";
 120             }
 121         ],
 122   has   ;
 123
 124 Object  hallway "Hallway"
 125   with  description
 126             "Bereft of features, adornment or even adequate lighting,
 127             this hallway is as plain as they come. Doors lead east
 128             back to the break room, north to the server room, or
 129             west to the restrooms.",
 130         e_to break_room,
 131         n_to server_room,
 132         w_to
 133             "When nature calls, you'll know about it, but right now,
 134             it isn't calling.",
 135         before [;
 136           Go:
 137             if (noun == n_obj) {
 138                 print
 139                     "^^You use your key card to open the server room
 140                     door and step into your world.^";
 141             }
 142         ],
 143   has   light;
 144
 145 Object  server_room "Server Room"
 146   with  description
 147             "The fans, the lights, the chill . . . yep, it's a server
 148             room. Full of servers from a dozen different
 149             manufacturers, each with their own quirks.^^Your
 150             attention is immediately drawn to a server 2/3 of the way
 151             up rack 7. The little indicator light is blinking red, and
 152             it is beeping.",
 153         s_to hallway,
 154         each_turn [;
 155             beeping = random(7);
 156             switch (beeping) {
 157               1:
 158                 "^The beeping is driving you crazy.";
 159               2:
 160                 "^It's hard to think, with all of the beeping.";
 161               3:
 162                 "^The monotony of the beeping is maddening.";
 163               4:
 164                 "^You can't stand the beeping.";
 165               5:
 166                 "^The beeping reminds you of your alarm clock.";
 167               6:
 168                 "^beep . . . beep . . . beep . . . beep . . . beep
 169                 . . . beep . . .";
 170               7:
 171                 "^If you don't stop the beeping soon, you'll loose
 172                 what little hair you have left.";
 173             }
 174         ],
 175   has   light;
 176
 177 Object  server "server" server_room
 178   with  description
 179             "The indicator light on this ancient server is blinking
 180             orange. The rest the front is featureless except for the
 181             CD tray. The beeping seems to emanate from somewhere
 182             inside the server.",
 183         name 'server' 'machine' 'computer' 'ancient' 'old',
 184   has   scenery;
 185
 186 Object  tray "tray" server_room
 187   with  description "It's a CD tray. Just like every other CD tray.",
 188         name 'cd' 'tray',
 189         before [;
 190           Receive:
 191             if (noun ~= disc)
 192                 print_ret (The) noun, " is too big to fit.";
 193           Open:
 194             if (openedtray == 1) {
 195                 score = score + 2;
 196                 openedtray = 2;
 197             }
 198         ],
 199         after [;
 200           Open:
 201             print_ret "You press the button and the CD tray pops out.";
 202           Close:
 203             if (disc in self) {
 204                 deadflag = 5;
 205                 print_ret
 206                     "^With the CD in the tray, you quickly reboot the
 207                     server.^^After the bios posts, your disc starts
 208                     doing its thing and before you know it the server
 209                     is happily running Trisquel, and even more than
 210                     that, the beeping has stopped. Yay!";
 211             }
 212         ],
 213   has   container openable scenery;
 214
 215 !=========================================================================
 216 ! Entry point routines
 217
 218 [ Initialise;
 219     location = break_room;
 220     "^^^^It's Saturday, a nice one at that, and you've been called in
 221     to fix a server that's on the blink. Again.^^You've had it. This
 222     server is going to run GNU/Linux from this day forward! The
 223     process will be easy - just put the disc into the server and away
 224     we go. Now where is that Trisquel CD?^";
 225 ];
 226
 227 [ Deathmessage;
 228     if (deadflag == 5)
 229         print "You have won";
 230 ];
 231
 232 !=========================================================================
 233 ! Standard and Extended Grammar
 234 Include "grammar";
 235 !=========================================================================