!       Utility routines.

!       Defined in DM4 §4, modified in §21 and §23
[ Initialise;
        TitlePage();
        location = Forest;
        move map to player;
        move sodium_lamp to player;
        move dictionary to player;
        StartDaemon(sodium_lamp);
        thedark.description =
            "The darkness of ages presses in on you, and you feel
             claustrophobic.";
        "^^^Days of searching, days of thirsty hacking through the briars of
         the forest, but at last your patience was rewarded. A discovery!^";
        ];

!       Defined in DM4 Exercise 123
[ TitlePage i;
        @erase_window -1; print "^^^^^^^^^^^^^";
        i = 0->33; if (i > 30) i = (i-30)/2;
        style bold; font off; spaces(i);
        print " RUINS^";
        style roman; print "^^"; spaces(i);
        print "[Please press SPACE to begin.]^";
        font on;
        box "But Alligator was not digging the bottom of the hole"
            "Which was to be his grave,"
            "But rather he was digging his own hole"
            "As a shelter for himself."
            ""
            "-- from the Popol Vuh";
        @read_char 1 -> i;
        @erase_window -1;
        ];

!       Defined in DM4 §22
[ PrintRank;
        print ", earning you the rank of ";
        if (score == 30) "Director of the Carnegie Institution.";
        if (score >= 20) "Archaeologist.";
        if (score >= 10) "Curiosity-seeker.";
        if (score >= 5) "Explorer.";
        "Tourist.";
        ];

!       Defined in DM4 §21
[ DeathMessage;
        if (deadflag == 3) print "You have been captured";
        ];

! ---------------------------------------------------------------------------- !