KOE Tea ritual system

🇫🇷 Français
Système de rituel du thé pour chasser les mauvais esprits dans le jeu.

🇬🇧 English
Tea ritual system for warding off evil spirits in the game.

🇪🇸 Español
Sistema de ritual del té para ahuyentar a los malos espíritus en el juego.

//Zona de meditación: ceremonia del té by Puck

amatsu.gat,43,114,4    script    Cartel de la Teteria::Carte02    837,{

    mes "[Cartel]";

    mes "Bienvenido a Sukilla.";

    mes "Esta es la teteria principal del Templo.";

    close;

}

amatsu.gat,249,165,4    script    Cartel de Sake::Carte03    837,{

    mes "[Cartel]";

    mes "Bienvenido a Nihonshu.";

    mes "Esta es la sala de fabricación de Sake.";

    mes "El mejor licor Oriental.";

    close;

}

ama_in01.gat,22,180,4    script    Tetera::tetera01    111,{

    callfunc "F_HayAlguien";

    if(Vampiro==2) {npctalk "En esa forma, poco vas a poder hacer."; end;}

    if(islobo(getcharid(0))) {npctalk "Con esas garras no logras hacer nada."; end;}

    if(getcharid(2) == 10024 && gposition(0) == 0)

        menu "ir al vendedor",VENTA,"Cambiar estado del Vendedor",CAMBIAESTADO;

    else

        goto VENTA;

    

    CAMBIAESTADO:

        if($Mushishi03 == 1) {

            mes "¿Quereis volver a abrir el vendedor?"; 

            menu "Si",-,"No",SALIR;

            mes "De acuerdo, volvemos a abrir al publico";

            set $Mushishi03,0;

        } else {

            mes "¿Quereis cerrar el vendedor?"; 

            menu "Si",-,"No",SALIR;

            mes "De acuerdo, estamos cerrados al publico";

            set $Mushishi03,0;

        }

        close;

    

    VENTA:

        if($Mushishi03 == 1) {

            mes "Lo siento, estamos cerrados";

            close2; cutin "",255; end;

        }

        mes "Bienvenido a Sukilla, la casa del té";

        mes "¿queréis proceder con la ceremonia?";

        set .@meditate, 0;

        next;

        menu "Si",-,"¿Que necesito?",NECESITO,"No",FIN;

    PRINCIPIO:      

        mes "Sirve los ingredientes según creas que correspondan.";

        if(countitem(7323) < 1) {

            pctalk "¡¡¡Se me ha olvidado la tetera!!!";

            mes "Se te ha olvidado traer la tetera";

            mes "Trae una para poder empezar";

            close;

        }

        set @accion,select("Tocar el gong","Echar el agua","Calentar el agua","Calentar la tetera","Añadir el té","Remover el té","Servir el té","Parar");

        if(@accion==1) {

            pctalk "Haces sonar un gong";

            soundeffect "se_btg_forward.wav",0;

            if(.@meditate != 0 && .@meditate != 5) goto FRACASA;

        } else if(@accion==2) {

            if(countitem(523) < 1) goto NOAGUA;

            delitem 523,1;    

            pctalk "Sirvo el agua de los ancestros.";

            misceffect 244;

            if(.@meditate != 1 && .@meditate != 6) goto FRACASA2;

        } else if(@accion==3) {

            pctalk "Caliento el agua.";

            misceffect 44;

            if(.@meditate != 2) goto FRACASA;

        } else if(@accion==4) {

            pctalk "Ahora caliento la tetera.";

            misceffect 25;

            if(.@meditate != 8) goto FRACASA;

        } else if(@accion==5) {

            if(countitem(7194) < 1) goto NOTE;

            delitem 7194,1;    

            pctalk "Añado el té.";

            misceffect 573;

            npctalk "Las hojas se arremolinan en el agua...";

            if(.@meditate != 3 && .@meditate != 7) goto FRACASA3;

        } else if(@accion==6) {

            pctalk "Remuevo un poco el té.";

            npctalk "Las hojas tiñen el agua...";

            misceffect 71;

            if(.@meditate != 4) goto FRACASA;

            if(getcharid(2) == 10024) {

                set @terrefine,select("No echar especias (Té Rojo)","Echar Zumo de Uva","Echar Mastela","Echar Miel")-1;

                if(@terrefine==1) {

                    if(countitem(533) < 3) goto NOTE2;

                    delitem 533,3;

                    pctalk "Añado zumo de uvas al té.";

                } else if(@terrefine==2) {

                    if(countitem(522) < 3) goto NOTE2;

                    delitem 522,3;

                    pctalk "Añado mastelas al té.";

                } else if(@terrefine==3) {

                    if(countitem(518) < 3) goto NOTE2;

                    delitem 518,3;

                    pctalk "Añado miel al té.";

                }

            }

        } else if(@accion==7) {

            pctalk "Unifico mi alma y mi cuerpo en esta ceremonia.";

            misceffect 163;

            if(.@meditate != 9) goto FRACASA;

        } else if(@accion==8) {

            goto FIN;

        }

        goto PUNTUA;

        

    FRACASA:

        mes "Te has desconcentrado, vuelve a comenzar";

        misceffect 194;

        set .@meditate, 0;

        close;

    FRACASA2:

        mes "Te has desconcentrado y has malgastado algo de agua, vuelve a comenzar";

        misceffect 194;

        set .@meditate, 0;

        delitem 523,1;

        close;

    FRACASA3:

        mes "Te has desconcentrado y has malgastado algo de té, vuelve a comenzar";

        misceffect 194;

        set .@meditate, 0;

        delitem 7194,1;    

        close;

    ULTIMO:

        set .@meditate, 0;

        pctalk "Usucha...";

        mes "[Ancestros]";

        mes "Has logrado terminar el rito del té, los ancestros están contentos.";

        close2;

        if(@terrefine == 0) getitem 14555,1;

        if(@terrefine == 1) { getitem 14554 ,1; set @terrefine,0; } //UVA

        if(@terrefine == 2) { getitem 14556,1; set @terrefine,0; } //MIEL

        if(@terrefine == 3) { getitem 14576,1; set @terrefine,0; } //MASTELA

        if(getskilllv(598) <5) set SK_FILOSOFIA,SK_FILOSOFIA+10;

        if(getskilllv(566) < 5) set SK_OCULTISMO,SK_OCULTISMO+10;

        if(Raza==RZ_ORC) {if(rand(10)==1) if(Razon + 1 < 200) set Razon,Razon + 1; else set Razon,200;}

        if(getcharid(2) != 10024) goto NOTEMPLO;

        set @tiempominimo2,1200;

        if((gettimetick(2)-hizote)<@tiempominimo2) {

            set @tiempoquequeda2,@tiempominimo2-(gettimetick(2)-hizote);

            if(@tiempoquequeda2>3600) 

                 message strcharinfo(0),"No puedes ganar puntos de ki. Aún te quedan "+@tiempoquequeda2/3600+" horas para poder ganar puntos de ki. El tiempo que debe pasar entre ganancias de puntos es de "+(@tiempominimo2/60)+" minutos.";

           else if(@tiempoquequeda2>60) 

                message strcharinfo(0),"No puedes ganar puntos de ki. Aún te quedan "+@tiempoquequeda2/60+" minutos para poder ganar puntos de ki. El tiempo que debe pasar entre ganancias de puntos es de "+(@tiempominimo2/60)+" minutos.";

           else 

            message strcharinfo(0),"No puedes ganar puntos de ki. Aún te quedan "+@tiempoquequeda2+" segundos para poder ganar puntos de ki. El tiempo que debe pasar entre ganancias de puntos es de "+@tiempominimo2/60+" minutos."; end;}

        set hizote,gettimetick(2);

            callfunc "PuntosMaxKi";

            set .@gasto,maximoKi/10;

            if(puntosKi+.@gasto>maximoKi) set puntosKi,maximoKi;

            else set puntosKi,puntosKi+.@gasto;

        message strcharinfo(0),"Ganas 10% de ki, obtienes "+.@gasto+" puntos de Ki.";

        set .@maxfraccion,40;

        if(fraccionKi+1>.@maxfraccion) { set extraKi,extraKi+1; set fraccionKi,0; callfunc "PuntosMaxKi"; message strcharinfo(0),"Tu honor ha aumentado en un punto. Tu ki  máximo es ahora de: "+maximoKi+" puntos de Ki."; }

        else set fraccionKi, fraccionKi+1;

        end;

    NOTEMPLO:

        mes "[Ancestros]";

        mes "Podéis ir en paz.";

        pctalk "arigato gozaimasu";

        close;

        

    NOAGUA:

        mes "No has traído agua";

        mes "Debéis traer un poco de agua para no quemar el té";

        close2;

        set .@meditate, 0;

        pctalk "¡¡¡Se me ha olvidado traer el agua!!!";

        end;

        

    NOTE:

        mes "No has traído hojas de té...";

        mes "Que le vas a echar al agua, ¿tus ganas?";

        mes "Ves a traer té.";

        close2;

        set .@meditate, 0;

        pctalk "¡¡¡Se me ha olvidado traer hojas para el té!!!";

        end;

        

    NOTE2:

        mes "Parece que no has traído ingredientes extra.";

        mes "Puedes continuar el té, o puedes dejarlo así.";

        mes "¿Quieres continuar?";

        menu "Si",-,"No",FIN;

        mes "Muy bien, pues, prosigamos.";

        next;

        goto PUNTUA;

        

    PUNTUA:

        if(.@meditate == 9) goto ULTIMO;

        set .@meditate, .@meditate + 1;

        goto PRINCIPIO;

    NECESITO:

        mes "Abres las instrucciones del a ceremonia del té.";

        next;

        mes "Necesitaras los siguientes ingredientes:";

        mes "-Una tetera";

        mes "-Un recipiente con agua sagrada";

        mes "-Unas pocas hojas de té";

        mes "-Estar en paz y armonía contigo mismo.";

        next;

        mes "Cuando tengas todo eso, podrás comenzar la ceremonia del té.";

        mes "Ademas, si eres del templo, puedes añadir especias a tu té.";

        mes "Aunque hay que echar buena cantidad de ella, así que se generoso.";

        next;

        mes "puedes añadir lo siguiente:";

        mes "-Uvas";

        mes "-Miel";

        mes "-Mastelas";

        next;

        mes "El rito de la ceremonia son 10 pasos...";

        mes "Eso os lo tendrá que enseñar vuestro maestro o averiguarlo.";

        mes "Sayonara";

        close;

    FIN:

        mes "Dejas la tetera en su sitio";

        close;

}

