//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// 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;
}