[NEW QUEST]Bichos de Hielo

[Dextrok]

quest bichos_hielo begin	state start begin		when login or levelup with pc.get_level() >= 72 begin			set_state(info)		end	end	state info begin		when letter begin			send_letter("Los bichos de hielo")			local v = find_npc_by_vnum(20002)			if v != 0 then				target.vid("__TARGET__", v, "Los bichos de hielo")			end		end		when info or button begin			say_title("Los bichos de hielo")			say(mob_name(20002) .. " necesita de tu ayuda")			say("Buscale y ayudale!")			say("")		end		when __TARGET__.target.click or 20002.chat."Los bichos de hielo" begin			target.delete("__TARGET__")			say_title(mob_name(20002) .. ":")			say("")			say("ya que vas para montana sohan a ayudarme con")			say("los bichos, por favor, quiero pedirte otro")			say("favor ya que estaras por ahi, yo seria mas")			say("tranquila si los bichos de hielo, tambien")			say("fueran acabados por ti, por favor ayudame a")			say("matarlos, ya quiero estar mas tranquila.")			say("")			wait()			say("Entonces dime:")			say_reward("Deseas tomar la mision?")			local res = select("Si","No")			if res == 2 then				say("Bueno, estare aqui para cuando decidas volver")				clear_letter()				set_state(start)			else				say_title(mob_name(20002) .. ":")				say("Perfecto has decidido tomarla ahora")				say("Esperare, a que vuelvas")				set_state(__MISION__)			end		end	end	state __MISION__ begin		when letter begin			setskin(NOWINDOW)			makequestbutton("Los bichos de hielo")			q.set_title("Los bichos de hielo")			q.start()		end		when button or info begin			say_title("Informacion de la Quest")			say("")			say("Dirigete hacia la montana sohan y acaba con 30")			say("bichos de hielo, para que Aranyo pueda recuperar")			say("un poco mas de tranquilidad.")			say("")		end		when enter begin			pc.setqf("kill_count", 0)		end		when letter begin			q.set_counter("Bicho de Hielo", 30 - pc.getqf("kill_count"))		end		when 1103.party_kill begin			pc.setqf("kill_count", pc.getqf("kill_count")+1)			q.set_counter("Bicho de Hielo", 30 - pc.getqf("kill_count"))		end		when 1103.party_kill with pc.getqf("kill_count") >= 30 begin			set_state(__REWARD__)		end	end	state __REWARD__ begin		when letter begin			send_letter("Has completado la mision!")		end		when info or button begin			say_title("Mission Accomplished")			say("Ahora ve y entregala")			say_reward("vuelve con " .. mob_name(20002))			local k = find_npc_by_vnum(20002)			if k != 0 then				target.vid("__TARGET__", k, "Los bichos de hielo")			end		end		when __TARGET__.target.click or 20002.chat."Los bichos de hielo" begin			target.delete("__TARGET__")			say_title(mob_name(20002) .. ":")			say("Oh! Has Realizado la Quest Correctamente!")			say("Yo te recompensare...")			say_reward("Recibes: 15.000.000 exp")			say_reward("Recibes: 20.000.000 yang")			pc.give_exp2(15000000)			pc.change_gold(20000000)			clear_letter()			set_state(__COMPLETE__)		end	end	state __COMPLETE__ begin		when enter begin			q.done()		end	endend

[Tiico™]

Muy buena