que_ng.gat,32,68,0    duplicate(tetera01)    Tetera::tetera02    111

btem_rec.gat,32,68,0    duplicate(tetera01)    Tetera::tetera03    111

btem_rec.gat,112,70,0    duplicate(tetera01)    Tetera::tetera04    111

//Zona de meditación: Producción de Sake

ama_in01.gat,85,182,4    script    Cocina::Sake01    111,{

    callfunc "F_HayAlguien";

    if(Vampiro==2) {npctalk "En esa forma, poco vas a poder hacer."; end;}

    if(islobo(getcharid(0))) {npctalk "Con esas garras no logras hacer nada."; end;}

    if(getcharid(2) == 10024 && gposition(0) == 0) {

        if(select("Seguir al vendedor","Cambiar estado de la cocina")==2) {

            if($Mushishi02 == 1) {

                mes "¿Quereis volver a abrir la cocina?"; 

                if(select("Sí","No")==1) {

                    mes "De acuerdo, volvemos a abrir al publico";

                    set $Mushishi02,0;

                    close;

                }

            } else if($Mushishi02 == 0) {

                mes "¿Quereis cerrar la cocina?"; 

                if(select("Sí","No")==1) {

                    mes "De acuerdo, estamos cerrados al publico";

                    set $Mushishi02,1;

                    close;

                }

            }

        }

    }

    if($Mushishi02 == 1) {

        mes "Lo siento, estamos cerrados";

        close2; cutin "",255; end;

    }

    mes "Bienvenido a Nihonshu, la casa del Sake";

    mes "¿Queréis proceder con la ceremonia?";

    set .@meditasake, 0;

    next;

    menu "Sí",-,"¿Qué necesito?",NECESITO,"No",FIN;

    PRINCIPIO:

        mes "Sirve los ingredientes según creas que correspondan.";

        if(countitem(12129) < 1) {

            pctalk "¡¡¡Se me ha olvidado el set de Cocina!!!";

            mes "Se te ha olvidado traer los instrumentos para cocinar.";

            mes "Tráelos para poder empezar.";

            close;

        }

        if(.@meditasake>=4) {

            set @accion,select("Tocar el gong","Echar el agua","Calentar el agua","Echar el arroz","Enfriar el arroz","Remover el arroz","Fermentar el arroz","Colar el arroz","Filtrar mezcla","Parar");

            if(@accion==10) goto FIN;

        } else {

            set @accion,select("Tocar el gong","Echar el agua","Calentar el agua","Echar el arroz","Enfriar el arroz","Remover el arroz","Fermentar el arroz","Colar el arroz","Parar");

            if(@accion==9) goto FIN;

        }

        if(@accion==1) {

            pctalk "Haces sonar un gong";

            soundeffect "se_btg_forward.wav",0;

            if(.@meditasake != 0 && .@meditasake != 5) goto FRACASA;

        } else if(@accion==2) {

            if(countitem(523) < 3) goto NOAGUA;

            delitem 523,3;

            npctalk "Sirves el agua de los ancestros.";

            misceffect 109;

            if(.@meditasake != 1) goto FRACASA2;

        } else if(@accion==3) {

            npctalk "Calientas el agua.";

            misceffect 44;

            if(.@meditasake != 2) goto FRACASA;

        } else if(@accion==4) {

            if(countitem(7303) < 2) goto NOTE;

            delitem 7303,2;

            npctalk "Añades un par de sacos de arroz.";

            misceffect 244;

            if(.@meditasake != 3) goto FRACASA3;

        } else if(@accion==5) {

            npctalk "Ahora dejas enfriar el arroz.";

            misceffect 238;

            if(.@meditasake != 6) goto FRACASA;

        } else if(@accion==6) {

            npctalk "Remueves un poco el arroz.";

            misceffect 71;

            if(.@meditasake != 4) goto FRACASA;

        } else if(@accion==7) {

            npctalk "Dejas fermentar el arroz.";

            misceffect 581;

            if(.@meditasake != 7) goto FRACASA;

        } else if(@accion==8) {

            npctalk "Cuelas el arroz.";

            misceffect 665;

            if(.@meditasake != 8) goto FRACASA;

        } else if(@accion==9) {

            pctalk "Unifico mi alma y mi cuerpo, en esta ceremonia.";

            misceffect 163;

            if(.@meditasake != 9) goto FRACASA;

        }

        goto PUNTUA;

    FRACASA:

        mes "Te has desconcentrado, vuelve a comenzar";

        misceffect 194;

        set .@meditasake, 0;

        close;

    FRACASA2:

        mes "Te has desconcentrado y has malgastado algo de agua ancestral, vuelve a comenzar";

        misceffect 194;

        set .@meditasake, 0;

        delitem 523,1;

        close;

    FRACASA3:

        mes "Te has desconcentrado y has malgastado algo de arroz, vuelve a comenzar";

        misceffect 194;

        set .@meditasake, 0;

        delitem 7303,1;

        close;

    ULTIMO:

        set .@meditasake, 0;

        pctalk "Usucha...";

        mes "[Ancestros]";

        mes "Has logrado terminar el rito del sake, los ancestros están contentos.";

        close2;

        //getitem "ama_in01.gat",7761,1;

        getitem 7761,1;

        if(rand(1,33)==33) { getitem 13530,1; pctalk "OH! eh obtenido Sake de Kouki"; }

        if(getskilllv(598)>0 && getskilllv(598)<5)set SK_FILOSOFIA,SK_FILOSOFIA+2;

        if(Raza==RZ_ORC) {if(rand(10)==1) if(Razon + 1 < 200) set Razon,Razon + 1; else set Razon,200;}

            if(getcharid(2) != 10024) goto NOTEMPLO;

        addresources 7761, 1;

        message strcharinfo(0),"Se ha producido 1 unidad de Sake para su venta";

        set @tiempominimo3,1800;

        if((gettimetick(2)-hizosake)<@tiempominimo3) {

            set @tiempoquequeda3,@tiempominimo3-(gettimetick(2)-hizosake);

            if(@tiempoquequeda3>3600) 

                 message strcharinfo(0),"No puedes ganar puntos de ki. Aún te quedan "+@tiempoquequeda3/3600+" horas para poder ganar puntos de ki. El tiempo que debe pasar entre ganancias de puntos es de "+(@tiempominimo3/60)+" minutos.";

           else if(@tiempoquequeda3>60) 

                message strcharinfo(0),"No puedes ganar puntos de ki. Aún te quedan "+@tiempoquequeda3/60+" minutos para poder ganar puntos de ki. El tiempo que debe pasar entre ganancias de puntos es de "+(@tiempominimo3/60)+" minutos.";

           else 

            message strcharinfo(0),"No puedes ganar puntos de ki. Aún te quedan "+@tiempoquequeda3+" segundos para poder ganar puntos de ki. El tiempo que debe pasar entre ganancias de puntos es de "+@tiempominimo3/60+" minutos."; end;}

        set hizosake,gettimetick(2);

            callfunc "PuntosMaxKi";

            set .@gasto,maximoKi/20;

            if(puntosKi+.@gasto>maximoKi) set puntosKi,maximoKi;

            else set puntosKi,puntosKi+.@gasto;

        message strcharinfo(0),"Ganas 10% de ki, obtienes "+.@gasto+" puntos de Ki.";

        set .@maxfraccion,40;

        if(fraccionKi+1>.@maxfraccion) { set extraKi,extraKi+1; set fraccionKi,0; callfunc "PuntosMaxKi"; message strcharinfo(0),"Tu honor ha aumentado en un punto. Tu ki  máximo es ahora de: "+maximoKi+" puntos de Ki."; }

        else set fraccionKi, fraccionKi+1;

        end;

    NOTEMPLO:

        mes "[Ancestros]";

        mes "Podéis ir en paz.";

        pctalk "arigato gozaimasu";

        close;

    NOAGUA:

        mes "No has traído agua";

        mes "Debéis traer un poco de agua para no quemar el arroz";

        close2;

        set .@meditasake, 0;

        pctalk "¡¡¡Se me ha olvidado traer el agua!!!";

        end;

    NOTE:

        mes "No has traído arroz...";

        mes "Que le vas a echar al agua, ¿tus ganas?";

        mes "Ves a traer algo de arroz para comenzar.";

        close2;

        set .@meditasake, 0;

        pctalk "¡¡¡Se me ha olvidado traer el saco de arroz!!!";

        end;

    

    PUNTUA:

        if(.@meditasake == 9) goto ULTIMO;

        set .@meditasake, .@meditasake + 1;

        goto PRINCIPIO;

    NECESITO:

        mes "Abres las instrucciones de la ceremonia del sake.";

        next;

        mes "Necesitaras los siguientes ingredientes:";

        mes "-Un set de cocina legendaria";

        mes "-Un recipiente con agua sagrada";

        mes "-Un par de sacos de arroz";

        mes "-Estar en paz y armonía contigo mismo.";

        next;

        mes "Cuando tengas todo eso, podrás comenzar la ceremonia del té.";

        next;

        mes "El rito de preparar sake son 10 pasos...";

        mes "Eso os lo tendrá que enseñar vuestro maestro o averiguarlo.";

        mes "Sayonara";

        close;

    FIN:

        mes "Dejas los instrumentos para cocinar en su sitio";

        close;

}

