Minotaur catches up to you

minotaur.pl

sub minotaur_is_here {
    local(@parts) = ('poetry',
                     'arms', 'legs', 'head', 'nose', 'thumbs',
                     'ears', 'hair', 'skin', 'eyelids', 'face',
                     );
    local($part) = $parts[int(rand(@parts))];

    $HEREDESC .= "The MINOTAUR is here!  ";
    if ($part eq 'poetry') {

      $HEREDESC .= "Blushing shyly, he asks, ``Um... I don't usually
tell people this, but I've been writing some poems, I think they're
pretty good...  Would you read these?  Do you think they're good
enough to get published?''<p>\n";

    } else {
      $HEREDESC .= "He rips your $part off!<p>\n";
    }
    &setprop('game_over=dead');
    &teleport('minotaur');    &mino_forget_plan();
    &mino_calms_down();
}