KOE Dojo

-

🇫🇷 Français
Un dojo oriental où les personnages accomplissent différentes tâches.

🇬🇧 English
An Eastern-style dojo where characters perform various tasks.

🇪🇸 Español
Un dojo oriental donde los personajes realizan diferentes tareas.



/////////////////////////////////DOJO// by  Puck //////////////////////////////////

amatsu.gat,56,123,4    script    Cartel del Dojo    837,{

    mes "[Cartel]";

    mes "Este es el Dojo del Templo. la casa de los Guerreros Divinos.";

    close;

}


que_ng.gat,20,73,4    script    Curandero Reiki::Cur01    823,{

   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;}

    mes "[Luchador]";

    mes "Entrena, entrena y entrena hasta que tus huesos revienten. Curaré tus heridas.";

    percentheal 100,100;

    close;

}




amatsu.gat,50,142,4    script    Guardia::Gdojo01    88,3,3{

    if(countitem(7559) < 1) goto FUERA;

    npctalk "¡Onegai Shimasu!";

    end;


FUERA:

    npctalk "¡Largo de aquí!";

    pc_walktoxy 51,136;    

    close;

}




amatsu.gat,53,142,4    script    Guardia::Gdojo02    88,3,3{

    if(countitem(7559) < 1) goto FUERA;

    npctalk "¡Onegai Shimasu!";

    end;


FUERA:

    npctalk "¡Largo de aquí!";

    pc_walktoxy 51,136;    

    close;

}


//Zona de meditación: Ritual


