path: root/npc/001-2-6/books.txt

// Evol scripts.
// Authors:
//    Reid
// Description:
//    Aemil

001-2-6,39,41,0	script	#001-2-6-Book1	NPC_NO_SPRITE,{

    .@book_name$ = "\"" + l("The Piou and The Fluffy") + "\"";

    narrator 4,
        l("You see a dust covered book on the shelf..."),
        l("The name of the book is @@.", .@book_name$),
        l("Do you want to read it?");

    switch (select ("Yes.", "No."))
    {
        case 1:
            goto L_Read;
        case 2:
            close;
    }

L_Read:
    narrator 1,
    l("Master Piou sat on a tree,"),
    l("Holding a cheese in his beak."),
    l("Master Fluffy was attracted by the odour,"),
    l("And tried to attract him thus."),
    l("\"Mister Piou, good day to you."),
    l("You are a handsome and good looking bird!"),
    l("In truth, if your song is as beautiful as your plumage,"),
    l("You are the Phoenix of this forest.\""),
    l("Hearing these words the Piou felt great joy,"),
    l("And to demonstrate his beautiful voice,"),
    l("He opened his mouth wide and let drop his prey."),
    l("The Fluffy seized it and said: \"My good Sir,"),
    l("Know that every flatterer,"),
    l("Lives at the expense of those who take him seriously:"),
    l("This is a lesson that is worth a cheese no doubt.\""),
    l("The Piou, embarrassed and confused,"),
    l("Swore, though somewhat later, that he would never be "),
    l("tricked thus again."),
    "-- " + l("Aesop");

    close;

OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}

001-2-6,48,41,0	script	#001-2-6-Book2	NPC_NO_SPRITE,{

    .@book_name$ = "\"" + l("Poem about Poems") + "\"";

    narrator 4,
        l("You see a dust covered book on the shelf..."),
        l("The name of the book is @@.", .@book_name$),
        l("Do you want to read it?");

    switch (select ("Yes.", "No."))
    {
        case 1:
            goto L_Read;
        case 2:
            close;
    }

L_Read:
    narrator 1,
    l("Poem is making the words dance"),
    l("Words become music and glance"),
    l("Over lovers under a starry night"),
    l("Whose eyes glisten under Moonlight"),
    "",
    l("No matter the grammar"),
    l("If words beat in rhythm"),
    l("Find an order with them"),
    l("As on anvil strikes the hammer"),
    "",
    l("No matter the spelling"),
    l("Just say something sparkling"),
    l("If not, how could CrazyKatiektch"),
    l("Say her love to glamourous Gliktch?"),
    "",
    l("True be or not true be"),
    l("That's not the question"),
    l("And rhyming is not too"),
    l("If you don't like to"),
    l("Share your mind is your mission"),
    l("Whatever inside can be"),
    "",
    l("Don't be shy, you are nice"),
    l("From your mind, break the ice"),
    l("Whatever your idea"),
    l("It's the good one and, ahem!"),
    l("That makes everybody"),
    l("Able to write a poem"),
    "-- " + l("Nard");

    close;

OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}

001-2-6,43,39,0	script	#001-2-6-Book3	NPC_NO_SPRITE,{

    .@book_name$ = "\"" + l("Chorus of the Woods") + "\"";

    narrator 4,
        l("You see a dust covered book on the shelf..."),
        l("The name of the book is @@.", .@book_name$),
        l("Do you want to read it?");

    switch (select ("Yes.", "No."))
    {
        case 1:
            goto L_Read;
        case 2:
            close;
    }

L_Read:
    narrator 1,
    l("Hush now and hear the chorus of the woods"),
    l("Bent trees whistling with the beat of the drum"),
    l("With no choir master nor voice to be sung"),
    l("The music of the trees floats through the breeze"),
    l("Sleep well my angel but don't follow along"),
    l("Because the voices of death sing a sweet song"),
    "-- " + l("Princess Slayer");

    close;

OnInit:
    .sex = G_OTHER;
    .distance = 1;
    end;
}