viewing paste Torpedo | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
//=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=+
// 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;
}
Viewed 952 times, submitted by Envolvents.