ama_dun02.gat,117,92,6    script    Monje Corrupto::MonjeCo01    455,{

    mes "(Ves un pobre hombre, le falta un ojo y su piel parece enfermiza.)";

    next;

    mes "[Monje]";

    mes "¿Que hacéis en los dominios de los ancestros? este sitio es peligroso.";

    mes "¿Queréis algo?";

    next;

    menu "Sí",PREGUNTA,"No",FIN;

    

    PREGUNTA:    

        menu "Buscaba el antiguo Palacio",MONJE1,

            "¿Quien sois?",MONJE2,

            "¿Que hacéis aquí?",MONJE3,

            "¿Adonde lleva ese puente roto?",MONJE4,

            "¿Que era el antiguo templo?",MONJE5,

            "¿Que son los Mushi?",MONJE6,

            "¿Podéis ayudarme a cruzar el puente?",MONJE7,

            "No quiero nada, gracias.",FIN;

    MONJE1:

        mes "[Monje]";

        mes "El antiguo palacio lo encontrareis más adelante...";

        mes "Seguid el camino de la derecha, junto a la estatua de Susanowo.";

        next;

        mes "[Monje]";

        mes "¿Queréis algo más?";

        next;

        menu "Sí",PREGUNTA,"No",FIN;

    MONJE2:

        mes "[Monje]";

        mes "Soy el monje de un templo ya olvidado, había sido bendecido por los ancestros con una vida eterna y una salud de hierro";

        mes "Un día un viejo Emperador de Amatsu intento robar mi alma para rejuvenecerse.";

        mes "Noche tras noche, enviaba pequeños Mushis a ir robándome mi esencia lentamente mientras dormía. ";

        next;

        mes "[Monje]";

        mes "Sin embargo, un pequeño zorro con el que compartí mis mantas y mi comida, se apiado de mí, pues yo no sabia que sucedía.";

        mes "Esa noche, el pequeño zorro sacrifico su vida a los Mushi para que me dejaran en paz. ";

        next;

        mes "[Monje]";

        mes "Sin embargo el viejo Emperador forzó a los Mushis a volver a atacarme. ";

        mes "Pero el alma del pequeño zorro seguía a mi lado, protegiéndome, y comenzó una feroz batalla.";

        next;

        mes "[Monje]";

        mes "Lo que el Emperador no sabia, era que el Templo había sido construido encima de un antiguo Kofun de Ancestros.";

        mes "Al romper el sello, los mushis más antiguos escaparon a través del Sello Tumulario, y atacaron toda la zona.";

        next;

        mes "[Monje]";

        mes "Desde entonces, los alrededores están repletos de criaturas poseídas por los antiguos Mushi.";

        mes "El templo fue sellado, y el palacio esta completamente devastado.";

        next;

        mes "[Monje]";

        mes "¿Queréis algo más?";

        next;

        menu "Sí",PREGUNTA,"No",FIN;

    MONJE3:

        mes "[Monje]";

        mes "Cuando los Ancestros surgieron del sello, uno entro a través de mis ojos y oidos.";

        mes "Infectaron mi alma, y corrompieron mi cuerpo.";

        next;

        mes "[Monje]";

        mes "Los Ancestros de esta zona se alimentan de los bosques de Bambú, así que si quiero seguir vivo, he de mantenerme en estos bosques.";

        mes "Fui bendecido por ellos con un cuerpo eterno y una salud de hierro, pero ahora se ha convertido en una maldición...";

        next;

        mes "[Monje]";

        mes "¿Queréis algo más?";

        next;

        menu "Sí",PREGUNTA,"No",FIN;

            

    MONJE4:

        mes "[Monje]";

        mes "Antaño, ese puente llevaba a mi antiguo templo, allí vivía en soledad con un Zorro, rezando a los Ancestros que moran en estas tierras...";

        next;

        mes "[Monje]";

        mes "Ahora si consigues bajar, te llevara al sello del Kofun, por donde los Mushi escapan a veces.";

        mes "Os recomiendo encarecidamente que no vayáis.";

        next;

        mes "[Monje]";

        mes "¿Queréis algo más?";

        next;

        menu "Sí",PREGUNTA,"No",FIN;

    

    MONJE5:

        mes "[Monje]";

        mes "El templo antiguamente era una gran casa de adoración y veneración, diferentes espíritus moran este mundo, y en ellos te enseñaban a adorar las energias que mueven este mundo.";

        next;

        mes "[Monje]";

        mes "Sin embargo, cuando llegaron sistemas de navegación más potentes, la gente comenzó a migrar a otras provincias.";

        mes "Llegaron nuevos dogmas y religiones y la gente comenzó a olvidarse de nuestra filosofía de vida.";

        next; 

        mes "[Monje]";

        mes "Con el tiempo solo quede yo, y el templo quedo totalmente abandonado...";

        mes "Ahora solo quedan los pedazos de madera que aquí veis, y un portal que solo traeria desgracias si no lo vigilase.";

        next;

        mes "[Monje]";

        mes "¿Queréis algo más?";

        next;

        menu "Sí",PREGUNTA,"No",FIN;

    

    MONJE6:

        mes "[Monje]";

        mes "Ancestros, espíritus, o animales hechos de energía o Ki.";

        mes "Algunos no se pueden ver, otros se ven tanto que pasan desapercibidos completamente.";

        next;

        mes "[Monje]";

        mes "Los hay grandes, pequeños, y de todos los colores.";

        mes "los más antiguos pueden ser almas olvidadas de grandes reyes o sabios a los cuales se les considera Ancestros.";

        next;

        mes "[Monje]";

        mes "La gran mayoría no son ni buenos ni malos, aunque el Ki puede fluir en ambas direcciones, no sienten de la misma forma que tu o yo.";

        mes "Algunos temen a la luz, otros al incienso, otros se alimentaran de tu alma, o de otros Mushi...";

        next;

        mes "[Monje]";

        mes "Si me preguntas si son peligrosos, os diré que como cualquiera de nosotros.";

        mes "Hay algunos que os ayudan, os sanan y hay otros que pueden traer enfermedades, desgracias, incluso eclipses de sol.";

        next;

        mes "[Monje]";

        mes "Ahora mismo estoy poseído por uno, llamado Tokoyami... una criatura de oscuridad pura, dejarlo escapar de mi interior, seria una catástrofe para el mundo entero.";

        mes "Pero yo estoy bien, que nadie se alarme, otros Mushi me protegen y me cuidan, soy el guardián de este bosque.";

        next;

        mes "[Monje]";

        mes "¿Queréis algo más?";

        next;

        menu "Si",PREGUNTA,"No",FIN;

            

            

    MONJE7:

        mes "[Monje]";

        mes "Os puedo ayudar a bajar por el sendero, hasta el sello, pero debéis tener mucho cuidado.";

        mes "¿Estáis seguro de lo que pedís?.";

        next;

        menu "Si",VAMOS,"No",FIN;

    VAMOS:

        mes "(El monje te levanta con unas enredaderas que surgen del suelo y te desplazan hasta la parte segura más aya del puente...";

        next;

        warp "job3_rang01.gat",83,41;

        close;

    FIN:

        mes "[Monje]";

        mes "Entonces es mejor que os alejéis de aquí lo antes posible.";

        next;

        mes "(Te alejas lentamente del sitio, todavía sientes un pequeño escalofrió al notar el ojo sano del monje posado sobre ti.)";

        close;

}

