MesterLum Publicado 10 de Agosto del 2013 Reportar Compartir Publicado 10 de Agosto del 2013 Buenas zone.. pues en mi asuencia estudie un poco el LUA y pues hize varias quest sencillas para practicar.. y mis nobatadas aqui las dejo PD:es mi primer quest lo juro.. --------------------------------------Segunda quest creada por mesterlum------------------------------------quest comprar_caballo1 beginstate start begin when 20349.chat."Comprar Caballo" begin say_title("".. pc.get_name() .." Que quieres hacer:")say("Hola que tal aventurero, Veo que estas interesado")say("En un caballo.. si tanto quieres uno, estas son")say("Caballo Inicial a lv 1 100.000")say("Caballo Inicial a lv 25 1.000.000")say("Caballo Inicial a lv 50 10.000.000")say("") local mester = select ("Caballo Inicial" ,"Caballo Armado" , "Caballo Militar" , "Salir") if mester == 1 thenif pc.money>=100000 thenpc.changemoney(-100000)horse.set_level(1)horse.summon()pc.give_item2("50051", 1)say_title("" .. mob_name ( 20349 ) .. ":")say("Gracias por tu compra, aora te entregue")say_item_vnum("50051")say("Para que Invoques tu caballo principiante.")chat("Gracias por comprar tu caballo principiante.") elsesay_title("¿Me quieres timar?")say("Que pasa con tigo chico")say("Mi trabajo es serio , no quiero problemas.")end elseif mester == 2 thenif pc.money>=1000000 thenpc.changemoney(-1000000)horse.set_level(11)horse.summon()pc.give_item2("50052", 1)pc.remove_item("50051", 1)say_title("" .. mob_name ( 20349 ) .. ":")say("Gracias por tu compra, aora te entregue")say_item_vnum("50052")say("Para que Invoques tu caballo Armado.")chat("Gracias por comprar tu caballo Armado")elsesay_title("¿Me quieres timar?")say("Que pasa con tigo chico")say("Mi trabajo es serio , no quiero problemas.")end elseif mester == 3 thenif pc.money>=10000000 thenpc.changemoney(-10000000)horse.set_level(21)horse.summon()pc.give_item2("50053", 1)pc.remove_item("50052", 1)say_title("" .. mob_name ( 20349 ) .. ":")say("Gracias por tu compra, aora te entregue")say_item_vnum("50053")say("Para que Invoques tu caballo Militar.")chat("Gracias por comprar tu caballo Militar") elsesay_title("¿Me quieres timar?")say("Que pasa con tigo chico")say("Mi trabajo es serio , no quiero problemas.")endreturn endendendend Citar Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
Sarck3Imperios Publicado 10 de Agosto del 2013 Reportar Compartir Publicado 10 de Agosto del 2013 muy buena idea Citar Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
PACI Publicado 10 de Agosto del 2013 Reportar Compartir Publicado 10 de Agosto del 2013 Para primera vez esta muy bien la verdad, felicidades. También le podrías poner para que pidiese esa medalla de los monos. xD Por si te va bien para que en el futuro si quieras hacer quests mas cortas, te la dejo aquí: quest comprar_caballo1 begin state start begin when 20349.chat."Comprar Caballo" begin local datos = { -- Nivel Item Precio Tipo de Caballo {1, 50051, 10000, "Caballo Principiante"}, {11, 50052, 1000000, "Caballo Armado"}, {21, 50053, 10000000, "Caballo Militar"} } say_title("".. pc.get_name() .." Que quieres hacer:") say("Hola que tal aventurero, Veo que estas interesado") say("En un caballo.. si tanto quieres uno, estas son") say("Caballo Inicial a lv 1 100.000") say("Caballo Inicial a lv 25 1.000.000") say("Caballo Inicial a lv 50 10.000.000") local mester = select ("Caballo Inicial", "Caballo Armado", "Caballo Militar", "Salir") if mester != 4 then if pc.get_gold() >= datos[a][3] then -- Precio horse.set_level(datos[a][1]) -- Nivel pc.changegold(-datos[a][3]) -- Cobrar el Precio horse.summon() -- Llamar el caballo pc.give_item2(datos[a][2]) -- Dar el item say_title("" .. mob_name ( 20349 ) ..":") say("Gracias por tu compra, aora te entregue") say_item_vnum(datos[a][2]) -- Enseña el item say("Para que Invoques tu "..datos[a][4]..".") -- Nombre del caballo chat("Gracias por comprar tu "..datos[a][4]..".") -- Nombre del caballo else say_title("¿Me quieres timar?") say("Que pasa con tigo chico") say("Mi trabajo es serio , no quiero problemas.") end end end endendSi le echas un vistazo al capítulo de tablas de KeKo la entenderás y aprenderás también PD: Espero que esto no te lo tomes a mal, ya que lo que quiero es ayudarte.. Citar Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
MesterLum Publicado 10 de Agosto del 2013 Author Reportar Compartir Publicado 10 de Agosto del 2013 perdon xd pero lo practique sin internet lo unico que tube de base fueron los end, los locale y de ahy yo me puse a investigar todo lo demas porque no tenia internet :c , pero ire aprendiendo poco a poco.. gracias pacifi PD:perdon por no leer rapido el mp mi primo estaba en el ordenador :c Citar Enlace para comentar Compartir en otros sitios Mas opciones de compartir...
Mensajes recomendados
Unirse a la conversación
Puedes publicar ahora y registrarte más tarde. Si tienes una cuenta, regístrate para publicar con su cuenta.