Jump to content
  • 0
Sign in to follow this  
coliseure

NPC Sacolas por Zenys x Zenys por Sacolas.

Question

Galera preciso que esse npc de sacolas faça o seguinte.

Atualmente ele só vende 1 sacola e só compra 1 sacola por vez. Queria que o player pudesse escolher a quantidade de sacolas que ele quer comprar ou vender.

Citar

 

prontera,130,204,5    script    Sacolas    807,{

set @np$,"[ Sacolas ]";// Nome do NPC
set @preco1,50000000;//Preco cartao1
set @preco2,25000000;//Preco cartao2
set @preco3,10000000;//Preco cartao3
set @ID1,670; //id do cartao 1 ou cartao especial gold
set @ID2,676; //id do cartao 2 ou cartao especial platina
set @ID3,672; //id do cartao 3 ou cartao especial simples

mes @np$;
mes "Olá "+strcharinfo(0)+"!";
mes "Gostaria de trocar dinheiro por Sacolas?";
menu "Sim",Sim,"Não",-;
next;
mes @np$;
mes "Ok, volte quando quiser";
close;

Sim:
next;
mes @np$;
mes "Qual Cartão você quer?";
menu "Sacola de Ouro",m1,"Sacola de Prata",m2,"Sacola de Bronze",m3,"Não quero mais",-;
next;
mes @np$;
mes "Ok, volte quando quiser";
close;

m1:
next;
mes @np$;
mes "Esta sacola custa 50.000.000 zeny";
mes "Quer mesmo ela?";
menu "Sim",-,"Não",nope;
next;
mes @np$;
mes "Quer Comprar ou Vender?";
menu "Comprar",-,"Vender",vende;
next;
mes @np$;
mes "Deixe-me verificar seu zeny";
if (Zeny < @preco1) goto nz;
next;
mes @np$;
mes "Aqui está sua sacola! Volte Sempre!";
set Zeny,Zeny-@preco1;
getitem @ID1,1;
close;

vende:
next;
mes @np$;
mes "Deixe-me ver sua Sacola";
if (countitem(@ID1) == 0)goto nomo;
next;
mes @np$;
mes "Aqui está seu Zeny!!Volte Sempre!!";
delitem @ID1,1;
set Zeny,Zeny+@preco1;
close;

nope:
next;
mes @np$;
mes "Ok, Volte quando quiser";
close;

nz:
next;
mes @np$;
mes "Você não tem zeny suficiente";
close;

nomo:
next;
mes @np$;
mes "Você não tem a Sacola";
close;

m2:
next;
mes @np$;
mes "Esta sacola custa 25.000.000 zeny";
mes "Quer mesmo ela?";
menu "Sim",-,"Não",nope;
next;
mes @np$;
mes "Quer Comprar ou Vender?";
menu "Comprar",-,"Vender",vende2;
next;
mes @np$;
mes "Deixe-me verificar seu zeny";
if (Zeny < @preco2) goto nz;
next;
mes @np$;
mes "Aqui está sua Sacola! Volte Sempre!";
set Zeny,Zeny-@preco2;
getitem @ID2,1;
close;

vende2:
next;
mes @np$;
mes "Deixe-me ver sua Sacola";
if (countitem(@ID2) == 0)goto nomo;
next;
mes @np$;
mes "Aqui está seu Zeny!!Volte Sempre!!";
delitem @ID2,1;
set Zeny,Zeny+@preco2;
close;

m3:
next;
mes @np$;
mes "Esta Sacola custa 10.000.000 zeny";
mes "Quer mesmo ela?";
menu "Sim",-,"Não",nope;
next;
mes @np$;
mes "Quer Comprar ou Vender?";
menu "Comprar",-,"Vender",vende3;
next;
mes @np$;
mes "Deixe-me verificar seu zeny";
if (Zeny < @preco3) goto nz;
next;
mes @np$;
mes "Aqui está sua sacola! Volte Sempre!";
set Zeny,Zeny-@preco3;
getitem @ID3,1;
close;

vende3:
next;
mes @np$;
mes "Deixe-me ver sua sacola";
if (countitem(@ID3) == 0)goto nomo;
next;
mes @np$;
mes "Aqui está seu Zeny!!Volte Sempre!!";
delitem @ID3,1;
set Zeny,Zeny+@preco3;
close;
}

 

 

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 1
prontera,130,204,5    script    Sacolas    807,{

set @np$,"[ Sacolas ]";// Nome do NPC
set @preco1,50000000;//Preco cartao1
set @preco2,25000000;//Preco cartao2
set @preco3,10000000;//Preco cartao3
set @ID1,670; //id do cartao 1 ou cartao especial gold
set @ID2,676; //id do cartao 2 ou cartao especial platina
set @ID3,672; //id do cartao 3 ou cartao especial simples

mes @np$;
mes "Olá "+strcharinfo(0)+"!";
mes "Gostaria de trocar dinheiro por Sacolas?";
menu "Sim",Sim,"Não",-;
next;
mes @np$;
mes "Ok, volte quando quiser";
close;

Sim:
next;
mes @np$;
mes "Qual Cartão você quer?";
menu "Sacola de Ouro",m1,"Sacola de Prata",m2,"Sacola de Bronze",m3,"Não quero mais",-;
next;
mes @np$;
mes "Ok, volte quando quiser";
close;

m1:
next;
mes @np$;
mes "Esta sacola custa 50.000.000 zeny";
mes "Quer mesmo ela?";
menu "Sim",-,"Não",nope;
next;
mes @np$;
mes "Quer Comprar ou Vender?";
menu "Comprar",-,"Vender",vende;
next;
mes @np$;
mes "Informe a quantidade que deseja comprar.";
input(.qtd);
next;
mes @np$;
mes "Deixe-me verificar seu zeny";
if (Zeny < (.qtd*@preco1)) goto nz;
next;
mes @np$;
mes "Aqui está(ão) sua(s) sacola(s)! Volte Sempre!";
set Zeny,Zeny-(.qtd*@preco1);
getitem @ID1,.qtd;
close;

vende:
next;
mes @np$;
mes "Informe a quantidade que deseja vender.";
input(.qtd);
next;
mes @np$;
mes "Deixe-me ver sua(s) Sacola(s)";
if (countitem(@ID1) < .qtd)goto nomo;
next;
mes @np$;
mes "Aqui está seu Zeny!!Volte Sempre!!";
delitem @ID1,.qtd;
set Zeny,Zeny+(.qtd*@preco1);
close;

nope:
next;
mes @np$;
mes "Ok, Volte quando quiser";
close;

nz:
next;
mes @np$;
mes "Você não tem zeny suficiente";
close;

nomo:
next;
mes @np$;
mes "Você não tem a quantidade de Sacola(s)";
close;

m2:
next;
mes @np$;
mes "Esta sacola custa 25.000.000 zeny";
mes "Quer mesmo ela?";
menu "Sim",-,"Não",nope;
next;
mes @np$;
mes "Quer Comprar ou Vender?";
menu "Comprar",-,"Vender",vende2;
next;
mes @np$;
mes "Informe a quantidade que deseja comprar.";
input(.qtd);
next;
mes @np$;
mes "Deixe-me verificar seu zeny";
if (Zeny < (.qtd*@preco2)) goto nz;
next;
mes @np$;
mes "Aqui está(ão) sua(s) sacola(s)! Volte Sempre!";
set Zeny,Zeny-(.qtd*@preco2);
getitem @ID2,.qtd;
close;

vende2:
next;
mes @np$;
mes "Informe a quantidade que deseja vender.";
input(.qtd);
next;
mes @np$;
mes "Deixe-me ver sua(s) Sacola(s)";
if (countitem(@ID2) < .qtd)goto nomo;
next;
mes @np$;
mes "Aqui está seu Zeny!!Volte Sempre!!";
delitem @ID2,.qtd;
set Zeny,Zeny+(.qtd*@preco2);
close;

m3:
next;
mes @np$;
mes "Esta Sacola custa 10.000.000 zeny";
mes "Quer mesmo ela?";
menu "Sim",-,"Não",nope;
next;
mes @np$;
mes "Quer Comprar ou Vender?";
menu "Comprar",-,"Vender",vende3;
next;
mes @np$;
mes "Informe a quantidade que deseja comprar.";
input(.qtd);
next;
mes @np$;
mes "Deixe-me verificar seu zeny";
if (Zeny < (.qtd*@preco3)) goto nz;
next;
mes @np$;
mes "Aqui está(ão) sua(s) sacola(s)! Volte Sempre!";
set Zeny,Zeny-(.qtd*@preco3);
getitem @ID3,.qtd;
close;

vende3:
next;
mes @np$;
mes "Informe a quantidade que deseja vender.";
input(.qtd);
next;
mes @np$;
mes "Deixe-me ver sua(s) Sacola(s)";
if (countitem(@ID3) < .qtd)goto nomo;
next;
mes @np$;
mes "Aqui está seu Zeny!!Volte Sempre!!";
delitem @ID3,.qtd;
set Zeny,Zeny+(.qtd*@preco3);
close;
}

Obs: Não foi testado.

Share this post


Link to post
Share on other sites
  • 0
2 horas atrás, Fou lu Yorae Dragon disse:

Obs: Não foi testado

Blz, vou testar e posto a resposta.

@edit

Ta funcionando 100%.Obrigado!

Pode fechar.

Edited by coliseure

Share this post


Link to post
Share on other sites
Este tópico já possui mais de 30 dias sem respostas. Por favor, abra um novo tópico

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Seja bem vindo ao Cronus-Emulator.
É sempre um prazer te-lo conosco.
Você pode visualizar nossas áreas de suporte para encontrar suas soluções sem a necessidade de se registrar!
Registrando em nossa comunidade, você poderá conhecer mais sobre nosso projeto, criar tópicos, responder tópicos existentes, baixar milhares de recursos em nosso sistema de downloads, participar de nossa comunidade, customizar seu perfil e muito mais... Se você já possui uma conta, faça seu login - ou crie uma conta. Também temos integração com Google+ e Facebook.

×
×
  • Create New...