AgustinMüller

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.

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

Ya edite lo puse al final ...

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

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.

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

aca te la ise , me has robado 15 minutos de mi vida haciendola
 
jaja aca la dejo
 

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

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.

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

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.

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

Para cuando lo maten en el mapa y lo manden a city quedaria asi...
when login with pc.get_hp() <= 0 and pc.get_map_index() == X begin say("Estas muerto ahora seras") say("Llevado a tu ciudad") warp_to_village() end Donde esta la X va el index del mapa.
saludos.

Hola mz navegando por internet se me dio la duda de poner respaldos automaticos y encontre.... (gracias a GOOGLE)
 
Resulta que se llaman Backups Automaticos o algo asi... bueno les dejo el video..
 

EDITO: El error es "local pvp = select ("EVENTO PVP,"Cancelar")", te falto una comilla qudaria asi "local pvp = select ("EVENTO PVP","Cancelar")"

Es una QUERY lol lee bien jajaja no lo que pasa q el sistema de logros me ocupa todos los whens de los jefes que quiero usar en mis quest
Lo que hace es seleccionar la tabla en ese caso "quest" (player-quest)
y busca todas las filas que tengan "logros_keko" en szName y las borra (a las filas completas)
 
Otro ejemplo para que entiendas seria asi

DELETE FROM account WHERE email=('[email protected]') eso hara que borre todas las cuentas que tengan como msn "[email protected]" (es mi msn )

Ya ta lista, pero tenia varios errores y un detalle que te quiero contar: cuando tienes un select con la opcion cerrar, si tu no le pones nada a ese select y pinchas en el te cerrara el chat, asi que pa evitarte posibles confusiones borre todo los if opcion == X then return. Tambien tenias al principio un local algo ==, ten en cuenta que un local NUNCA puede llevar == ya que dara error. Por otra parte habias establecido el menu que te saldria en funcion de un if pc.job pero pa que tengas que poner menos ends despues te puse un select con las 4 razas
 
Recuerda que cuando acabes la quest tendras que cerrar el local xd = select
 

