summaryrefslogtreecommitdiff
path: root/world/map/npc/042-1/hasan.txt
blob: dc9ff3e4e39153171334457387a7ef8cf92f0c9e (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
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
// This file is part of the Tutorial
// Authors: Jenalya, alastrim

042-1.gat,90,61,0|script|Hasan|189,
{
    set @toll, 10000;
    set @x, getx();
    set @y, gety();

    if (FLAGS & FLAG_TUTORIAL_DONE)
        goto L_Tut_Done;
    // Please consider rewriting this in terms of isin()
    // it's not that trivial to put this in a rectangle...
    if ( (@y < 58)&&(@x < 89) || (@x < 87) )
        goto L_Cliff_Up;
    // implicitly, $@ScorpionFighter is nonzero
    if (getcharid(3) == $@ScorpionFighter)
        goto L_Fear;
    if (hasan == 4)
        goto L_Thank;
    if (hasan == 3)
        goto L_Trick;
    if (hasan > 0)
        goto L_Toll;

    mes "[Unfriendly Guy]";
    mes "\"Hey! You can't pass here.\"";
    next;
    menu
        "Why not?",L_Next,
        "Who says that?",L_Next;

L_Next:
    mes "[Unfriendly Guy]";
    mes "\"I, Hasan the Mighty, have decided to put a toll on this path.\"";
    next;
    goto L_Toll;

L_Toll:
    mes "[Hasan]";
    mes "\"Give me " + @toll + "GP, and I may let you pass.\"";
    if (hasan == 0)
        set hasan, 1;
    next;
    if (Zeny >= @toll)
        menu
            "Ok, here you go.",L_Pay,
            "What? I don't have that much money!",L_NoPay,
            "We'll see if you can stop me!",L_Fight;
    menu
        "What? I don't have that much money!",L_NoPay,
        "We'll see if you can stop me!",L_Fight;

L_NoPay:
    mes "[Hasan]";
    mes "\"That's not my problem. You have to stay here then.\"";
    next;
    mes "This is annoying. Maybe Kaan can help?";
    goto L_Close;

L_Fight:
    mes "He laughs derisively.";
    mes "[Hasan]";
    mes "\"Do you really think you can beat me?\"";
    mes "He pulls out a nasty looking dagger and stabs it in your direction.";
    set Hp, 1;
    next;
    mes "That hurt! You begin to think searching for a different solution might be healthier.";
    mes "Maybe Kaan can help?";
    goto L_Close;

L_Pay:
    if (Zeny < @toll)
        goto L_Cheat;
    set Zeny, Zeny - @toll;
    mes "He grins gloatingly.";
    mes "[Hasan]";
    mes "\"Very well. You may pass.\"";
    callfunc "TutorialCompleted";
    goto L_Close;

L_Cheat:
    mes "[Hasan]";
    mes "\"Don't you dare try to cheat me!\"";
    goto L_Close;

L_Trick:
    mes "[Hasan]";
    mes "\"Are you going to pay now? " + @toll + "GP, and I may let you pass.\"";
    next;
    menu
        "I don't have that much money!",L_NoPay,
        "No. (Scratch your head.)",L_ScratchHead;

L_ScratchHead:
    if ($@ScorpionFighter)
        goto L_Wait;
    mes "While you're scratching your head, you see Kaan coming nearer to the cliff above you.";
    // close2 blocks
    close2;
    set $@ScorpionTimer, 0;
    set $@ScorpionFighter, getcharid(3);
    set $@ScorpDeath, PC_DIE_COUNTER;
    monster "042-1.gat",89,63,"Scorpion",1003,1, "Hasan::OnScorpionDeath";
    initnpctimer;
    end;

L_Thank:
    mes "[Hasan]";
    mes "\"You - you saved me!";
    mes "I tried to take your money and you saved me!\"";
    next;
    mes "\"Hey, you're a really cool person.";
    mes "I mean, the way you finished that ghastly scorpion!";
    mes "Amazing!\"";
    next;
    mes "\"Let me tell you a secret: Cool persons are allowed to pass for free.";
    mes "And you can have my Sharp Knife.\"";
    getitem "SharpKnife", 1;
    callfunc "TutorialCompleted";
    next;
    mes "\"You want to go to the bazaar, right? Shall I tell you how to get there?\"";
    next;
    menu
        "Sure, thanks.",L_HasanThanks,
        "I'll try to find the way myself.",L_Explore;

L_HasanThanks:
    mes "[Hasan]";
    mes "\"Ok, when you leave here follow the road past the docks until you reach the old city gates.\"";
    next;
    mes "\"Pass through them and at the crossway, just go west and then south until you reach some other gateway.\"";
    next;
    mes "\"Behind it there is the bazaar of Tulimshar.\"";
    goto L_Close;

L_Explore:
    mes "[Hasan]";
    mes "\"Alright. Take care!\"";
    goto L_Close;

L_Fear:
    mes "[Hasan]";
    mes "\"Sc-sc-sco-scorpion!\"";
    mes "He seems close to tears.";
    goto L_Close;

L_Tut_Done:
    mes "[Hasan]";
    if (BaseLevel >= 40)
        mes "\"Welcome to the suburbs of Tulimshar. I wonder what an experienced adventurer like you is doing here.\"";
    if (BaseLevel < 40)
        mes "\"Bah, nothing interesting is happening here.\"";
    goto L_Close;

L_Cliff_Up:
    mes "You see a guy in shabby clothes when you look down the cliff.";
    goto L_Close;

L_SummonAgain:
    message strcharinfo(0), "Kaan is mad at you for your interference! He walks over to the edge of the cliff and throws a rock on top of your head, then lets another scorpion run just near Hasan!";
    percentheal -100, 0;
    message strcharinfo(0), "Kaan: \"Just go while he is distracted and no one is interfering!\"";
    monster "042-1.gat",89,63,"Scorpion",1003,1, "Hasan::OnScorpionDeath";
    end;

L_Clean:
    killmonster "042-1.gat", "Hasan::OnScorpionDeath";
    set $@ScorpionFighter, 0;
    set $@ScorpionTimer, 0;
    set $@ScorpDeath, 0;
    stopnpctimer;
    end;

L_TimeOut:
    message strcharinfo(0), "Hasan, with his eyes almost closed, trembling with fear, runs toward the scorpion and stabs it with all his strength! Seems like you took too long and the plan didn't work this time.";
    warp "042-1.gat", 91, 58;
    message strcharinfo(0), "Hasan: \"Hey you! I told you you cannot pass!\"";
    goto L_Clean;

L_MessageDeath:
    message strcharinfo(0), "Ouch... I should be more careful when fighting these monsters.";
    goto L_Clean;

L_Wait:
    mes "There is a scorpion near Hasan already. I think Kaan is helping someone else... Maybe I should try the plan later.";
    goto L_Close;

L_Close:
    set @toll, 0;
    set @x, 0;
    set @y, 0;
    close;

OnTimer5000:
    if (attachrid($@ScorpionFighter) == 0)
        goto L_Clean;
    set $@ScorpionTimer, $@ScorpionTimer + 5;
    if ($@ScorpionTimer >= 300)
        goto L_TimeOut;
    if (PC_DIE_COUNTER > $@ScorpDeath)
        goto L_MessageDeath;
    setnpctimer 0;
    end;

OnScorpionDeath:
    if (getcharid(3) != $@ScorpionFighter)
        goto L_SummonAgain;
    if (hasan != 3)
        end;
    set hasan, 4;
    message strcharinfo(0), "You saved Hasan.";
    goto L_Clean;

}

042-1.gat,90,62,0|script|#Toll|32767,2,2,
{
    end;

OnTouch:
    // implicitly, $@ScorpionFighter is nonzero
    if ($@ScorpionFighter == getcharid(3))
        end;
    if ((FLAGS & FLAG_TUTORIAL_DONE) || (hasan == 4))
        end;
    warp "042-1.gat", 91, 58;
    message strcharinfo(0), "Hasan: \"Stop!\"";
    end;

}

042-1.gat,96,69,0|script|#barrier|45,0,2
{
    end;

OnTouch:
    if (FLAGS & FLAG_TUTORIAL_DONE)
        goto L_Tut;
    warp "042-1.gat", 94, 69;
    // implicitly, $@ScorpionFighter is nonzero
    if ($@ScorpionFighter == getcharid(3))
        message strcharinfo(0), "Hasan: \"" + strcharinfo(0) + "! Please help me!\"";
    if ($@ScorpionFighter && $@ScorpionFighter != getcharid(3))
        // is this reachable?
        message strcharinfo(0), "Hasan: \"Hey! Stop right there!\"";
    if (hasan == 4)
        message strcharinfo(0), "Hasan: \"Please wait a moment!\"";
    end;

L_Tut:
    warp "022-1.gat", 23, 38;
    end;

}