Quest comprar caballos y mi primera quest | opinenla y aqui esta

[MesterLum]

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

[Sarck3Imperios]

muy buena idea

[PACI]

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	endend

Si 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..

[MesterLum]

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