job3_rang01.gat,38,39,4    script    Espiritu Ancestral::EspAnces01    471,{

    mes "[Ancestro]";

    mes "Soy Takuyomi, una fuerza de la naturaleza.";

    next;

    mes "Soy la energía que se alimenta de las almas y los recuerdos.";

    mes "Soy las emociones vividas, los amores perdidos, los odios crecientes...";

    mes "Las emociones negativas me alimentan.";

    next;

    mes "Soy la gran fuerza que un día se desatara en Rune de nuevo.";

    mes "Solo el tiempo me devolverá la fuerza que necesito.";

    set .@Mushi,rand(3);

    if (.@Mushi==0) goto RAZA1;

    if (.@Mushi==1) goto RAZA2;

    if (.@Mushi==2) goto RAZA3;

    close;

    RAZA1:

        mes "[Ancestro]";

        mes "Voy a robar tu cuerpo.";

        percentheal -100,-100;

        close;

    RAZA2:

        mes "[Ancestro]";

        mes "Voy a robar tu vision.";

        sc_start SC_Blind,1200000,0;

        close;

    RAZA3:

        mes "[Ancestro]";

        mes "Voy a robar tu alma.";

        sc_start SC_Curse,1200000,0;

        close;

}

//job3_rang01,29,39,4    script    Sello Tumulario::STumul01    723,{

