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
|
008-1,136,62,0 script George NPC138,{
if (getequipid(equip_head) == 617) goto L_Pirate;
if (getequipid(equip_head) == 622) goto L_Bandana;
if (getequipid(equip_head) == 621) goto L_EyePatch;
mes "[George the Pirate]";
mes "\"Yar! Do you need something, matey?\"";
goto L_Main;
L_Main:
if (GEORGE_Quest == 1) goto L_Main2;
if (GEORGE_Quest == 2) goto L_Main3;
if (GEORGE_Quest == 3) goto L_Main5;
if (GEORGE_Quest == 4) goto L_Main4;
menu
"Can you explain the Ferry?", L_Explain,
"Nothing I guess", L_close;
L_Main2:
menu
"Can you explain the Ferry?", L_Explain,
"Actually, I heard from Roger that you may need some help.", L_RequestOne,
"Nothing I guess", L_close;
L_Main3:
menu
"Can you explain the Ferry?", L_Explain,
"About the items you asked me to collect...", L_ProgressOne,
"Nothing I guess", L_close;
L_Main4:
menu
"Can you explain the Ferry?", L_Explain,
"About the items you asked me to collect...", L_ProgressTwo,
"Nothing I guess", L_close;
L_Main5:
menu
"Can you explain the Ferry?", L_Explain,
"Dow you need any more help?", L_RequestTwo,
"Nothing I guess", L_close;
L_Pirate:
mes "[George the Pirate]";
mes "\"Arrrrh! Ye be wearing a pirate's hat!\"";
goto L_Main;
L_Bandana:
mes "[George the Pirate]";
mes "\"Arrrrh! Ye remind me of my old first mate!\"";
goto L_Main;
L_EyePatch:
mes "[George the Pirate]";
mes "\"Arrrrh! Looks like ye lost an eye there!\"";
goto L_Main;
L_Explain:
mes "[George the Pirate]";
mes "\"Arrr matey! I helped pioneer the trade routes between Hurnscald and the rest of the World, so now merchants and adventurers can travel to and fro without any hassle of dodging wolvern, yarr.\"";
next;
mes "\"To use the ferry, just step up on the dock and select your destination. Each destination has an associated price that you need to pay. You don't have to go anywhere. Choosing the current port will result in nothing.\"";
goto L_close;
L_RequestOne:
mes "[George the Pirate]";
mes "\"Roger, eh? Aye, I do need help. If you bring me 30 beers, 50 bottles, and 30 casino coins, maybe I can give you a reward.";
GEORGE_Quest = 2;
goto L_close;
L_RequestTwo:
mes "[George the Pirate]";
mes "\"Arrr matey! My captain asked me to have you get him some items. Please bring us 50 zombie nachos and 50 lady fingers, my captain likes to snack on those during our long voyages. Oh, and something to read too!\"";
GEORGE_Quest = 4;
goto L_close;
L_ProgressOne:
if (countitem("Beer") < 30)
goto L_NotEnough;
if (countitem("BottleOfWater") < 50)
goto L_NotEnough;
if (countitem("CasinoCoins") < 30)
goto L_NotEnough;
mes "[George the Pirate]";
mes "\"Yar matey! You have the items I asked for! You have the honor and trust we pirates bestow each other!\"";
getinventorylist;
if (@inventorylist_count == 100)
goto L_TooMuch;
delitem "Beer", 30;
delitem "BottleOfWater", 50;
delitem "CasinoCoins", 30;
mes "";
mes "\"Here is a reward for your effort! Now you can be a true buccaneer!\"";
getitem "SailorHat", 1;
getexp 5000, 0;
GEORGE_Quest = 3;
goto L_close;
L_ProgressTwo:
if (countitem("ZombieNachos") < 50)
goto L_NotEnough;
if (countitem("LadyFingers") < 50)
goto L_NotEnough;
if (countitem("ScrollOfPaper") < 1)
goto L_NotEnough;
mes "[George the Pirate]";
mes "\"Arrr! Good job matey! You brought us everything we asked for, even the Maritime Almanac Scroll!\"";
getinventorylist;
if (@inventorylist_count == 100)
goto L_TooMuch;
delitem "ZombieNachos", 50;
delitem "LadyFingers", 50;
delitem "ScrollOfPaper", 1;
mes "\"My captain wanted me to give this to you as a special reward for your efforts.\"";
getitem "CaptainsHat", 1;
getexp 15000, 0;
GEORGE_Quest = 5;
goto L_close;
L_NotEnough:
mes "[George the Pirate]";
mes "\"Arrr! You did not bring me everything I asked for!\"";
if (GEORGE_Quest == 2)
goto L_NotEnoughOne;
if (GEORGE_Quest == 4)
goto L_NotEnoughTwo;
// This shouldn't be necessary as it should *never* be reached, but
// tmwAthena complains of "implicit fallthrough" and refuses to run
// without it here. Perhaps I'm doing something wrong? More likely
// we need to slap some TMW devs.
goto L_close;
L_NotEnoughOne:
mes "\"Remember, I need 30 beers, 50 bottles, and 30 casino coins.\"";
goto L_close;
L_NotEnoughTwo:
mes "\"Remember, I need 50 zombie nachos, 50 lady fingers, and something to read.\"";
goto L_close;
L_TooMuch:
mes "[George the Pirate]";
mes "\"Err... you do not appear to have enough room for your reward. Please come back once you lighten your load, matey!\"";
goto L_close;
L_close:
close;
}
|
