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
|
042-1.gat,110,74,0 script Hasan 189,{
set @toll, 10000;
if ($scorp) goto L_Fear;
if (FLAGS & FLAG_TUTORIAL_DONE) goto L_Tut_Done;
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?",-,
"Who says that?",-;
mes "[Unfriendly Guy]";
mes "\"Me, Hasan the mighty, decided to put a toll on this way.\"";
next;
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 so much money!",L_NoPay,
"We'll see if you can stop me!",L_Fight;
menu
"What? I don't have so much money!",L_NoPay,
"We'll see if you can stop me!",L_Fight;
close;
L_NoPay:
mes "[Hasan]";
mes "\"That's not my problem. You have to stay here then.\"";
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;
mes "That hurt! You begin to think searching for a different solution might be healthier.";
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.\"";
set hasan, 0;
set kaan, 0;
set sorfina, 0;
set tanisha, 0;
set FLAGS, FLAGS | FLAG_TUTORIAL_DONE;
close;
L_Cheat:
mes "[Hasan]";
mes "\"Don't dare to cheat on me!\"";
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 so much money!",L_NoPay,
"No. (Scratch your head.)",-;
mes "While you're scratching your head, you see Kaan coming nearer to the cliff above you.";
monster "042-1.gat",110,74,"Scorpion",1003,1, "Hasan::onScorpionDeath";
set $scorp, 1;
close;
L_Thank:
mes "[Hasan]";
mes "\"You - you saved me!";
mes "I tried to get your money and you saved me!\"";
next;
mes "\"Hey, you're a really cool person.";
mes "I mean, how you finished that ghastly scorpion!";
mes "Amazing!\"";
next;
mes "\"I tell you something: Cool persons are allowed to pass for free.";
mes "And you can have this.\"";
getitem "SharpKnife", 1;
set hasan, 0;
set kaan, 0;
set sorfina, 0;
set tanisha, 0;
set FLAGS, FLAGS | FLAG_TUTORIAL_DONE;
close;
L_Fear:
mes "[Hasan]";
mes "\"Sc-sc-sco-scorpion! Pl-please k-kill it.\"";
mes "He seems close to tears.";
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.\"";
close;
onScorpionDeath:
set $scorp, 0;
if (hasan != 3)
close;
set hasan, 4;
message strcharinfo(0), "You saved Hasan.";
end;
}
042-1.gat,117,76,0 script #barrier 127,2,2{
if (FLAGS & FLAG_TUTORIAL_DONE)
goto L_Tut;
warp "042-1.gat", 110, 73;
if ($scorp)
message strcharinfo(0), "Hasan: \"Please help me!\"";
if (!$scorp)
message strcharinfo(0), "Hasan: \"Stop!\"";
end;
L_Tut:
warp "022-1.gat", 23, 38;
end;
}
|
