Interactive Poetic Interludes

version 2 by Kazuki Mishima

  • Home page
  • Beginning
  • Previous
  • Next



  • Section 7 - Displaying the Poem

    Report topic-choosing (this is the poem display rule):
        clear only the main screen;
        say "[line break][line break]"; [ to ensure the status line does not cover the text in certain interpreters]
        repeat with X running from 1 to the current line minus 1 begin;
            choose row X in the table of selected lines;
            If not using the centering option begin;
                if there is a line entry begin;
                    say the line entry;
                    if not using the paragraphs option, say line break;
                end if;
            end if;
            If using the centering option begin;
                if there is a line entry begin;
                    center the line entry;
                    if not using the paragraphs option, say line break;
                end if;
            end if;
        end repeat;
    [The following is for debugging if uncommented:]
        [say "(now looking for line [current line]).";]
        unless the unknown words message is "", say the unknown words message;
        now the unknown words message is "";
        consider the scene change machinery rule.