Sacola_d_Dinheiro

prontera,129,214,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;
}