//    mes "[Sello]";

//    mes "La esencia de la vida y de la muerte.";

//    close;

//}

////// HANAMI, monje de los petalos de cerezo.

amatsu.gat,221,227,7    script    Hanami::MonkTemp05    111,{

   callfunc "F_HayAlguien";

   if(Vampiro==2) {npctalk "¡Socorro! ¡¡Un vampiro!!"; end;}

   if(islobo(getcharid(0))) {npctalk "¡Socorro! ¡¡Un Lobo!!"; end;}

    mes "^FF0000[Hanami]^000000";

    mes "Este es un lugar de ofrendas hacia los ancestros.";

    mes "Nos obsequian con el Hanami de los cerezos en flor";

    mes "En esta época del año se ven magníficos y preciosos, se respira mucha paz.";

    next;

    mes "Puedes hacer que lluevan pétalos si hacéis una pequeña donación al templo.";

    mes "¿Os apetece?";

    next;

    menu "Donar, gracias.",DONO,"No donar, disculpe.",FIN;

DONO:

    mes "^FF0000[Hanami]^000000";

    mes "Provocaras una lluvia de pétalos por 15.000 zenny.";

        next;

    menu "Si",SIP,"No",FIN;

    

SIP:

   if(getskilllv(598)>0 && getskilllv(598)<5)set SK_FILOSOFIA,SK_FILOSOFIA+1;

    if(getcharid(2) != 10024) goto NOTEMPLO;

    if((zeny < (15000))) goto NODINERO;

    set .@maxfraccion,40;

    if(fraccionKi+1>.@maxfraccion) { set extraKi,extraKi+1; set fraccionKi,0; callfunc "PuntosMaxKi"; message strcharinfo(0),"Tu honor ha aumentado en un punto. Tu ki  máximo es ahora de: "+maximoKi+" puntos de Ki."; }

    else set fraccionKi, fraccionKi+1;

    mes "[Hanami]";

    mes "Muy bien, pues aquí tenéis vuestro Hanami...";

    next;

    set Zeny,Zeny - (15000);

    pay2guild (15000), 10024;

    misceffect 618;

    misceffect 163;

    misceffect 163;

    close;

   

NOTEMPLO:   

    if((zeny < (15000))) goto NODINERO;

    mes "[Hanami]";

    mes "Muy bien, pues aquí tenéis vuestro Hanami...";

    next;

    set Zeny,Zeny - (15000);

    pay2guild (15000), 10024;

    if(Raza==RZ_ORC) {if(Razon + 1 < 200) set Razon,Razon + 1; else set Razon,200;} 

    else {if(Razon - 1 > -200) set Razon,Razon - 1; else set Razon,-200;} 

    misceffect 618;

    misceffect 163;

    misceffect 163;

    close;

   

   

NODINERO:

    mes "^FF0000[Hanami]^000000";

    mes "No puedes hacer una donación al templo.";

    next;

    mes "Volved cuando tengáis el dinero";

    close;

    

FIN:

    mes "^FF0000[Hanami]^000000";

    mes "Bueno, otro día sera";

    close;

}

