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
|
// Originais:
// Programador: Adson Renato
// Texto: Arkanjo
// Revisão: Jesusalva
// Utilidade: Troca itens dropaveis e dinheiro por outro item.
//
// IMPORTANTE: Bugs no script, não vai entrar sem consertar!
//
// Custo:
// * 10 Poções da Morte , 10 Poções energética, 10 Poção de Concentração,
// * 10 Cocha de Frango, 5 potes de água, 1 Tinta Vermelha, 1 Tinta preta,
// * 1 Trevo de Quatro Folhas e 100.000kgp.
// Talvez isso devesse ser reescrito, para pedir outras coisas. Que façam mais sentido.
//
// Recompensa:
// * 1 ChapeuDeMarinheiro[ID:764]
navio-2,25,23,0 script debug NPC101,{
mes "...";
QUEST_ChapeuDeMarinheiro = 0;
close;
}
navio-2,28,23,0 script Mercador Fugitivo NPC101,{
L_Inicio:
// CONFIGURE os IDs
@Cranio = 0;
if (QUEST_ChapeuDeMarinheiro == 1) goto L_pegou;
if (QUEST_ChapeuDeMarinheiro == 2) goto L_Cheio1;
if (QUEST_ChapeuDeMarinheiro == 3) goto L_Insuf1;
if (QUEST_ChapeuDeMarinheiro == 4) goto L_Fim;
mesn;
mes "\"E aí, cara! Os guardas da Ilha Fortaleza estão atrás de mim. Preciso de sua ajuda e posso te recompençar.\"";
next;
mesn strcharinfo(0);
menu
"Guardaaas! Socorro! Temos um fugitivo!", L_revolta,
"Não, estou ocupado.", L_Fechar,
"Opa , você disse recompença", L_gogo;
L_revolta:
message strcharinfo(0), "Guardaaas! Socorro! Temos um fugitivo!";
mesn;
mes "\"Não, por favor! Tenho 3 filhos para criar. Eles estão me procurando por contrabando. Por favor, deixe me ir embora!\"";
close;
L_gogo:
mesn;
mes "\"Sim, eu preciso fugir daqui o quanto antes. Tenho uma coisa que você irá gostar.\"";
next;
mesn strcharinfo(0);
mes "\"Bom, então me diga logo o que você precisa!";
mes "E qual a recompença?\"";
next;
mesn;
mes "Retira do bolso um pedaço de papel bem velho e lhe entrega, dizendo:";
mes "\"Bom , eu preciso de algumas coisas...\"";
next;
mes "[PAPEL VELHO]";
mes "* 10 (Poções da Morte)";
mes "* 10 (Poções energética)";
mes "* 10 (Poção de Concentração)";
mes "* 10 (Cocha de Frango)";
mes "* 5 (potes de água)";
mes "* 1 (Tinta Vermelha)";
mes "* 1 (Tinta Preta)";
//mes "* 1 (Cranio)";
//mes "* 5 (Crystais Negros)";
mes "* 1 (Trevo de Quatro Folhas)";
mes "CUSTO: 10.000 GP";
next;
mesn;
mes "\"Lhe darei em troca de sua ajuda uma (ChapeuDeMarinheiro)\"";
menu
"Claro, lhe ajudarei !", L_Ajuda,
"Está louco ? isto é muita coisa ! Acabo de me lembrar que tenho que encontrar uns amigos na Taberna do Querubin !", L_Fechar;
L_Ajuda:
mesn;
mes "\"Nossa! Muito obrigado! Te espero o quanto antes!\"";
next;
mesn strcharinfo(0);
mes "\"Hey! Não entendi pq estes itens.\"";
next;
mesn;
mes "\"Bem vou explicar meu plano!\"";
next;
mesn;
mes "\"Eu tenho que ter varios disfarce por isto preciso de algumas tintas para pintar roupas. "+
"Trevo de 4 folhas, para fazer a magia de sorte, para fugir sem ser visto.\"";
next;
mesn;
mes "\"Água e Coxas de Galinha para se alimentar durante o percuso e ir de clandestino no navio. "+
"Algunas poções pois nunca se sabe o que vou enfrentar e dinheiro para não andar liso. \"";
next;
mesn strcharinfo(0);
mes "\"Você planejou bem. Vou pegar os itens...\"";
QUEST_ChapeuDeMarinheiro = 1;
close;
L_pegou:
mesn;
mes "\"Você já tem o que lhe pedi?\"";
next;
mesn strcharinfo(0);
menu
"Sim, pode conferir.", L_ver,
"Vou avisar as autoridades... boa sorte na prisão.", L_Fechar;
L_ver:
// 10 Poções da Morte , 10 Poções energética, 10 Poção de Concentração, 10 Cocha de Frango, 5 potes de água
// 1 Tinta Vermelha , 1 Tinta preta , 1 Trevo de Quatro Folhas e 100.000 GP
if (
countitem(3003) < 10 || countitem(567) < 10 || countitem(568) < 10 ||
countitem(562) < 10 || countitem(541) < 5 || countitem(690) < 1 ||
countitem(696) < 1 || countitem(742) < 1 || Zeny < 100000
) goto L_Insuf;
L_Ok3:
mesn;
mes "\"Nossa , muito obrigado ! Tenho que fugir antes que os guardas me achem aqui !\"";
next;
mesn;
mes "\"Opa , quase ia me esquecendo ! Aqui está sua recompença !\"";
next;
if (
countitem(3003) < 10 && countitem(567) < 10 && countitem(568) < 10 &&
countitem(562) < 10 && countitem(541) < 5 && countitem(690) < 1 &&
countitem(696) < 1 && countitem(@Cranio) >= 1 && countitem(631) < 5 &&
countitem(742) < 1 && Zeny < 10000
) goto L_Insuf; //Lunovox: Esse teste tem que ser feito sempre pouco antes de dar ou retirar itens.
delitem 3003, 10;
delitem 567, 10;
delitem 568, 10;
delitem 562, 10;
delitem 541, 5;
delitem 690, 1;
delitem 696, 1;
delitem 742, 1;
Zeny = Zeny - 10000;
if (@inventorylist_count >= 100) goto L_Cheio;
getitem "ChapeuDeMarinheiro", 1;
QUEST_ChapeuDeMarinheiro = 4;
close;
L_Insuf:
mesn;
mes "\"Você não tem os itens que pedi. Volte quando tiver com todos!\"";
next;
mes "[PAPEL VELHO]";
mes "* 10 (Poções da Morte)";
mes "* 10 (Poções energética)";
mes "* 10 (Poção de Concentração)";
mes "* 10 (Cocha de Frango)";
mes "* 5 (potes de água)";
mes "* 1 (Tinta Vermelha)";
mes "* 1 (Tinta Preta)";
mes "* 1 (Trevo de Quatro Folhas)";
mes "CUSTO: 10.000 GP";
QUEST_ChapeuDeMarinheiro = 3;
close;
L_Insuf1:
mesn;
mes "\"Lembre-se, Eu preciso de 10 Poções da Morte, 10 Poções energética, "+
"10 Poção de Concentração, 10 Coxa de Frango, 5 potes de água, 1 Tinta Vermelha, "+
"1 Tinta preta, 1 Trevo de Quatro Folhas e 10.000 GP.\"";
mes "Conseguiu o que eu pedi?\"";
next;
menu
"Sim! Eu consegui.", L_ver,
"Não! Ainda estou procurando.", L_Fechar;
L_Cheio:
QUEST_ChapeuDeMarinheiro = 2;
mesn;
mes "\"Seu inventário está cheio! Vá se livrar de alguns itens...\"";
close;
L_Cheio1:
if (@inventorylist_count >= 100) goto L_Cheio;
mesn;
mes "\"Agora sim, obrigad" + @fm$ + "... Fui!\"";
getitem "ChapeuDeMarinheiro", 1;
QUEST_ChapeuDeMarinheiro = 4;
close;
L_Fim:
mes "[Mercador]";
mes "\"Estou por aqui... Mais já paguei pelos meus atos, agora estou de bem com tudo não preciso mais fugir...\"";
next;
mesn strcharinfo(0);
mes "\"Por que será que eu não acredito nisso...\"";
close;
L_Fechar:
close;
}
|
