Inform - Resources - Examples

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing Adventureland.inf

Landscape Below Ground (lines 439-737)

439  ScottRoom Root_Chamber "Root Chamber"
440    with description "You're in a root chamber under the stump.",
441         u_to Inside_Stump,  d_to dark_hole,  
442    has  light;
443  Object -> dark_hole "dark hole"
444    with description "Leading below.",
445         door_dir d_to,
446         door_to Semidark_Hole
447    has  open door static;
448  Treasure -> "*POT OF RUBIES*"
449    with name "pot" "of" "rubies";
450   
451  ScottRoom Semidark_Hole "Hole"
452    with description "You're in a semi-dark hole by the root chamber.",
453         u_to Root_Chamber, d_to root_door
454    has  light;
455  Object -> root_door "the door"
456    with name "door",
457         short_name
458         [;  if (self has locked) { print "locked door"; rtrue; }
459             if (self has open)
460             {   print "open door with a hallway beyond"; rtrue; }
461             print "closed door"; rtrue;
462         ],
463         before
464         [;  ThrowAt:
465                 if (second==axe)
466                 {   give self ~locked ~lockable ~openable open;
467                     "Lock shatters!";
468                 }
469         ],
470         door_to Long_Hall, door_dir d_to, with_key keys
471    has  static door openable lockable locked;
472   
473  ScottRoom Long_Hall "Hall"
474    with description "You're in a long down-sloping hall.",
475         u_to Semidark_Hole,  d_to Large_Cavern;
476   
477  ScottRoom Large_Cavern "Cavern"
478    with description "You're in a large cavern.",
479         n_to Hive,  s_to Royal_Anteroom,  w_to Memory_RAM,
480         u_to Long_Hall,  d_to Maze1;
481   
482  ScottRoom Hive "Octagonal Hive"
483    with description "You're in a large 8-sided room.",
484         s_to Large_Cavern;
485  Treasure -> "*ROYAL HONEY*"
486    with name "royal" "honey", article "some",
487         before
488         [;  Take:
489                 if (bees in location && mud notin player)
490                 {   deadflag=1; "Bees sting you."; }
491             Drop:
492                 if (bear in location)
493                 {   remove self; give bear general;
494                     "The bear eats the honey and falls asleep.";
495                 }
496         ],
497    has  edible;
498  Object -> bees "large African bees"
499    with name "large" "african" "bees", article "a swarm of",
500         before
501         [;  Take:
502                 if (mud notin player)
503                 {   deadflag=1; "Bees sting you."; }
504                 if (bottle in player) <<Fill bottle>>;
505                 "You have nothing to carry the bees in.";
506             Drop:
507                 if (self in bottle
508                     && dragon in location)
509                 {   move self to location;
510                     move eggs to location; remove dragon;
511                     "The bees attack the dragon which gets up and flies away...";
512                 }
513                 if (self in bottle
514                     && bear in location)
515                 {   move self to location;
516                     give bear ~general; deadflag=1;
517                     "Bees madden the bear. Bear then attacks you!";
518                 }
519         ],
520         each_turn
521         [;  #IFNDEF DEBUG;
522             !  A completely unfair rule! And in the original the bees are lost.
523             if (self in bottle && random(100)<=8)
524             {   move self to Hive; "^The bees in the bottle all suffocated."; }
525             #ENDIF;
526             if (self in bottle) rfalse;
527             if (self in location && mud notin player && mud notin location &&
528                 random(100)<=8)
529             {   deadflag=1; "Bees sting you."; }
530         ];
531   
532  ScottRoom Royal_Anteroom "Anteroom"
533    with description "You're in a royal anteroom.",
534         n_to Large_Cavern,  u_to Royal_Chamber;
535  Object -> wine_bladder "empty wine bladder"
536    with name "empty" "wine" "bladder",
537         before
538         [;  Fill: if (gas notin location)
539                       "The bladder could only just hold a vapour nowadays.";
540                   <<Insert gas self>>;
541         ];
542  Object distended_bladder "distended gas bladder"
543    with name "distended" "gas" "bladder",
544         before
545         [;  Open: move wine_bladder to parent(self); remove self;
546                   "Gas dissipates!";
547         ];
548   
549  ScottRoom Maze1 "Maze"
550    with description "You're in a maze of pits.",
551         n_to Maze2,  s_to Maze4,  e_to Maze4,  d_to Maze2;
552   
553  ScottRoom Maze2 "Maze"
554    with description "You're in a maze of pits.",
555         w_to Maze3,  u_to Maze1;
556  Object -> flint_and_steel "flint and steel"
557    with name "flint" "steel";
558   
559  ScottRoom Maze3 "Maze"
560    with description "You're in a maze of pits.",
561         n_to Maze6,  s_to Maze1,  e_to Maze2,  w_to Maze5,
562         u_to Maze5,  d_to Maze6;
563  Object -> "scratchings"
564    with name "scratchings", article "strange",
565         short_name "strange scratchings on rock reveals- ALADDIN WAS HERE",
566    has  static;
567   
568  ScottRoom Maze4 "Maze"
569    with description "You're in a maze of pits.",
570         n_to Maze1,  e_to Maze2,  w_to Maze1,  u_to Maze2;
571   
572  ScottRoom Maze5 "Maze"
573    with description "You're in a maze of pits.",
574         s_to Maze6,  u_to Maze3,  d_to Maze6;
575   
576  ScottRoom Maze6 "Maze"
577    with description "You're in a maze of pits.",
578         n_to Maze6,  s_to Maze1,  e_to Maze1,  w_to Maze4,
579         u_to Maze3,  d_to Chasm_Bottom;
580  Treasure -> rug "*THICK PERSIAN RUG*"
581    with name "thick" "persian" "rug" "carpet";
582  Object -> "arrow pointing down"
583    with name "arrow"
584    has  static;
585   
586  ScottRoom Chasm_Bottom "Chasm"
587    with description "You're in a bottom of a chasm. Above 2 ledges. 
588                      One has a bricked up window.",
589         u_to Maze6;
590  Treasure -> net "*GOLDEN NET*"
591    with name "gold" "golden" "net";
592  Sign -> "MAGIC WORD IS AWAY. X LA -(rest of sign is missing)";
593  Object -> lava "the lava"
594    with name "stream" "of" "lava",
595         short_name
596         [;  print "stream of lava";
597             if (self has general) print " with a brick dam";
598             rtrue;
599         ],
600         description
601         [;  if (self hasnt general)
602               "There's something there all right! Maybe you should go there?";
603             "Just more dammed lava.";
604         ],
605         before
606         [;  Enter, Push, Pull, Take: "NO! It's too hot.";
607         ],
608    has  static;
609  Treasure firestone "*FIRESTONE* (cold now)"
610    with name "firestone", depositpoints 11;
611   
612  ScottRoom Narrow_Ledge_1 "Ledge"
613    with description "You're on a narrow ledge by a chasm. 
614                      Across the chasm is a throne room.",
615         before
616         [;  Jump: if (firebricks in player)
617                   {   deadflag=1; "Oh no! Something was too heavy!"; }
618                   print "You leap across the chasm...^";
619                   PlayerTo(Narrow_Ledge_2); rtrue;
620         ],
621         w_to Royal_Chamber;
622   
623  ScottRoom Royal_Chamber "Royal Chamber"
624    with description "You're in the Royal Chamber.",
625         d_to Royal_Anteroom, e_to 0;
626  Object -> bricked_window "bricked-up window"
627    with name "window" "bricked" "brick" "bricks"
628    has  static;
629  Object holed_window "bricked up window with a hole in it - beyond is a ledge"
630    with name "window" "bricked" "hole" "ledge",
631         door_dir e_to, door_to Narrow_Ledge_1
632    has  static door open;
633  Object firebricks "loose fire bricks"
634    with name "loose" "fire" "bricks", article "some",
635         after
636         [;  Take: "Taken. (Heavy!)";
637             Drop: if (location~=Chasm_Bottom) rfalse;
638                   remove self; give lava general;
639                   move firestone to location;
640                   "The bricks dam the lava, revealing a *FIRESTONE*!";
641         ];
642   
643  ScottRoom Narrow_Ledge_2 "Ledge"
644    with description
645            "You're on a narrow ledge by the throne room-across chasm-ledge.",
646         before
647         [;  Sing:
648             if (bear in location && bear hasnt general)
649             {   move dead_bear to Chasm_Bottom;
650                 remove bear;
651                 "The bear got startled and fell off the ledge!";
652             }
653             Jump: print "You leap across the chasm...^";
654                   PlayerTo(Narrow_Ledge_1); rtrue;
655         ],
656         e_to
657         [;  if (bear in location && bear hasnt general)
658                 "The bear won't let you!";
659             return Throne_Room;
660         ];
661  Treasure -> mirror "*MAGIC MIRROR*"
662    with name "magic" "mirror",
663         side_up 0,
664         before
665         [;  Take:
666                 if (bear in location && bear hasnt general)
667                     "The bear won't let you!";
668         ],
669         after
670         [;  Drop:
671               if (rug in location)
672               {   print "Mirror lands softly on the rug - lights up and says:^";
673                   self.side_up++;
674                   if (self.side_up % 2 == 1)
675                     "*DRAGON STINGS* and fades. I don't get it - hope you do.";
676                   "Don't waste *HONEY*. Get mad instead. Dam lava!";
677               }
678               remove self; move broken_glass to location;
679               "The mirror hits the floor and shatters into a million pieces!";
680         ];
681  Object -> bear "the bear"
682    with name "thin" "black" "bear",
683         short_name
684         [;  if (self has general) { print "sleeping bear"; rtrue; }
685             print "thin black bear"; rtrue;
686         ],
687         before
688         [;  WakeOther: give self ~general; "The bear rouses!^";
689         ],
690         life
691         [;  Ask, Order, Answer: <<Sing>>;
692             Attack, ThrowAt:
693                 if (self has general) <WakeOther self>;
694                 remove mirror; move broken_glass to location;
695                 "Oh no...Bear dodges...CRASH!";
696         ],
697    has  animate;
698  Object broken_glass "broken glass"
699    with name "broken" "glass" "jagged" "fragments", article "some";
700  Object dead_bear "dead bear"
701    with name "dead" "bear" "black" "thin"
702    has  static;
703   
704  ScottRoom Throne_Room "Throne Room"
705    with description "You're in a throne room.",
706         w_to Narrow_Ledge_2;
707  Treasure -> "*GOLD CROWN*"
708    with name "gold" "golden" "crown";
709   
710  ScottRoom Real_Trouble "Trouble!"
711    with description
712             "I think you're in real trouble. Here's a guy with a pitchfork!^^
713              You lost *ALL* treasures.",
714         initial
715         [;  deadflag=3;
716         ],
717    has  light;
718   
719  ScottRoom Memory_RAM "Ugly Place"
720    with description
721            "You're in the memory RAM of an IBM-PC. You took a wrong turn!",
722         e_to Large_Cavern,  
723    has  light;
724  Sign -> "To the Architects - TSURRIS";
725   
726  ScottRoom Misty_Room "Misty Room"
727    with description "You're in a large misty room with strange letters
728                      over the exits.",
729         s_to Real_Trouble,  e_to Forest,  w_to Real_Trouble,
730         u_to Up_Oak,  d_to Real_Trouble,  
731    has  light;
732  Sign -> "LIMBO. FIND RIGHT EXIT AND LIVE AGAIN!";
733   
734  ! ----------------------------------------------------------------------------
735  !   A soupcon of code
736  ! ----------------------------------------------------------------------------
737   


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.