[Quest] Quest: Matar X Mob Para Conseguir Cavalo

[Unk3n0w7 1,322]

boas pessoal , hoje venho partilhar uma quest que para conseguirem cavalo têm que matar x moob !

Vi esta quest no metin2zone e quis partilhar !

PS  : A Quest está em espanhol ! Quem traduzir agradecia !

quest NuevaCaballo begin	state start begin		local s = find_npc_by_vnum(20349)			if s != 0 then				target.vid("__TARGET__", s, "Consigue tu caballo inicial")			end		when __TARGET__.target.click or 20349.chat."Consigue tu caballo inicial" with pc.get_level() < 1 begin				target.delete("__TARGET__")				say_title("Chico del establo:")				say("Con esta funcion te permitire")				say("Subir de nivel tu caballo")				say("Pero tienes que matar 20 perros")				say("Despues de subirlo podras cabalgar")				say("Saludos.")				say("")		locale temo = select ("Si lo quiero" , "Salir")			if temo == 2 then return end			if temo == 1 then				timer("tiempo", 1200)				q.set_counter("perros", 20)			end		when 101.kill with q.set_counter("perros") == 0 begin				say_title("".. pc.get_name() ..":")				say("Felizidades as conseguido matar los perros")				say("En el tiempo estimado...")				say("Tu premio:")				say_reward("Caballo principiante")				horse.set_level(1)				horse.summon()				set_state(mester)		end		when tiempo.timer begin			say_title("Fracasaste la micion")			say("Lo siento pero as fracasado")			say("Intenta de nuevo :c")		end	state mester begin		local d = find_npc_by_vnum(20349)			if d != 0 then				target.vid("__TARGET__", d, "Consigue tu caballo armado")			end		when __TARGET__.target.click or 20349.chat."Consigue tu caballo armado" with pc.get_level() < 25 begin				target.delete("__TARGET__")				say_title("Chico del establo:")				say("Con esta funcion te permitire")				say("Subir de nivel tu caballo")				say("Pero tienes que matar 20 perros")				say("Despues de subirlo podras cabalgar")				say("Saludos.")				say("")		locale temo1 = select ("Si lo quiero" , "Salir")			if temo == 2 then return end			if temo == 1 then				timer("tiempo1", 1200)				q.set_counter("perros1", 20)			end				when 101.kill with q.set_counter("perros1") == 0 begin				say_title("".. pc.get_name() ..":")				say("Felizidades as conseguido matar los perros")				say("En el tiempo estimado...")				say("Tu premio:")				say_reward("Caballo principiante")				horse.set_level(11)				horse.summon()				set_state(mester1)		end		when tiempo1.timer begin			say_title("Fracasaste la micion")			say("Lo siento pero as fracasado")			say("Intenta de nuevo :c")				end	state mester1 begin		local a = find_npc_by_vnum(20349)			if a != 0 then				target.vid("__TARGET__", a, "Consigue tu caballo militar")			end		when __TARGET__.target.click or 20349.chat."Consigue tu caballo militar" with pc.get_level() < 50 begin			target.delete("__TARGET__")			say_title("Chico del establo:")			say("Con esta funcion te permitire")			say("Subir de nivel tu caballo")			say("Pero tienes que matar 20 perros")			say("Despues de subirlo podras cabalgar")			say("Saludos.")			say("")		locale temo1 = select ("Si lo quiero" , "Salir")		if temo == 2 then return end		if temo == 1 then			timer("tiempo2", 1200)			q.set_counter("perros2", 20)		end			when 101.kill with q.set_counter("perros2") == 0 begin			say_title("".. pc.get_name() ..":")			say("Felizidades as conseguido matar los perros")			say("En el tiempo estimado...")			say("Tu premio:")			say_reward("Caballo principiante")			horse.set_level(21)			horse.summon()			set_state(completada)		end			when tiempo2.timer begin		say_title("Fracasaste la micion")		say("Lo siento pero as fracasado")		say("Intenta de nuevo :c")		end	end	state completada begin	endend 

 

Fonte : Metin2Zone !

[SINOLOGY 220]

Esta quest está a dar-me o seguinte erro:



Pelo que entendo de Inglês cheguei à conclusão que há algum problema na quest em relação ao comando when

 

ou

 

falta-me alguma função


Cumprimentos;
BURNERD.
 

[Mastema 98]

Acho que precisas de meter 3 ou 4 end no final da quest

[SINOLOGY 220]

Bem pessoal, já estive de roda da quest e já corrigi (penso eu) alguns erros, mas agora consigo um novo erro:




Deixo aqui o meu .quest de agora (ainda com algum erro):

 

 

