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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
|
// Evol scripts.
// Authors:
// Vasily_Makarov
// Ablu
// Reid
// Description:
// Hidden NPC on a ship'ground hole.
//
// 2 bits array:
// ShipQuests
// Variable:
// ShipQuests_Alige
// Values:
// 0 first talking (before food)
// 1 already talked
000-2-1.gat,33,32,0,1 script AligeTrigger 0,1,1,{
OnTouch:
if (geta2(ShipQuests, ShipQuests_Alige) > 0) close;
doevent "Alige::OnFirstEncounter";
close;
OnTouchFirst: // OnTouch will not be called otherwise when OnTouchFirst got called
setnpcdir "Alige", 2;
stopnpctimer;
initnpctimer;
goto OnTouch;
OnUnTouchAll:
setnpcdir "Alige", 4;
stopnpctimer;
initnpctimer;
close;
OnTimer190:
if (getnpcdir ("Alige") == 2) setnpcdir "Alige", 6;
if (getnpcdir ("Alige") == 4) setnpcdir "Alige", 8;
stopnpctimer;
end;
}
000-2-1.gat,33,31,0,1 script Alige 301,{
set @q, geta2(ShipQuests, ShipQuests_Alige);
if (@q == 2) goto l_AskForFood;
goto OnFirstEncounter;
OnFirstEncounter:
seta2 ShipQuests, ShipQuests_Alige, 1;
mesn "Hidden person";
mesq l("Hey, psst! You're not a sailor, right?");
next;
menu
lg("I am, who are you?"), -,
lg("I'm not."), l_NeedHelp;
mes "";
mesn "Narrator";
mes col(l("Hidden person doesn't answer."), 9);
close;
l_NeedHelp:
mes "";
mesn "Hidden person";
mesq l("Good, good! ") + " " + l("Could you help me please? ") + " " + l("I beg you, please, pleeeease...");
next;
menu
l("Why not... but, who are you?") + " " + l("And what kind of help do you need?"), l_CanHelp;
l("Sorry but I have no time for this."), -;
mes "";
mesn "Hidden person";
mesq lg("Damn you! You better not tell anyone that you've seen me!");
close;
l_CanHelp:
mes "";
mesn;
mesq l("I'm called Alige, and I've been hiding here for few weeks.") + l("All that I had to eat were these berries... Berries... Berries...") + l("I'm losing my mind, I need something else to eat!");
next;
mesq l("Can you bring me something which isn't a vegetable?") + l("And please, no berries. No more!");
next;
menu
l("Okay, but what can you offer me?"), l_AboutReward,
l("Why don't you go outside?"), -;
l_ExplainHiding:
mes "";
mesn;
mesq l("No, I can't, I just wanted to travel across the seas for fun.") + " " + l("In this cave, you see, I have lots of fun.");
next;
mesq l("Err, seriously, I just wanted to get to Artis, and I haven't got the money to pay for the ferry!");
next;
mesq l("Please, don't tell people that you've seen me, I don't want to be thrown to sea as food for sharks or decapitated, not again!");
next;
if (geta2(ShipQuests, ShipQuests_Alige) == 2) goto l_SoAskForFood;
goto l_Accept;
l_AboutReward:
mes "";
mesn;
mesq l("I'll share my berries with you, if you help me.");
next;
l_Accept:
menu
l("Ok, I'll help you."), l_Accepted,
l("What is Artis?"), l_Artis,
l("I think I should report you to the crew members."), l_DamnYou;
l_Artis:
mes "";
mesn;
mesq l("It's a commercial port of Andorra, it's weird that you don't know about it, it's one of the most famous cities throughout the world... But hey oh, returning to the topic! I'm hungry!");
next;
if (@q == 2) goto l_SoAskForFood;
goto l_Accept;
l_Accepted:
seta2 ShipQuests, ShipQuests_Alige, 2;
mes "";
mesn;
mesq lg("Perfect, which food did you get for me today?");
next;
l_GiveFood:
menu
rif(countitem(501, 1), l(getitemname("Acorn"))), 0,
rif(countitem(502, 1), l(getitemname("Bread"))), 502,
rif(countitem(503, 1), l(getitemname("Fungus"))), 503,
rif(countitem(504, 1), l(getitemname("Cheese"))), 504,
rif(countitem(505, 1), l(getitemname("Piouslegs"))), 505,
rif(countitem(506, 1), l(getitemname("Lettuce"))), 506,
rif(countitem(507, 1), l(getitemname("Piberries"))), 2,
rif(countitem(508, 1), l(getitemname("Seadrop"))), 1,
rif(countitem(509, 1), l(getitemname("Aquada"))), 509,
rif(countitem(510, 1), l(getitemname("Pinkblobime"))), 1,
l("I don't have anything good for you today."), -1;
set @id, @menuret;
if (@id == -1) goto l_DamnYou; // Quit message.
if (@id == 0) goto l_NoReward; // In case of wrong food.
if (@id == 1) goto l_Poison; // In case of Poisonned food.
if (@id == 2) goto l_NoMore; // In case of Piberries.
// Continue if the food is correct.
l_GiveReward:
if (countitem(@id) < 1) close;
delitem @id, 1;
mes "";
mesn;
mesq l("Thank you so much! Here, have some berries...");
getitem "Piberries", rand(1,3);
close;
l_NoReward:
mes "";
mesn;
mesq l("I don't want this, give me something else.");
goto l_GiveFood;
l_NoMore:
mes "";
mesn;
mesq l("Arrr, don't give me more berries! I don't want them, stupid berries, stupid ... stupid ... stupid!");
close;
l_Poison:
mes "";
mesn;
mesq l("Don't try to poison me! I know what that does!");
goto l_GiveFood;
l_SoAskForFood:
mesn;
mesq l("So, do you have anything for me today?");
next;
goto l_IntroMenu;
l_AskForFood:
mesn;
mesq l("Do you have anything for me today?");
next;
l_IntroMenu
menu
l("Yes."), l_GiveFood,
l("Where can I find some food?"), l_Food,
l("Why are you hiding?") + " " + l("Why don't you go outside?"), l_ExplainHiding,
l("What is Artis?"), l_Artis,
l("I think I should report you to the crew members."), l_DamnYou;
l_Food:
mes "";
mesn;
mesq l("There is some flying yellow plush around you, they're called pious. Getting a roasted leg of one of them would be perfect.");
next;
mesq l("I'd like to catch one of them, but they are flying away when I try.");
next;
mesq l("As you can walk around, it'll be an easy task for you. Impale me one of them!!");
next;
mesn "Narrator";
mes col(l("You can attack a monster by clicking on him, or from your keyboard, on using the key "A" to select and "Ctrl" to attack."), 9);
next;
mes col(l("Once the monster is dead, you can take his drop with your mouse on clicking on it, or by using the key "Z" from your keyboard."), 9);
close;
l_DamnYou:
mes "";
mesn;
mesq lg("Damn you! You better not tell anyone that you've seen me!");
close;
}
|
