StartEnd MenuPages

version 1 by ShadowChaser

  • Home page
  • Beginning
  • Previous
  • Next



  • Section 5 - the end game menu

    The infinate_loop is a number that varies. The infinate_loop is 1.

    The last when play ends rule (this is the game ending rule):
        while the infinate_loop is 1 begin;
            clear the screen;
            redraw status line;
            play_end_music;
            say paragraph break;
            display_end_art;
            say paragraph break;
            say "[the_end_quotation]";
            say paragraph break;
            say "Please choose one of the following options:";
            say paragraph break;
            say fixed letter spacing;
            if using the credits option begin;
                say "Display credits : C[line break]";
            end if;
            if using the progress option begin;
                say "Show your progress : P[line break]";
            end if;
            say "Restart the game : (SPACE)[line break]";
            say "Restore a saved game : R[line break]";
            say "Quit : Q";
            say variable letter spacing;
            say paragraph break;
            say "[the_end_footer_text]";
            say paragraph break;
            let k be 0;
            while k is 0 begin;
                let k be the chosen letter;
            end while;
            if k is 13 or k is 31 or k is 32 begin;
                 clear the screen;
                 try silently restarting the game;
            otherwise if k is 113 or k is 81;
                stop game abruptly;
            otherwise if k is 99 or k is 67;
                if using the credits option begin;
                    clear the screen;
                    Say "[the_game_credits]";
                    pause_clear;
                end if;
            otherwise if k is 82 or k is 114;
                follow the restore the game rule;
            otherwise if k is 112 or k is 80;
                if using the progress option begin;
                    clear the screen;
                    Say "[the_game_progress]";
                    pause_clear;
                end if;
            end if;
        end while.