/*** ROUTINE DECLARATIONS ***/

ROUTINE
  darkq, ei8, scads, ctake, cdrop, scord, exitg, onlmp;


/*** DEAD-END ROUTINES ***/

PROMPT = Proc()
{
    $spec(HEADER, $sdesc($loc($ME))(1), $ME.pscore, $turns());
    "> ";
}

cg = Proc() {"Can't go that way.\n";}

tosml = Proc() {"The hole is too small for you to fit through.\n";}

dumdir = Proc() {"I don't know which direction that is.\n";}

tohigh = Proc() {"The hole is too high for you to reach.\n";}

nothe = Proc() {"This section is not implemented yet.\n";}

skore = Proc()
{
    "You scored " $str($ME.pscore) " out of " $str($ME.pmax)
	" possible points.\n";
}


VAR Rating[9];
(Rating+0) = "junior beginning";
(Rating+1) = "senior beginning";
(Rating+2) = "intermediate";
(Rating+3) = "expert";
(Rating+4) = "junior master";
(Rating+5) = "master";
(Rating+6) = "senior master";
(Rating+7) = "life master";
(Rating+8) = "super-stud";


ratng = Proc()
{
    $ME.ratvl = 0;
    If ($ME.pscore) {
	$ME.ratvl = ($ME.pscore * 8) / $ME.pmax;
    }
    "That gives you a ranking of "
	Rating[$ME.ratvl]
	" adventurer.\n";
}


ratnx = Proc()
{
    If ($ME.ratvl == 8) {
	"CONGRATULATIONS.\n";
	$spec(QUIT);
    }
    $ME.ratvl = $ME.ratvl + 1;
    $ME.ratvl = $ME.ratvl * $ME.pmax;
    $ME.ratvl = $ME.ratvl / 8;
    $ME.ratvl = $ME.ratvl + 1;
    $ME.ratvl = $ME.ratvl - $ME.pscore;
    "To achieve the next higher rating, you need to score "
	$str($ME.ratvl)
	" more points.\n";
}


endgame = Proc()
{
    $incturn();
    If ($ME.pscore == $ME.pmax) {
        "\tAs you drop the last treasure, the lights come up and you hear "
        "a voice say, \"CONGRATULATIONS, ADVENTURER.  You have restored the "
        "museum displays to their former glory.  Now accept the Director's "
        "thanks, and also his reward!\"\n"
        "\tYou are miraculously transported to a room you have never seen "
        "before, filled to the top with precious gold and jewels.  The voice "
        "appears again, saying, \"Your reward is as follows:  you are "
        "granted the privilege of becoming the new curator of the Museum."
        "Your first responsibility is to catalog and sort these treasures "
        "for placement in the Museum.  Your salary is $3.25 per hour.  "
        "Again, thanks!\"\n"
        "\tThe voice disappears, and you are left alone in the immense room. "
        "You'd better get to work, for you have a LOT to do!\n"
	$spec(QUIT);
    }
}
