summaryrefslogtreecommitdiff
path: root/world/map/npc/011-6/crastur.txt
blob: 16dda84f7aa7bfc28afa7dfada75149c7acfdf50 (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
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
011-6,172,250,0|script|Crastur the Ugly|418
{
    set @spants_state, ((QUEST_WG_state & NIBBLE_2_MASK) >> NIBBLE_2_SHIFT);
    set @inspector, ((QUEST_Hurnscald & NIBBLE_3_MASK) >> NIBBLE_3_SHIFT);
    if @spants_state < 3 goto L_Regular;
    if @spants_state == 3 goto L_Ask;
    if (@spants_state == 4 || @spants_state == 5 || @spants_state == 6) goto L_Ask_Again;
    goto L_Main;


L_Ask:
    mes "[Crastur]";
    mes "";
    mes "\"Well, well, well\"";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"Just look who arrived here\"";
    emotion EMOTE_EVIL;
    next;
    mes "[Crastur]";
    mes "";
    mes "\"If this isn't the person that cleared my way to success\"";
    menu
        "\"Who? Me?\"", L_Unsure,
        "\"Yes I killed the Bandit Lord, but not to make room for more scumbags\"", L_Insult,
        "\"I heard you know a lot\"", L_Ask_Cont,
        "\"Ugh, no. I have to leave now. Bye.\"", L_Close;

L_Ask_Again:
    mes "[Crastur]";
    mes "";
    mes "\"Hello again\"";
    mes "\"Did you do your part of the deal yet?\"";
    menu
        "\"No, I wanted to know if you can tell me anything about me\"", L_Personal,
        "\"Probably not, what was that again?\"", L_Pirate_Proof,
        "\"Yes, check this Bandana I brought.\"", L_Bandana,
        "\"No Idea, Bye.\"", L_Close;

L_Ask_Cont:
    mes "[Crastur]";
    mes "";
    mes "\"Yes I do, for a price.\"";
    menu
        "Explain Hetchels story", L_Jibber,
        "Interesting", L_Main;

L_Jibber:
    mes "You begin to tell Crastur about Hetchel and her Problems";
    next;
    mes "Crastur interrupts you";
    mes "[Crastur]";
    mes "";
    mes "\"I do not care about petty problems, get to the point!\"";
    set @spants_state, 4;
    callsub S_Update_Spants;
    menu
        "\"Hetchel needs the Plans for Cotton Trousers Stolen from Lora Tay\"", L_Jibber_Cont,
        "\"Don't talk to me like that\" (Leave)", L_Close;

L_Jibber_Cont:
    mes "[Crastur]";
    mes "";
    mes "\"this can be done quickly\"";
    next;
    mes "Crastur pauses and checks his papers";
    mes "\"...\"";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"The issue here is\"";
    mes "\"you have literally nothing that is of any value to me\"";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"Although... Since you claim to be a hero and everything...\"";
    mes "\"I do have a problem with those pirates in Tulimshar. They are ruining my Business\"";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"Bring me proof that you killed all of the pirates!\"";
    next;
    menu
        "\"I have it right here\"", L_Bandana,
        "\"What kind of proof?\"", L_Pirate_Proof;


L_Pirate_Proof:
    mes "[Crastur]";
    mes "";
    mes "\"It is for sure the Pirates give their souls for the rescue of their booty.\"";
    mes "\"Bring me something unique from their treasure and I will give you those plans in return.\"";
    set @spants_state, 5;
    callsub S_Update_Spants;
    menu
        "\"I have it with me.\"", L_Bandana,
        "\"I will try my best.\"", L_Close;

L_Bandana:
    getinventorylist;
    if (countitem("Bandana") < 1) goto L_No_Item;
    if (@spants_state != 6) goto L_Wrong_Item;
    mes "Crasturs gazes at the bandana in your hand. He scratches his right arm, then he nods";
    mes "[Crastur]";
    mes "";
    mes "\"I am a man of honour, I always pay my debt\"";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"Here, I couldnt get the original Sheet but this copy should do well enough\"";
    next;
    mes "\"Crastur hands you a page ripped out of his Almanach that has dotted lines in green and red Ink all over it";
    next;
    mes "You put the plans into a hidden pocket";
    set @spants_state, 7;
    callsub S_Update_Spants;
    goto L_Close;

L_No_Item:
    mes "[Crastur]";
    mes "";
    mes "\"What Bandana are we talking about? - Next time you come to me, bring your stuff.\"";
    goto L_Close;

L_Wrong_Item:
    mes "Crastur takes a look at the bandana.";
    next;
     mes "[Crastur]";
    mes "THIS IS NOT FROM THE PIRATES FROM TULIMSHAR, it is a cheap scam.";
    emotion EMOTE_PERTURBED;
    mes "As far as you can tell through his mask he seems very mad";
    goto L_Insult;

L_Regular:
    mes "[Crastur]";
    mes "";
    mes "\"Well, well, well\"";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"Just look who arrived here\"";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"If this isn't the person that cleared my way to success\"";
    menu
        "\"Who? Me?\"", L_Unsure,
        "\"Yes I killed the Bandit Lord, but not to make room for more scumbags\"", L_Insult,
        "\"Ugh, no. I have to leave now. Bye.\"", L_Close;

L_Insult:
    mes "Die " + strcharinfo(0) + "!";
    heal -10000, 0;
    emotion EMOTE_VICIOUS;
    mes "[Crastur]";
    mes "";
    mes "\"Oh I am so sorry, my Dagger must have slipped\"";
    goto L_Close;

L_Unsure:
    mes "[Crastur]";
    mes "";
    mes "\"Yes I hid in a corner while you killed my former master\"";
    mes "\"When he left I claimed command over Argaeses Rats, Caves and Dungeons.\"";
    mes "\"Do not underestimate me, I do know a lot more than you might guess\"";
    goto L_Main;

L_Main:
    if((@inspector >= 1  && @inspector <= 7) || @inspector == 9) goto L_Main_Inspector;
    menu
        "\"What things do you know about me?\"", L_Personal,
        "\"Bye\"", L_Close;

L_Main_Inspector:
    menu
        "\"What things do you know about me?\"", L_Personal,
        "\"Do you know anything about the Robberies in Hurnscald?\"", L_Hurnscald,
        "\"Bye\"", L_Close;

L_Personal:
    mes "";
    mes "Crastur digs in a pile of old paper";
    next;
    mes "[Crastur]";
    mes "";
    mes "\"Ah. Here it is:\"";
    mes "\"Today you have accomplished tasks that are worth " + DailyQuestPoints + " Hours in the Northern Mines\"";
    next;
    if BOSS_POINTS < 1000 goto L_Worm;
    emotion EMOTE_DEAD;
    mes "[Crastur]";
    mes "";
    mes "\"Also you seem to be quite a hero, it appears you have a record in the Almanach\"";
    mes "Crastur turns a giant book upside down";
    mes "\"According to this you have gained " + BOSS_POINTS / 1000 + "thousand Points in the eternal charts already.\"";
    mes "Crastur shudders";
    goto L_Close;

L_Worm:
    emotion EMOTE_SUSPICIOUS;
    mes "[Crastur]";
    mes "\"Other than that you have not done anything notable for the mana world.\"";
    goto L_Close;

L_Hurnscald:
    emotion EMOTE_FACEPALM;
    mes "Crastur makes a barking sound that probably was meant as a laugh.";
    mes "[Crastur]";
    mes "";
    mes "\"I am sorry but it is not in my best interest to talk about my business with you.\"";
    goto L_Close;

S_Update_Spants:
    set QUEST_WG_state, (QUEST_WG_state & ~(NIBBLE_2_MASK) | (@spants_state << NIBBLE_2_SHIFT));
    return;

L_Close:
    set @spants_state, 0;
    close;
}