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
|
//############################################
//# NPC Well & Miler
//# Authors: Lien, PjotrOrial
//# Review:
//#
//# There is someone in the well. This can be found out by throwing some stuff
//# in there.
//#
//# When the npc in the well is detected they can be rescued by asking Miler
//# for help.
//#
//# The experience reward given by Miler is 111 * BaseLevel
//#
//# used variables: QUEST_Nivalis_state Nibble4
//############################################
020-1.gat,99,83,0|script|#Well|400,
{
set @Q_MASK, NIBBLE_4_MASK;
set @Q_SHIFT, NIBBLE_4_SHIFT;
set @Q_status, ((QUEST_Nivalis_state) & @Q_MASK) >> @Q_SHIFT;
if(@Q_status == 2) goto L_Finished;
set @item_ID, 0;
setarray @quote_item$, "Yuck! Who has thrown that on me?","Ouch! Who hurts me?","White powder!? What's going on up there?","Ahw! It's raining ","","","";
mes "...";
menu
"Throw something in the well.", L_trew,
"Leave it alone.", -;
close;
L_trew:
mes "What do you want to throw?";
menu
"Maggot slime", -,
"A raw log", -,
"Pile of ash", -,
"Bottle of water", -,
"Leave it alone", L_Close;
set @menu, @menu - 1;
// little IF to do @quote$ & @Item_ID
set @quote$, @quote_item$[@menu];
if(@menu == 0)
set @item_ID, 505;
if(@menu == 1)
set @item_ID, 569;
if(@menu == 2)
set @item_ID, 701;
if(@menu == 3)
set @item_ID, 541;
if(countitem(@item_ID) < 1)
goto L_NO_ITEM;
if(@menu == 3)
getitem "EmptyBottle", 1;
delitem @item_ID, 1;
mes "[Mysterious voice inside the well]";
mes "\" "+ @quote$ +"\"";
next;
menu
"Who are you?", -,
"How did you get there?", -,
"Do you need help?", -;
set @menu, @menu - 1;
if (@menu == 0)
set @quote$, "I'll talk about who I am after leaving the well.";
if (@menu == 1)
set @quote$, "Well, someone has pushed me in the well, I don't know who did that.";
if (@menu == 2)
set @quote$, "";
mes "[Mysterious voice inside the well]";
mes "\" "+ @quote$ +". So if you can call help for me... please do so!\"";
set @Q_status, 1;
callsub S_Update_Var;
close;
L_NO_ITEM:
mes "You don't have such an item... Come back when you have it.";
close;
L_Finished:
mes "This is a well.";
close;
L_Close:
close;
S_Update_Var:
set QUEST_Nivalis_state,
(QUEST_Nivalis_state & ~(@Q_MASK)
| (@Q_status << @Q_SHIFT));
return;
}
020-2.gat,100,28,0|script|Miler|100,
{
set @Q_MASK, NIBBLE_4_MASK;
set @Q_SHIFT, NIBBLE_4_SHIFT;
set @Q_status, ((QUEST_Nivalis_state) & @Q_MASK) >> @Q_SHIFT;
mes "[Miler]";
mes "\"Hello!\"";
if(@Q_status == 2) close;
if(@Q_status == 1)
menu
"Hello.", -,
"Hello, Can you help me?", L_HELP;
close;
L_HELP:
mes "[Miler]";
mes "\"What's the problem?\"";
menu "Someone has fallen in the well.", -;
mes "[Miler]";
mes "\"Ho! I'll help him!\"";
getexp (BaseLevel * 111), 0;
set @Q_status, 2;
callsub S_Update_Var;
close;
S_Update_Var:
set QUEST_Nivalis_state,
(QUEST_Nivalis_state & ~(@Q_MASK)
| (@Q_status << @Q_SHIFT));
return;
}
|
