// 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;
mes "["+ 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;
mes "["+ 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;
mes "["+ 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;
mes "["+ strcharinfo(0) +"]";
mes "\"Por que será que eu não acredito nisso...\"";
close;
L_Fechar:
close;
}
