Hola MZ
Hoy les voy a compartir una quest que ice yo mirando a las misiones del biologo y otras.
La quest funciona correctamente asi que no tendrán problemas.
esta quest seria mas bien para servidores pvm
básicamente lo que hace es que al nivel 90 tienes una mision con Seon-Pyeong (herrero legendario)
que tienes que buscar la guia perdida del padre (que antiguamente hacia las armaduras epicas) pero lo mataron y se robaron su guia de como hacerla, tienes que recuperar la guia para que el vuelva a construir esas maravillosas armaduras y acambio te regalara 1.
La guia en mi caso la tirarÃa los monstruos mas fuertes :
·Azrael
·La Muerte
quest guia_perdida begin
state start begin
when login or levelup with pc.get_level() ==90 begin
set_state(information)
end
end
state information begin
when letter begin
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, "La Guia perdida.")
end
send_letter("La Guia perdida")
end
when button or info begin
say_title(" Ve con Seon-Pyeong")
say("Tiene que informarte de una mision muy importante")
end
when __TARGET__.target.click or
20091.chat."La Guia perdida." begin
target.delete("__TARGET__")
say_title("Seon-Pyeong:")
--- l
say("hace mucho tiempo en una lejana aldea")
say("viviamos mi padre y yo. Eramos felices")
say("hasta que un dia como pocos en mi vida")
say("parpadeo nos robaron las armaduras que mi padre")
say("habia echo con sus propias manos")
say("desgraciadamente mi padre murio embenenado por uno de sus secuases")
wait()
say_title("Seon-Pyeong:")
say("busca la Guia Perdida de mi padre")
say("de esa forma recordare a mi padre y sentire que el esta orgulloso de mi")
say("Acambio te dare una de las gloriosas armaduras de mi padre")
say("suerte amigo y ten cuidado el es muy dificil de conseguir")
say("este item, ya que solo lo sueltan los jefes mas fuertes de este mundo")
say("")
say("")
say("")
set_state(guia_perdida)
end
end
state guia_perdida begin
when letter begin
send_letter("Busca la guia Perdida!")
end
when button or info begin
say_title("Buscar la guia Perdida")
--- l
say("")
say("Seon-Pyeong, esta buscando")
say("la guia perdida de su padre")
say("encuentrala y llevasela")
say("la puedes en los siguientes mountros")
say(""..mob_name(2597)..". y "..mob_name(2598)..".")
say_item_vnum(77777)
end
when 2597.kill or 2598.kill begin
if pc.count_item(77777)< 1 then
pc.give_item2(77777, 1)
end
end
when 20091.chat."Tengo la Guia perdida" with pc.count_item(77777) >0 begin
say_title("Seon-Pyeong:")
--- l
say("¡Oh! Usted ha traido una!")
say("Déjame ver si es una original...")
say("")
pc.remove_item(77777, 1)
wait()
say_title("Seon-Pyeong:")
say("Felicidades!")
say("Has encontrado la guia de mi padre!")
say("Aqui tienes tu recompensa.")
say("Gracias.")
say("")
say_reward("Has recibido :")
if pc.job==0 then
pc.give_item2(12010)
say_reward("Armadura epica de guerrero")
end
if pc.job==1 then
pc.give_item2(12020)
say_reward("Armadura epica de ninja")
end
if pc.job==2 then
pc.give_item2(12030)
say_reward("Armadura epica de sura")
end
if pc.job==3 then
pc.give_item2(12040)
say_reward("Armadura epica de chaman")
end
clear_letter()
set_state(__complete)
pc.change_money(300000000)
pc.give_exp2(743129619)
set_quest_state("levelup","run")
return
end
end
state __complete begin
end
end
Prueba de que funciona
Saludos espero que les sirva.
Se las dejo en adjuntos para descargar tambien.
Si quieren la parte del cliente no duden en pedirla en un comentario (para los que no quieran editarla)
Aca dejo la parte del cliente.
http://www.mediafire.com/?ok9d19etcjl7idi
guia_perdida.rar