quest grand_master begin state start begin when 20011.chat."Cajes Grand Master" begin if pc.count_item(50300)=< 9 then say_title("Techera") say("Hola si quieres puedo canjearte 10 libros de habilidad") say("de cualquier habilidad") say("Por un Grand Master (G1)") say_reward("Pero al menos presisas 10 libros para conseguir tu G1") return end say_title("Techera") say("Hola si quieres puedo canjearte 10 libros de habilidad") say("de cualquier habilidad") say("Por un Grand Master (G1)") say("Pero no le digas a nadie!!") local xd = select ("Quiero canjear libros por G1" , "Estoy arrepentido , vuelvo mas tarde") -- ojo tenias un local con un doble igual! if xd == 1 then local raza = select ("Guerrero" , "Ninja" , "Sura" , "Chami" , "Cerrar") -- Para ahorrarte muchos ends he puesto un local para eligir raza if raza == 1 then local guerr = select ("Corporal", "Mental", "Cerrar") if guerr == 1 then local habs1 = select ("Corte de Tres Maneras", "Giro de Espada", "Berserk", "Aura de Espada", "Rociada", "Cancelar") if habs1 == 1 then pc.set_skill_level(1,30) elseif habs1 == 2 then pc.set_skill_level(2,30) elseif habs1 == 3 then pc.set_skill_level(3,30) elseif habs1 == 4 then pc.set_skill_level(4,30) elseif habs1 == 5 then pc.set_skill_level(5,30) end elseif guerr == 2 then local habs2 = select ("Pulso Espiritual", "Golpe", "Tocon", "Cuerpo Fuerte", "Golpe de Espada", "Cancelar") if habs2 == 1 then pc.set_skill_level(16,30) elseif habs2 == 2 then pc.set_skill_level(17,30) elseif habs2 == 3 then pc.set_skill_level(18,30) elseif habs2 == 4 then pc.set_skill_level(19,30) elseif habs2 == 5 then pc.set_skill_level(20,30) end end elseif raza == 2 then local ninj = select ("Asesino", "Arquero", "Cerrar") if ninj == 1 then local habs3 = select ("Ambush", "Ataque Rapido", "Daga Rodante", "Sleath", "Nuve Toxica", "Cancelar") if habs3 == 1 then pc.set_skill_level(31,30) elseif habs3 == 2 then pc.set_skill_level(32,30) elseif habs3 == 3 then pc.set_skill_level(33,30) elseif habs3 == 4 then pc.set_skill_level(34,30) elseif habs3 == 5 then pc.set_skill_level(35,30) end elseif ninj == 2 then local habs4 = select ("Shot Repetido", "Lluvia de Flechas", "Flecha de Fuego", "Camino Pluma", "Flecha Venenosa", "Cancelar") if habs4 == 1 then pc.set_skill_level(46,30) elseif habs4 == 2 then pc.set_skill_level(47,30) elseif habs4 == 3 then pc.set_skill_level(48,30) elseif habs4 == 4 then pc.set_skill_level(49,30) elseif habs4 == 5 then pc.set_skill_level(50,30) end end elseif raza == 3 then local sura = select ("Magia Negra", "Espejo", "Cerrar") if sura == 1 then local habs5 = select ("Golpe Oscuro", "Golpe de Llama", "Espiritu de la Llama", "Proteccion Oscura", "Golpe Espiritual", "Orbe Oscuro", "Cancelar") if habs5 == 1 then pc.set_skill_level(76,30) elseif habs5 == 2 then pc.set_skill_level(77,30) elseif habs5 == 3 then pc.set_skill_level(78,30) elseif habs5 == 4 then pc.set_skill_level(79,30) elseif habs5 == 5 then pc.set_skill_level(80,30) elseif habs5 == 6 then pc.set_skill_level(81,30) end elseif sura == 2 then local habs6 = select ("Golpe de Dedo", "Remolino de Dragon", "Hoja Encantada", "Miedo", "Armadura Encantada", "Disipar", "Cancelar") if habs6 == 1 then pc.set_skill_level(61,30) elseif habs6 == 2 then pc.set_skill_level(62,30) elseif habs6 == 3 then pc.set_skill_level(63,30) elseif habs6 == 4 then pc.set_skill_level(64,30) elseif habs6 == 5 then pc.set_skill_level(65,30) elseif habs6 == 6 then pc.set_skill_level(66,30) end elseif raza == 4 then local cham = select ("Dragon", "Curacion", "Cerrar") if cham == 1 then local habs7 = select ("Talisman Volador", "Disparo de Dragon", "Rugido de Dragon", "Bendicion", "Reflectar", "Fuerza del Dragon", "Cancelar") if habs7 == 1 then pc.set_skill_level(91,30) elseif habs7 == 2 then pc.set_skill_level(92,30) elseif habs7 == 3 then pc.set_skill_level(93,30) elseif habs7 == 4 then pc.set_skill_level(94,30) elseif habs7 == 5 then pc.set_skill_level(95,30) elseif habs7 == 6 then pc.set_skill_level(96,30) end elseif cham == 2 then local habs8 = select ("Tiro del Relampago", "Llamada del Relampago", "Garra Relampago", "Curacion", "Remolinos", "Ataque", "Cancelar") if habs8 == 1 then pc.set_skill_level(106,30) elseif habs8 == 2 then pc.set_skill_level(107,30) elseif habs8 == 3 then pc.set_skill_level(108,30) elseif habs8 == 4 then pc.set_skill_level(109,30) elseif habs8 == 5 then pc.set_skill_level(110,30) elseif habs8 == 6 then pc.set_skill_level(111,30) end end end Un saludo

le has puesto un simbolo de reciclaje??