ama_in01.gat,176,184,4    script    Ancestro::AnMedita00    802,{

   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 (Raza == RZ_ELF) goto SIGUIENTE;

if(Iglesia == 10015) {

      mes "[Sacerdotisa del Templo]";

      mes "Imposible...";

      mes "Tu Ki es inestable, te impide realizar esta acción.";

      close2;

      cutin "",255;

      end;

   }

if(Iglesia==10000) {

      mes "[Sacerdotisa del Templo]";

      mes "Imposible...";

      mes "Tu Ki es inestable, te impide realizar esta acción.";

      close2;

      cutin "",255;

      end;

      }

if(Iglesia==10001) {

      mes "[Sacerdotisa del Templo]";

      mes "Imposible...";

      mes "Tu Ki es inestable, te impide realizar esta acción.";

      close2;

      cutin "",255;

      end;

      }

SIGUIENTE:     

   mes "Soy el ancestro de la meditación, y puedo ayudar a purificar tu alma.";

   mes "¿Que quereis hacer?";

   next;

   menu "Meditar",MEDITAR,"Purificar",PURIFICAR,"Nada",FIN;

   

MEDITAR:

    if(countitem(7555) < 1) goto NOINCIENSO;

      delitem 7555,1;

      pctalk "Enciendo este incienso para purificar el templo";

      set .@medita, 0;

      goto PRINCIPIO;

      

      PRINCIPIO:

            mes "Escribe la frase que deseas pronunciar mientras meditas.";

            input .@frase$;

            pctalk "Ommmmmmm";

            if(.@medita == 0) goto frase1;

            if(.@medita == 1) goto frase2;

            if(.@medita == 2) goto frase3;

            if(.@medita == 3) goto frase4;

            if(.@medita == 4) goto frase5;

                if(.@medita == 5) goto frase1;

            if(.@medita == 6) goto frase2;

            if(.@medita == 7) goto frase3;

            if(.@medita == 8) goto frase4;

            if(.@medita == 9) goto frase5;

        


            frase1:

                if(.@frase$ != "No tengo ojos, Yo hago de la oscuridad mi camino") goto FRACASA;

                pctalk "No tengo ojos, Yo hago de la oscuridad mi camino.";

                misceffect 204;

                goto PUNTUA;

                  

            frase2:

                if(.@frase$ != "No tengo oídos, Yo hago del silencio mi palabra") goto FRACASA;

                pctalk "No tengo oídos, Yo hago del silencio mi palabra.";

                misceffect 205;

                goto PUNTUA;

                  

            frase3:

                if(.@frase$ != "No tengo extremidades, Yo hago del viento mis sentidos") goto FRACASA;

                pctalk "No tengo extremidades, Yo hago del viento mis sentidos.";

                misceffect 209;

                goto PUNTUA;

                  

            frase4:

                if(.@frase$ != "No tengo cuerpo, Yo hago del vacío mi guía") goto FRACASA;

                pctalk "No tengo cuerpo, Yo hago del vacío mi guía.";

                misceffect 207;

                goto PUNTUA;

                

            frase5:

                if(.@frase$ != "La máxima victoria es la que se gana sobre uno mismo") goto FRACASA;

                pctalk "La máxima victoria es la que se gana sobre uno mismo.";

                misceffect 208;

                goto PUNTUA;


    NOINCIENSO:

        mes "Necesitas poner una barrita de incienso para poder iniciar la meditación.";

        close;


    FRACASA:

        mes "Te has desconcentrado, vuelve a comenzar";

        set .@medita, 0;

        close;



    ULTIMO:

        set .@medita, 0;

        mes "[Ancestros]";

        mes "Ya has meditado suficiente por ahora, ahora ve a entrenar cuanto sea necesario";

        close2;

        if(Raza==RZ_ORC) {if(rand(10)==1) 

        if(Razon + 1 < 200) set Razon,Razon + 1; else set Razon,200;}

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

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

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

        set @tiempominimo7,3600;

        if((gettimetick(2)-medite)<@tiempominimo7) {

            set @tiempoquequeda7,@tiempominimo7-(gettimetick(2)-medite);

            if(@tiempoquequeda7>3600) 

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

       else if(@tiempoquequeda7>60) 

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

       else 

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

    set medite,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,30;

        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;

        

    PURIFICAR:

        mes "[Ancestros]";

        mes "Para purificar el Templo necesitareis 1 medallon de Yin Yang y 1 barrita de incienso.";

        next;

        menu "Vale",-,"Ahora no",FIN;

        if(countitem(7555) < 1) goto NOINCIENSO2;

        if(countitem(7169) < 1) goto NOMEDALLON;

        delitem 7555,1;

        delitem 7169,1;

        mes "Comienzas la oración para purificar la Pagoda.";

         pctalk "Chirin, cubo de la tierra.";

        misceffect 467;

        misceffect 149;

        next;

        pctalk "Suirin, esfera del agua.";

        misceffect 469;

        misceffect 149;

        next;

        pctalk "Karin, triangulo de fuego.";

        misceffect 470;

        misceffect 149;

        next;

        pctalk "Fuurin, espiritu del viento";

        misceffect 468;

        misceffect 149;

        next;

        pctalk "Kuurin, simbolo del vacio.";

        misceffect 471;

        misceffect 149;

        next;

        pctalk "Ayudadme a cerrar la Pagoda de los ancestros.";

        misceffect 142;

        misceffect 650;

         next;

        mes"¡Has logrado unificarte con los ancestros...";

        close2;

        killmonster "ama_in01.gat","All";

            end;

            

    NOINCIENSO2:

        mes "Necesitas poner una barrita de incienso para poder purificar la Pagoda.";

        close;

        

    NOMEDALLON:

        mes "Necesitas poner un medallon de Yin Yang para poder purificar la Pagoda.";

        close;

        

    NOTEMPLO:

        mes "[Ancestros]";

        mes "Habéis entrado en comunión con los ancestros.";

        close;


    PUNTUA:

        if(.@medita == 9) {

            areamonster "ama_in01.gat", 164, 172, 185, 187, "Gran Ancestro", 1186, 1;

            misceffect 221;

            goto ULTIMO;

        }

        set .@medita, .@medita + 1;

        areamonster "ama_in01.gat", 164, 172, 185, 187, "Ancestro", 1185, 1;

        goto PRINCIPIO;


        FIN:

        mes "Haces una reverencia y te alejas del ancestro.";

        close;

}



//ZONA DE ENTRENAMIENTO


que_ng.gat,30,72,4    script    Entrenador    766,{

   callfunc "F_HayAlguien";

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

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

   if (Raza == RZ_ELF) goto SIGUIENTE;

if(Iglesia == 10015) {

      mes "[Sacerdotisa del Templo]";

      mes "Imposible...";

      mes "Tu Ki es inestable, te impide realizar esta acción.";

      close2;

      cutin "",255;

      end;

   }

if(Iglesia==10000) {

      mes "[Sacerdotisa del Templo]";

      mes "Imposible...";

      mes "Tu Ki es inestable, te impide realizar esta acción.";

      close2;

      cutin "",255;

      end;

      }

if(Iglesia==10001) {

      mes "[Sacerdotisa del Templo]";

      mes "Imposible...";

      mes "Tu Ki es inestable, te impide realizar esta acción.";

      close2;

      cutin "",255;

      end;

      }

SIGUIENTE:

    mes "[Entrenador]";

    mes "¿Quieres pasar a la sala de entrenamiento?";

    menu "Si, quiero",-,"Quiero ir directo al Tatami",PVP,"En realidad ya me iba",QUIT;

    close2;

    warp "quiz_02.gat",147,384;


QUIT:

    close;


PVP:

    mes "[Entrenador]";

    mes "Entonces, directo al Tatami.";

    close2;

    warp "quiz_02.gat",134,358;    

}




//Dojo

amatsu.gat,52,148,4    script    Guardián::GuardiDojo    897,{

   callfunc "F_HayAlguien";

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

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

    mes "[Guardián]";

    mes "Mostradme la llave";

    if(getcharid(2)==10001 && gposition(0) <= 3) goto NOTEMPLO2;

    if(getcharid(2)==10000 && gposition(0) <= 3) goto NOTEMPLO3;

    if(getcharid(2)==10015 && gposition(0) <= 3) goto NOTEMPLO4;

    if(getcharid(2)==10005 && gposition(0) <= 3) goto NOTEMPLO4;

    if(countitem(7559) < 1) goto LACALLE;

    next;

    mes "[Guardián]";

    mes "No tan rápido, quiero la contraseña.";

    input @frase$;

    if(@frase$ != "Shikin Haramitsu Daikomyo") goto LACALLE;

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

    warp "que_ng.gat",20,142;

    close;

    

    

NOTEMPLO:

    mes "[Guardián]";

    mes "Podeis pasar, pero la llave me la quedo...";

        if(getcharid(2) != 10024) guildmsg 10024,"Tenemos un intruso en el Dojo.",1;

    next;

    delitem 7559,1;

    warp "que_ng.gat",20,142;

    close;

    

NOTEMPLO2:

    pctalk "Amo Loki, permítenos entrar en este templo de herejes...";

    if(rand(4)==3) goto FUERA;

    mes "[Guardián]";

    mes "Podeis pasar, no me hagais nada...";

        if(getcharid(2) != 10024) guildmsg 10024,"Tenemos un intruso en el Dojo.",1;

    next;

    warp "que_ng.gat",20,142;

    close;


NOTEMPLO3:

    pctalk "Odín, permítenos entrar en este templo de herejes...";

    if(rand(4)==3) goto FUERA;

    mes "[Guardián]";

    mes "Podeis pasar, no me hagáis nada...";

        if(getcharid(2) != 10024) guildmsg 10024,"Tenemos un intruso en el Dojo.",1;

    next;

    warp "que_ng.gat",20,142;

    close;

    

NOTEMPLO4:

    pctalk "Madre Gaia, permítenos entrar en este templo de herejes...";

    if(rand(4)==3) goto FUERA;

    mes "[Guardián]";

    mes "Podeis pasar, no me hagais nada...";

        if(getcharid(2) != 10024) guildmsg 10024,"Tenemos un intruso en el Dojo.",1;

    next;

    warp "que_ng.gat",20,142;

    close;

    

NOTEMPLO5:

    pctalk "Magia Arcana, permítenos entrar en este templo...";

    if(rand(4)==3) goto FUERA;

    mes "[Guardián]";

    mes "Podeis pasar, no me hagais nada...";

        if(getcharid(2) != 10024) guildmsg 10024,"Tenemos un intruso en el Dojo.",1;

    next;

    warp "que_ng.gat",20,142;

    close;


FUERA:

    pctalk "He llamado a los monjes, ¡FUERA DE AQUÍ!";

    if(getcharid(2) != 10024) guildmsg 10024,"Tenemos un intruso en el Dojo.",1;

    pc_walktoxy 51,136;    

    pctalk "¡¡¡HE DICHO QUE OS MARCHEIS!!!";

    percentheal -100,-100;

    close;

    

LACALLE:

    mes "[Guardián]";

    mes "Largo de aquí, farsante. No eres digno de entrar a este jardín.";

    close;

}

que_ng.gat,25,14,0    warp    dojo02    1,1,ama_in01.gat,174,172

ama_in01.gat,174,170,0    warp    dojo03    1,1,que_ng.gat,25,18



/////MEDITACION DE NAVE ESPACIAL:


un_bunker.gat,308,390,1    script    Ancestro::NAVEMedita00    802,{

   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;}

   mes "Soy el ancestro de la meditación, y puedo ayudar a purificar tu alma.";

   mes "¿Que quereis hacer?";

   next;

   menu "Meditar",MEDITAR,"Nada",FIN;

   

MEDITAR:

    if(countitem(7555) < 1) goto NOINCIENSO;

      delitem 7555,1;

      pctalk "Enciendo este incienso para purificar el templo";

      set .@medita, 0;

      goto PRINCIPIO;

      

      PRINCIPIO:

            mes "Escribe la frase que deseas pronunciar mientras meditas.";

            input .@frase$;

            pctalk "Ommmmmmm";

            if(.@medita == 0) goto frase1;

            if(.@medita == 1) goto frase2;

            if(.@medita == 2) goto frase3;

            if(.@medita == 3) goto frase4;

            if(.@medita == 4) goto frase5;

                if(.@medita == 5) goto frase1;

            if(.@medita == 6) goto frase2;

            if(.@medita == 7) goto frase3;

            if(.@medita == 8) goto frase4;

            if(.@medita == 9) goto frase5;

        


            frase1:

                if(.@frase$ != "No tengo ojos, Yo hago de la oscuridad mi camino") goto FRACASA;

                pctalk "No tengo ojos, Yo hago de la oscuridad mi camino.";

                misceffect 204;

                goto PUNTUA;

                  

            frase2:

                if(.@frase$ != "No tengo oídos, Yo hago del silencio mi palabra") goto FRACASA;

                pctalk "No tengo oídos, Yo hago del silencio mi palabra.";

                misceffect 205;

                goto PUNTUA;

                  

            frase3:

                if(.@frase$ != "No tengo extremidades, Yo hago del viento mis sentidos") goto FRACASA;

                pctalk "No tengo extremidades, Yo hago del viento mis sentidos.";

                misceffect 209;

                goto PUNTUA;

                  

            frase4:

                if(.@frase$ != "No tengo cuerpo, Yo hago del vacío mi guía") goto FRACASA;

                pctalk "No tengo cuerpo, Yo hago del vacío mi guía.";

                misceffect 207;

                goto PUNTUA;

                

            frase5:

                if(.@frase$ != "La máxima victoria es la que se gana sobre uno mismo") goto FRACASA;

                pctalk "La máxima victoria es la que se gana sobre uno mismo.";

                misceffect 208;

                goto PUNTUA;


    NOINCIENSO:

        mes "Necesitas poner una barrita de incienso para poder iniciar la meditación.";

        close;


    FRACASA:

        mes "Te has desconcentrado, vuelve a comenzar";

        set .@medita, 0;

        close;



    ULTIMO:

        set .@medita, 0;

        mes "[Ancestros]";

        mes "Ya has meditado suficiente por ahora, ahora ve a entrenar cuanto sea necesario";    

        close2;

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

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

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

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

        set @tiempominimo7,3600;

        if((gettimetick(2)-medite)<@tiempominimo7) {

            set @tiempoquequeda7,@tiempominimo7-(gettimetick(2)-medite);

            if(@tiempoquequeda7>3600) 

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

       else if(@tiempoquequeda7>60) 

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

       else 

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

    set medite,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,30;

        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 "Habéis entrado en comunión con los ancestros.";

        close;


    PUNTUA:

        if(.@medita == 9) {

            misceffect 221;

            goto ULTIMO;

        }

        set .@medita, .@medita + 1;

        goto PRINCIPIO;


        FIN:

        mes "Haces una reverencia y te alejas del ancestro.";

        close;

} 

Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

KOE Acupuntura

-
  🇫🇷 Français Système d’acupuncture utilisé comme mécanique de soin dans le jeu vidéo KoeRo . Développé en Lua, il combine précision technique et esthétique orientale. 🇬🇧 English Acupuncture-based healing mechanic in the video game KoeRo . Developed in Lua, blending technical precision with an Eastern aesthetic. 🇪🇸 Español Mecánica de curación basada en acupuntura para el videojuego KoeRo . Desarrollado en Lua, combina precisión técnica y estética oriental. gremios\templo_acupuntura.txt ///SISTEMA ACUPUNTURA MUSHI ama_in03.gat,29,178,4    script    Monje Masajista::TempAcun01    834,{    callfunc "F_HayAlguien";    if(Vampiro==2) {npctalk "¡Socorro! ¡¡Un vampiro!!"; end;}    if(islobo(getcharid(0))) {npctalk "¡Socorro! ¡¡Un Lobo!!"; end;}    if(getcharid(2) != 10024) goto NOTEMPLO;        if (Raza == RZ_ELF) goto SIGUIENTE; if(Iglesia == 10015) {       mes "[Sace...
Lire la suite

Caminos de Luna Ajena

-
 Sucedió, tal vez, una semilla. Que nunca supo cuándo llegaba la primavera. Se abría con la luna, se cerraba con el sol, se escapaba de la lluvia, y se regaba en alcohol. Pasó, quizás, por viajes sin faros, donde la luna llena guiaba, Pero nunca arraigaba. Barcos que pasaban, donde ya nunca se quedaban. Se cruzaron, tambien, maestros que te enseñan, con cabellos de luz vieja, que tocar el sol también se sueña. Rosas negras en los dedos, espinas que sangran cuando extrañas. Guarde, incluso, cartas sin sellos, esperando que el viento las enviara, que guiarán sus destellos, Con caricia de su mano susurrara. Cuando la luna guía, Pero no te espera. Contemple estaciones de historia, en idiomas inventados. De aquel momento que siempre llegaría, cuando el otro ya ha marchado. Aprendí a seguir sus pasos, como el canto entre los pozos. De la casa de senderos olvidados. Esperando en sus brazos, esperando en pedazos. Se acabaron los abrazos, No quedaron ya ni anhelos, ni susurros, ni esbozos. ...
Lire la suite

OZ

-
Image
OZ EL ERRANTE        El capitán de la Carmina era un anciano y cascarrabias trasgo, que había acogido y criado a Alicia desde joven. Era un coleccionista de los objetos alquímicos llamados Regalias y Albedos, y recorría los continentes buscando dichos objetos. Había ejercido de maestro y guiado en sus primeros pasos a la niña, pero ahora solo buscaba la tranquilidad de fumar su vieja pipa, mientras murmura improperios a cualquiera que le moleste.  Oz tiene muchas historias que contar, pero tantas otras que ocultar. Ha obtenido muchos favores y enemigos, además su especie había sido muy perseguida antes de la revolución industrial. Ahora cuentan como una fantástica mano de obra barata, pero tambien de increíbles investigadores y científicos. Por desgracia mucha gente infravalora sus verdaderas capacidades. Nada realmente importa cuando tienes una de las mejores Navicaelim, que el mismo construyo y perfección, para poder pescar en cualquier lugar del mundo. ♥♠♦♣ T...
Lire la suite