quest cavalo begin	state start begin		when login with pc.get_level() > 1 begin			local s = find_npc_by_vnum(20349)			if s != 0 then				target.vid("__TARGET__", s, "Consigue tu caballo inicial")			end		end		when __TARGET__.target.click or 20349.chat."Consigue tu caballo inicial" with pc.get_level() > 1 begin			target.delete("__TARGET__")			say_title("Chico del establo:")			say("Con esta funcion te permitire")			say("Subir de nivel tu caballo")			say("Pero tienes que matar 20 perros")			say("Despues de subirlo podras cabalgar")			say("Saludos.")			say("")			locale temo0 = select ("Si lo quiero" , "Salir")				if temo0 == 2 then return end				if temo0 == 1 then					timer("tiempo", 1200)					pc.setqf("perros", 20)					q.set_counter("PerrosSalvajes", 20)		end		when 101.kill begin			local s = pc.getqf("perros")			if s <= 20 then				pc.setqf("perros", s)				q.set_counter("PerrosSalvajes", s)		end            if s == 0 then			say_title("".. pc.get_name() ..":")			say("Felizidades as conseguido matar los perros")			say("En el tiempo estimado...")			say("Tu premio:")			say_reward("Caballo principiante")				horse.set_level(1)				horse.summon()				set_state(seguir)			end		end		when tiempo.timer begin			say_title("Fracasaste la micion")			say("Lo siento pero as fracasado")			say("Intenta de nuevo ....")			end		end		state seguir begin			when login with pc.get_level() > 25 begin			local s = find_npc_by_vnum(20349)			if s != 0 then			target.vid("__TARGET__", s, "Consigue tu caballo armado")			end		end		when __TARGET__.target.click or 20349.chat."Consigue tu caballo armado" with pc.get_level() > 25 begin			target.delete("__TARGET__")			say_title("Chico del establo:")			say("Con esta funcion te permitire")			say("Subir de nivel tu caballo")			say("Pero tienes que matar 20 perros")			say("Despues de subirlo podras cabalgar")			say("Saludos.")			say("")			locale temo1 = select ("Si lo quiero" , "Salir")				if temo1 == 2 then return end				if temo1 == 1 then					timer("tiempo1", 1200)					q.set_counter("PerrosSalvajes", 20)					pc.setqf("perros1", 20)			end			when 101.kill begin				local d = pc.getqf("perros1")				if d <= 20 then					pc.setqf("perros1", d)					q.set_counter("PerrosSalvajes", d)			end			if d == 0 then			say_title("".. pc.get_name() ..":")			say("Felizidades as conseguido matar los perros")			say("En el tiempo estimado...")			say("Tu premio:")			say_reward("Caballo principiante")				horse.set_level(11)				horse.summon()				set_state(siguiendo)			end		end		when tiempo1.timer begin			say_title("Fracasaste la micion")			say("Lo siento pero as fracasado")			say("Intenta de nuevo ....")			end		end		state siguiendo begin		when login with pc.get_level() > 50 begin			local s = find_npc_by_vnum(20349)			if s != 0 then			target.vid("__TARGET__", s, "Consigue tu caballo militar")			end		end			when __TARGET__.target.click or 20349.chat."Consigue tu caballo militar" with pc.get_level() > 50 begin				target.delete("__TARGET__")				say_title("Chico del establo:")				say("Con esta funcion te permitire")				say("Subir de nivel tu caballo")				say("Pero tienes que matar 20 perros")				say("Despues de subirlo podras cabalgar")				say("Saludos.")				say("")				locale temo2 = select ("Si lo quiero" , "Salir")				if temo2 == 2 then return end				if temo2 == 1 then					timer("tiempo2", 1200)					q.set_counter("PerrosSalvajes", 20)					pc.setqf("perros2", 20)			end			when 101.kill begin			local a = pc.getqf("perros2")				if a <= 20 then					pc.setqf("perros2", a)					q.set_counter("PerrosSalvajes", a)			end			if a == 0 then				say_title("".. pc.get_name() ..":")				say("Felizidades as conseguido matar los perros")				say("En el tiempo estimado...")				say("Tu premio:")				say_reward("Caballo principiante")				horse.set_level(21)				horse.summon()				set_state(completada)				end			end			when tiempo2.timer begin				say_title("Fracasaste la micion")				say("Lo siento pero as fracasado")				say("Intenta de nuevo ....")				end			endstate completada begin	endend

 

[SINOLOGY 220]

#up

[Tarata 72]

alguém ajuda na quest? já tentei resolver mas não consigo :s

[JazaO 35]

Alguem poderia corrigir a quest ?

[[DEV]Runah 341]

https://mega.nz/#!ShlVhboa!V-vDS0TlrJgmnu_US9IK5Uf4MnJSbnYyQjFJLAoJWjU

http://pastie.org/10669170

fiz de cabeça n testei mas deve dar.

[code 0]

On 26/09/2013 at 13:35, Unk3n0w7 said:

boa pessoal, hoje venho compartilhar uma quest que para conseguirem cavalo têm que matar x moob!

Vi esta busca no metin2zone e quis compartilhar !

PS: A Quest está em espanhol! Quem traduz agradecia !
 

  Ocultar conteúdo

 

 

Fonte: Metin2Zone!

good