Landscape Below Ground (lines 439-737)
Back to List
Browsing Adventureland.inf
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 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.