Jump to content

Elite™

Miembro
  • Contador contenido

    45
  • Ingreso

  • Última visita

  • Días ganados

    8

Mensajes publicados por Elite™

  1. Descubre el siguiente capítulo de tu diario de misiones. ¡Sumérgete en

    una historia vertiginosa sobre la misteriosa Nación Oscura y desvela el

    enigma de la última Sacerdotisa del Dragón! ¿Lograrás evitar el

    resurgimiento de Sung Mahi, el dios de todos los demonios, y salvar a la

    humanidad de la perdición? ¡Nuestro reino cuenta contigo!

     

    Nación Oscura I

     

     

    ----------------------------------
    -- MAIN QUEST LV60
    -- La Nación Oscura I
    -- Creada por Eliteâ„¢
    ----------------------------------
    quest main_quest_lv60 begin
    state start begin
    end
    state run begin
      when login or levelup with  pc.get_level() >= 60 begin
       set_state(inicio) 
      end
    end
    
    state inicio begin
      when letter begin
       local v=find_npc_by_vnum(20011)
       if 0==v then
       else
        target.vid("__TARGET__", v, "")
       end
      end
      when letter begin
       send_letter("Una nueva pista") 
      end
      when button or info begin
       say_title("Una nueva pista")
       ---												   l
       say("Uriel ha encontrado novedades sobre la historia")
       say("del viejo diario. Busca a Uriel para que te")
       say("cuente más.")
      end
     
      when __TARGET__.target.click begin
       20011.chat."La Nación Oscura I"begin
       target.delete("__TARGET__")										    l
       say_title("Uriel:")
       say("¿Qué tal? ¿Recuerdas aún el diario y la historia")
       say("que contenía, esa que terminaba abruptamente con")
       say("la decimotercera y última página?")
       wait()
       say_title(pc.get_name().."")
       say("Sí, por supuesto. Siete personas huyeron de Lee")
       say("Seop y su caballería se refugiaron en el Templo")
       say("Hwang donde, desaparecieron, emplearon la brujería")
       say("negra... AL final, solamente uno de ellos")
       say("sobrevivió.")
       wait()
       say_title("Uriel")
       say("Exacto. He continuado mis investigaciones y he")
       say("descubierto que esas siete personas eran miembros")
       say("de culto sagrado de las Sacerdotisas del Dragón")
       say("En antiguos escritos se las relaciona con una")
       say("teocracia conocida como la Nación Oscura.")
       say("¿Pertenecerían esas siete Sacerdotisas del Dragón?")
       say("a la Nación Oscura? Toma, lee este pergamino")
       say("atentamente y habla conmigo cuando termines.")
       set_state("parte1")
      end
    end
    
    state parte1 begin
      when letter begin
       send_letter("La Nación Oscura I")
       local v=find_npc_by_vnum(20011)
       if 0==v then
       else
        target.vid("__TARGET__", v, "")
       end
      end
      when button or info begin
       say_title("La Nación Oscura I")
       say("Según la investigación de Uriel, las siete")
       say("Sacerdotisas del Dragón prodecián de la Nación")
       say("Oscura. Investiga la Lápida Antigua en el Monte")
       say("Sohan. Se dice que allí se encontraba la capital")
       say("de la Nación Oscura. Habla antes con Uriel una")
       say("vez más.")
      end
      when __TARGET__.target.click or
       20011.chat."La Nación Oscura I"begin
       target.delete("__TARGET__")
       ---												   l
       say_title("Uriel")
       say("Sus artes mágicas extremadamente avanzadas y el")
       say("hecho de que fueran aniquiladas según el diario")
       say("de Lee Seop indican que las siete Sacerdotisas")
       say("del Dragón realmente pertenecían a la Nación")
       say("Oscura.")
       wait()
       say_title("Uriel")
       say("En los antiguos pergaminos hay un mapa. Al")
       say("examinarlo atentamente se puede ver que la")
       say("capital de la Nación Oscura realmente se")
       say("encontraba en el Monte Sohan.")
       wait()
       say_title(pc.get_name().."")
       say("¿El Monte Sohan? ¡Allí vi una vez una")
       say("vieja lápida!")
       wait()
       say_title("Uriel")
       say("¿Y por casualidad no recordarás si tenía")
       say("una inscripción?")
       say("Ya veo que no. Esa Lápida Antigua podría desvelar")
       say("mucha información importante sobre la Nación")
       say("Oscura.¿Podrías viajar al Monte Sohan y crear")
       say("una Copia de la Inscripción por mí?")
       set_state(parte2)
      end
    end
    
    state parte2 begin
      when letter begin
       send_letter("La Nación Oscura I")
       local v=find_npc_by_vnum(20371)
       if 0==v then
       else
        target.vid("__TARGET__", v, "")
       end
      end
      when button or info begin
       say_title("La Nación Oscura I")
       say("Según la investigación de Uriel, las siete")
       say("Sacerdotisas del Dragón prodecián de la Nación")
       say("Oscura. Investiga la Lápida Antigua en el Monte")
       say("Sohan. Se dice que allí se encontraba la capital")
       say("de la Nación Oscura hace tiempos inmemoriales.")
      end
      when 20371.click begin
       say("Has encontrado la Lápida Antigua de los tiempos")
       say("de la Nación Oscura y has hecho una Copia de la")
       say("Inscripción. Llévasela a Uriel.")
       pc.give_item2(31001)
       set_state(parte3)
      end
    end
    
    state parte3 begin
      when letter begin
       send_letter("La Nación Oscura I")
       local v=find_npc_by_vnum(20011)
       if 0==v then
       else
        target.vid("__TARGET__", v, "")
       end
      end
      when button or info begin
       say_title("La Nación Oscura I")
       say("Según la investigación de Uriel, las siete")
       say("Sacerdotisas del Dragón prodecián de la Nación")
       say("Oscura. Investiga la Lápida Antigua en el Monte")
       say("Sohan. Se dice que allí se encontraba la capital")
       say("de la Nación Oscura hace tiempos inmemoriales.")
      end
      when __TARGET__.target.click or
       20011.chat."La Nación Oscura I"begin
       target.delete("__TARGET__")
       ---												   l
       say_title("Uriel")
       say("¡Por fin! Déjame analizar la incripción...")
       say("Dice lo siguiente: la Nación Oscura se consagró a")
       say("a la brujería negra y servía a Sung-Mahi, el Dios")
       say("de los Demonios.")
       wait()
       say_title("Uriel")
       say("Por los cielos... ¡Sung Mahi! ¿Intentarían acaso")
       say("las siete Sacerdotisas del Dragón invocar a")
       say("Sung Mahi mediante esa magia prohibida?")
       wait()
       say_title("Uriel")
       say("Has hecho un buen trabajo. Por ello deberías")
       say("recibir una recompensa adecuada.")
       wait()
       say_title("Recompensa")
       say_reward("Recibes 980000 puntos de experiencia.")
       say_reward("Recibes 175000 Yang.")
       say_reward("Recibes: Pergamino de Exorcismo 10 Unidades.")
       say_reward("Recibes: Flor Melocotón 10 Unidades.")
       say_reward("Recibes: Lila 10 Unidades.")
       pc.remove_item(31001)
       pc.give_item2(50721,10)
       pc.give_item2(50725,10)
       pc.give_item2(71001,10)
       pc.give_exp2(980000)
       pc.change_money(175000)
       clear_letter()
       set_quest_state("main_quest_lv60_bis", "run")
       set_state( __COMPLETE__ )
      end
    end
    state __COMPLETE__ begin
    end
    end
    
    

     

     

     

    Misión anterior: La última página

    Requisito: Nivel 60

    Dado por: Uriel

    Objetivos: Encuentra la vieja lápida sepulcral, consigue la copia de la inscripción

    Recompensa: 980.000 exp, 175.000 yang, 10 Pergaminos de exorcismo, 10 Flores de meloctón, 10 Lilac

     

    Nación Oscura II

     

     

     

     

    ----------------------------------
    -- MAIN QUEST LV60_bis
    -- La Nación Oscura II
    -- Creada por Eliteâ„¢
    ----------------------------------
    quest main_quest_lv60_bis begin
    state start begin
    end
    state run begin
      when login or levelup with  pc.get_level() >= 60 begin
       set_state(inicio) 
      end
    end
    
    state inicio begin
      when letter begin
       send_letter("La Nación Oscura II") 
      end
      when button or info begin
       say_title("La Nación Oscura II")
       ---												   l
       say("Según Uriel, el Bosque Fantasma antes pertenecía")
       say("a la Nación Oscura. Quizás allí aún se puedan")
       say("encontrar más pistas.")
       say("Sin embargo, este bosque está lleno de peligros y")
       say("las criaturas de la zona se han vuelto furibundas")
       say("por culpa de las Piedra Metin. Encuentra el")
       say("árbol Diabólico para conseguir otro punto de")
       say("referencia. Después habla con Uriel.")
      end
     
      when 2305.kill begin
       local s = number(1, 100)
       if s <= 5 and pc.count_item("31002")==0 then
        pc.give_item2(31002, 1)
        say_reward("Has derrotado al árbol Diabólico y te has")
        say_reward("apropiado del Documento Antiguo. Está escrito en")
        say_reward("un lenguaje extraño. Llévaselo a Uriel para que")
        say_reward("lo traduzca.")
        set_state(parte1)
       end
      end
    end
    
    state parte1 begin
      when letter begin
       send_letter("La Nación Oscura II")
       local v=find_npc_by_vnum(20011)
       if 0==v then
       else
        target.vid("__TARGET__", v, "")
       end
      end
      when button or info begin
       say_title("La Nación Oscura II")
       ---												   l
       say("Según Uriel, el Bosque Fantasma antes pertenecía")
       say("a la Nación Oscura. Quizás allí aún se puedan")
       say("encontrar más pistas.")
       say("Sin embargo, este bosque está lleno de peligros y")
       say("las criaturas de la zona se han vuelto furibundas")
       say("por culpa de las Piedra Metin. Encuentra el")
       say("árbol Diabólico para conseguir otro punto de")
       say("referencia. Después habla con Uriel.")
      end
      when __TARGET__.target.click or
       20011.chat."La Nación Oscura II"begin
       target.delete("__TARGET__")
       ---												   l
       say_title("Uriel")
       say("¡Por fin! Has encontrado el Documento Antiguo.")
       say("¡Esperamos que arroje un poco de luz sobre este")
       say("misterio!")
       wait()
       say_title("Uriel")
       say("¡¿Pero qué...?! ¡Casi no dice nada! El documento")
       say("debería tener diez páginas. Por favor, vuelva al")
       say("Bosque Fantasma y encuentra las nueves restantes.")
       set_state(parte2)
      end
    end
    
    state parte2 begin
      when letter begin
       send_letter("La Nación Oscura II")
      when button or info begin
       say_title("La Nación Oscura II")
       ---												   l
       say("Según Uriel, el Bosque Fantasma antes pertenecía")
       say("a la Nación Oscura. Quizás allí aún se puedan")
       say("encontrar más pistas.")
       say("Sin embargo, este bosque está lleno de peligros y")
       say("las criaturas de la zona se han vuelto furibundas")
       say("por culpa de las Piedra Metin. Encuentra el")
       say("árbol Diabólico para conseguir otro punto de")
       say("referencia. Después habla con Uriel.")
      end
     
      when 2305.kill begin
       local s = number(1, 100)
       if  pc.count_item(31002) < 9 then
        pc.getqf("count") + 1
        pc.give_item2(31002, 1)
        chat("Aún te quedan".." "..9-pc.getqf("count").."páginas por encontrar.")
        set_state(parte3)
       end
      end
    
    state parte3 begin
      when letter begin
       send_letter("La Nación Oscura II")
       local v=find_npc_by_vnum(20011)
       if 0==v then
       else
        target.vid("__TARGET__", v, "")
       end
      end
      when button or info begin
       say_title("La Nación Oscura II")
       ---												   l
       say("Según Uriel, el Bosque Fantasma antes pertenecía")
       say("a la Nación Oscura. Quizás allí aún se puedan")
       say("encontrar más pistas.")
       say("Sin embargo, este bosque está lleno de peligros y")
       say("las criaturas de la zona se han vuelto furibundas")
       say("por culpa de las Piedra Metin. Encuentra el")
       say("árbol Diabólico para conseguir otro punto de")
       say("referencia. Después habla con Uriel.")
      end
      when __TARGET__.target.click or
       20011.chat."La Nación Oscura II"begin
       target.delete("__TARGET__")
       ---												   l
       say_title("Uriel")
       say("Bueno, vamos a ver ahora... Al parecer, La Nación")
       say("Oscura corrompió mediante una maldición a la gran")
       say("sacerdotisa del culto del Dragón y abusó de los")
       say("poderes sagrados de las siete mujeres para poder.")
       say("emplear el antiguo arte de la brujería negra.")
       wait()
       say_title("Uriel")
       say("Para invocar a Sung Mahi hay que utilizar la")
       say("brujería negra al mismo tiempo en siete lugares")
       say("diferentes.")
       say("Pero Lee Seop y su ejército consiguieron")
       say("interrumpir a tiempo el ritual y frustar el plan")
       say("impío de la Nación Oscura.")
       wait()
       say_title("Uriel")
       say("Esa era realmente una Nación temible. ¡Eran")
       say("capaces de controlar mentes mediante magía negra!")
       wait()
       say_title("Recompensa")
       say_reward("Recibes 3300000 puntos de experiencia.")
       say_reward("Recibes: Lectura Concentrada 3 Unidades.")
       say_reward("Recibes: Telaraña.")
       say_reward("Recibes: Saco de Veneno de Araña.")
       pc.remove_item(31002,10)
       pc.give_item2(30056)
       pc.give_item2(30025)
       pc.give_item2(39030,3)
       pc.give_exp2(3300000)
       clear_letter()
       set_quest_state("main_quest_lv66", "run")
       set_state( __COMPLETE__ )
      end
    end
    state __COMPLETE__ begin
    end
    end
    
    

     

     

    Misión anterior: Dark Nation I

    Requisito: Nivel 60

    Dado por: Uriel

    Objetivos: Matar arboles diabólicos hasta obtener el documento antiguo y llevar a Uriel. Después recolectar 9 documentos antiguos y dárselos a Uriel.

    Recompensa: 3.000.000 exp, 3 Lecturas concentradas, 1 Tela de araña, 1 Saco de veneno de araña

     

    Pd: Estas misiónes estan creadas 100% por mi

    Espero que os sirva

    Acepto críticas constructivas

  2. quest give_basic_weapon begin

    state start begin

    when login begin

    if pc.getqf("basic_weapon") == 0 then

    pc.setqf("basic_weapon", 1)

    pc.give_item2(50187, 1)

    end

    end

     

    when 50187.use begin

    local item_vnum = 10

    if pc.job == 3 then

    item_vnum = 7000

    elseif pc.job == 1 then

    item_vnum = 1000

    end

    local item_count = pc.countitem(item_vnum)

    local equip_weapon = pc.weapon

    if item_count == 0 and equip_weapon != item_vnum then

    pc.give_item2(item_vnum)

    pc.give_item2(50188, 1)

    pc.give_item2(27051, 20)

    pc.give_item2(27052, 10)

    pc.give_item2(27053, 5)

    pc.give_item2(27054, 5)

    item.remove()

    end

    end

     

    when 50188.use begin

    if pc.get_level() >= 10 then

    pc.give_item2(72723, 1)

    pc.give_item2(27116, 3)

    pc.give_item2(71050, 3)

    pc.give_item2(71004, 3)

    pc.give_item2(50189, 1)

    pc.remove_item(50188, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

     

    when 50189.use begin

    if pc.get_level() >= 20 then

    pc.give_item2(72727, 1)

    pc.give_item2(27116, 3)

    pc.give_item2(71050, 3)

    pc.give_item2(76006, 1)

    pc.give_item2(71085, 3)

    pc.give_item2(71084, 3)

    pc.give_item2(50190, 1)

    pc.remove_item(50189, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

     

    when 50190.use begin

    if pc.get_level() >= 30 then

    pc.give_item2(71050, 3)

    pc.give_item2(76018, 3)

    pc.give_item2(25040, 5)

    pc.give_item2(70003, 1)

    pc.give_item2(50191, 1)

    pc.remove_item(50190, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

     

    when 50191.use begin

    if pc.get_level() >= 40 then

    pc.give_item2(39031, 3)

    pc.give_item2(76018, 3)

    pc.give_item2(71153, 1)

    pc.give_item2(70003, 1)

    pc.give_item2(50192, 1)

    pc.remove_item(50191, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

     

    when 50192.use begin

    if pc.get_level() >= 50 then

    pc.give_item2(70038, 20)

    pc.give_item2(39031, 3)

    pc.give_item2(76018, 3)

    pc.give_item2(71095, 5)

    pc.give_item2(70058, 1)

    pc.give_item2(50193, 1)

    pc.remove_item(50192, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

     

    when 50193.use begin

    if pc.get_level() >= 60 then

    pc.give_item2(71032, 3)

    pc.give_item2(76018, 3)

    pc.give_item2(76000, 5)

    pc.give_item2(39031, 3)

    pc.give_item2(50194, 1)

    pc.remove_item(50193, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

     

    when 50194.use begin

    if pc.get_level() >= 70 then

    pc.give_item2(50195, 1)

    pc.remove_item(50194, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

     

    when 50195.use begin

    if pc.get_level() >= 80 then

    pc.give_item2(50196, 1)

    pc.remove_item(50195, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

    when 50196.use begin

    if pc.get_level() >= 90 then

    pc.remove_item(50196, 1)

    else

    syschat("Tu nivel es inferior que el nivel del objeto tras la mejora.")

    end

    end

    end

    end

     

    Pd: Queda añadir la recomepensa de unos cuantos cofres

    Aqui estan la mayoria de los drops sacados por los usuarios -->

    Debes iniciar sesión para ver el contenido del enlace en esta publicación.

  3. 
    

    ----------------------------------

    -- Cazeria

    -- Traducida como el metin2.es

    -- Creditos: Eliteâ„¢

    ----------------------------------

    quest levelup begin

    state run begin

    when letter begin

    local current = pc.getqf("current")

    local completed_level = pc.getqf("complete");

    if current == 0 and

    pc.get_level() > completed_level and

    pc.get_level() > 1 and

    pc.get_level() < 60 then

    local lev = pc.get_level()

    pc.setqf("buttonstate", 2)

    makequestbutton("Comenzar tarea "..lev.."")

    pc.setqf("current", lev)

    pc.setqf("select", 1)

    pc.setqf("remain", special.levelup_quest[lev][2])

    setskin(NOWINDOW)

    end

    setstate(start)

    end

    end

    state start begin

    when info begin

    local lev = pc.getqf("current")

    if lev == 0 then return end

    setskin(SCROLL)

    setbgimage('level_bg.tga')

    local s = pc.getqf("select")

    if s == 0 then s = 1 end

    addimage(20,12,special.levelup_img[special.levelup_quest[lev][s*2-1]])

    setcolor(0,0,0)

    say("¡Elimina a ",mob_name(special.levelup_quest[lev][s*2-1])," !")

    say("Número de objetivos: "..special.levelup_quest[lev][s*2])

    raw_script("Recompensa: ".. special.levelup_quest[lev][5].."% de experiencia.")

    say("")

    if lev <= table.getn(special.levelup_reward1) then

    raw_script(" "..item_name(special.levelup_reward1[lev][pc.job+1]))

    else

    raw_script(" ".."Objeto Aleatorio")

    end

    raw_script(newline)

    levelup.show_mob_pos(lev)

    select("Confirmar")

    clearmapsignal()

    setskin(NOWINDOW)

    end

    when login begin

    local lev = pc.getqf("current")

    if lev != 0 then

    if pc.getqf("remain") <= 0 then

    setskin(NOWINDOW)

    pc.setqf("buttonstate", 3)

    makequestbutton(""..lev.." misión - terminada")

    else

    setskin(NOWINDOW)

    pc.setqf("buttonstate", 1)

    makequestbutton("Comenzar tarea "..lev.." ")

    end

    end

    end

    when button begin

    local lev = pc.getqf("current")

    if lev == 0 then return end

    if pc.getqf("buttonstate") == 3 then

    local s = pc.getqf("select")

    if s == 0 then s = 1 end

    say_title(" "..lev.." misión - terminada")

    say("Bien, has terminado con éxito la misión.")

    wait()

    if lev <= 20 then

    if lev <= table.getn(special.levelup_reward1) then

    pc.give_item("Nivel "..lev.." Objeto",

    special.levelup_reward1[lev][pc.job+1])

    else

    local v = number(1,100)

    if v <= special.levelup_reward3[1][1] then

    pc.give_item("Nivel "..lev.." Objeto",

    special.levelup_reward3[1][2],special.levelup_reward3[1][3])

    elseif v <= special.levelup_reward3[2][1] then

    pc.give_item("Nivel "..lev.." Objeto",

    special.levelup_reward3[2][2],special.levelup_reward3[2][3])

    elseif v <= special.levelup_reward3[3][1] then

    pc.give_item("Nivel "..lev.." Objeto",

    special.levelup_reward3[3][2],special.levelup_reward3[3][3])

    elseif v <= special.levelup_reward3[4][1] then

    pc.give_item("Nivel "..lev.." Objeto",

    special.levelup_reward3[4][2],special.levelup_reward3[4][3])

    else

    pc.give_item("Nivel "..lev.." Objeto",

    special.levelup_reward3[5][2],special.levelup_reward3[5][3])

    end

    end

    pc.give_exp_perc("Nivel "..lev.." Experiencia",

    lev, special.levelup_quest[lev][5])

    if lev == 12 or lev == 14 or lev == 16 or lev == 18 or lev == 20 then

    pc.give_item2(50083)

    say_reward(item_name(50083) .. " recibido.")

    end

    else

    local ll = lev - 20

    if lev < 26 then

    local n = table.getn(special.levelup_reward_item_21[ll])

    local t = special.levelup_reward_item_21[ll][number(1, n)]

    say_reward("Recompensa: ")

    if type(t) == 'table' then

    pc.give_item2(t[1], t[2])

    say_reward("Recibido "..item_name(t[1])..

    ""..t[2].."")

    else

    pc.give_item2(t)

    say_reward("Recibido "..item_name(t)..

    "")

    end

    end

    local reward_gold = special.levelup_reward_gold21

    local reward_exp = special.levelup_reward_exp21

    if lev >= 31 and lev <= 40 then

    reward_gold = special.levelup_reward_gold31

    reward_exp = special.levelup_reward_exp31

    elseif lev >= 41 and lev <= 50 then

    reward_gold = special.levelup_reward_gold41

    reward_exp = special.levelup_reward_exp41

    elseif lev >= 51 and lev <= 60 then

    reward_gold = special.levelup_reward_gold51

    reward_exp = special.levelup_reward_exp51

    end

     

    n = number(0, 99)

    local i = 0

    for i = 1, table.getn(reward_gold) do

    if n < reward_gold[2] then

    pc.change_money(reward_gold[1])

    say_reward("Recibes "..reward_gold[1].." Yang.")

    break

    else

    n = n - reward_gold[2]

    end

    end

     

    n = number(0, 99)

    i = 0

    for i = 1, table.getn(reward_exp) do

    if n < reward_exp[2] then

    pc.give_exp_perc("Nivel"..lev.." Experiencia",

    lev, reward_exp[1])

    say_reward("Recibes "..reward_exp[1].."% de Experiencia.")

    break

    else

    n = n - reward_exp[2]

    end

    end

    say("")

    end

    local old_lev = lev

    lev = lev + 1

     

    if lev > 1 and lev < 60 and pc.level >= lev then

    pc.setqf("buttonstate", 2)

    makequestbutton(" "..lev.." misión")

    pc.setqf("current", lev)

    pc.setqf("select", 1)

    pc.setqf("remain",special.levelup_quest[lev][2])

    setskin(NOWINDOW)

    return

    else

    pc.setqf("complete", old_lev)

    pc.setqf("current", 0)

    q.done()

    end

    elseif pc.getqf("buttonstate") == 2 then

    local lev = pc.getqf("current")

    if lev == 0 then

    q.done()

    end

    say_title("Tarea de caza:")

    say("Para la siguiente tarea de caza, tienes que")

    say("elegir cuál de los dos monstruos quieres matar.")

    local sel = select(

    mob_name(special.levelup_quest[lev][1]).." "..special.levelup_quest[lev][2].." ",

    mob_name(special.levelup_quest[lev][3]).." "..special.levelup_quest[lev][4].." "

    )

     

     

    setskin(SCROLL)

    setbgimage('level_bg.tga')

    pc.setqf("select", sel)

    addimage(20, 12, special.levelup_img[special.levelup_quest[lev][sel*2-1]])

    setcolor(0,0,0)

    say("¡Elimina a ",mob_name(special.levelup_quest[lev][sel*2-1])," .!")

    say("Número de objetivos: "..special.levelup_quest[lev][sel*2])

    raw_script("Recompensa: ".. special.levelup_quest[lev][5].."% de experiencia")

    say("")

    if lev <= table.getn(special.levelup_reward1) then

    raw_script(" "..item_name(special.levelup_reward1[lev][pc.job+1]))

    else

    say("")

    raw_script(" ".." Objeto aleatorio")

    end

    raw_script(newline)

    levelup.show_mob_pos(lev)

    local s = select("¡Bien! ¡Vamos!")

    if s == 1 then

    setskin(NOWINDOW)

    pc.setqf("remain",special.levelup_quest[lev][sel*2])

    syschat("<Tarea> ", mob_name(special.levelup_quest[lev][sel*2-1])," "..

    special.levelup_quest[lev][sel*2].." número de victorias.")

    q.set_title("mata "..mob_name(special.levelup_quest[lev][sel*2-1]).." ")

    q.set_counter("Restantes : ", pc.getqf("remain"))

    q.start()

    end

    setskin(NOWINDOW)

    clearmapsignal()

    elseif pc.getqf("buttonstate") == 1 then

    local s = pc.getqf("select")

    if s == 0 then s = 1 end

    local lev = pc.getqf("current")

    if lev != 0 then

    say_title("Tarea de caza:")

    say("Tienes que matar")

    say(pc.getqf("remain").." Número de este tipo:",mob_name(special.levelup_quest[lev][s*2-1]), "")

    say("más para completar la misión de caza.")

    local ss = select("Información sobre la misión de caza","Continuar")

     

     

    if ss == 1 then

    setskin(SCROLL)

    setbgimage('level_bg.tga')

    addimage(20,12,special.levelup_img[special.levelup_quest[lev][s*2-1]])

    setcolor(0,0,0)

    say("¡Elimina a ",mob_name(special.levelup_quest[lev][s*2-1])," !")

    say("Número de objetivos: "..special.levelup_quest[lev][s*2])

    raw_script("Recompensa: ".. special.levelup_quest[lev][5].."% de experiencia")

    say("")

    if lev <= table.getn(special.levelup_reward1) then

    raw_script(" "..item_name(special.levelup_reward1[lev][pc.job+1]))

    else

    raw_script(" ".." Objeto Aleatorio")

    end

    raw_script(newline)

    q.set_title("mata ", mob_name(special.levelup_quest[lev][s*2-1]), " ")

    q.set_counter("Restantes : ", pc.getqf("remain"))

    q.start()

    levelup.show_mob_pos(lev)

    select("Confirmar")

    setskin(NOWINDOW)

    clearmapsignal()

    end

    setskin(NOWINDOW)

    q.set_title(" matar "..mob_name(special.levelup_quest[lev][s*2-1]).." ")

    q.set_counter("Restantes:",

    pc.getqf("remain"))

    --q.set_icon(string.format("level_%02d.sub", lev))

    q.start()

    end

    end

    pc.setqf("buttonstate", -1)

    end

    when levelup begin

    local lev = pc.getqf("current");

    if lev == 0 then

    lev = pc.level

     

    if lev < 2 or lev > 60 then return end

    pc.setqf("buttonstate", 2)

    makequestbutton(""..lev.." misión")

    pc.setqf("current", lev)

    pc.setqf("select", 1)

    pc.setqf("remain", special.levelup_quest[lev][2])

    setskin(NOWINDOW)

    end

    end

    when kill begin

    local sel = pc.getqf("select")

    if sel == 0 then

    sel = 1

    end

    local lev = pc.getqf("current")

    if lev != 0 and npc.race == (special.levelup_quest[lev][sel*2-1]) and pc.getqf("buttonstate") == -1 then

    local remain = pc.getqf("remain") - 1

    if remain <= 0 then

    pc.setqf("remain", 0)

    q.set_counter_value(0)

    setskin(NOWINDOW)

    makequestbutton(" "..lev.." Misión - terminada")

    pc.setqf("buttonstate", 3)

    else

    pc.setqf("remain", remain)

    q.set_counter_value(remain)

    end

    end

    end

    function show_mob_pos(lev)

    map_index = pc.get_map_index()

    if map_index <= 0 then

    test_chat("show_mob_pos: map_index("..map_index..") < 0")

    return

    end

    if map_index > table.getn(special.lvq_map) then

    test_chat("show_mob_pos: map_index("..map_index..") > max("..table.getn(special.lvq_map)..")")

    return

    end

    lev_quest_list = special.lvq_map[map_index]

    if not lev_quest_list then

    test_chat("show_mob_pos: special.lvq_map[map_index("..map_index..")] is nil")

    return

    end

    mob_pos_list = lev_quest_list[lev]

    if not mob_pos_list then

    test_chat("show_mob_pos: special.lvq_map[map_index("..map_index..")][lev("..lev..")] is nil")

    return

    end

    table.foreachi(

    mob_pos_list,

    function (n, mob_pos)

    test_chat("addmapsignal("..mob_pos[1]..", "..mob_pos[2]..")")

    addmapsignal(mob_pos[1]*100, mob_pos[2]*100)

    end

    )

    setmapcenterposition(200, 0)

    end

    end

    end

  4. Buenas a todos!

    Me dispuse a hacer la misión de bienvenida del metin2.sg

    Esta hecha desde 0 por mi

    Imagenes:

     

     

    Imagen enviada

    Imagen enviada

     

     

     

    Quest:

     

     

    ----------------------------------
    -- Misión de Bienvenida del Metin2.SG
    -- 100% Hecha por Eliteâ„¢
    ----------------------------------
    quest bienvenido begin
    state start begin
    when login or levelup with pc.get_level() == 1 begin
    set_state(bienvenido)
    end
    end
    
    state bienvenido begin
    when letter begin
    send_letter("Adventurer's primer")
    end
    when button or info begin
    say_title("Welcome from TEC")
    say("")
    say("Please choose your language.")
    local s = select ("English","Deutsch","Italiano","Polski","Español","Don not show this message again")
    if s == 1 then
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say_title("Warmest welcome from TEC Interactive")
    say("")
    say("Hello adventurer!")
    say("TEC Interactive give you a warm welcome to Metin2 Singapore!")
    say("Do not hesitate to contact a GM if you need support and")
    say("please respect our rules.")
    wait()
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say("1) Use of Hacks, Bots and Bug Exploits is forbidden.")
    say("2) Use only english when writing in call chat.")
    say("3) Do no insult or harass other players.")
    say("4) Do no steal monster or drops from players belonging")
    say("to your own kingdom.")
    say("")
    say_yellow("Thanks in advance and enjoy your time with us!")
    set_state(bienvenido2)
    elseif s == 2 then
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say_title("Herzliches Willkommen von TEC Interactive")
    say("")
    say("Hallo Abenteurer!")
    say("TEC Interactive heißt dich herzlich auf")
    say("METIN2 SG willkommen! Zögere nicht einen GM")
    say("zu kontaktieren wennn du Support benötigst!")
    wait()
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say("Doch halte dich bitte an unsere Regeln die lautern:")
    say("")
    say("- Hacken und Bugmissbrauch sind strikt verboten")
    say("- Im Rufchat darf nur English benutzt werden")
    say("- Beleidige und Belästige andere Spieler nicht")
    say("- Metin- und Mobklau bei Spielern der gleichen")
    say("Nation ist verboten. = Kill Steal")
    say("")
    say_yellow("Danke im Vorraus und geniess die Zeit mit uns!")
    set_state(bienvenido2)
    elseif s == 3 then
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say_title("Un caloroso benvenuto dalla TEC Interactive")
    say("")
    say("Benvenuto avventuriero!")
    say("La TEC Interactive ti da un")
    say("caloroso benvenuto su METIN2 SG!")
    say("Non esitare e contattare un GM se hai bisogno di")
    say("aiuto!")
    wait()
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say("Ma per favore rispetta le nostre regole:")
    say("")
    say("- Non è consentito l'uso di Hack, Bot e l'uso")
    say("di Bug")
    say("- Usa solo l'inglese quando scrivi nella")
    say("chat pubblica")
    say("- Non insultare o infastidire gil altri player")
    say("- Rubare i mostri e i Metin dai player dello")
    say("stesso regno è proibito")
    say("")
    say_yellow("Grazie in anticipo e gustati il tuo tempo con noi!")
    set_state(bienvenido2)
    elseif s == 4 then
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say_title("TEC INTERACTIVE ma zaszcryt goraco Cie powitac")
    say("")
    say("Witaj Podrózniku!")
    say("TEC INTERACTIVE wita Cie cieplo w")
    say("swiecie METIN2 SG!")
    say("Wrazie problemów nie wahaj sie")
    say("kontaktowac´z Mistrzem Gry (GMem).")
    wait()
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say("Pamietaj, ze na naszym serweze")
    say("obowiazuja nastepujace zasady:")
    say("- Uzywaie Hacków, Botów Bugów konczy sie perm banem")
    say("- Nasz serwer jest anglojezyczny, wiec komunikuj")
    say("sie z innymi graczami w tym jezku")
    say("- Nie obrazai, nie oszukuj oraz nie przesladuj innych graczy")
    say("- Kradziez potworów oraz metinów graczom z tego")
    say("samego królestwa jest zabroniona")
    say("")
    say_yellow("Dziekujemy za to ze jestescie z nami")
    say_yellow("i zyczymy milej zabawy")
    set_state(bienvenido2)
    elseif s==5 then
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say_title("Una calorosa bienvenida de TEC Interactive")
    say("")
    say("¡Hola aventurero!")
    say("¡TEC Interactive te da una calurosa bienvenida a Metin2 SG!")
    say("No dudes en contactar con un GM si necesitas ayuda pero")
    say("por favor respeta nuestras normas.")
    wait()
    addimage(20, 12, "sgbanner.tga")
    say("")
    say("")
    say("")
    say("- El uso de Hack, Bots y aprovecharse de bug del juego")
    say("está prohibido terminantemente.")
    say("- Solo se puede utilizar inglés en el chat general.")
    say("- No insultes o a coses a otros jugadores.")
    say("- Robar monstruos o metines de jugadores del propio")
    say("reino está prohibido.")
    say("")
    say_yellow("¡Gracias de antemano y disfruta de tu tiempo")
    say_yellow("con nosotros!")
    set_state(bienvenido2)
    elseif s==6 then
    set_state(bienvenido2)
    end
    end
    end
    state bienvenido2 begin
    end
    end
    
    

     

     

    Tambien la podeis bajar en formato .quest

    Debes iniciar sesión para ver el contenido del enlace en esta publicación.

     

    Breve Explicación:

    Esta misión es nada mas de información en distintos idiomas.

    Lo podeis adaptar a vuestro server xd

    El banner solo es cambiar en el addimage el nombre de sgbanner.tga por el que vosotros querais la ruta de los banner ya esta predefinida en el cliente en el uiquest.py del root alli podreis cambiar la ruta.

    La ruta actual es d:/ymir work/ui/game/questboard/ es decir que alli debereis poner vuestros banner.

    En la descarga he hecho una carpeta con todos los banner que tiene el .sg incluyendo el que he usado el cual lo veis en la imagen.

  5. Buenas a todos!!

    No se si la sub quest de nivel 24 la traen todos los files pero pasaba de buscarla para traducirla asi que la he creado yo desde 0 y la comparto con vosotros.

    -------------------------------------------------------
    --SUB QUEST
    --LV 24
    --Encuentra el unifome de un soldado viento negro
    --Hecha por Eliteâ„¢
    -------------------------------------------------------
    quest subquest_lv24 begin
    	state start begin
      when login or levelup with pc.level >= 24  and pc.level <= 26 begin
       set_state(empezar_mision)
      end
    end
    
    state empezar_mision begin
      when letter begin
       local v= find_npc_by_vnum(20006)
       if v!= 0 then
    	target.vid("__TARGET__",v,"Habla con Mirine")
       end
      end
    
      when __TARGET__.target.click or
       20006.chat."¿Por qué lloras?"  begin
    	  target.delete("__TARGET__")
       say_title("Mirine:")
       say("Mi hermano, ¡te echo tanto de menos! ¿¡Oh!?")
       say("¿Quién eres tú?")
       wait()
       say_pc_name()
       say("Pasaba por aquí y te vi llorar. Toma, coge este")
       say("pañuelo.")
       wait()
       say_title("Mirine:")
       say("Oh, no pensé que alguien estuviese tan cerca...")
       say("mi nombre es Mirine. ¿Puedo pedirte un favor?")
       say("Mi hermano mayor ha muerto. él fue a buscar")
       say("medicina pero después..")
       say("El mi memoria ha quedado solamente la imagen de")
       say("su tumba y un solo recuerdo: su Uniforme Negro.")
       wait()
       say_title("Mirine:")
       say("De repente, el infame Clan del Viento Negro")
       say("apareció. Desafortunadamente, perdí mi recuerdo")
       say("cuando huí.")
       say("No tengo el coraje para volver y buscarlo.")
       say("¿Puedes buscar mi recuerdo perdido?")
       say_reward("Muestra misericordia y ayuda a esta pobre chica.")
       say_reward("¡Busca el uniforme negro usado que llevava su")
       say_reward("hermano!")
       local s=select("Aceptar", "Rechazar")
       if 2==s then
        say_pc_name()
    	say("Tengo cosas más importantes que hacer, ¿por qué")
    	say("debería ayudar nada menos que a una huérfana?")
    	return
       end
       say_pc_name()
       say("Claro que te ayudaré. La mision no es difícil de")
       say("completar y puedo entender que quieras tener")
       say("de vuelta el recuerdo. ¡Hasta pronto!")
       set_state(uniforme_negro)  
      end
    end
    	state uniforme_negro begin
      when letter begin
       send_letter("Consigue el Uniforme Negro")
      end
      when button or info begin
       say_title("Consigue el Uniforme Negro")
       say("El hermano de Mirine está muerto y los Maníacos")
       say("Viento Negro han robado el único recuerdo que")
       say("tenía de él. Elimina a los Maníacos Viento Negro")
       say("hasta que encuentres el Uniforme Negro del")
       say("hermano de Mirine.")
      end
      when 402.kill begin
       local s = number (1, 100)
       if s <= 5 and pc.count_item ("30032"Â) ==0 then
    	pc.give_item2 ("30032"Â, 1)
    	local v=find_npc_by_vnum(20006)
    	if 0==v then
    	else
    	 target.vid("__TARGET"Â, v, "Regresa con Mirine"Â)
    	end
       end
      end
    
      when 20006.chat."A causa del uniforme de tu hermano..."Â with pc.count_item ("30032"Â) == 0 begin
       say_title("Mirine:")
       say("¿Quieres desistir de la búsqueda? No te he pedido")
       say("mucho. Me gustaría tener nuevamente algún")
       say("recuerdo de mi hermano. ¡Por favor ayúdame!")
       local s=select("Continuar","Abandonar")
       if 2==s then
        say_pc_name()
    	say("Lo siento. Lo siento por tí, pero el Clan del")
    	say("Viento Negro es demasiado fuerte para mí.")
    	say("Cualquier otro sería una mejor elección para este")
    	say("trabajo.")
    	wait()
    	say_title("Mirine:")
    	say("Oh no... Ya he pedido ayuda a otros, pero nadie")
    	say("volvió. Tú eres mi última esperanza. Mira, esto")
    	say("es lo más valioso que poseo. Te lo daré como")
    	say("recompensa.")
    	say_reward("La muchacha saca un objeto que ha sido envuelto")
    	say_reward("cuidadosamente en un pañuelo: una espada.")
    	say_reward("Los adornos en el grifo muestran que se trata de")
    	say_reward("un arma muy valiosa.")
    	local a=select("Aceptar el reto","Abandonar")
    	if 2==a then
    	 say_title("Mirine:")
    	 say("Tienes razón. Nadie volvió, todos")
    	 say("perdieron sus vidas. La vida es más valiosa")
    	 say("que cualquier recuerdo. No tendría")
    	 say("sentido sacrificar más vidas. ¡Adiós!")
    	 set_state(__GIVEUP__)
    	 return
    	end
        say_pc_name()
    	say("No es por la recompensa, pero voy a aceptar el")
    	say("reto.")
    	return
       end
       say_title("Información:")
       say_reward("Derrotar a 100 miembros del Clan del Viento Negro")
       say_reward("parece ser más facil que rehusar la petición de")
       say_reward("la chica.")
      end
    
      when 20006.chat."¡He encontrado el Uniforme Negro!" with pc.countitem ("30032"Â) >=1 begin
       say_title("Mirine:"Â)
       say("¡Gracias! !él siempre llevaba puesto este"Â)
       say("uniforme! Nunca quiso ponerse otro traje..."Â)
       say("Aquí, toma. Este es el objeto más valioso que"Â)
       say("tengo. Ya no lo necesito, por favor aceptalo."Â)
       say_reward("Recompensa de Mirine aceptada.")
       pc.removeitem("30032"Â, 1)
       setstate(recompensa)
      end
    end
    state recompensa begin
      when letter begin
       send_letter("Recompensa de Mirine"Â)
      end
      when info or button begin
       say_title("Recompensa e Mirine")
       say("Desenvuelves la valiosa recompensa de Mirine y")
       say("encuentras una espada con una empuñadura"Â)
       say("maravillosamente adornada.")
       wait()
       say("Una arma excelente. Pero... ¿qué es esto? ¡La")
       say("cuchilla está rota!")
       say("Esta hermosa pieza artesanal es demasiado buena")
       say("como para tirarla. Debería llevarle los pedazos")
       say("rotos al herrero.")
       say_reward("Has recibido una espada rota. Llévasela a un")
       say_reward("herrero.")
       setstate(herrero)
      end
    
    state herrero begin
      when letter begin
       send_letter("Ve a ver al herrero"Â)
       local v=find_npc_by_vnum(9006)
       if 0==v then
       else
    	target.vid("__TARGET"Â, v, "Habla con el Herrero."Â)
       end
      end
      when info or button begin
       say_title("Ve a ver al herrero")
       say("Mirine debió haber estado muy agradecida para")
       say("habarte regalado su tesoro más valioso: una bella"Â)
       say("espada, pero que desafortunadamente está rota. A")
       say("primera vista aprecias que se trata de una espada")
       say("valiosa, por lo que decides llevarla al herrero.")
       wait()
       say("Una arma excelente. Pero... ¿qué es esto? ¡La")
       say("cuchilla está rota!")
       say("Esta hermosa pieza artesanal es demasiado buena")
       say("como para tirarla. Debería llevarle los pedazos")
       say("rotos al herrero.")
       say_reward("Has recibido una espada rota. Llévasela a un")
       say_reward("herrero.")
       setstate(herrero)
      end
    
      when __TARGET__.tar get.click or
       20016.chat. "Reparar la espada"Â begin
       target.delete ("__TARGET"Â)
       local r=number (1, 4)
       if r==1 then
    	pc.give_item2 ("62"Â, 1)
    	local espada = 62
       elseif r==2 then
    	pc.give_item2 ("72"Â, 1)
    	local espada = 72
       elseif r==3 then
    	pc.give_item2 ("82"Â, 1)
    	local espada = 82
       elseif r==4 then
    	pc.give_item2 ("92"Â, 1)
    	local espada = 92
       end
       say_title("Herrero:"Â)
       say("¡Esta es una espada impresionante! Era de Mirine,"Â)
       say("¿verdad? Oí que le ayudastes. Bien hecho, esto te"Â)
       say("acredita como una persona honesta así que no te"Â)
       say("cobraré por la reparación de la espada. Espera un"Â)
       say("momento...")
       wait()
       say_title("Herrero:"Â)
       say("Aquí, la cuchilla se ve ahora como nueva."Â)
       say("Un arma verdaderamente fantástica. Tómala, mi"Â)
       say("amigo."Â)
       say_reward("Obtuvistes una "..espada.."."Â)
       clear_letter()
       set_state(__COMPLETE__)
      end
    end
    state __GIVEUP__ begin
    end
    state __COMPLETE__  begin
    end
    end
    
  6. :( Pense que tenias las demas, yo tenia hasta la del 70 y la primera parte de la del 80 que todavia no termino con mi pj... Pero perdi todas las cosas cuando se me quemo mi disco externo :(.

     

    Gracias por postearlas :D

     

    PD: Elite, Si necesitas alguna en particular tengo capturas hasta la del 58 así que en un rato te la puedo compilar. Claro que las capturas son del 2010, aunque no han cambiado mucho :D

     

    Pues si me puedes pasar las capturas me harias un favor jejeje :)

  7. Buenas!!!

     

    Aqui os dejo algunas de las misiones del biologo que tengo traducidas como el el .es

     

    collect_herb_lv4.quest

     

     

    ----------------------------------------------------
    --MAKE HERB LV4
    --METIN2 Collecting Quest
    --Texto de la misión igual que el del metin2.es
    --Traducida por Eliteâ„¢
    ----------------------------------------------------
    quest make_herb_lv4  begin
    state start begin
      when login or levelup with pc.get_level() ==4  begin
       set_state(information)
      end
    end
    state information begin
      when letter begin
       local v = find_npc_by_vnum(20084)
       if v != 0 then
    	target.vid("__TARGET__", v, "Biólogo Chaegirab")
       end
       send_letter("El análisis del biólogo")
      end
      when button or info begin
       say_title("El análisis del biólogo")
       say("El biólogo Chaegirab, estudiante de Uriel, te")
       say("está buscando. Por favor, ve con él y pregúntale")
       say("si puedes ayudarle.")
      end
    
      when __TARGET__.target.click or
       20084.chat."La investigación" begin
       target.delete("__TARGET__")
       say_title("El Biologo Chaegirab:")
       ---												   l
       say("¡Me alegro de verte! Estudio todo tipo de")
       say("plantas de este reino. Hay un montón de trabajo que hacer")
       say("y no tengo tiempo de recoger las plantas por mi.")
       say("cuenta.¿Me ayudarás, por favor?.")
       wait()
       say_title("Biologo Chaegirab:")
       say("En este momento, estoy estudiando la flor")
       say("Melocoton. Tengo que hacer algunos experimentos")
       say("con estas flores. ¿Puedes traerme 5 Flores")
       say("Melocotón? ¡Por favor, ayúdame!")
       say("¡Tráeme una flor Melocotón cada vez, para que")
    	  say("pueda examinarlas!")							  
       set_state(go_to_disciple)
       pc.setqf("collect_count",0)--Current number of items
       pc.setqf("drink_drug",0) -- 1 when take Quest Potion
      end
    end
    state go_to_disciple begin
      when letter begin
       send_letter("¡Tarea especial! Recoger hierb")
      
      end
      when button or info begin
       say_title("Busca flores Melocotón")
       ---												   l
       say("")
       say("El biólogo Chaegirab, estudiante de Uriel, busca")
       say("flores Melocotón. Llévale una flor Melocotón cada")
       say("vez para sus experimentos. Puedes conseguirlas de")
       say("los Lobos Alfa Hambrientos.")
       say_item_vnum(50701)
       say_reward("Has entregado".." "..pc.getqf("collect_count").." Flores Melocotón hasta ahora.")
      end
    
      when 71035.use begin --Quest Potion
       if pc.getqf("drink_drug")==1 then
    	say("Te has tomado la poción.")
    	return
       end
       if pc.count_item(50701)==0 then
    	say_title("Biólogo Chaegirab:")
    	say("Incluso después de conocer la poción.")
    	say("No es demasiado tarde para beberla.")
    	return
       end
       item.remove()
       pc.setqf("drink_drug",1)
      end
    
      when 173.kill begin
       if pc.count_item(50701)<5-pc.getqf("collect_count") then
    	pc.give_item2(50701, 1)
       end
      end
    
    	 when 20084.chat."Flores Melocotón" with pc.count_item(50701) >0   begin
    	say_title("Biólogo Chaegirab:")
    	---												   l
    	say("¡¡Oh!! Has encontrado una!")
    	say("Dejame ver...")
    	say("Solo un momento.")
    	pc.remove_item(50701, 1)
    	wait()
      
    	local pass_percent
    	if pc.getqf("drink_drug")==0 then
    	 pass_percent=90
    	else
    	 pass_percent=100
    	end
      
    	local s= number(1,100)
    	if s<= pass_percent  then
    	   if pc.getqf("collect_count")< 4 then	 --Less than 5
    	  local index =pc.getqf("collect_count")+1
    	  pc.setqf("collect_count",index)	 --you got one, so you would get +1
    	  say("Biólogo Chaegirab:")
    	  say("¡Oh! ¡Esta Flor Melocotón es de la mejor calidad!")
    	  say("Aunque todavía necesito otras".." "..5-pc.getqf("collect_count").. ". ¡Por favor")
    	  say("intentalo y encuentra alguna!")
    	  pc.setqf("drink_drug",0)  --Initialize the potions
    	  return
    	 end
    	 say_title("Biólogo Chaegirab:")
    	 say("Ahora tengo suficientes Flores Melocotón. ¡Buen")
    	 say("trabajo! Como muestra de mi gratitud voy a darte")
    	 say("algo de Yang y los resultados de mi investigación.")
    		say_title("Información:")
    	 say_reward("Como recompensa, el Biólogo Chaegirab te dará 500")
    	 say_reward("puntos de experiencia y 1000 Yang. También")
    	 say_reward("recibirás un arma +3.")
    	 pc.setqf("collect_count",0)
    	 pc.setqf("drink_drug",0)
    	 pc.setqf("duration",0)
    	 clear_letter()
    	 set_state(__complete)
    	
    	 if pc.job==3 then
    	  pc.give_item2(07003)
    	  say_reward("Fan +3")
    	  return
    	 else  
    	  pc.give_item2(00013)
    	  say_reward("Espada +3")
    	 end
    	 pc.change_money(1000)
    	 pc.give_exp2(500)
    	 set_quest_state("levelup","run")
    	
    	else	  
    	say_title("Biólogo Chaegirab:")
    	say("Lo siento, pero esta Flor Melocotón es de pobre")
    	say("calidad e inútil para mi. Por favor consígueme")
    	say("otra.")
    	pc.setqf("drink_drug",0)  --Initialize Potions
    	return
    	end
    	
    end
    end
    
    state __complete begin
    end
    end
    
    

     

     

    collect_herb_lv7.quest

     

     

    ----------------------------------------------------
    --MAKE HERB LV7
    --METIN2 Collecting Quest
    --Texto de la misión igual que el del metin2.es
    --Traducida por Eliteâ„¢
    ----------------------------------------------------
    quest make_herb_lv7  begin
    state start begin
      when login or levelup with pc.get_level() ==7  begin
       set_state(information)
      end
    end
    state information begin
      when letter begin
       local v = find_npc_by_vnum(20084)
       if v != 0 then
    	target.vid("__TARGET__", v, "Biólogo Chaegirab")
       end
       send_letter("El análisis del biólogo")
      end
      when button or info begin
       say_title("El análisis del biólogo")
       say("El biólogo Chaegirab, estudiante de Uriel, te")
       say("está buscando. Por favor, ve con él y pregúntale")
       say("si puedes ayudarle.")
      end
    
      when __TARGET__.target.click or
       20084.chat."La investigación" begin
       target.delete("__TARGET__")
       say_title("El Biologo Chaegirab:")
       ---												   l
       say("¡Me alegro de verte! Estudio todo tipo de")
       say("plantas de este reino. Hay un montón de trabajo que hacer")
       say("y no tengo tiempo de recoger las plantas por mi.")
       say("cuenta.¿Me ayudarás, por favor?.")
       wait()
       say_title("El Biologo Chaegirab:")
       say("En este momento, estoy estudiando la Campana las")
       say("Liebre. tengo que hacer algunos experimentos con")
       say("las Campanas las Liebres.")
       say("Por lo tanto, necesito 5. ¿Puedes traérmelas? Por")
       say("favor, tienes que ayudarme. Tráeme una Campana")
    	  say("las Liebras cada vez para que pueda")
       say("investigarlas.")							  
       set_state(go_to_disciple)
       pc.setqf("collect_count",0)--Current number of items
       pc.setqf("drink_drug",0) -- 1 when take the Quest Potion
      end
    end
    state go_to_disciple begin
      when letter begin
       send_letter("¡Tarea especial! Recoger hierb")
      
      end
      when button or info begin
       say_title("Recoge Campanas las Liebres")
       ---												   l
       say("El Biólogo Chaegirab, aprendiz de Uriel, está")
       say("buscando Campanas las Liebres. Llévale solo una")
       say("cada vez para sus experimentos. Puedes")
       say("conseguirlas de los Lobos Alfa Azul Hambrientos.")
       say_title("Información:")
       say_item_vnum(50702)
       say_reward("Has entregado".." "..pc.getqf("collect_count").." Campanas las Liebres hasta")
       say_reward("ahora.")
      end
    
      when 71035.use begin --Quest Potion
       if pc.getqf("drink_drug")==1 then
    	say("Te has tomado la poción.")
    	return
       end
       if pc.count_item(50702)==0 then
    	say_title("Biólogo Chaegirab:")
    	say("Incluso después de conocer la poción.")
    	say("No es demasiado tarde para beberla.")
    	return
       end
       item.remove()
       pc.setqf("drink_drug",1)
      end
    
      when 175.kill begin
       if pc.count_item(50702)< 5 -pc.getqf("collect_count") then
    	pc.give_item2(50702, 1)
       end
      end
    
    	 when 20084.chat."Las Campanas las Liebres" with pc.count_item(50702) >0   begin
    	say_title("Biólogo Chaegirab:")
    	---												   l
    	say("Oh, ¡has encontrado una! Déjame verla...")
    	pc.remove_item(50702, 1)
    	wait()
      
    	local pass_percent
    	if pc.getqf("drink_drug")==0 then
    	 pass_percent=90
    	else
    	 pass_percent=100
    	end
      
    	local s= number(1,100)
    	if s<= pass_percent  then
    	   if pc.getqf("collect_count")< 4 then	 --Less than 5
    	  local index =pc.getqf("collect_count")+1
    	  pc.setqf("collect_count",index)	 --you got one, so you would get +1
    	  say_title("Biólogo Chaegirab")
    	  say("¡Oh! ¡Es de máxima calidad!")
    	  say("Por desgracia, necesito ".." "..5-pc.getqf("collect_count").. " Campánulas")
    	  say("más. ¡Por favor, intenta encontrarlas!")
    	  pc.setqf("drink_drug",0)  --Initialize the potions
    	  return
    	 end
    	 say_title("Biólogo Chaegirab:")
    	 say("Ahora tengo suficientes Campanas las Liebres.")
    	 say("¡Buen trabajo! Como muestra de mi agradecimiento")
    	 say("te daré algunos Yang y los resultados de mi")
    		say("investigación.")
    	 say_reward("Como recomepnsa, el Biólogo Chaegirab te dará")
    	 say_reward("2000 puntos de experiencia y 3000 Yang. También")
    	 say_reward("recibirás una armadura +3.")
    	 if pc.job==0 then
    	  pc.give_item2(11203)
    	  say_reward("Armadura de Monje +3")
    	 end
    	 if pc.job==1 then
    	  pc.give_item2(11403)
    	  say_reward("Traje Azul +3")
    	 end
    	 if pc.job==2 then
    	  pc.give_item2(11603)
    	  say_reward("Arm. Placas Réquiem +3")
    	 end
    	 if pc.job==3 then
    	  pc.give_item2(11803)
    	  say_reward("Ropaje Azul +3")
    	 end
    	 pc.setqf("collect_count",0)
    	 pc.setqf("drink_drug",0)
    	 pc.setqf("duration",0)
    	 clear_letter()
    	 set_state(__complete)
    	 pc.change_money(3000)
    	 pc.give_exp2(2000)
    	 set_quest_state("levelup","run")
    	 return
    	else	  
    	say_title("Biólogo Chaegirab:")
    	say("Lo siento, pero esta campanula es de pobre")
    	say("calidad e inútil para mi. Por favor consígueme")
    	say("otra.")
    	pc.setqf("drink_drug",0)  --Initialize Potions
    	return
    	end
    	
    end
    end
    
    
    state __complete begin
    end
    end
    

     

     

    collect_herb_lv10.quest

     

     

    ----------------------------------------------------
    --MAKE HERB LV10
    --METIN2 Collecting Quest
    --Texto de la misión igual que el del metin2.es
    --Traducida por Eliteâ„¢
    ----------------------------------------------------
    quest make_herb_lv10  begin
    state start begin
      when login or levelup with pc.get_level() ==10  begin
       set_state(information)
      end
    end
    state information begin
      when letter begin
       local v = find_npc_by_vnum(20084)
       if v != 0 then
    	target.vid("__TARGET__", v, "Biólogo Chaegirab")
       end
       send_letter("El análisis del biólogo")
      end
      when button or info begin
       say_title("El análisis del biólogo")
       say("El biólogo Chaegirab, estudiante de Uriel, te")
       say("está buscando. Por favor, ve con él y pregúntale")
       say("si puedes ayudarle.")
      end
    
      when __TARGET__.target.click or
       20084.chat."La investigación." begin
       target.delete("__TARGET__")
       say("Biólogo Chaegirab::")
       ---												   l
       say("Cielos, por favor, ayúdame...")
       say("Estudio todo tipo de plantas en este reino. Hay")
       say("un montón de trabajo que hacer. No tengo tiempo")
       say("de coger plantas por mi cuenta. ¿Me ayudarás, por")
       say("favor?")
       wait()
       say("Biólogo Chaegirab:")
       say("En este momento estoy estudiando las Flores Kaki.")
       say("Necesito conducir algunos experimientos y")
       say("necesito más. ¿Puedes conseguirme alguna? 5")
       say("Flores Kaki deberían ser suficientes. Estaría muy")
       say("agradecido por tu ayuda. Por favor, tráeme solo")
    	  say("una cada vez que pueda estudiarlas")
       say("individualmente.")									  
       set_state(go_to_disciple)
       pc.setqf("collect_count",0)--Current number of items
       pc.setqf("drink_drug",0) --1 when take the Quest Potion
      end
    end
    state go_to_disciple begin
      when letter begin
       send_letter("¡Tarea especial! Recoger hierb")
      end
      when button or info begin
       say_title("Recoge flores Kaki")
       ---												   l
       say("El biólogo Chaegirab, el aprediz de Uriel, está")
       say("buscando Flores Kaki. Tan solo llévale una cada")
       say("vez para sus experimientos. Puedes conseguirlas")
       say("de los Lobos Alfa Gris Hambrientos.")
       wait()
       say_title("Información:")
       say_item_vnum(50703)
       say_reward("Hasta ahora has entrgado".." "..pc.getqf("collect_count").." flores Kaki.")
      end
    
      when 71035.use begin --Potion of Quest
       if pc.getqf("drink_drug")==1 then
    	say("Te has tomado la poción.")
    	return
       end
       if pc.count_item(50703)==0 then
    	say_title("Biólogo Chaegirab:")
    	say("Incluso después de conocer la poción.")
    	say("No es demasiado tarde para beberla.")
    	return
       end
       item.remove()
       pc.setqf("drink_drug",1)
      end
    
      when 177.kill begin
       if pc.count_item(50703)<5- pc.getqf("collect_count")then
    	pc.give_item2(50703, 1)
       end
      end
    
    	 when 20084.chat."Flores Kaki" with pc.count_item(50703) >0   begin
    	say_title("Biólogo Chaegirab:")
    	---												   l
    	say("¡¡Oh!! ¡Has encontrado una!")
    	say("Déjame ver...")
    	say("Solo un momento.")
    	pc.remove_item(50703, 1)
    	wait()
      
    	local pass_percent
    	if pc.getqf("drink_drug")==0 then
    	 pass_percent=90
    	else
    	 pass_percent=100
    	end
      
    	local s= number(1,100)
    	if s<= pass_percent  then
    	   if pc.getqf("collect_count")< 4 then
    	  local index =pc.getqf("collect_count")+1
    	  pc.setqf("collect_count",index)	 --you got one, so you would get +1
    	  say_title("Biólogo Chaegirab:")
    	  say("¡Oh!¡Es de máxima calidad!")
    	  say("Por desgracia, ¡necesito "..5-pc.getqf("collect_count").. " flores Kaki más!")
    	  say("¡Por favor, intenta encontrarlas!")
    	  pc.setqf("drink_drug",0)  --Initialize the potions
    	  return
    	 end
    	 say_title("Biólogo Chaegirab:")
    	 say("Ahora tengo suficientes Flores Kaki. ¡Buen")
    	 say("trabajo! Como muestra de mi gratitud, voy a darte")
    	 say("algo de Yang y los resultados de mi")
    		say("investigación.")
    	 wait()
    	 say_title("Información")
    	 say_reward("Como recompensa, has recibido esto del biólogo")
    	 say_reward("Chaegirab:")
    	 say_reward("6500 Exp y 5000 Yang. Ademásm consigues:")
    	 say_reward("Collar de Bronce +3")
    	 pc.setqf("collect_count",0)
    	 pc.setqf("drink_drug",0)
    	 pc.setqf("duration",0)
    	 clear_letter()
    	 set_state(__complete)
    	 pc.give_item2(16023)
    	 pc.change_money(5000)
    	 pc.give_exp2(6500)
    	 set_quest_state("levelup","run")
    	
    	 return
    	else	  
    	say_title("Biólogo Chaegirab:")
    	say("Lo siento, pero esta Flor Kaki es de pobre")
    	say("calidad e inútil para mí. Por favor, consígueme")
    	say("otra.")
    	pc.setqf("drink_drug",0)  --Initialize Potions
    	return
    	end
    end
    end
    
    
    state __complete begin
    end
    end
    

     

     

    collect_herb_lv15.quest

     

     

    ----------------------------------------------------
    --MAKE HERB LV15
    --METIN2 Collecting Quest
    --Texto de la misión igual que el del metin2.es
    --Traducida por Eliteâ„¢
    ----------------------------------------------------
    quest make_herb_lv15  begin
    state start begin
      when login or levelup with pc.get_level() ==15  begin
       set_state(information)
      end
    end
    state information begin
      when letter begin
       local v = find_npc_by_vnum(20084)
       if v != 0 then
    	target.vid("__TARGET__", v, "Biólogo Chaegirab")
       end
       send_letter("El análisis del biologo")
      end
      when button or info begin
       say_title("El análisis del biólogo")
       say("El biólogo Chaegirab, estudiante de Uriel, te")
       say("está buscando. Por favor, ve con él y pregúntale")
       say("si puedes ayudarle.")
      end
    
      when __TARGET__.target.click or
       20084.chat."La investigación" begin
       target.delete("__TARGET__")
       say_title("El Biologo Chaegirab:")
       ---												   l
       say("¡Me alegro de verte! Estudio todo tipo de")
       say("plantas de este reino. Hay un montón de trabajo que hacer")
       say("y no tengo tiempo de recoger las plantas por mi.")
       say("cuenta.¿Me ayudarás, por favor?.")
       wait()
       say_title("Biólogo Chaegirab:")
       say("Actualmente estoy investogando la Raíz Gango.")
       say("Tengo que hacer algunos experimentos y necesito")
       say("varias raices. ¿Puedes conseguirme alguna? 5")
       say("Raices Gango deberían ser suficientes. ¡Estaría")
       say("muy agradecido por tu ayuda! Traéme solo una cada")
    	  say("vez, para que pueda estudiarlas individualmente.")							
       set_state(go_to_disciple)
       pc.setqf("collect_count",0)--_Current number of items
       pc.setqf("drink_drug",0) -- 1 when take the Quest Potion
      end
    end
    state go_to_disciple begin
      when letter begin
       send_letter("¡Tarea especial! Recoger hierb")
      
      end
      when button or info begin
       say_title("Recoge Raíces Gango")
       ---												   l
       say("El Biólogo Chaegirab, aprendiz de Uriel, está")
       say("buscando Raices Gango. Por favor, llévale solo")
       say("una cada vez para sus experimentos. Puedes")
       say("conseguirlas de los Osos Pardos Hambrientos.")
       say_item_vnum(50704)
       say_reward("Hasta ahora, has entregado".." "..pc.getqf("collect_count").."Raíces Gango")
      end
    
      when 71035.use begin --Potion of Quest
       if pc.getqf("drink_drug")==1 then
    	say("Te has tomado la poción.")
    	return
       end
       if pc.count_item(50704)==0 then
    	say_title("Biólogo Chaegirab:")
    	say("Incluso después de conocer la poción.")
    	say("No es demasiado tarde para beberla.")
    	return
       end
       item.remove()
       pc.setqf("drink_drug",1)
      end
    
      when 181.kill begin
       local s = number(1, 100)
       if  pc.count_item(50704)<5- pc.getqf("collect_count")then
    	pc.give_item2(50704, 1)
       end
      end
    
    	 when 20084.chat."Raíces Gango" with pc.count_item(50704) >0   begin
    	say_title("Biólogo Chaegirab:")
    	---												   l
    	say("Oh, ¡has encontrado una! Déjame verla...")
    	pc.remove_item(50704, 1)
    	wait()
      
    	local pass_percent
    	if pc.getqf("drink_drug")==0 then
    	 pass_percent=90
    	else
    	 pass_percent=100
    	end
      
    	local s= number(1,100)
    	if s<= pass_percent  then
    	   if pc.getqf("collect_count")< 4 then
    	  local index =pc.getqf("collect_count")+1
    	  pc.setqf("collect_count",index)
    	  say_title("Biólogo Chaegirab:")
    	  say("¡Oh! !Esta Raíz Gango es de gran calidad! Aunque")
    	  say("todavía necesitas otras ".." "..5-pc.getqf("collect_count").. ". ¡Por favor, inténtalo")
    	  say("y encuentra alguna!")
    	  pc.setqf("drink_drug",0)
    	  return
    	 end
    	 say_title("Biólogo Chaegirab:")
    	 say("Ahora tengo suficientes Raices Gango. ¡Buen")
    	 say("trabajo! Como muestra de mi gratitud voy a darte")
    	 say("algo de Yang y los resultados de mi")
    		say("investigación.")
    	 say_title("Información:")
    	 say_reward("Com recompensa, recibes esto del biólogo")
    	 say_reward("Chaegirab: 25000 Exp y 10000 Yang.")
    	 say_reward("Además, consigues: Pendientes de Cobre+3")
    	 pc.setqf("collect_count",0)
    	 pc.setqf("drink_drug",0)
    	 pc.setqf("duration",0)
    	 clear_letter()
    	 set_state(__complete)
    	 pc.give_item2(17023)
    	 pc.change_money(10000)
    	 pc.give_exp2(25000)
    	 set_quest_state("levelup","run")
    	 return
    	else	  
    	say_title("Biólogo Chaegirab:")
    	say("Lo siento, pero esta Raíz Gango es de pobre")
    	say("calidad e inútil para mi. Por favor consígueme")
    	say("otra.")
    	pc.setqf("drink_drug",0)  --Initialize Potions
    	return
    	end
    end
    end
    
    
    state __complete begin
    end
    end
    

     

     

    collect_herb_lv20.quest

     

     

    ----------------------------------------------------
    --MAKE HERB LV20
    --METIN2 Collecting Quest
    --Texto de la misión igual que el del metin2.es
    --Traducida por Eliteâ„¢
    ----------------------------------------------------
    quest make_herb_lv20  begin
    state start begin
      when login or levelup with pc.get_level() ==20  begin
       set_state(information)
      end
    end
    state information begin
      when letter begin
       local v = find_npc_by_vnum(20084)
       if v != 0 then
    	target.vid("__TARGET__", v, "Biólogo Chaegirab")
       end
       send_letter("El análisis del biólogo")
      end
      when button or info begin
       say_title("El análisis del biólogo")
       say("El biólogo Chaegirab, estudiante de Uriel, te")
       say("está buscando. Por favor, ve con él y pregúntale")
       say("si puedes ayudarle.")
      end
    
      when __TARGET__.target.click or
       20084.chat."La investigación" begin
       target.delete("__TARGET__")
       say_title("Biólogo Chaegirab:")
       ---												   l
       say("Cielos, por favor, ayúdame...")
       say("Estudio todo tipo de plantas en este reino. Hay")
       say("un montón de trabajo que hacer. No tengo tiempo")
       say("de coger plantas por mi cuenta. ¿Me ayudarás, por")
       say("favor?")
       wait()
       say("Biólogo Chaegirab:")
       say("En este momento estoy estudiando las Lilas. Tengo")
       say("que hacer algunos experimientos con las Lilas y")
       say("por eso necesito un montón. ¿Puedes traerme")
       say("algunas plantas? 10 Lilas deberías ser")
       say("suficiente. Por favor, tienes que ayudarme.")
    	  say("Tráeme una cada vez para que pueda examinarlas.")						  
       set_state(go_to_disciple)
       pc.setqf("collect_count",0)--Current number of items
       pc.setqf("drink_drug",0) -- 1 when take the Quest Potion
      end
    end
    state go_to_disciple begin
      when letter begin
       send_letter("¡Tarea especial! Recoger hierb")
      
      end
      when button or info begin
       say_title("Recoge Lilas")
       ---												   l
       say("El biólogo Chaegirab, el aprediz de Uriel, está")
       say("buscando Lilas. Llévale solo una cada para")
       say("sus experimientos. Puedes conseguirlas de los Osos")
       say("Negros Hambrientos.")
       say_item_vnum(50705)
       say_reward("Hasta entregado".." "..pc.getqf("collect_count").." Lilas hasta ahora.")
      end
    
      when 71035.use begin --Potion of Quest
       if pc.getqf("drink_drug")==1 then
    	say("Te has tomado la poción.")
    	return
       end
       if pc.count_item(50705)==0 then
    	 say_title("Biólogo Chaegirab:")
    	 say("Incluso después de conocer la poción.")
    	 say("No es demasiado tarde para beberla.")
    	 return
       end
       item.remove()
       pc.setqf("drink_drug",1)
      end
    
      when 182.kill begin
       local s = number(1, 100)
       if  pc.count_item(50705)< 10 - pc.getqf("collect_count")then
    	pc.give_item2(50705, 1)
       end
      end
    
    	 when 20084.chat."Lila" with pc.count_item(50705) >0   begin
    	say("Biólogo Chaegirab:")
    	---												   l
    	say("Oh, ¡has encontrado Lilas! Déjame echar un")
    	say("vistazo rápido a las flores...")
    	pc.remove_item(50705, 1)
    	wait()
      
    	local pass_percent
    	if pc.getqf("drink_drug")==0 then
    	 pass_percent=80
    	else
    	 pass_percent=100
    	end
      
    	local s= number(1,100)
    	if s<= pass_percent  then
    	   if pc.getqf("collect_count")< 9 then	 --Less than 10
    	  local index =pc.getqf("collect_count")+1
    	  pc.setqf("collect_count",index)	 --you got one, so you would get +1
    	  say_title("Biólogo Chaegirab:")
    	  say("¡Oh! ¡Es de máxima calidad!")
    	  say("Por desgracia, ¡necesito ".." "..10-pc.getqf("collect_count").. " Lilas más!")
    	  say("¡Por favor, intenta")
    	  say("encontrarlas!")
    	  pc.setqf("drink_drug",0)  --Initialize the potions
    	  return
    	 end
    	 say_title("Biólogo Chaegirab:")
    	 say("Ahora tengo suficientes Lilas. ¡Buen trabajo!")
    	 say("Como muestra de mi gratitud, voy a darte algo de")
    	 say("Yang y los resultados de mi investigación.")
    		say_reward("Como recompensa, has conseguido esto del biólogo")
    	 say_reward("Chaegirab:")
    	 say_reward("95000 Exp y 15000 Yang.")
    	 say_reward("Además, has conseguido: Brazalete de cobre +3")  
    	 pc.setqf("collect_count",0)
    	 pc.setqf("drink_drug",0)
    	 pc.setqf("duration",0)
    	 clear_letter()
    	 set_state(__complete)
    	 pc.give_item2(14023)
    	 pc.change_money(15000)
    	 pc.give_exp2(95000)
    	 set_quest_state("levelup","run")
    	 return
    	else	  
    	say_title("Biólogo Chaegirab:")
    	say("Lo siento, pero esta Lila es de pobre")
    	say("calidad e inútil para mi. Por favor consígueme")
    	say("otra.")
    	pc.setqf("drink_drug",0)  --Initialize Potions
    	return
    	end
    end
    end
    
    
    state __complete begin
    end
    end
    

     

     

    collect_herb_lv25.quest

     

     

    ----------------------------------------------------
    --MAKE HERB LV25
    --METIN2 Collecting Quest
    --Texto de la misión igual que el del metin2.es
    --Traducida por Eliteâ„¢
    ----------------------------------------------------
    quest make_herb_lv25  begin
    state start begin
      when login or levelup with pc.get_level() ==25  begin
       set_state(information)
      end
    end
    state information begin
      when letter begin
       local v = find_npc_by_vnum(20084)
       if v != 0 then
    	target.vid("__TARGET__", v, "Biólogo Chaegirab")
       end
       send_letter("El análisis del biólogo")
      end
      when button or info begin
       say_title("El análisis del biólogo")
       say("El biólogo Chaegirab, estudiante de Uriel, te")
       say("está buscando. Por favor, ve con él y pregúntale")
       say("si puedes ayudarle.")
      end
    
      when __TARGET__.target.click or
       20084.chat."La investigación" begin
       target.delete("__TARGET__")
       say_title("Biólogo Chaegirab:")
       ---												   l
       say("¡Me alegro de verte! Estudio todo tipo de plantas")
       say("en este reino. Hay un montón de trabajo que hacer")
       say("y no tengo tiempo de recoger las plantas por mi")
       say("cuenta. ¿Me ayudarás, por favor?")
       wait()
       say_title("Biólogo Chaegirab:")
       say("Ahora mismo, estoy estudiando los Fungicidas,")
       say("tengo que hacer algunos experimentos con los")
       say("Fungicidas y por eso necesito 10. ¿Puedes traerme")
       say("alguno? Por favor, tienes que ayudarme. Tráeme")
    	  say("uno cada vez, para que pueda examinarlos.")									
       set_state(go_to_disciple)
       pc.setqf("collect_count",0)--Current number of items
       pc.setqf("drink_drug",0) -- 1 when take the Quest Potion
      end
    end
    state go_to_disciple begin
      when letter begin
       send_letter("¡Tarea especial! Recoger hierb")
      
      end
      when button or info begin
       say_title("Recoge Fungicida")
       ---												   l
       say("El Biólogo Chaegirab, aprendiz de Uriel, está")
       say("bucando Fungicidas. Llévale uno cada vez para")
       say("sus experimientos. Puedes conseguirlos de los Osos")
       say("Marrones Hambrientos.")
       say_item_vnum(50705)
       say_reward("Has entregado".." "..pc.getqf("collect_count").." "..item_name(50706).." Fungicidas hasta ahora.")
      end
    
      when 71035.use begin --Potion of Quest
       if pc.getqf("drink_drug")==1 then
    	say("Te has tomado la poción.")
    	return
       end
       if pc.count_item(50706)==0 then
    	say_title("Biólogo Chaegirab:")
    	say("Incluso después de conocer la poción.")
    	say("No es demasiado tarde para beberla.")
    	return
       end
       item.remove()
       pc.setqf("drink_drug",1)
      end
    
      when 183.kill begin
       local s = number(1, 100)
       if  pc.count_item(50706)<10 - pc.getqf("collect_count") then
    	pc.give_item2(50706, 1)
       end
      end
    
    	 when 20084.chat."Las Fungicidas" with pc.count_item(50706) >0   begin
    	say_title("Biólogo Chaegirab")
    	---												   l
    	say("Oh, ¡has encontrado uno! Déjame verlo...")
    	pc.remove_item(50706, 1)
    	wait()
      
    	local pass_percent
    	if pc.getqf("drink_drug")==0 then
    	 pass_percent=70
    	else
    	 pass_percent=100
    	end
      
    	local s= number(1,100)
    	if s<= pass_percent  then
    	   if pc.getqf("collect_count")< 9 then
    	  local index =pc.getqf("collect_count")+1
    	  pc.setqf("collect_count",index)
    	  say_title("Biólogo Chaegirab:")
    	  say("¡Oh! ¡Este Fungicida es de la mejor calidad!")
    	  say("Aunque todavía necesito otros "..10-pc.getqf("collect_count").. ". ¡Por favor")
    	  say("inténtalo y encuentra alguno!")
    	  pc.setqf("drink_drug",0)
    	  return
    	 end
    	 say_title("Biólogo Chaegirab:")
    	 say("Ahora tego suficientes Fungicidas. ¡Buen")
    	 say("trabajo! Como muestra de mi gratitud voy a darte")
    	 say("algo de Yang y los resultados de mi")
    	 say("investigación.")
    		say_reward("Como recompensa recibirás 200.000 puntos de")
    	 say_reward("experiencia y 20.000 Yang. Además, recibirás un")
    	 say_reward("Casco +2.")	
    	 if pc.job==0 then
    	  pc.give_item2(12222)
    	  say_reward("Casco de Hierro +2")
    	 end
    	 if pc.job==1 then
    	  pc.give_item2(12362)
    	  say_reward("Capucha de cadena +2")
    	 end
    	 if pc.job==2 then
    	  pc.give_item2(12502)
    	  say_reward("Yelmo Burlón +2")
    	 end
    	 if pc.job==3 then
    	  pc.give_item2(12642)
    	  say_reward("Sombrero Fénix +2")
    	 end
    	 pc.setqf("collect_count",0)
    	 pc.setqf("drink_drug",0)
    	 pc.setqf("duration",0)
    	 clear_letter()
    	 set_state(__complete)
    	 pc.change_money(20000)
    	 pc.give_exp2(200000)
    	 set_quest_state("levelup","run")
    	 return
    	else	  
    	say_title("Biólogo Chaegirab:")
    	say("Lo siento, pero este Fungicida es de pobre")
    	say("calidad e inútil para mi. Por favor consígueme")
    	say("otro.")
    	pc.setqf("drink_drug",0)
    	return
    	end
    end
    end
    
    
    state __complete begin
    end
    end
    

     

     

    collect_quest_lv70.quest-->

    Debes iniciar sesión para ver el contenido del enlace en esta publicación.

     

     

    ----------------------------------------------------
    --COLLECT QUEST_lv70
    --METIN2 collect quest
    --Traducida por Eliteâ„¢
    ----------------------------------------------------
    quest collect_quest_lv70 begin
    state start begin
    end
    state run begin
    when login or levelup with pc.level >= 70
    set_state(information)
    end
    end
    state information begin
    when letter begin
    local v = find_npc_by_vnum(20084)
    if v != 0 then
    target.vid("__TARGET__", v, "La investigación del Biólogo")
    end
    send_letter("La investigación del Biólogo")
    end
    when button or info begin
    say_title("La investigación del Biólogo")
    say("El Biólogo Chaegirab,aprendiz de Uriel,te está")
    say("buscando desesperadamente. Date prisa y descubre")
    say("cómo puedes ayudarle.")
    end
    when __TARGET__.target.click or
    20084.chat."Ramas de Zelkovas" begin
    target.delete("__TARGET__")
    say_title("Biólogo Chaegirab:")
    --- l
    say("Hola, ¡es agadable verte! Actualmente estoy.")
    say("estudiando el Bosque Fantasma y las extrañas")
    say("criaturas que viven ahí. Como ya sabes, no tengo")
    say("tiempo suficiente para ir de excursión así que.")
    say("dependo de tu ayuda. ¿Podrías recoger algo de")
    say("información para mi?")
    wait()
    say_title("Biólogo Chaegirab:")
    say("Es sobre el lugar que ellos llaman el Bosque")
    say("Fantasma. Después de que las Piedras Metin")
    say("propagasen su influencia sobre el continente,")
    say("terribles fantasmas alcazaron este lugar. Esto")
    say("lo hace uno de los más interesantes pero también")
    say("más peligroso sitios para estudiar. Así que ten")
    say("cuidado.")
    wait()
    say_title("Biólogo Chaegirab:")
    say("Necesito 25 ramas Zelkova para mi investigación,")
    say("sin embargo solo necesito aquellas que son")
    say("delgadas y estén completamente intactas. Solo")
    say("tráeme una rama cada vez, ya que la investigación")
    say("requiere mucho tiempo")
    set_state(go_to_disciple)
    pc.setqf("duration",0)
    pc.setqf("collect_count",0)
    pc.setqf("drink_drug",0)
    end
    end
    state go_to_disciple begin
    when letter begin
    send_letter("La investigacion del Biólogo")
    end
    when button or info begin
    say_title("Ramas del Bosque Fantasma")
    --- l
    say("El Biólogo Chaegirab,aprendiz de Uriel,está")
    say("estudiando los árboles en el Bosque Fantasma.")
    say("Necesita 25 Ramas de Zelkova para su")
    say("investigación. Llévale solo una cada vez, para")
    say("que pueda examinarlas individualmente. Crecen en")
    say("los árboles Fantasma.")
    say("")
    say_item_vnum(30165)
    say_reward("Has entregado " .. " " .. pc . getqf ( "collect_count") .. " ramas hasta ahora.")
    end
    when 71035.use begin
    if get_time() < pc.getqf("duration") then
    say("No puedes utilizar la poción de la misión")
    return
    end
    if pc.getqf("drink_drug")==1 then
    say("La estas usando.")
    return
    end
    if pc.count_item(30165)==0 then
    say_title("Biólogo Chaegirab:")
    say("Mientras estas organizando las ramas del bosque ")
    say("del fantasma, se puede utilizar la poción de la misión.")
    return
    end
    item.remove()
    pc.setqf("drink_drug",1)
    end
    when 20084.chat."Las Ramas de Zelkova" with pc.count_item(30165) >0 begin
    if get_time() > pc.getqf("duration") then
    say_title("Biólogo Chaegirab:")
    --- l
    say("Oh, ¡has encontrado una rama!")
    say("Dame un segundo para comprobarla...")
    pc.remove_item(30165, 1)
    pc.setqf("duration",get_time()+0*0*00)
    wait()
    local pass_percent
    if pc.getqf("drink_drug")==0 then
    pass_percent=60
    else
    pass_percent=90
    end
    local s= number(1,100)
    if s<= pass_percent then
    if pc.getqf("collect_count")< 24 then
    local index =pc.getqf("collect_count")+1
    pc.setqf("collect_count",index) --¨ú±o¤F¤@­ó+1
    say_title("Biólogo Chaegirab:")
    say("¡Oh! Esta rama de Zelkova es de la mejor calidad.")
    say("Voy a empezar mi investigación inmediatamente.")
    say("Pero necesito otras " .. " " .. 25 - pc . getqf ( "collect_count") .. ".¡Por favor inténtalo y")
    say("encuentra alguna!")
    say("Y recuerda que necesito tiempo para el análisis.")
    say("No podré examinar la siguiente hasta mañana.")
    pc.setqf("drink_drug",0)
    return
    end
    say_title("Biólogo Chaegirab:")
    say("¡Has recogido las 25 Ramas de Zelkova! Gracias.")
    say("Ahora solo necesito una Piedra Alma de Gyimok")
    say("para ayudarme a entender el crecimiento de esos")
    say("árboles. ¿Podrías ocuparte de esto por mi? Puedes")
    say("encontrarla por los árboles en el Bosque")
    say("Fantasma")
    pc.setqf("collect_count",0)
    pc.setqf("drink_drug",0)
    pc.setqf("duration",0)
    set_state(key_item)
    return
    else
    say_title("Biólogo Chaegirab:")
    say("Hmm...")
    say("Lo siento. No puedo utilizar esta...")
    say("Es muy fina y se me rompió varias veces")
    say("Por favor, traeme otra.")
    pc.setqf("drink_drug",0)
    return
    end
    else
    say_title("Biólogo Chaegirab:")
    say("Lo siento mucho")
    say("No he inspeccionado la rama que me diste.")
    say("Lo siento mucho .... ¿Me puede dar otra")
    say("más tarde?")
    return
    end
    end
    end
    state key_item begin
    when letter begin
    send_letter("La investigación del biologo")
    if pc.count_item(30224)>0 then
    local v = find_npc_by_vnum(20084)
    if v != 0 then
    target.vid("__TARGET__", v, "Encuentra la P. Alma de Gyimok")
    end
    end
    end
    when button or info begin
    if pc.count_item(30224) >0 then
    say_title("Piedra Alma de Gyimok")
    --- l
    say("¡Finalmente has encontrado la Piedra Alma!")
    say("Llévasela al Biólogo Chaegirab.")
    say("Ya te está esperando.")
    return
    end
    say_title("Piedra Alma de Gyimok")
    --- l
    say("Has conseguido las 25 Ramas de Zelkova para la")
    say("investigación del Biólogo Chaegirab. Chaegirab")
    say("necesita la Piedra Alma de Gyimok para ayudarle a")
    say("enteder completamente las propiedades de las")
    say("ramas.")
    say_item_vnum(30224)
    say("Puedes conseguirla de los árboles en el Bosque")
    say("Fantasma..")
    end
    when 2301.kill or
    2302.kill or
    2303.kill or
    2304.kill or
    2305.kill or
    2311.kill or
    2312.kill or
    2313.kill or
    2314.kill or
    2315.kill or
    2306.kill or
    2307.kill begin
    local s = number(1, 500)
    if s == 1 and pc.count_item(30224)==0 then
    pc.give_item2(30224)
    send_letter("Has encontrado la Piedra Alma Gyimok.")
    end
    end
    when __TARGET__.target.click or
    20084.chat."Aqui esta la P. Alma de Gyimok" with pc.count_item(30224) > 0 begin
    target.delete("__TARGET__")
    say_title("Biólogo Chaegirab:")
    say("¡Muchas gracias!")
    say("Como recompensa, voy a darte esta receta. Su")
    say("contenido no es conocido por muchos y su secreto")
    say("esta guardado cuidadosamente. Ve y busca a")
    say("Baek-Go- él creará la poción para ti. Adiós, mi")
    say("amigo. Gracia a tu ayuda he sido capaz de")
    say("averiguar mucha información importante sobre el")
    say("Bosque Fantasma.")
    pc.remove_item(30224,1)
    set_state(__reward)
    end
    end
    state __reward begin
    when letter begin
    send_letter("La recompensa de Chaegirab")
    local v = find_npc_by_vnum(20018)
    if v != 0 then
    target.vid("__TARGET__", v, "La recompensa de Chaegirab")
    end
    end
    when button or info begin
    say_title("La recompensa de Chaegirab")
    --- l
    say("Como recompensa por las Ramas de Zelokova y la")
    say("Piedra Alma, el Biólogo Chaegirab te ha dado una")
    say("recetea secreta. Ve con Baek-Go ahora, él hará lá")
    say("cura milagrosa para ti")
    end
    when __TARGET__.target.click or
    20018.chat."La recompensa de Chaegirab" begin
    target.delete("__TARGET__")
    say_title("Baek-Go:")
    say("Oh, ¿esta es la receta secreta del Biólogo")
    say("Chaegirab? Hm, aumentará tu resistencia a los")
    say("daños en un 10% y tu velocidad de movimiento en")
    say("11 puntos. ¡Aquí está tu poción!")
    wait()
    say_title("Baek-Go:")
    say("Se supone que también debo darte esta Caja de")
    say("ébano Verde. Por favor cuídala bien.")
    say_reward("Como recompensa por completar la petición de")
    say_reward("Chaegirab, tu resistencia a los daños aumentará")
    say_reward("en un 10% permanentemente y tu velocidad de")
    say_reward("movimiento aumentará en 11 puntos.")
    affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60)
    affect.add_collect(apply.DEF_GRADE_BONUS,20,60*60*24*365*60)
    clear_letter()
    set_quest_state("collect_quest_lv80", "run")
    set_state(__complete)
    end
    end
    state __complete begin
    end
    end
    

     

  8. Esta quest es compleja (la original), tiene dialogos distintos segun el reino del cual es tu pj, por lo tanto no estaría completa del todo es que quieres tenerla clonada del oficial..

     

    Creo que el local arma quedaria mejor si lo pones en la parte donde se te entrega, osea algo como esto:

     

    if r == 1 then

    pc.give_item2(5003, 1)

    local arma = 5003

     

    ....

     

    Y así sucesivamente.

     

    muchas gracias iluvatar :)

     

    pero para lo de los imperios seria algo asi

     

    local empire = pc.getempire()

    if empire == 1 then

    elseif empire == 2 then

    elseif empire == 3 then

    ¿?

  9. Buenas a todos!

     

    Aburrido en casa vi que habia subquest nuevas y me dije voy a hacer la de nivel 7.

     

    ----------------------------------
    --  SUB QUEST LV7
    --  La boda de la hija
    --  By Eliteâ„¢
    ----------------------------------
    quest subquest_lv7 begin
    	state start begin
      when login or levelup or enter with pc.get_level() >= 7 begin
       set_state(informacion)
      end
    	end
    state informacion begin
    		when letter begin
       local v=find_npc_by_vnum(20008)
       if 0==v then
       else
    	target.vid("__TARGET__", v, "Habla con Octavio")
       end
      end
      when __TARGET__.target.click or 20008.chat."La boda de la hija"  begin
       target.delete("__TARGET__")
       say_title("Octavio:")
       say("¿Tienes hijos? Entonces seguramente entenderás")
       say("mis preocupaciones... ¡es sobre mi hija!")
       say("He conocido a un hombre que le ha vuelto")
       say("totalmente loca. Y ahora se ha escapado a un")
       say("reino difetente con su amante.")
       say("El es de Chunjo. ¡Por supuesto yo estaba en")
       say("contra! Pennsé que una dama de Shinsoo no puede")
       say("casarse con un soñador espiritual de Chunjo. Nos")
       say("separamos depués de una discusión, se escapó con")
       say("él a Chunjo.")
       wait()
       say_title("Octavio:")
       say("Escuché que quiere casarse con él allí.")
       say("Ahora mi hija está esperando una señal mía. ¿Qué")
       say("haré? ¡Es mi única hija! Por supuesto voy a darle")
       say("mi bendición. Por favor ve con la Anciana y")
       say("pídele que ayude con los preparativos.")
       local s=select("Sí, lo haré.","No puedo hacerlo.","¡No, eso no me interesa!")
       if s == 3 then
    	say("¿Quieres abandonar esta misión para siempre?")
    	local a=select("Sí, quiero.","No, más bien no.")
    	if 2==a then
    	 say_title("Octavio:")
    	 say("Muy mal que no me ayudes.")
    	 say("Nos vemos.")
    	 return
    	end
    	say_title("Octavio:")
    	say("Muy mal que no me ayudes.")
    	say("Nos vemos.")
    	set_state(__GIVEUP__)
    	return
       end
       elseif s == 2 then
    	say_title("Octavio:"))
    	say("Muy mal que no me ayudes.")
    	say("Nos vemos.")
    	return
       end
       elseif s == 1 then
    	set_state(accept_request)
       end
      end
      state accept_request begin
      when info or button begin
       say_title("La boda de la hija")
       say("Busca a la Anciana y pídele que haga los")
       say("preparativos para la boda.")
       say("")
       say("La Anciana está en Yongan.")
      end
      when letter begin
       send_letter("La boda de la hija")
       local v=find_npc_by_vnum(9006)
       if 0==v then
       else
    	target.vid("__TARGET__",v,"Ve con la Anciana")
       end
      end
      when __TARGET__.target.click or 9006.chat."La boda de la hija" begin
       target.delete("__TARGET__")
       say_title("Anciana:")
       say("¿Una boda dices? Bien, ese es un momento")
       say("importante en la vida de una mujer. Todo tiene")
       say("que estar bien, desde el vestido de boda y el")
       say("esmoquin hasta los anillos de compromiso que la")
       say("ceremonia covierte en anillos de boda. Cuando el")
       say("padre de la novia ha dado su consentimiento y se")
       say("ha pagado el Yang necesario para la boda, puede")
       say("organizarse la celebración.")
       wait()
    			say_title("Anciana:")
       say("Las flores son particularmente importantes - no")
       say("puede llevarse a cabo una boda sin un ramo")
       say("nupcial que el novio da a su amada. El ramo debe")
       say("tener las siguientes flores;")
       wait()
       say("Necesito:")
       say_reward("1 x")
       say_item_vnum(30169)
       say("")
       say_reward("Caza:")
       say("Lobo Alfa Hambriento")
       wait()
       say("Todavía necesito:")
       say_reward("1 x")
       say_item_vnum(30170)
       say("")
       say_reward("Caza:")
       say("Lobo Azul Hambriento")
       wait()
       say("Todavía necesito:")
       say_reward("1 x")
       say_item_vnum(30171)
       say("")
       say_reward("Caza:")
       say("Lobo AlfaAzul Hambriento")
       wait()
       say_title("Anciana:")
       say("Vuelve cuando tengas las tres flores. Comprobaré")
       say("si son lo suficiente frescas y haré un")
       say("bonito ramo. Entonces puedes llevárselo a mi")
       say("hermana. Ella llevará la ceremonia.")
       pc.setqf("restantes",0)
       set_state(conseguir_las_flores)
       end
      end
      state conseguir_las_flores begin
      when info or button begin
       say_title("La boda de la hija")
       say("Recoger flores para el ramo nupcial.")
       say_reward("Te falta "..pc.getqf("restantes").." Flor(es) Rojo Sangre. Puedes conseguirla")
       say_reward("matando Lobos Alfa Hambrientos.")
       say_reward("Te falta "..pc.getqf("restantes").." Flor(es) Anaranjanda,")
       say_reward("Puedes conseguirla matando algunos Lobos Azules")
       say_reward("Hambrientos.")
       say_reward("Te falta "..pc.getqf("restantes").." Flor(es) Aromática Amarilla.")
       say_reward("Puedes conseguirla matando algunos Lobos")
       say_reward("AlfaAzules Hambrientos.")
      end
      when 173.kill begin
       local s = number(1, 100)
       if s <= 5 and pc.count_item(30169)< 1 - pc.getqf("restantes")then
    	pc.give_item2(30169, 1)
    	notice("Esta flor es un espécimen espléndido. ¡Preciosa!")
       end
      end
    
      when 174.kill begin
       local s = number(1, 100)
       if s <= 5 and pc.count_item(30170)< 1 - pc.getqf("restantes")then
    	pc.give_item2(30170, 1)
    	notice("Esta flor es un espécimen espléndido. ¡Preciosa!")
       end
      end
      when 175.kill begin
       local s = number(1, 100)
       if s <= 5 and pc.count_item(30171)< 1 - pc.getqf("restantes")then
    	pc.give_item2(30171, 1)
    	notice("Esta flor es un espécimen espléndido. ¡Preciosa!")
       end
      end
    
      when pc.count_item(30169) and pc.count_item(30170) and pc.count_item(30171) then
       set_state(traer_las_flores)
       end
      end
      state traer_las_flores begin
      when info or button begin
       say_title("La boda de la hija")
       say("¡Terminado! Esas flores deberían formar un ramo")
       say("precioso. ¡Ahora vuelve rápido con la Anciana")
       say("antes de que las cabezas de las flores empiecen a")
       say("mustiarse!")
       say("")
       say("La Anciana está en Yogan.")
      end
      when letter begin
       send_letter("La boda de la hija")
       local v=find_npc_by_vnum(9006)
       if 0==v then
       else
    	target.vid("__TARGET__",v,"Ve con la Anciana")
       end
      end
      when __TARGET__.target.click or 9006.chat."La boda de la hija" begin
       target.delete("__TARGET__")
       say_title("Anciana:")
       say("Gracias, ¡es genial! Toma, coge este ramo de")
       say("flores y ve con mi hermana.")
       say_reward("La puedes encontrar en Jayang, en el Reino")
       say_reward("Shinshoo.")
       pc.give_item2(30172, 1)
       pc.removeitem(30169)
       pc.removeitem(30170)
       pc.removeitem(30171)
       set_state(Jayang)
       end
      end
      state Jayang begin
      when info or button begin
       say_title("La boda de la hija")
       say("Este no parece ser el reino correcto.")
       say_reward("Tienes que ir a Yayang, en el Reino Shinshoo.")
      end
      when letter begin
       send_letter("La boda de la hija")
       local v=find_npc_by_vnum(9006)
       if 0==v then
       else
    	target.vid("__TARGET__",v,"Ve con la Anciana del 2 reino")
       end
      end
      when __TARGET__.target.click or 9006.chat."La boda de la hija" begin
       target.delete("__TARGET__")
       say_title("La boda de la hija")
       say_title(pc.get_name()..":")
       say("Aquí estan las flores para la boda venidera de la")
       say("hija de Octavio. Deberían pasar a la novia con")
       say("una bendición. Ella sabrá de quién son.")
       say_title("Anciana:")
       say("¡Son flores preciosas! Harán brillar a la novia.")
       say("Esto completa los preparativos. Por favor dile a")
       say("Octavio que está invitado a la ceremonia de boda.")
       say("Sé que estará encantado.")
       wait()
       say_title("Anciana:")
       say("Ve con Octavio, ¿a qué esperas?")
       set_state(Octavio)
       end
      end
      state Octavio begin
      when info or button begin
       say_title("La boda de la hija")
       say("Vuelve con Octavio en Yogan en el Reino Shinsoo.")
      end
      when letter begin
       send_letter("La boda de la hija")
       local v=find_npc_by_vnum(20008)
       if 0==v then
       else
    	target.vid("__TARGET__",v,"Regresa con Octavio")
       end
      end
      when __TARGET__.target.click or 20008.chat."La boda de la hija" begin
       target.delete("__TARGET__")
       pc.give_exp2(2000)
       if pc.job==0 then
    	local r = math.random(1, 12)
      
    	if r == 1 then
    				pc.give_item2(13, 1)
    		  
    	elseif r == 2 then
    				pc.give_item2(23, 1)
    	elseif r == 3 then
    				pc.give_item2(33, 1)
    		
    	elseif r == 4 then
    				pc.give_item2(43, 1)
    		
    	elseif r == 5 then
    				pc.give_item2(53, 1)
    		  
    	elseif r == 6 then
    				pc.give_item2(63, 1)
      
    	elseif r == 7 then
    				pc.give_item2(3013, 1)
      
    	elseif r == 8 then
    				pc.give_item2(3023, 1)
      
    	elseif r == 9 then
    				pc.give_item2(3033, 1)
      
    	elseif r == 10 then
    				pc.give_item2(3043, 1)
      
    	elseif r == 11 then
    				pc.give_item2(3053, 1)
      
    	elseif r == 12 then
    				pc.give_item2(3063, 1)
    	end
       end
       if pc.job==1 then
      
    	local r = math.random(1, 18)
    	if r == 1 then
    				pc.give_item2(13, 1)
    		  
    	elseif r == 2 then
    				pc.give_item2(23, 1)
    	elseif r == 3 then
    				pc.give_item2(33, 1)
    		
    	elseif r == 4 then
    				pc.give_item2(43, 1)
    		
    	elseif r == 5 then
    				pc.give_item2(53, 1)
    		  
    	elseif r == 6 then
    				pc.give_item2(63, 1)
      
    	elseif r == 7 then
    				pc.give_item2(2003, 1)
      
    	elseif r == 8 then
    				pc.give_item2(2013, 1)
      
    	elseif r == 9 then
    				pc.give_item2(2023, 1)
      
    	elseif r == 10 then
    				pc.give_item2(2033, 1)
      
    	elseif r == 11 then
    				pc.give_item2(2043, 1)
      
    	elseif r == 12 then
    				pc.give_item2(2053, 1)
      
    	elseif r == 13 then
    				pc.give_item2(1003, 1)
      
    	elseif r == 14 then
    				pc.give_item2(1013, 1)
      
    	elseif r == 15 then
    				pc.give_item2(1023, 1)
      
    	elseif r == 16 then
    				pc.give_item2(1033, 1)
      
    	elseif r == 17 then
    				pc.give_item2(1043, 1)
      
    	elseif r == 18 then
    				pc.give_item2(1053, 1)
    	end
       end
       if pc.job==2 then
      
    	local r = math.random(1, 6)
    	if r == 1 then
    				pc.give_item2(13, 1)
    		  
    	elseif r == 2 then
    				pc.give_item2(23, 1)
    	elseif r == 3 then
    				pc.give_item2(33, 1)
    		
    	elseif r == 4 then
    				pc.give_item2(43, 1)
    		
    	elseif r == 5 then
    				pc.give_item2(53, 1)
    		  
    	elseif r == 6 then
    				pc.give_item2(63, 1)
    	end
       end
       if pc.job==3 then
      
    	local r = math.random(1, 9)
    	if r == 1 then
    				pc.give_item2(5003, 1)
    		  
    	elseif r == 2 then
    				pc.give_item2(5013, 1)
    	elseif r == 3 then
    				pc.give_item2(5023, 1)
    		
    	elseif r == 4 then
    				pc.give_item2(7003, 1)
    		
    	elseif r == 5 then
    				pc.give_item2(7013, 1)
    		  
    	elseif r == 6 then
    				pc.give_item2(7023, 1)
      
    	elseif r == 7 then
    				pc.give_item2(7033, 1)
      
    	elseif r == 8 then
    				pc.give_item2(7043, 1)
      
    	elseif r == 9 then
    				pc.give_item2(7053, 1)
    	end
       end
       local arma = 13 or 23 or 33 or 43 or 53 or 63 or 3013 or 3023 or 3033 or 3043 or 3053 or 3063 or 2003 or 2013 or 2023 or 2033 or
    	2043 or 2053 or 1003 or 1013 or 1023 or 1033 or 1043 or 1053 or 5003 or 5013 or 5023 or 7003 or 7013 or 7023 or 7033 or
    	7043 or 7053
       say_title("La boda de la hija")
       say("No puedo agradecértelo lo suficiente. ¡Estoy tan")
       say("feliz de asistir a la boda de mi hija!")
       say("Toma, coge tu recompensa:")
       say_reward("Has recibido 2000 puntos de experiencia.")
       say_reward("Has recibido 1250 Yang.")
       wait()
       say_reward("Una arma forjada por la mano de un maestro de las")
       say_reward("artes marciales. ¡Cuídala bien!")
       say_item_vnum(arma)
    	  pc.give_exp2(2000)
       pc.change_money(1250)
       clear_letter()
       set_state(__COMPLETE__)
       set_quest_state("levelup","run")
      end
    end
    state __GIVEUP__ begin
    end
    state __COMPLETE__ begin
    end
    end
    

    Aqui la dejo para que la bajeis en formato .quest -->

    Debes iniciar sesión para ver el contenido del enlace en esta publicación.

     

    Pd:

    No tengo servidor asi que no he podido probar , ademas soy bastante novato aun y ando aprendiendo asi que no me critiquen si no va .

     

    Espero que la pueda revisar un experto para confirmar que esta bien hecha :)

     

    Saludos!!

  10. Buenas!!!

     

    Soy novato en hacer quest y me e puesto a hacer la quest yu-hwan de la medalla héroe y la he hecho lo mejor que e podido espero que os sirva.

     

    No la he provado asi que no se si ira espero que si hay algun error algun experto en quests pueda corregirla :)

     

    ----------------------------------
    --  Medalla del Héroe
    --  Misión Especial
    --  Hecha por Eliteâ„¢
    ----------------------------------
    quest Yu-Hwan begin
    	state start begin
    	 when login and game.get_event_flag("olimpiada") ==1  begin
       set_state("informacion")
      end
    end
    state informacion begin
    	 when letter begin
    	  send_letter("Medalla del Héroe")
       local v=find_npc_by_vnum(20017)
       if 0==v
       else
    	   target.vid("__TARGET__", v, "Medalla del Héroe")
       end
      end
      when button or info begin
       say("Yu-Hwan necesita tu ayuda. ¡Ve a verlo!")
       say("Lo encontrarás en el segundo poblado.")
      end
      when __TARGET__.target.click or
    	  20017.chat."Medalla del Héroe" begin
       target.delete("__TARGET__")
       say_title("Yu-Hwan")
       say("¡Ayuda!")
       say("Miserable hatajo de ladrones...")
       say("¡Ayer por la noche me entrarron en casa!")
       say("Se llevaron la Medalla del Héroe. Un antepasado")
       say("mío la recibió en su momento tras correr")
       say("42195 quilómetros desde el campo de batalla")
       say("hasta donde estaba su monarca para comunicarle")
       say("la victoria.")
       say("¡Y ahora ha desaparecido!")
       wait()
       say_title("Yu-Hwan")
       say("Diantres... para mi familia es de un")
       say("valor incalculable. ¿Qué hago ahora?")
       say("¿Me ayudarás?")
       local s=select("Sí","No" )
       if 2==s then
    	say("¿De verdad quieres rechazar este encargo?")
    	say("Si ahora escoges ´Sí´ no podrás volver a")
    	say("tomarlo.")
    	local a=select("Sí","No")
    	if  2==a then
    	 say_title("Yu-Hwan")
    	 say("Entiendo que ahora no tengas tiempo.")
    	 say("Vuelve cuando tengas bien. ¡Pero")
    	 say("no me hagas esperar mucho!")
    	 return
    	end
    	say_title("Yu-Hwan")
    	say("Me temo que has venido demasiado tarde")
    	say("y ya no puedes ayudarme. ¡Te deseo")
    	say("todo lo mejor para tu camino!")
    	set_state(__GIVEUP__)
    	return
       end
       say_title("Yu-Hwan")
       say("¡De caza a los monstruos que me robaron! Pero")
       say("ten cuidado: eram muy fuerte, como mínimo de")
       say("nivel 30. ¡Si me traes de vuelta la Medalla del")
       say("Héroe te recompensaré como es debido!")
       set_state(Medalla_Héroe)
       end
      end
      state Medalla_Héroe begin
       when letter begin	
    	if pc.count_item("30265")>=1 and pc.count_item("30266")>=1 and pc.count_item("30267")>=1 and pc.count_item("30268")>=1 and pc.count_item("30269")>=1 then
    	 send_letter("Medalla del Héroe")
    	 local v=find_npc_by_vnum(20017)
    	 if 0!= v then
    	  target.vid("__TARGET__",v,"Regresa con Yu-Hwan")
    	 end
    	 return
    	end  
    	send_letter("Medalla del Héroe")
       end
       when info or button begin
    	if pc.count_item("30265")>=1 and pc.count_item("30266")>=1 and pc.count_item("30267")>=1 and pc.count_item("30268")>=1 and pc.count_item("30269")>=1 then
    	 say("Encuentra la Medalla del Héroe y llévasela a")
    	 say("Yu-Hwan.")
    	 return
    	end
    	say("Encuentra la Medalla del Héroe y llévasela a")
    	say("Yu-Hwan.")
       end
      
       when kill begin
    			local m_ind = pc.get_map_index()
    			else
    				if m_ind == 1 or m_ind == 3 or m_ind == 21 or m_ind == 23 or m_ind == 41 or m_ind == 43 and pc.get_level() <= 30 then
    					if game.get_event_flag("olimpiadas") == 1 then
    		
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30265")==0  then
    	 pc.give_item2(30265, 1)-- Fragmento de Medalla (1)  
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30266")==0  then
    	 pc.give_item2(30266, 1) -- Fragmento de Medalla (2)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30267")==0  then
    	 pc.give_item2(30267, 1) -- Fragmento de Medalla (3)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30268")==0  then
    	 pc.give_item2(30268, 1) -- Fragmento de Medalla (4)
    	 return
    	end
      
    				elseif m_ind == 63 or m_ind == 64 and pc.get_level() <= 40 then
    					if game.get_event_flag("olimpiadas") == 1 then
    					  
    	  local s = number(1, 100)
    	if s <= 5 and pc.count_item("30265")==0  then
    	 pc.give_item2(30265, 1)-- Fragmento de Medalla (1)  
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30266")==0  then
    	 pc.give_item2(30266, 1) -- Fragmento de Medalla (2)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30267")==0  then
    	 pc.give_item2(30267, 1) -- Fragmento de Medalla (3)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30268")==0  then
    	 pc.give_item2(30268, 1) -- Fragmento de Medalla (4)
    	 return
    	end
    				elseif m_ind == 65 or m_ind == 61 or m_ind == 104 and pc.get_level() <= 60 then
    					if game.get_event_flag("olimpiadas") == 1 then
    					  
    	  local s = number(1, 100)
    	if s <= 5 and pc.count_item("30265")==0  then
    	 pc.give_item2(30265, 1)-- Fragmento de Medalla (1)  
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30266")==0  then
    	 pc.give_item2(30266, 1) -- Fragmento de Medalla (2)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30267")==0  then
    	 pc.give_item2(30267, 1) -- Fragmento de Medalla (3)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30268")==0  then
    	 pc.give_item2(30268, 1) -- Fragmento de Medalla (4)
    	 return
    	end
    				elseif m_ind == 62 or m_ind == 71 or m_ind == 67 and pc.get_level() <= 70 then
    					if game.get_event_flag("olimpiadas") == 1 then
    					  
    	  local s = number(1, 100)
    	if s <= 5 and pc.count_item("30265")==0  then
    	 pc.give_item2(30265, 1)-- Fragmento de Medalla (1)  
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30266")==0  then
    	 pc.give_item2(30266, 1) -- Fragmento de Medalla (2)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30267")==0  then
    	 pc.give_item2(30267, 1) -- Fragmento de Medalla (3)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30268")==0  then
    	 pc.give_item2(30268, 1) -- Fragmento de Medalla (4)
    	 return
    	end
    				elseif m_ind == 68 or m_ind == 72 or m_ind == 73 or m_ind == 66 and pc.get_level() <= 90 then
    					if game.get_event_flag("olimpiadas") == 1 then
    					  
    	  local s = number(1, 100)
    	if s <= 5 and pc.count_item("30265")==0  then
    	 pc.give_item2(30265, 1)-- Fragmento de Medalla (1)  
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30266")==0  then
    	 pc.give_item2(30266, 1) -- Fragmento de Medalla (2)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30267")==0  then
    	 pc.give_item2(30267, 1) -- Fragmento de Medalla (3)
    	 return
    	end
      
    	local s = number(1, 100)
    	if s <= 5 and pc.count_item("30268")==0  then
    	 pc.give_item2(30268, 1) -- Fragmento de Medalla (4)
    	 return
    	end
    			end
    		end
      
      when __TARGET__.target.click or
    	  20017.chat."Medalla del Héroe" begin
       target.delete("__TARGET__")
       say_title("Yu-Hwan")
       say("¡Por fin! ¡Has vuelto!")
       say("¿Has encontrado la Medalla del Héroe?")
      
       if pc.count_item(30265)>=1 and pc.count_item(30266)>=1 and  pc.count_item(30267) >= 1 and pc.count_item(30268)
    	say_title("Yu-Hwan")
    	say("¡Estos malditos ladrones han destrozado mi")
    	say("valiosa herencia!")
    	say("Muchas gracias por haber encontrado todos")
    	say("los fragmentos. Ahora puedo volver")
    	say("a unirlos todos.")
    	wait()
    	say_title("Yu-Hwan")
    	say("¡Mil gracias! Has restablecido el")
    	say("honor de mi familia.")
    	say("Tu esfuerzos no habrán sido en")
    	say("vano. ¡Aquí tienes tu merecida")
    	say("recompensa!")
    	say_item_vnum("71158")
    	say_item_vnum("71159")
    	pc.remove_item(30265,1)
    	pc.remove_item(30266,1)
    	pc.remove_item(30267,1)
    	pc.remove_item(30268,1)
    	pc.give_item2(71158)
    	pc.give_item2(71159)
    	clear_letter()
    	set_state(__COMPLETE__)
       end
       else
    	say_title("Yu-Hwan")
    	say("¡Has encontrado mi Medalla!")
    	say("Pero espera... esto es solo un pedazo. ¡Qué")
    	say("infamia, la han partido en cinco!")
    	say("¡Por favor, tráeme todos los fragmentos! Quizás")
    	say("pueda recomponerla!")
    	return
       end
      end
    end
    state __GIVEUP__ begin
    end
    stat __COMPLETE__ begin
    end
    end
    

    Descargar:

    Debes iniciar sesión para ver el contenido del enlace en esta publicación.

  11. ----------------------------------------------

    --Buscar al Soldado Experimentado

    --Texto de la misión igual que el del metin2.es

    --Traducida por Eliteâ„¢

    ----------------------------------------------

    quest find_senior_soldier begin

    state start begin

    when 20300.chat."Buscando un soldado experimentado" or 20301.chat."Buscando un soldado experimentado" or 20302.chat."Buscando un soldado experimentado" or 20303.chat."Buscando un soldado experimentado" or 20304.chat."Buscando un soldado experimentado" or 20305.chat."Buscando un soldado experimentado" or 20306.chat."Buscando un soldado experimentado" or 20307.chat."Search for a experienced soldier" or 20320.chat."Buscando un soldado experimentado" or 20321.chat."Buscando un soldado experimentado" or 20322.chat."Buscando un soldado experimentado" or 20323.chat."Buscando un soldado experimentado" or 20324.chat."Buscando un soldado experimentado" or 20325.chat."Buscando un soldado experimentado" or 20326.chat."Buscando un soldado experimentado" or 20327.chat."Buscando un soldado experimentado" or 20340.chat."Buscando un soldado experimentado" or 20341.chat."Buscando un soldado experimentado" or 20342.chat."Buscando un soldado experimentado" or 20343.chat."Buscando un soldado experimentado" or 20344.chat."Buscando un soldado experimentado" or 20345.chat."Buscando un soldado experimentado" or 20346.chat."Buscando un soldado experimentado" or 20347.chat."Buscando un soldado experimentado" with pc_is_novice() and npc_is_same_empire() and npc_is_same_job() and pc.get_level()<=10 begin

    if not next_time_is_now() then

    say_title("Instructor:")

    ----"12345678901234567890123456789012345678901234567890"|

    say("Solo puedes encontrar un soldado experimentado")

    say("una vez cada hora. Nos disculpamos por el")

    say("retraso.")

    else

    ----"12345678901234567890123456789012345678901234567890"|

    say("Me gustaría saber más sobre las habilidades antes")

    say("de elegir.")

    say("El intructor se queda pensativo por un momento y")

    say("responde:")

    wait()

    say_title("Instructor:")

    say("Es más efectivo ver cómo funcionan las")

    say("habilidades que escuchar mis descripciones. La")

    say("gente tiene mas tendencia a creer las cosas que ven")

    say("con sus propios ojos.")

    say("Voy a darte una carta que contiene la localización")

    say("de un soldado experimentado.")

    find_senior_soldier.save_target_cond()

    next_time_set(time_hour_to_sec(1), 10)

    set_state(find)

    end

    end

    end

    state failure begin

    when letter begin

    send_letter("Ningún soldado experimentado")

    end

    when button or info begin

    ----------"12345678901234567890123456789012345678901234567890"|

    say_title("Información:")

    say("Lo siento. No hay soldados experimentados")

    say("disponibles en este momento. Por favor, inténtalo")

    say("más tarde.")

    say_reward("Tu intento de encontrar un soldado experimentado")

    say_reward("no ha tenido éxito.")

    restart_quest()

    end

    end

    state find begin

    when letter begin

    local v=find_senior_soldier.find_target()

    test_chat("investigar_objetivo"..v)

    if v==0 then

    set_state(failure)

    else

    target.vid("__TARGET__", v, "Buscando un soldado experimentado")

    send_letter("Buscando un soldado experimentado")

    end

    end

    when button or info begin

    -----------"12345678901234567890123456789012345678901234567890"|

    say_title("Información:")

    say_reward("Ve a la localización del soldado experimentado")

    say_reward("marcada en tu mini mapa.")

    end

    when __TARGET__.target.die begin

    ----------"12345678901234567890123456789012345678901234567890"|

    say_title("He encontrado al soldado experimentado.")

    say_reward("De repente, la carta se prende de fuego y se")

    say_reward("convierte en ceniza oscura. Entonces")

    say_reward("un sentimiento cálido recorre tu cuerpo.")

    restart_quest()

    end

    when __TARGET__.target.click begin

    ----------"12345678901234567890123456789012345678901234567890"|

    say_title("He encontrado al soldado experimentado.")

    say_reward("De repente, la carta se prende de fuego y se")

    say_reward("convierte en ceniza oscura. Entonces")

    say_reward("un sentimiento cálido recorre tu cuerpo.")

    target.delete("__TARGET__")

    find_senior_soldier.clear_target_cond()

    set_state(reward)

    end

    end

    state reward begin

    when letter begin

    send_letter("¡El soldado experimentado te bendice!")

    end

    when button begin

    ----------"12345678901234567890123456789012345678901234567890"|

    say_title("¡El soldado experimentado te bendice!")

    say("La carta que contiene la información sobre la")

    say("localización del soldado experimentado puede")

    say("bendecir a un nuevo aventurero si éste es capaz")

    say("de encontrar al soldado experimentado.")

    say("")

     

    local funcList={

    function() find_senior_soldier.apply_affect("Has recibido +100 puntos en su puntos de vida máxima.", apply.MAX_HP, 100) end,

    function() find_senior_soldier.apply_affect("Has recibido +50 puntos en sus puntos de vida máxima.", apply.HP_REGEN, 50) end,

    function() find_senior_soldier.apply_affect("Has recibido +5 puntos de fuerza.", apply.STR, 5) end,

    function() find_senior_soldier.apply_affect("Has recibido +5 puntos de aguante.", apply.CON, 5) end,

    function() find_senior_soldier.apply_affect("Has recibido +10 puntos en la probabilidad de golpe crítico.", apply.CRITICAL_PCT, 10) end,

    function() find_senior_soldier.apply_affect("Has recibido +10 puntos en velocidad de ataque.", apply.ATT_SPEED, 10) end,

    function() find_senior_soldier.apply_affect("Has recibido +10 puntos de bonus contra animales.", apply.ATTBONUS_ANIMAL, 10) end,

    }

    table_get_random_item(funcList)()

    restart_quest()

    end

    end

    state __FUNC__ begin

    function clear_target_cond()

    pc.setqf("objetivo_Bedecir", 0)

    end

    function save_target_cond()

    test_chat("npc.job="..npc_get_job())

    pc.setqf("objetivo_Bedecir", npc_get_job())

    end

    function find_target()

    return find_pc_cond(5, 100, pc.getqf("objetivo_Bedecir"))

    end

    function apply_affect(name, type, value)

    say_title("Información:")

    say_reward(name)

    say_reward("El efecto dura 5 minutos.")

    affect.add(type, value, 5*60)

    end

     

    end

    end

  12. ----------------------------------------------

    --Misión de Patrulla

    --Texto de la misión igual que el del metin2.es

    --Traducida por Eliteâ„¢

    ----------------------------------------------

    quest patrol_townaround begin

    state patrol1_blue_step5 begin

    when letter begin

    target.pos("__TARGET__", 500, 580, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say_reward("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol1_blue_step4 begin

    when letter begin

    target.pos("__TARGET__", 545, 840, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4.")

    setstate(patrol1_blue_step5)

    end

    end

    state patrol1_blue_step3 begin

    when letter begin

    target.pos("__TARGET__", 760, 985, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3.")

    setstate(patrol1_blue_step4)

    end

    end

    state patrol1_blue_step2 begin

    when letter begin

    target.pos("__TARGET__", 720, 855, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2.")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2.")

    setstate(patrol1_blue_step3)

    end

    end

    state patrol1_blue_step1 begin

    when letter begin

    target.pos("__TARGET__", 670, 720, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1.")

    setstate(patrol1_blue_step2)

    end

    end

    state patrol1_yellow_step5 begin

    when letter begin

    target.pos("__TARGET__", 720, 700, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5.")

    setstate(reward)

    end

    end

    state patrol1_yellow_step4 begin

    when letter begin

    target.pos("__TARGET__", 900, 930, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº4")

    setstate(patrol1_yellow_step5)

    end

    end

    state patrol1_yellow_step3 begin

    when letter begin

    target.pos("__TARGET__", 875, 725, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº 3")

     

    setstate(patrol1_yellow_step4)

    end

    end

    state patrol1_yellow_step2 begin

    when letter begin

    target.pos("__TARGET__", 890, 610, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº2")

    setstate(patrol1_yellow_step3)

    end

    end

    state patrol1_yellow_step1 begin

    when letter begin

    target.pos("__TARGET__", 730, 590, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº1")

    setstate(patrol1_yellow_step2)

    end

    end

    state patrol1_gray_step5 begin

    when letter begin

    target.pos("__TARGET__", 715, 390, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5. ")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol1_gray_step4 begin

    when letter begin

    target.pos("__TARGET__", 765, 190, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº4")

    setstate(patrol1_gray_step5)

    end

    end

    state patrol1_gray_step3 begin

    when letter begin

    target.pos("__TARGET__", 790, 400, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3.")

    setstate(patrol1_gray_step4)

    end

    end

    state patrol1_gray_step2 begin

    when letter begin

    target.pos("__TARGET__", 890, 610, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2.")

    setstate(patrol1_gray_step3)

    end

    end

    state patrol1_gray_step1 begin

    when letter begin

    target.pos("__TARGET__", 730, 590, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1.")

    setstate(patrol1_gray_step2)

    end

    end

    state patrol1_purple_step5 begin

    when letter begin

    target.pos("__TARGET__", 500, 580, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5.")

    setstate(reward)

    end

    end

    state patrol1_purple_step4 begin

    when letter begin

    target.pos("__TARGET__", 490, 230, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4.")

    setstate(patrol1_purple_step5)

    end

    end

    state patrol1_purple_step3 begin

    when letter begin

    target.pos("__TARGET__", 665, 130, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3.")

    setstate(patrol1_purple_step4)

    end

    end

    state patrol1_purple_step2 begin

    when letter begin

    target.pos("__TARGET__", 765, 190, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2.")

    setstate(patrol1_purple_step3)

    end

    end

    state patrol1_purple_step1 begin

    when letter begin

    target.pos("__TARGET__", 715, 390, 1, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1.")

    setstate(patrol1_purple_step2)

    end

    end

    state patrol2_blue_step5 begin

    when letter begin

    target.pos("__TARGET__", 760, 640, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol2_blue_step4 begin

    when letter begin

    target.pos("__TARGET__", 830, 630, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4")

    setstate(patrol2_blue_step5)

    end

    end

    state patrol2_blue_step3 begin

    when letter begin

    target.pos("__TARGET__", 770, 440, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3")

    setstate(patrol2_blue_step4)

    end

    end

    state patrol2_blue_step2 begin

    when letter begin

    target.pos("__TARGET__", 650, 370, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol2_blue_step3)

    end

    end

    state patrol2_blue_step1 begin

    when letter begin

    target.pos("__TARGET__", 640, 510, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1")

    setstate(patrol2_blue_step2)

    end

    end

    state patrol2_yellow_step6 begin

    when letter begin

    target.pos("__TARGET__", 640, 765, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 6.")

    q.set_title("Punto de patrulla 6.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 6.")

    say("Ve al punto de patrulla nº6")

    end

    when info begin

    say_title("Punto de patrulla 6.")

    say("Ve al punto de patrulla nº6")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº6")

    setstate(reward)

    end

    end

    state patrol2_yellow_step5 begin

    when letter begin

    target.pos("__TARGET__", 650, 900, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol2_yellow_step4 begin

    when letter begin

    target.pos("__TARGET__", 780, 930, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4")

    setstate(patrol2_yellow_step5)

    end

    end

    state patrol2_yellow_step3 begin

    when letter begin

    target.pos("__TARGET__", 880, 820, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3")

    setstate(patrol2_yellow_step4)

    end

    end

    state patrol2_yellow_step2 begin

    when letter begin

    target.pos("__TARGET__", 830, 630, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol2_yellow_step3)

    end

    end

    state patrol2_yellow_step1 begin

    when letter begin

    target.pos("__TARGET__", 760, 640, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1")

    setstate(patrol2_yellow_step2)

    end

    end

    state patrol2_gray_step5 begin

    when letter begin

    target.pos("__TARGET__", 485, 640, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol2_gray_step4 begin

    when letter begin

    target.pos("__TARGET__", 390, 830, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4")

    setstate(patrol2_gray_step5)

    end

    end

    state patrol2_gray_step3 begin

    when letter begin

    target.pos("__TARGET__", 480, 950, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3")

    setstate(patrol2_gray_step4)

    end

    end

    state patrol2_gray_step2 begin

    when letter begin

    target.pos("__TARGET__", 650, 900, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol2_gray_step3)

    end

    end

    state patrol2_gray_step1 begin

    when letter begin

    target.pos("__TARGET__", 640, 765, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1")

    setstate(patrol2_gray_step2)

    end

    end

    state patrol2_purple_step5 begin

    when letter begin

    target.pos("__TARGET__", 485, 640, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol2_purple_step4 begin

    when letter begin

    target.pos("__TARGET__", 650, 900, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4")

    setstate(patrol2_purple_step5)

    end

    end

    state patrol2_purple_step3 begin

    when letter begin

    target.pos("__TARGET__", 830, 630, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3")

    setstate(patrol2_purple_step4)

    end

    end

    state patrol2_purple_step2 begin

    when letter begin

    target.pos("__TARGET__", 640, 510, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol2_purple_step3)

    end

    end

    state patrol2_purple_step1 begin

    when letter begin

    target.pos("__TARGET__", 485, 640, 21, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1")

    setstate(patrol2_purple_step2)

    end

    end

    state patrol3_blue_step4 begin

    when letter begin

    target.pos("__TARGET__", 355, 530, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4")

    setstate(reward)

    end

    end

    state patrol3_blue_step3 begin

    when letter begin

    target.pos("__TARGET__", 665, 510, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3")

    setstate(patrol3_blue_step4)

    end

    end

    state patrol3_blue_step2 begin

    when letter begin

    target.pos("__TARGET__", 610, 780, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol3_blue_step3)

    end

    end

    state patrol3_blue_step1 begin

    when letter begin

    target.pos("__TARGET__", 480, 640, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1")

    setstate(patrol3_blue_step2)

    end

    end

    state patrol3_yellow_step6 begin

    when letter begin

    target.pos("__TARGET__", 380, 690, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 6.")

    q.set_title("Punto de patrulla 6.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 6.")

    say("Ve al punto de patrulla nº6")

    end

    when info begin

    say_title("Punto de patrulla 6.")

    say("Ve al punto de patrulla nº6")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº6")

    setstate(reward)

    end

    end

    state patrol3_yellow_step5 begin

    when letter begin

    target.pos("__TARGET__", 210, 710, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol3_yellow_step4 begin

    when letter begin

    target.pos("__TARGET__", 180, 580, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4")

    setstate(patrol3_yellow_step5)

    end

    end

    state patrol3_yellow_step3 begin

    when letter begin

    target.pos("__TARGET__", 200, 350, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3")

    setstate(patrol3_yellow_step4)

    end

    end

    state patrol3_yellow_step2 begin

    when letter begin

    target.pos("__TARGET__", 360, 450, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol3_yellow_step3)

    end

    end

    state patrol3_yellow_step1 begin

    when letter begin

    target.pos("__TARGET__", 355, 530, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1")

    setstate(patrol3_yellow_step2)

    end

    end

    state patrol3_gray_step6 begin

    when letter begin

    target.pos("__TARGET__", 480, 640, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 6.")

    q.set_title("Punto de patrulla 6.")

    q.start()

    end

    when button begin

    say("Punto de patrulla 6.")

    say("Ve al punto de patrulla nº6")

    end

    when info begin

    say_title("Punto de patrulla 6.")

    say("Ve al punto de patrulla nº6")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº6")

    setstate(reward)

    end

    end

    state patrol3_gray_step5 begin

    when letter begin

    target.pos("__TARGET__", 610, 780, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 5.")

    q.set_title("Punto de patrulla 5.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when info begin

    say_title("Punto de patrulla 5.")

    say("Ve al punto de patrulla nº5")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº5")

    setstate(reward)

    end

    end

    state patrol3_gray_step4 begin

    when letter begin

    target.pos("__TARGET__", 645, 1010, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº4")

    setstate(patrol3_gray_step5)

    end

    end

    state patrol3_gray_step3 begin

    when letter begin

    target.pos("__TARGET__", 450, 930, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº3")

    setstate(patrol3_gray_step4)

    end

    end

    state patrol3_gray_step2 begin

    when letter begin

    target.pos("__TARGET__", 420, 820, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol3_gray_step3)

    end

    end

    state patrol3_gray_step1 begin

    when letter begin

    target.pos("__TARGET__", 380, 690, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº1")

    setstate(patrol3_gray_step2)

    end

    end

    state patrol3_purple_step4 begin

    when letter begin

    target.pos("__TARGET__", 445, 845, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 4.")

    q.set_title("Punto de patrulla 4.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when info begin

    say_title("Punto de patrulla 4.")

    say("Ve al punto de patrulla nº4")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº4")

    setstate(reward)

    end

    end

    state patrol3_purple_step3 begin

    when letter begin

    target.pos("__TARGET__", 210, 710, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 3.")

    q.set_title("Punto de patrulla 3.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when info begin

    say_title("Punto de patrulla 3.")

    say("Ve al punto de patrulla nº3")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("You have reached the patrol-pointNr.3 ")

    setstate(patrol3_purple_step4)

    end

    end

    state patrol3_purple_step2 begin

    when letter begin

    target.pos("__TARGET__", 360, 410, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 2.")

    q.set_title("Punto de patrulla 2.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when info begin

    say_title("Punto de patrulla 2.")

    say("Ve al punto de patrulla nº2")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say_reward("Has alcanzado el punto de patrulla nº2")

    setstate(patrol3_purple_step3)

    end

    end

    state patrol3_purple_step1 begin

    when letter begin

    target.pos("__TARGET__", 545, 645, 41, "")

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Punto de patrulla 1.")

    q.set_title("Punto de patrulla 1.")

    q.start()

    end

    when button begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when info begin

    say_title("Punto de patrulla 1.")

    say("Ve al punto de patrulla nº1")

    end

    when __TARGET__.target.arrive begin

    target.delete("__TARGET__")

    say("Has alcanzado el punto de patrulla nº1")

    setstate(patrol3_purple_step2)

    end

    end

    state start begin

    when 20300.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==0 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20301.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==0 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20302.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==1 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20303.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==1 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20304.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==2 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20305.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==2 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20306.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==3 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20307.chat."Ir de patrulla." with pc.get_empire()==1 and pc.job==3 and pc.level<=5 begin

    setstate(accept1)

    end

    when 20320.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==0 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20321.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==0 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20322.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==1 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20323.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==1 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20324.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==2 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20325.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==2 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20326.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==3 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20327.chat."Ir de patrulla." with pc.get_empire()==2 and pc.job==3 and pc.level<=5 begin

    setstate(accept2)

    end

    when 20340.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==0 and pc.level<=5 begin

    setstate(accept3)

    end

    when 20341.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==0 and pc.level<=5 begin

    setstate(accept3)

    end

    when 20342.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==1 and pc.level<=5 begin

    setstate(accept3)

    end

    when 20343.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==1 and pc.level<=5 begin

    setstate(accept3)

    end

    when 20344.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==2 and pc.level<=5 begin

    setstate(accept3)

    end

    when 20345.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==2 and pc.level<=5 begin

    setstate(accept3)

    end

    when 20346.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==3 and pc.level<=5 begin

    setstate(accept3)

    end

    when 20347.chat."Ir de patrulla." with pc.get_empire()==3 and pc.job==3 and pc.level<=5 begin

    setstate(accept3)

    end

    end

    state accept1 begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Patrullar castillo del área Yongan.")

    q.set_title("Patrullar castillo del área Yongan.")

    q.start()

    end

    when button begin

    say_title("Patrullar castillo del área Yongan.")

    if is_test_server() then

    local s=select("1 Valor","2 Valor","3 Valor","4 Valor")

    if 1==s then

    setstate(patrol1_blue_step1)

    elseif 2==s then

    setstate(patrol1_yellow_step1)

    elseif 3==s then

    setstate(patrol1_gray_step1)

    elseif 4==s then

    setstate(patrol1_purple_step1)

    end

    else

    local s=number(1, 4)

    if 1>=s then -- 80.00% (1/4)

    setstate(patrol1_blue_step1)

    elseif 2>=s then --80,00% (1/4)

    setstate(patrol1_yellow_step1)

    elseif 3>=s then --80,00% (1/4)

    setstate(patrol1_gray_step1)

    elseif 4>=s then -- 80.00% (1/4)

    setstate(patrol1_purple_step1)

    end

    end

    end

    when info begin

    say_title("Patrullar castillo del área Yongan.")

    if is_test_server() then

    local s=select("1 Valor","2 Valor","3 Valor","4 Valor")

    if 1==s then

    setstate(patrol1_blue_step1)

    elseif 2==s then

    setstate(patrol1_yellow_step1)

    elseif 3==s then

    setstate(patrol1_gray_step1)

    elseif 4==s then

    setstate(patrol1_purple_step1)

    end

    else

    local s=number(1, 4)

    if 1>=s then -- 80.00% (1/4)

    setstate(patrol1_blue_step1)

    elseif 2>=s then --80,00% (1/4)

    setstate(patrol1_yellow_step1)

    elseif 3>=s then --80,00% (1/4)

    setstate(patrol1_gray_step1)

    elseif 4>=s then -- 80.00% (1/4)

    setstate(patrol1_purple_step1)

    end

    end

    end

    end

    state accept2 begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Patrullar castillo del área Joan")

    q.set_title("Patrullar castillo del área Joan")

    q.start()

    end

    when button begin

    say_title("Patrullar castillo del área Joan")

    if is_test_server() then

    local s=select("1 Valor","2 Valor","3 Valor","4 Valor")

    if 1==s then

    setstate(patrol2_blue_step1)

    elseif 2==s then

    setstate(patrol2_yellow_step1)

    elseif 3==s then

    setstate(patrol2_gray_step1)

    elseif 4==s then

    setstate(patrol2_purple_step1)

    end

    else

    local s=number(1, 4)

    if 1>=s then -- 80.00% (1/4)

    setstate(patrol2_blue_step1)

    elseif 2>=s then --80,00% (1/4)

    setstate(patrol2_yellow_step1)

    elseif 3>=s then --80,00% (1/4)

    setstate(patrol2_gray_step1)

    elseif 4>=s then -- 80.00% (1/4)

    setstate(patrol2_purple_step1)

    end

    end

    end

    when info begin

    say_title("Patrullar castillo del área Joan")

     

    if is_test_server() then

    local s=select("1 Valor","2 Valor","3 Valor","4 Valor")

    if 1==s then

    setstate(patrol2_blue_step1)

    elseif 2==s then

    setstate(patrol2_yellow_step1)

    elseif 3==s then

    setstate(patrol2_gray_step1)

    elseif 4==s then

    setstate(patrol2_purple_step1)

    end

    else

    local s=number(1, 4)

    if 1>=s then -- 80.00% (1/4)

    setstate(patrol2_blue_step1)

    elseif 2>=s then --80,00% (1/4)

    setstate(patrol2_yellow_step1)

    elseif 3>=s then --80,00% (1/4)

    setstate(patrol2_gray_step1)

    elseif 4>=s then -- 80.00% (1/4)

    setstate(patrol2_purple_step1)

    end

    end

    end

    end

    state accept3 begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Patrullar castillo del área Pyungmo")

    q.set_title("Patrullar castillo del área Pyungmo")

    q.start()

    end

    when button begin

    say_title("Patrullar castillo del área Pyungmo")

    if is_test_server() then

    local s=select("1 Valor","2 Valor","3 Valor","4 Valor")

    if 1==s then

    setstate(patrol3_blue_step1)

    elseif 2==s then

    setstate(patrol3_yellow_step1)

    elseif 3==s then

    setstate(patrol3_gray_step1)

    elseif 4==s then

    setstate(patrol3_purple_step1)

    end

    else

    local s=number(1, 4)

    if 1>=s then -- 80.00% (1/4)

    setstate(patrol3_blue_step1)

    elseif 2>=s then --80,00% (1/4)

    setstate(patrol3_yellow_step1)

    elseif 3>=s then --80,00% (1/4)

    setstate(patrol3_gray_step1)

    elseif 4>=s then -- 80.00% (1/4)

    setstate(patrol3_purple_step1)

    end

    end

    end

    when info begin

    say_title("Patrullar castillo del área Pyungmo")

    if is_test_server() then

    local s=select("1 Valor","2 Valor","3 Valor","4 Valor")

    if 1==s then

    setstate(patrol3_blue_step1)

    elseif 2==s then

    setstate(patrol3_yellow_step1)

    elseif 3==s then

    setstate(patrol3_gray_step1)

    elseif 4==s then

    setstate(patrol3_purple_step1)

    end

    else

    local s=number(1, 4)

    if 1>=s then -- 80.00% (1/4)

    setstate(patrol3_blue_step1)

    elseif 2>=s then --80,00% (1/4)

    setstate(patrol3_yellow_step1)

    elseif 3>=s then --80,00% (1/4)

    setstate(patrol3_gray_step1)

    elseif 4>=s then -- 80.00% (1/4)

    setstate(patrol3_purple_step1)

    end

    end

    end

    end

    state reward begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Patrulla terminada")

    q.set_title("Patrulla terminada")

    q.start()

    end

    when button begin

    say_title("Patrulla terminada")

    say_reward("Como recompensa por las patrullas")

    say_reward("obtienes una bonificación de experiencia.")

    pc.give_exp2(135)

    set_quest_state("levelup", "run")

    setstate(__COMPLETE__)

    q.done()

    end

    end

    state __COMPLETE__ begin

    when enter begin

    q.done()

    end

    end

    end

  13. ----------------------------------------------------

    --COLLECT QUEST_lv70

    --METIN2 collect quest

    --Traducida por Eliteâ„¢

    ----------------------------------------------------

    quest collect_quest_lv70 begin

    state start begin

    end

    state run begin

    when login or levelup with pc.level >= 70

    set_state(information)

    end

    end

     

    state information begin

    when letter begin

    local v = find_npc_by_vnum(20084)

    if v != 0 then

    target.vid("__TARGET__", v, "La investigación del Biólogo")

    end

    send_letter("La investigación del Biólogo")

    end

     

    when button or info begin

    say_title("La investigación del Biólogo")

    say("El Biólogo Chaegirab,aprendiz de Uriel,te está")

    say("buscando desesperadamente. Date prisa y descubre")

    say("cómo puedes ayudarle.")

    end

     

    when __TARGET__.target.click or

    20084.chat."Ramas de Zelkovas" begin

    target.delete("__TARGET__")

    say_title("Biólogo Chaegirab:")

    --- l

    say("Hola, ¡es agadable verte! Actualmente estoy.")

    say("estudiando el Bosque Fantasma y las extrañas")

    say("criaturas que viven ahí. Como ya sabes, no tengo")

    say("tiempo suficiente para ir de excursión así que.")

    say("dependo de tu ayuda. ¿Podrías recoger algo de")

    say("información para mi?")

    wait()

    say_title("Biólogo Chaegirab:")

    say("Es sobre el lugar que ellos llaman el Bosque")

    say("Fantasma. Después de que las Piedras Metin")

    say("propagasen su influencia sobre el continente,")

    say("terribles fantasmas alcazaron este lugar. Esto")

    say("lo hace uno de los más interesantes pero también")

    say("más peligroso sitios para estudiar. Así que ten")

    say("cuidado.")

    wait()

    say_title("Biólogo Chaegirab:")

    say("Necesito 25 ramas Zelkova para mi investigación,")

    say("sin embargo solo necesito aquellas que son")

    say("delgadas y estén completamente intactas. Solo")

    say("tráeme una rama cada vez, ya que la investigación")

    say("requiere mucho tiempo")

    set_state(go_to_disciple)

    pc.setqf("duration",0)

    pc.setqf("collect_count",0)

    pc.setqf("drink_drug",0)

    end

    end

     

    state go_to_disciple begin

    when letter begin

    send_letter("La investigacion del Biólogo")

     

    end

    when button or info begin

    say_title("Ramas del Bosque Fantasma")

    --- l

    say("El Biólogo Chaegirab,aprendiz de Uriel,está")

    say("estudiando los árboles en el Bosque Fantasma.")

    say("Necesita 25 Ramas de Zelkova para su")

    say("investigación. Llévale solo una cada vez, para")

    say("que pueda examinarlas individualmente. Crecen en")

    say("los árboles Fantasma.")

    say("")

    say_item_vnum(30165)

    say_reward("Has entregado " .. " " .. pc . getqf ( "collect_count") .. " ramas hasta ahora.")

    end

     

    when 71035.use begin

    if get_time() < pc.getqf("duration") then

    say("No puedes utilizar la poción de la misión")

    return

    end

    if pc.getqf("drink_drug")==1 then

    say("La estas usando.")

    return

    end

    if pc.count_item(30165)==0 then

    say_title("Biólogo Chaegirab:")

    say("Mientras estas organizando las ramas del bosque ")

    say("del fantasma, se puede utilizar la poción de la misión.")

    return

    end

     

    item.remove()

    pc.setqf("drink_drug",1)

    end

     

     

     

    when 20084.chat."Las Ramas de Zelkova" with pc.count_item(30165) >0 begin

    if get_time() > pc.getqf("duration") then

    say_title("Biólogo Chaegirab:")

    --- l

    say("Oh, ¡has encontrado una rama!")

    say("Dame un segundo para comprobarla...")

    pc.remove_item(30165, 1)

    pc.setqf("duration",get_time()+0*0*00)

    wait()

     

    local pass_percent

    if pc.getqf("drink_drug")==0 then

    pass_percent=60

    else

    pass_percent=90

    end

     

    local s= number(1,100)

    if s<= pass_percent then

    if pc.getqf("collect_count")< 24 then

    local index =pc.getqf("collect_count")+1

    pc.setqf("collect_count",index) --¨ú±o¤F¤@­ó+1

    say_title("Biólogo Chaegirab:")

    say("¡Oh! Esta rama de Zelkova es de la mejor calidad.")

    say("Voy a empezar mi investigación inmediatamente.")

    say("Pero necesito otras " .. " " .. 25 - pc . getqf ( "collect_count") .. ".¡Por favor inténtalo y")

    say("encuentra alguna!")

    say("Y recuerda que necesito tiempo para el análisis.")

    say("No podré examinar la siguiente hasta mañana.")

    pc.setqf("drink_drug",0)

    return

    end

    say_title("Biólogo Chaegirab:")

    say("¡Has recogido las 25 Ramas de Zelkova! Gracias.")

    say("Ahora solo necesito una Piedra Alma de Gyimok")

    say("para ayudarme a entender el crecimiento de esos")

    say("árboles. ¿Podrías ocuparte de esto por mi? Puedes")

    say("encontrarla por los árboles en el Bosque")

    say("Fantasma")

    pc.setqf("collect_count",0)

    pc.setqf("drink_drug",0)

    pc.setqf("duration",0)

    set_state(key_item)

    return

    else

    say_title("Biólogo Chaegirab:")

    say("Hmm...")

    say("Lo siento. No puedo utilizar esta...")

    say("Es muy fina y se me rompió varias veces")

    say("Por favor, traeme otra.")

    pc.setqf("drink_drug",0)

    return

    end

    else

    say_title("Biólogo Chaegirab:")

    say("Lo siento mucho")

    say("No he inspeccionado la rama que me diste.")

    say("Lo siento mucho .... ¿Me puede dar otra")

    say("más tarde?")

    return

    end

     

    end

    end

     

    state key_item begin

    when letter begin

    send_letter("La investigación del biologo")

     

    if pc.count_item(30224)>0 then

    local v = find_npc_by_vnum(20084)

    if v != 0 then

    target.vid("__TARGET__", v, "Encuentra la P. Alma de Gyimok")

    end

    end

     

    end

    when button or info begin

    if pc.count_item(30224) >0 then

    say_title("Piedra Alma de Gyimok")

    --- l

    say("¡Finalmente has encontrado la Piedra Alma!")

    say("Llévasela al Biólogo Chaegirab.")

    say("Ya te está esperando.")

    return

    end

     

    say_title("Piedra Alma de Gyimok")

    --- l

    say("Has conseguido las 25 Ramas de Zelkova para la")

    say("investigación del Biólogo Chaegirab. Chaegirab")

    say("necesita la Piedra Alma de Gyimok para ayudarle a")

    say("enteder completamente las propiedades de las")

    say("ramas.")

    say_item_vnum(30224)

    say("Puedes conseguirla de los árboles en el Bosque")

    say("Fantasma..")

    end

     

    when 2301.kill or

    2302.kill or

    2303.kill or

    2304.kill or

    2305.kill or

    2311.kill or

    2312.kill or

    2313.kill or

    2314.kill or

    2315.kill or

    2306.kill or

    2307.kill begin

    local s = number(1, 500)

    if s == 1 and pc.count_item(30224)==0 then

    pc.give_item2(30224)

    send_letter("Has encontrado la Piedra Alma Gyimok.")

    end

    end

     

     

     

    when __TARGET__.target.click or

    20084.chat."Aqui esta la P. Alma de Gyimok" with pc.count_item(30224) > 0 begin

    target.delete("__TARGET__")

    say_title("Biólogo Chaegirab:")

    say("¡Muchas gracias!")

    say("Como recompensa, voy a darte esta receta. Su")

    say("contenido no es conocido por muchos y su secreto")

    say("esta guardado cuidadosamente. Ve y busca a")

    say("Baek-Go- él creará la poción para ti. Adiós, mi")

    say("amigo. Gracia a tu ayuda he sido capaz de")

    say("averiguar mucha información importante sobre el")

    say("Bosque Fantasma.")

    pc.remove_item(30224,1)

    set_state(__reward)

    end

    end

     

    state __reward begin

    when letter begin

    send_letter("La recompensa de Chaegirab")

     

    local v = find_npc_by_vnum(20018)

    if v != 0 then

    target.vid("__TARGET__", v, "La recompensa de Chaegirab")

    end

     

    end

    when button or info begin

    say_title("La recompensa de Chaegirab")

    --- l

    say("Como recompensa por las Ramas de Zelokova y la")

    say("Piedra Alma, el Biólogo Chaegirab te ha dado una")

    say("recetea secreta. Ve con Baek-Go ahora, él hará lá")

    say("cura milagrosa para ti")

    end

     

    when __TARGET__.target.click or

    20018.chat."La recompensa de Chaegirab" begin

    target.delete("__TARGET__")

    say_title("Baek-Go:")

    say("Oh, ¿esta es la receta secreta del Biólogo")

    say("Chaegirab? Hm, aumentará tu resistencia a los")

    say("daños en un 10% y tu velocidad de movimiento en")

    say("11 puntos. ¡Aquí está tu poción!")

    wait()

    say_title("Baek-Go:")

    say("Se supone que también debo darte esta Caja de")

    say("ébano Verde. Por favor cuídala bien.")

    say_reward("Como recompensa por completar la petición de")

    say_reward("Chaegirab, tu resistencia a los daños aumentará")

    say_reward("en un 10% permanentemente y tu velocidad de")

    say_reward("movimiento aumentará en 11 puntos.")

    affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60)

    affect.add_collect(apply.DEF_GRADE_BONUS,20,60*60*24*365*60)

    clear_letter()

    set_quest_state("collect_quest_lv80", "run")

    set_state(__complete)

    end

    end

    state __complete begin

    end

    end

  14.  

     

    ----------------------------------------------

    --Misión del Caballo Militar

    --Texto de la misión igual que el del metin2.es

    --Traducida por Eliteâ„¢

    ----------------------------------------------

    quest horse_upgrade2 begin

    state start begin

    when 20349.chat."Quiero mejorar mi caballo" with horse.get_grade()==2 and horse.get_level()==20 begin

    if horse.is_dead() then

    say_title("Chico del establo:")

    say("Tú caballo está muerto!")

    say("Revivelo para hacer la misión.")

    elseif pc.level<=49 then

    say_title("Chico del establo:")

    say("Necesitas alcanzar el nivel 50 para poder montar.")

    say("en este caballo. En mi opinión, necesitas mejorar")

    say("primero.")

    elseif horse.get_level()<=19 then

    say_title("Chico del establo:")

    say("El nivel de tu caballo es demasiado bajo,")

    say("por favor, sigue entrenando su caballo.")

    elseif pc.countitem("50050")<1 then

    say_title("Chico del establo:")

    say("Necesitas una medalla de caballo para entrenar.")

    say("Los resultados serán anotados en la medalla.")

    setstate(need_item50050)

    elseif pc.countitem("50052")<1 then

    say_title("Chico del establo:")

    say("No tienes el libro caballo militar!")

    say("Consige uno para hacer la misión.")

    elseif horse.get_level()==20 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=50 then

    say_title("Chico del establo:")

    say("Solo los más fuertes del mundo van a recibir el")

    say("libro caballo militar. Ve a la torre demoniaca y")

    say("mata 300 arqueros demonio. Si consigues hacerlo,")

    say("nadie me detendrá para darte el libro caballo")

    say("militar. Por supuesto, es una tarea difícil.")

    say("Puedes hacerlo en grupo, pero tienes que ser el")

    say("líder de grupo.")

    local b=select("Aceptar", "Rechazar")

    if 1==b then

    if pc.countitem("50050")>=1 then

    pc.removeitem("50050", 1)

    setstate(test)

    end

    elseif 2==b then

    say_title("Chico del establo:")

    say("Vuelve cuando estés listo.")

    else

    say("UNKNOWN BUTTON ["..b.."]")

    end

    else

    say_title("Chico del establo:")

    say("Prueba del caballo militar cancelada")

    end

    end

    end

    state need_item50050 begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("¡Encuentra una Medalla de Caballo!")

    q.set_title("¡Encuentra una Medalla de Caballo!")

    q.start()

    end

    when button or info begin

    say_title("Información:")

    say_title("¡Encuentra una Medalla de Caballo!")

    say("¡Lleva la medalla de caballo al chico del")

    say("establo! Después de eso, podrás continuar")

    say("entrenamiento. La forma más fácil de conseguir la")

    say("medalla de caballo es en la mazmorra de los")

    say("monos.")

    setstate(start)

    q.done()

    end

    end

    state test begin

    when letter begin

    q.set_counter("Arquer.restantes :", 300-pc.getqf("kill_count"))

    end

    when 1002.party_kill begin

    pc.setqf("kill_count", pc.getqf("kill_count")+1)

    q.set_counter("Arquer.restantes :", 300-pc.getqf("kill_count"))

    if get_time()>=pc.getqf("limit_time") then

    setstate(failure)

    q.done()

    end

    end

    when letter begin

    q.set_clock("Tiempo restante :", pc.getqf("limit_time")-get_time())

    end

    when enter begin

    pc.setqf("limit_time", get_time()+30*60)

    pc.setqf("kill_count", 0)

    end

    when leave begin

    q.done()

    end

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Prueba para el libro caballo militar")

    q.set_title("Prueba para el libro caballo militar")

    q.start()

    end

    when button or info begin

    say_title("Prueba para el libro caballo militar")

    say("Mata 300 arqueros demonio en menos de 30 minutos")

    say("y vuelve a informar al chico del establo.")

    say("Puedes hacerlo en grupo, pero tienes que ser el")

    say("líder del grupo si quieres que cuenten los")

    say("resultados.")

    end

    when 1002.party_kill with pc.getf("horse_upgrade2","kill_count") >= 300 and pc.getqf("limit_time")>=get_time() begin

    setstate(report)

    end

    when 20349.chat."Estado Actual" begin

    say_title("Chico del establo:")

    say("¡Mata 300 arqueros demonios en menos de 30 minutos")

    say("y vuelve!")

    local b=select("Continuar", "Cancelar")

    if 1==b then

    elseif 2==b then

    say_title("Chico del establo:")

    say("¿Realmente deseas cancelar la prueba de")

    say("calificación?")

    local b=select("Sí", "No, solo bromeaba.")

    if 1==b then

    say_title("Chico del establo:")

    say("¡Bueno! Que así sea...")

    setstate(start)

    q.done()

    elseif 2==b then

    say_title("Chico del establo:")

    say("No tienes tiempo de estar por aquí. ¡Date prisa!")

    say("¡Mata esos arqueros demonios y vuelve!")

    else

    say("UNKNOWN BUTTON ["..b.."]")

    end

    else

    say("UNKNOWN BUTTON ["..b.."]")

    end

    end

    end

    state report begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Vuelve con el chico del establo")

    q.set_title("Vuelve con el chico del establo")

    q.start()

    end

    when button or info begin

    say_title("Vuelve con el chico del establo")

    say("Dile al chico del establo los resultados de tu")

    say("prueba.")

    end

    when 20349.chat."Estado de la misión del caballo" with horse.get_grade()!=2 begin

    setstate(start)

    q.done()

    end

    when 20349.chat."Resultado de la prueba" with horse.get_grade()==2 begin

    say_title("Chico del establo:")

    say("¡Bien hecho! Si quieres mejorar ahora tu caballo,")

    say("tienes que cambiar tu libro caballo armado")

    say("por el libro caballo militar. Y necesitas")

    say("1.000.000 Yang para conseguir el libro caballo")

    say("militar.")

    say("Esto llevará algo de tiempo, así que vuelve")

    say("mañana.")

    if is_test_server() then

    pc.setqf("make_time", get_time()+10)

    else

    pc.setqf("make_time", get_time()+number(8, 16)*60*60)

    end

    setstate(wait)

    end

    end

    state wait begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Esperando al Libro Caballo Militar.")

    q.set_title("Esperando al Libro Caballo Militar.")

    q.start()

    end

    when button or info begin

    say_title("Esperando al Libro Caballo Militar.")

    say_reward("Espere a que el chico del establo haya acabado")

    say_reward("el libro caballo militar.")

    end

    when login with get_time()>=pc.getf("horse_upgrade2","make_time") begin

    setstate(buy)

    end

    when 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=2 begin

    setstate(start)

    q.done()

    end

    when 20349.chat."¿Está listo el Libro Caballo Militar?" with horse.get_grade()==2 begin

    say_title("Chico del establo:")

    say("Creo que tardará un poco más hasta que esté")

    say("lista. Recuerda necesitas 1.000.000 Yang")

    say("para el Libro Caballo Militar.")

    end

    end

    state buy begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Ve con el chico del establo")

    q.set_title("Ve con el chico del establo")

    q.start()

    end

    when button or info begin

    say("Ve con el chico del establo")

    say("Ve con el chico del establo y obtén tu libro")

    say("caballo militar. Necesitas tu libro caballo")

    say("armado y 1.000.000 Yang para recibir el libro")

    say("caballo militar.")

    end

    when 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=2 begin

    setstate(start)

    q.done()

    end

    when 20349.chat."HORSE2 UPGRADE QUEST STATE REPAIR" with horse.get_grade()==2 and horse.get_level()!=20 begin

    setstate(start)

    q.done()

    end

    when 20349.chat."¡El libro caballo militar está hecho!" with horse.get_grade()==2 and horse.get_level()==20 begin

    say_title("Chico del establo:")

    say("Si tienes el libro caballo mílitar, tu caballo")

    say("será capaz de dominar diferentes estilos de")

    say("lucha. Un libro como este es muy raro y tampoco")

    say("es muy barato. Necesitas 1.000.000 Yang")

    say("para comprar uno.¿Realmente quieres mejorar tu")

    say("caballo?")

    local b=select("Mejorar caballo", "No mejorar el caballo", "Ni pensarlo")

    if 1==b then

    if pc.money>=1000000 then

    if pc.countitem("50052")>=1 then

    char_log(0, "HORSE_UPGRADE2", "BEGIN")

    pc.changemoney(-1000000)

    char_log(0, "HORSE_UPGRADE2", "DEC money 1000000")

    pc.removeitem("50052", 1)

    char_log(0, "HORSE_UPGRADE2", "DEC 50052 1")

    horse.unride()

    horse.advance()

    horse.ride()

    char_log(0, "HORSE_UPGRADE2", "INC horse_advance 1")

    pc.give_item2("50053", 1)

    char_log(0, "HORSE_UPGRADE2", "INC 50053 1")

    pc.give_item2("50060", 1)

    char_log(0, "HORSE_UPGRADE2", "INC 50060 1")

    char_log(0, "HORSE_UPGRADE2", "END")

    say_title("Chico del Establo:"

    say("Una vez tienes el libro caballo militar puedes")

    say("llamar a tu caballo desde cualquier sitio e irá")

    say("contigo. Así que, cuídalo bien.")

    say("éstas son las bases; ahora depende de tí.")

    setstate(start)

    q.done()

    else

    say_title("Chico del Establo:")

    say("¡No tienes suficiente Yang para el libro")

    say("caballo militar!")

    end

    elseif 2==b then

    say_title("Chico del Establo:")

    say("Vuelve más tarde.")

    elseif 3==b then

    say_title("Chico del Establo:")

    say("¿Realmente quieres cancelar la orden de el")

    say("libro caballo militar? Si cancelas ahora,")

    say("tendrás que empezar todo de nuevo.")

    local b=select("Sí", "No")

    if 1==b then

    setstate(start)

    elseif 2==b then

    else

    say("UNKNOWN BUTTON ["..b.."]")

    end

    else

    say("UNKNOWN BUTTON ["..b.."]")

    end

    end

    end

    state failure begin

    when letter begin

    setskin(NOWINDOW)

    makequestbutton("Prueba fallada")

    q.set_title("Prueba fallada")

    q.start()

    end

    when button or info begin

    say_title("Prueba fallada")

    say("No has matado los 300 arqueros demonios")

    say("en 30 minutos.")

    say("Lastima...")

    say("Consigue otra medalla y vuelve a intentarlo.")

    setstate(start)

    q.done()

    end

    state __COMPLETE__ begin

    when enter begin

    q.done()

    end

    end

    end

     

     

     

    Debes iniciar sesión para ver el contenido del enlace en esta publicación.

×
×
  • Crear nuevo...