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
|
// This is to replace Paxel
//----------------------------------------------------
// Desert Helmet quest
// Create Quest: Darlord (Depredador)
//----------------------------------------------------
012-1.gat,122,115,0 script Paxel 126,{
if(QUEST_Warrior1 == 2) goto L_Done1;
if(QUEST_Warrior1 == 1) goto L_Ask2;
if (BaseLevel >= 60 && countitem(IronIngot) > 0) goto L_Ask1;
mesn;
mes "\"Hello! Calm wind today!\"";
menu
"Yes, but I like windy days.", L_Wind,
"Hmm... sorry but gotta go...", L_Go;
close;
L_Go:
mesn;
mes "\"Ok, good trip then.\"";
close;
L_Wind:
mesn;
mes "\"I don't like them, i can't fly straight.\"";
close;
// ----------------------------------------------------
// Desert Helmet quest start
// ----------------------------------------------------
L_Ask1:
mesn;
mes "\"Hello "+ strcharinfo(0) + "! I see you have some [Iron Ore] with you!\"";
menu
"Yes... right... what about [Iron Ore]?", L_Quest1,
"Yes, but i have grown attached to [Iron Ore]...", L_No,
"Right, but now i have business in other places.", L_Rude;
close;
L_Quest1:
mesn;
mes "\"Iron Ore is a really special item. People without helmets can't understand [Iron Ore] real power, anyway if you could give me some of them you would understand why they are so special.\"";
menu
"Certainly, you can have all my [Iron Ore]", L_Check1,
"Sorry but i am not interested in that.", L_No;
close;
L_No:
mesn;
mes "\"Ok, come back me when you want to know [Iron Ore] real power\"";
close;
L_Rude:
mesn;
mes "\"Well, good luck with your business.\"";
close;
L_Check1:
if (countitem(IronIngot) > 11)
goto L_Progress1;
goto L_More_Needed1;
L_More_Needed1:
mesn;
mes "\"Your [Iron Ore] are not enough, please look for more.\"";
close;
// ----------------------------------------------------
// Got Iron Ores
// ----------------------------------------------------
L_Progress1:
delitem IronIngot, 12;
getexp 10000, 0;
set QUEST_Warrior1, 1;
mes "[Angel]";
mes "\"Perfect! you have enough Iron Ore, i will take them for now but i need other items in order to bring them to life.\"";
L_Ask2:
mesn;
mes "\"I need a two Infantry Helmet to enchant them, one Warlord Helmet to make them full of vitality and a lot of Terranite Ore to make it more magical.\"";
menu
"Please have a look, i have what you asked", L_Check2,
"On my way to get what you need.", -;
close;
L_Check2:
if (countitem(InfantryHelmet) > 0 && countitem(WarlordHelmet) > 0 && countitem(TerraniteOre) > 0)
goto L_Progress2;
goto L_More_Needed2;
L_More_Needed2:
mesn;
mes "\"I am sorry but i can see that you don't have all that i asked you.\"";
next;
mesn;
mes "\"Please bring me that or i won't be able to make something really special for you.\"";
close;
// ----------------------------------------------------
// Got Desert
// ----------------------------------------------------
L_Progress2:
if (@inventorylist_count == 100) goto L_noRoom;
delitem InfantryHelmet, 1;
delitem WarlordHelmet, 1;
delitem TerraniteOre, 20;
getexp 60000, 0;
getitem PrsmHelmet, 1;
set QUEST_Warrior1, 2;
mesn;
mes "\"There you go a special Desert Helmet!.\"";
close;
L_noRoom:
mesn;
mes "\"You don't have enough room left for helmet... Please do spring cleaning in your inventory.\"";
close;
L_Done1:
mesn;
mes "\"Hello winged friend! How is the wind today?\"";
menu
"Calm, perfect for a fly!", L_Fly,
"Gale, not good to fly.", L_Wind2;
close;
L_Fly:
mesn;
mes "\"Haha yes, you are right!\"";
close;
L_Wind2:
mesn;
mes "\"Yep, i never fly in these days.\"";
close;
}
|
