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 web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.