summaryrefslogtreecommitdiff
path: root/npc/001-2-6/books.txt
blob: 80d0a722db0ce6003db6427e7659ee4f09736560 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
// 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;
}