prontera.gat,147,160,5   script   Pregonero   72,{
    mes "[Pregonero]";
    if (getcharid(1)) goto L_NParty;
    goto L_PartyL;

    L_PartyL:
    mes "[Pregonero]";
    mes "Saludos " +strcharinfo(0)+ " Que quieres de mi? " +strcharinfo(1)+ " ?";
    next;
    menu "¿Podrias anunciar mi grupo de caza?",L_Sep,"¿De que se trata tu trabajo?",L_INF,"No Gracias",L_NThx;
   
    L_NParty:
    mes "[Pregonero]";
    mes "Lo lamento, pero para realizar el anuncio necesitas ser integrante de un Grupo de Caza.";
    close;

    L_NThx:
    mes "[Pregonero]";
    mes "Espero volver a verte.";
    close;

    L_INF:
    mes "Bueno, mi trabajo consiste en";
    mes "comunicar al resto de los jugadores la";
    mes "existencia de un grupo.";
    next;
    mes "Así, si alguien desea conseguir más";
    mes "más gente para irse de casería, yo soy";
    mes "su solución.";
    next;
    mes "Me podéis indicar el sitio de";
    mes "reunión, el nivel del grupo, las";
    mes "profesiones preferidas para el";
    mes "grupo, y el lugar de caza.";
    next;
    mes "Y por todo ellos solo os cobrare";
    mes "10,000z un precio módico para";
    mes "el servicio que ofrezco";
    next;
    mes "De un pregonero..!Yo soy el ";
    mes "Así pues, si alguna vez necesitas";
    mes "Indicado!. ";
    close;

    L_Sep:
    mes "[Pregonero]";
    mes "Bien, te iré formulando una serie de preguntas,";
    mes "que deberás ir respondiendo para ";
    mes "elegir el mensaje más apropiado ha decir.";
    next;
    mes "En primer lugar...";
    mes "¿Cual es el objetivo de este grupo de caza?";
    next;
    input $pa$;
    next;
    mes "" +$pa$+ " Eso es correcto?";
    next;
    menu "Sip",-,"Nop, lo hare de nuevo",L_Sep,"No quiero enviar nada",L_NThx;

    mes "[Pregonero]";
    mes "Dime el nivel inferior de la party.";
    next;
    input @ml;
    next;
    mes "" +@ml+ "  Es Correcto?";
    next;
    mes "Y Cual sera el maximo?";
    input @mal;
    next;
    mes "" +@mal+ " Es Correcto?";
    menu "Sip",-,"Nop, lo hare de nuevo",L_Sep,"No quiero enviar nada",L_NThx;

    mes "[Pregonero]";
    mes "¿Donde se reunirá el grupo para partir?";
    mes "Recuerda que debe ser en ";
    mes "una ciudad del continente.";
    next;
    input $ds$;
    next;
    mes "" +$ds$+ " Es correcto?";
    next;
    menu "Sip",-,"Nop, lo hare de nuevo",L_Sep,"No quiero enviar nada",L_NThx;
   
    mes "[Pregonero]";
    mes "Quieres que lo envie?";
    mes "El menaje Final sera el Siguiente:";
    mes "Party a " +$pa$+ " Desde " +@ml+ Hasta " +@mal+ " Se reune en:" +$ds$+ ";
    next;
    menu "Sip",-,"Nop, lo hare de nuevo",L_Sep,"No quiero enviar nada",L_NThx;
   
    mes "[Pregonero]";
    if (Zeny < 10000) goto NeedZenys;
    set Zeny,zeny-10000;
    mes "Tan pronto como cierres esto se vera tu anuncio";
    close2;
    announce "" +strcharinfo(0)+ ": " +strcharinfo(1)+ " (Party)a" +$pa$+ " Recluta Gente Desde " +@ml+ " Hasta " +@mal+ " Se reune en: " +$ds$+ "";
    end;
   
    NeedZenys:
   mes "Lo siento, usted no tiene suficientes Zeny's";
   close;
}

mes "Party a " +$pa$+ " Desde " +@ml+"  Hasta " +@mal+ " Se reune en:" +$ds$+ ";