//BREASERO de las aguas termales

btem_term.gat,61,113,7    script    Brasero::Brasastemp    111,{

   callfunc "F_HayAlguien";

   mes "^FF0000[Brasero]^000000";

    mes "Por un pequeño donativo puedes aclimatar las aguas termales.";

    next;

    menu "Donar, gracias.",DONO,"No donar, disculpe.",FIN;

DONO:

    mes "^FF0000[Brasero]^000000";

    mes "Aclimataras las aguas termales por 5.000 zenny.";

        next;

    menu "Si",SIP,"No",FIN;

    

SIP:

    if(getskilllv(598)>0 && getskilllv(598)<5)set SK_FILOSOFIA,SK_FILOSOFIA+1;

    if(getcharid(2) != 10024) goto NOTEMPLO;

    if((zeny < (5000))) goto NODINERO;

    set Zeny,Zeny - (5000);

    pay2guild (5000), 10024;

    if(Raza==RZ_ORC) {if(Razon + 1 < 200) set Razon,Razon + 1; else set Razon,200;}

    else {if(Razon - 1 > -200) set Razon,Razon - 1; else set Razon,-200;}

    set .@maxfraccion,100;

    if(fraccionKi+1>.@maxfraccion) { set extraKi,extraKi+1; set fraccionKi,0; callfunc "PuntosMaxKi"; message strcharinfo(0),"Tu honor ha aumentado en un punto. Tu ki  máximo es ahora de: "+maximoKi+" puntos de Ki."; }

    else set fraccionKi, fraccionKi+1;

    mes "[Brasero]";

    mes "Muy bien, pues aquí tenéis vuestro Brasero...";

    next;

    misceffect 618;

    misceffect 233;

    close;

   

NOTEMPLO:   

    if((zeny < (5000))) goto NODINERO;

    set Zeny,Zeny - (5000);

    pay2guild (5000), 10024;

    mes "[Brasero]";

    mes "Muy bien, pues aquí tenéis vuestro Brasero...";

    next;

    misceffect 618;

    misceffect 233;

    close;

   

   

NODINERO:

    mes "^FF0000[Brasero]^000000";

    mes "No puedes hacer una donación al templo.";

    next;

    mes "Volved cuando tengáis dinero.";

    close;

    

FIN:

    mes "^FF0000[Brasero]^000000";

    mes "Bueno, otro día sera";

    close;

}

btem_term.gat,37,113,7    duplicate(Brasastemp)    Brasero::Brasastemp02    111

btem_term.gat,38,88,7    duplicate(Brasastemp)    Brasero::Brasastemp03    111

btem_term.gat,62,88,7    duplicate(Brasastemp)    Brasero::Brasastemp04    111