//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Npc criado por Thiago
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Nome do Npc Torpedo
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Versão atual 1.0
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Npc criado em 04/11/2013
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Compatível com A porra toda
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// Correções em variaveis por [Wellington Ferraz]
// Diálogos adicionais por [Wellington Ferraz]
// if (class) por [Wellington Ferraz]
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
prontera,147,163,5	script	Torpedo	952,{
	
	set .title$,"[Torpedo]";
	set $valor,20000;

	// Mensagem para jogadores que não possuem VIP
	if (getgmlevel() == 0) {
	mes .title$;
	mes "Desculpe, mas você precisa ser vip";
	mes "para mandar um torpedo.";
	close;
}
	if(class == 5 && 10 && 18 && 4006 && 4011 && 4019 && 4058 && 4071) {
	if ( myben == 0 ) set quan, 15;	set myben, 1;

	if ( gettime (3) == 00 ) {
	if ( quan == 0 ) set quan, 15;} 
	
	if ( quan == 0 ) {
	mes .title$;
	mes "Você não pode mais envia torpedos hoje, volte amanhã!";
	close;
}
		mes .title$;
    	mes "Olá, gostaria de fazer um anúncio";
		mes "comercial pro server?";
		mes " ";
    	mes "Custa apenas "+$valor+"";
    	mes " ";
		mes "Você ainda pode mandar "+quan+" Torpedos";
    	next;
	
	set .@menu, select ( "Anúncios Diversos","Quero anúnciar uma compra","Quero anúnciar uma venda","Quero anúnciar uma troca","Cancelar");

	if (.@menu == 1) {
	mes .title$;
	mes "Escreva o anúncio.";
	next;
	input @mensagem$;
	if ( Zeny < $valor ) {
		
		mes .title$;
		mes "Você não possui zeny suficiente para enviar este torpedo.";
		close;
		}
		set Zeny, Zeny - $valor;
		set quan, quan -1;
		announce "[Torpedo] "+strcharinfo(0)+" :: "+@mensagem$+"",bc_blue;
		mes .title$;
		mes "Seu torpedo foi enviado.";
		close; 
}

	if (.@menu == 2) {
	mes .title$;
	mes "O que deseja comprar?";
	next;
	input @mensagem1$;
	if ( Zeny < $valor ) {
		
		mes .title$;
		mes "Você não possui zeny suficiente para enviar este torpedo.";
		close;
		}
		set Zeny, Zeny - $valor;
		set quan, quan -1;
		announce "[Torpedo] "+strcharinfo(0)+" quer comprar ["+@mensagem1$+"] MANDE PM!",bc_blue;
		mes .title$;
		mes "Seu torpedo foi enviado.";
		close; 
}
	if (.@menu == 3) {
	mes .title$;
	mes "O que deseja vender?";
	next;
	input @mensagem2$;
	if ( Zeny < $valor ) {
		
		mes .title$;
		mes "Você não possui zeny suficiente para enviar este torpedo.";
		close;
		}
		set Zeny, Zeny - $valor;
		set quan, quan -1;
		announce "[Torpedo] "+strcharinfo(0)+" quer vender ["+@mensagem2$+"] MANDE PM!",bc_blue;
		mes .title$;
		mes "Seu torpedo foi enviado.";
		close; 	
}
	if (.@menu == 4) {
	mes .title$;
	mes "O que deseja trocar?";
	next;
	input @mensagem3$;
	next;
	mes .title$;
	mes "Deseja trocar por?";
	input @mensagem4$;
	if ( Zeny < $valor ) {
		
		mes .title$;
		mes "Você não possui zeny suficiente para enviar este torpedo.";
		close;
		}
		set Zeny, Zeny - $valor;
		set quan, quan -1;
		announce "[Torpedo] "+strcharinfo(0)+" quer trocar ["+@mensagem3$+"] por ["+@mensagem4$+"] MANDE PM!",bc_blue;
		next;
		mes .title$;
		mes "Seu torpedo foi enviado.";
		close; 					
}
	if (.@menu == 5) {
	mes .title$;
	mes "Ok, volte quando quiser!";
	close;
   }
}

	// Mensagem para jogadores que não possuem a classe requerida.
	mes .title$;
	mes "Desculpe, mas você precisa ser";
	mes "mercador para mandar torpedo.";
	close;
	
OnAgitStart:
hideonnpc "Torpedo"; end;

OnAgitEnd:
hideoffnpc "Torpedo"; end;
OnInit:
waitingroom "Mande um Torpedo",0; end;
}