Inform - Resources - Examples

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing Advent.inf

12. A line of three vital junctions, east to west (lines 1298-1367)

1298  Room    At_Complex_Junction "At Complex Junction"
1299    with  name 'complex' 'junction',
1300          description
1301              "You are at a complex junction.
1302               A low hands and knees passage from the north joins a higher crawl from the east
1303               to make a walking passage going west.
1304               There is also a large room above.
1305               The air is damp here.",
1306          u_to In_Dusty_Rock_Room,
1307          w_to In_Bedquilt,
1308          n_to In_Shell_Room,
1309          e_to In_Anteroom;
1310   
1311  ! ------------------------------------------------------------------------------
1312   
1313  Room    In_Bedquilt "Bedquilt"
1314    with  name 'bedquilt',
1315          description
1316              "You are in bedquilt, a long east/west passage with holes everywhere.
1317               To explore at random select north, south, up, or down.",
1318          e_to At_Complex_Junction,
1319          w_to In_Swiss_Cheese_Room,
1320          s_to In_Slab_Room,
1321          u_to In_Dusty_Rock_Room,
1322          n_to At_Junction_Of_Three,
1323          d_to In_Anteroom,
1324          before [ destiny;
1325            Go:
1326              if (noun == s_obj or d_obj && random(100) <= 80) destiny = 1;
1327              if (noun == u_obj && random(100) <= 80)          destiny = 1;
1328              if (noun == u_obj && random(100) <= 50) destiny = In_Secret_N_S_Canyon_1;
1329              if (noun == n_obj && random(100) <= 60)          destiny = 1;
1330              if (noun == n_obj && random(100) <= 75) destiny = In_Large_Low_Room;
1331              if (destiny == 1)
1332                  "You have crawled around in some little holes and wound up back
1333                   in the main passage.";
1334              if (destiny == 0) rfalse;
1335              PlayerTo(destiny);
1336              rtrue;
1337          ];
1338   
1339  ! ------------------------------------------------------------------------------
1340   
1341  Room    In_Swiss_Cheese_Room "In Swiss Cheese Room"
1342    with  name 'swiss' 'cheese' 'room',
1343          description
1344              "You are in a room whose walls resemble swiss cheese.
1345               Obvious passages go west, east, ne, and nw.
1346               Part of the room is occupied by a large bedrock block.",
1347          w_to At_East_End_Of_Twopit_Room,
1348          s_to In_Tall_E_W_Canyon,
1349          ne_to In_Bedquilt,
1350          nw_to In_Oriental_Room,
1351          e_to In_Soft_Room,
1352          before [;
1353            Go:
1354              if ((noun == s_obj && random(100) <= 80) ||
1355                  (noun == nw_obj && random(100) <= 50))
1356                  "You have crawled around in some little holes and wound up
1357                   back in the main passage.";
1358          ];
1359   
1360  Scenic  -> "bedrock block"
1361    with  name 'block' 'bedrock' 'large',
1362          description "It's just a huge block.",
1363          before [;
1364            LookUnder, Push, Pull, Take:
1365              "Surely you're joking.";
1366          ];
1367   


Last updated 23 June 2004. This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation. Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.