prontera,150,150,5	script	Sistema de Pet	66,{


	// # Configurações do Sistema
	// ==========================

		setarray .@babyPet$,
							"Bebê Dragão", "Bebê Dinossauro", "Bebê Urso", // # Nome para Versão Bebê
							"Bebê Leão", "Bebê Águia", "Bebê Cachorro";

		setarray .@adultPet$,
							"Dragão", "Dinossauro", "Urso", // # Nome para Versão Adulta
							"Leão", "Águia", "Cachorro";

		setarray .@petPrice,
							500000, 1000000, 380000, // # Preços [ 0 = Não Cobra ]
							420000, 220000, 2000000;

		set .@priceCoin, 1; // # Tipo de Pagamento ( 0 = Cash | 1 = Zeny )
							 // Essa opção pode ser desativada botando 0 nos preços acima.

	// ==========================

	mes set(@n$, "[Sistema de Pet]");
	mes "Como posso ajudá-lo ?";
	next;
	switch(select("- Meu Pet.:- Mais Informações.:- Comprar Pet.:")){

		case 1:
			if( #PetStatus == 0 )
			{
				mesc "Você não possui um pet. Compre um.";
			}
			else
			{
				mes @n$;
				mes "O que deseja fazer com seu pet ?";
				next;
				CallMenu:
				mes @n$;
				switch(select("- Status.:- Alimentar.:- Dar Água.:- Sair")){

					case 1:
						mes "Vida: " + (.@Status < 5 ? "^FF0000"+.@Status+"^000000":.@Status) +"/10";
						mes "Fome: " + (.@Fome < 5 ? "^FF0000"+.@Fome+"^000000":.@Fome) +"/10";
						mes "Sede: " + (.@Sede < 5 ? "^FF0000"+.@Sede+"^000000":.@Sede) +"/10";
						mes "Sede: " + (.@Sede < 5 ? "^FF0000"+.@Sede+"^000000":.@Sede) +"/10";
						mes "Lealdade: " + (.@Lealdade < 5 ? "^FF0000"+.@Lealdade+"^000000":.@Lealdade) +"/10";
						mes "======================";
						mes "O que deseja fazer ?";
						next;
						if( Select("- Menu Anterior.:- Sair.") == 2 )
							close;
						callsub "CallMenu";

					case 2:
						// Dar Comida

					case 3:
						// Dar Água

				}
			}

		case 2:
			mes @n$;
			mes "O sistema de pet\'s foi desenvolvido por";
			mes "Dr3aming, ele nada mais é do que um sistema"
			mes "onde você deve cuidar de seu pet, alimentando-o";
			mes "e dando água a ele todos os dias para que sua";
			mes "lealdade fique sempre no topo";
			next;
			mes @n$;
			mes "Toda semana, os pet\'s que tiverem 10 de lealdade";
			mes "ou seja, a cada 7 dias é feita uma verificação, os";
			mes "pet's que tiverem 7 dias com nota 10 em lealdade";
			mes "subirão de level, e no nível 30 deixarão";
			mes "de ser bebês e passarão a serem adultos.";
			close;
			// Informações

		case 3:
			mes @n$;
			mes "Olá "+strcharinfo(0)+".";
			mes "Deseja comprar um belo pet ?";
			next;
			if( Select("- Sim.:- Não.") == 2)
				mesc "Volte quando quiser.";
			if( #PetStatus )
				mesc "Você já possui um pet !";

			mes @n$;
			mes "Qual Pet deseja comprar ?";
			next;
			set @Menu$,"";
			for( set .@j,1; .@j < getarraysize( .@babyPet$ ); set .@j,.@j+1 )
				set @Menu$,@Menu$ + .@babyPet$[.@j]+":";
			set .@j, Select( @Menu$ );
			mes @n$;
			mes "^FF0000Pet a ser comprado:^000000 "+ .@babyPet$[.@j];
			mes "^FF0000Preço:^000000 "+ .@petPrice[.@j];
			mes "^FF0000Seu "+ (.@priceCoin == 0 ? "Cash: "+ #CASHPOINTS:"Zeny: "+ zeny);
			mes "======================";
			mes "Deseja realmente efetuar essa compra ?";
			next;
			if( Select("- Sim, desejo.:- Não.") == 2 )
				mesc "Volte quando quiser então.";
			if((.@priceCoin == 0 ? #CASHPOINTS:zeny) < .@petPrice[.@j])
				mesc "Você não possui dinheiro sufisciente !";
			mes @n$;
			mes "Escolha um nome para seu pet.";
			next;
			ChooseName:
			input .@petName$;
			mes @n$;
			mes "O nome de seu pet será: "+.@petName$;
			mes "Tem certeza disso e de que irá comprar esse pet ?";
			next;
			if( Select("- Sim, tenho.:- Quero escolher outro nome.:- Não, sair.") == 3)
				mesc "Volte quando quiser.":
			else if(@menu == 2)
				callsub "ChooseName";
			else
			mes @n$;
			mes "Compra efetuada com sucesso !";
			mes "Tenha um bom proveito com seu novo pet !";
			query_sql "INSERT INTO `petsystem` (`account_id`,`pet_name`,`pet_type`) VALUES ('"+getcharid(3)+"', '"+.@petName$+"', '"+.@babyPet[.@j]+"'"); //Falta nome e type
			close;

			// Atualizar Pet

	}

	function	mesc	{

		mes @n$;
		mes getarg(0);
		close;

	}


}