----------------------------------------------------
--COLLECT QUEST_lv30
-- Metin2 King PvP
----------------------------------------------------
quest collect_quest_lv30  begin
	state start begin
		when login or levelup with pc.level >= 30  begin
			set_state(information)
			end
        end
        state information begin
			when letter begin
				local v = find_npc_by_vnum(20084)
				if v != 0 then
					target.vid("__TARGET__", v, "A Pesquisa do Biólogo ")
					end
					send_letter("A Pesquisa do Biólogo ")
                end
                when button or info begin
					say_title("A Pesquisa do Biólogo ")
					say()
					say("O Biólogo agora vai começar uma nova")
					say("etapa de suas pesquisas e precisará ")
					say("novamente de sua ajuda. ")
					say("Encontre ele e ofereça ajuda. ")
					say()
                end
                when __TARGET__.target.click or
					20084.chat."Dente de Orc " begin
					target.delete("__TARGET__")
					say_title("Girab: ")
					say()
					say("Oh! Por favor, preciso novamente de ajuda... ")
					say("Como você sabe eu coleto informações sobre os ")
					say("monstros que ameaçam constantemente nosso reino, ")
					say("mas tenho que reconhecer, não posso fazer isso ")
					say("sozinho. Na verdade, eu deveria buscar eu mesmo ")
					say("esta informação. Você pode imaginar o enorme ")
					say("problema que tenho, porque sou um simples biólogo. ")
					say("Por favor me ajude. Naturalmente receberá uma ")
					say("uma boa recompensa por isso. ")
					say()
					wait()
					say_title("Girab:")
					say()
					say("Recentemente eu comecei a me dedicar a pesquisa de ")
					say("lendas... Os orcs negros do Vale. Segundo dizem os ")
					say("dentes destes monstros, podem moer até Ferro. ")
					say("Por isso esta lenda me parecem muito interessante. ")
					say("Provavelmente, está relacionada com os Orcs... ")
					say("O Dente Orc deve ser uma chave para a evolução. ")
					say()
					wait()
					say_title("Girab")
					say()
					say("Preciso de 10 Dente de Orc para o minha pesquisa. ")
					say("Mas os dentes são muito frágeis. Assim pode ser")
					say("que alguns quebrem ao serem analisados. Me ")
					say("entregue, um por vez, e entenda preciso de tempo ")
					say("para analisar. E muito cuidado para poder saber o ")
					say("que está por trás da lenda... Agora vá! Boa sorte! ")
					say()
					set_state(go_to_disciple)
					pc.setqf("duration",0)
					pc.setqf("collect_count",0)
					pc.setqf("drink_drug",0)
				end
			end
			state go_to_disciple begin
                when letter begin
					send_letter("Estudo do Biólogo")
                end
                when button or info begin
					say_title("Estudo do Biólogo")
					say()
					say("O biólogo precisa de Dentes de Orc do Vale")
					say("Suryong para examinar. Entregue a ele")
					say("apenas um por vez, para que ele possa ter")
					say("tempo de examiná-los com precisão.")
					say()
					say()
					say_item_vnum(30006)
					say_reward("Você já entregou ".." "..pc.getqf("collect_count").."  Dente de Orc")
					say()
                end
                when 71035.use begin
					if get_time() < pc.getqf("duration") then
						say()
						say("Você não pode usar o Soro da Persuasão ainda.")
						say()
						return
					end
					if pc.getqf("drink_drug")==1 then
						say()
						say("Você já usou o Soro da Persuasão.")
						say("Aguarde 24h para usa-lo novamente ...")
						return
					end
					if pc.count_item(30006)==0 then
						say_title("Girab:")
						say()
						say("Quando você for entregar os dentes,")
						say("poderá usar o Soro da Persuasão.")
						say()
						return
					end
					item.remove()
					pc.setqf("drink_drug",1)
				end

				when 20084.chat."Usar Livro do Sábio" with pc.count_item(30132) >0 begin
					say(mob_name(20084))
					say("Parabéns por concluir sua quest, bravo guerreiro, aguardo-lhe brevemente.")
					pc.remove_item(30132,1)
					set_state(__reward)
					return
				end
				when 20084.chat."Tem os Dentes de Orc?" with pc.count_item(30006) >0   begin
					if get_time() > pc.getqf("duration") then
					if  pc.count_item(30006) >0 then
						say_title("Girab:")
						say()
						say("Oh! Você me trouxe um Dente de Orc.")
						say("Eu tenho que testá-lo primeiro...")
						say("Isso precisa de um determinando tempo..")
						say()
						pc.remove_item("30006",1)
						if  is_test_server()  then
							pc.setqf("duration",get_time()+2)
						else
							pc.setqf("duration",get_time()+60*10*1) -----------------------------------22½Ã°£
						end
						wait()
						local pass_percent
						if pc.getqf("drink_drug")==0 then
							pass_percent=70
						else
							pass_percent=100
						end
						local s= number(1,100)
						if s<= pass_percent  then
							if pc.getqf("collect_count")< 9 then
								local index =pc.getqf("collect_count")+1
								pc.setqf("collect_count",index)
								say_title("Girab:")
								say()
								say("Oh! Parabéns... este está perfeito.")
								say("Traga mais".." "..10-pc.getqf("collect_count").. " Dentes de Orc ")
								say("Preciso outro para analisar. ")
								say("Boa Sorte.")
								say()
								say()
								pc.setqf("drink_drug",0)
								return
							end
							say_title("Girab:")
							say()
							say("Você já me entregou todos os dentes.")
							say("Mas agora eu preciso de uma pedra especial.")
							say("A Pedra da Alma Orc, você consegue")
							say("encontrar ela para mim também?")
							say("Você pode obtê-la derrotando os Orcs.")
							say()
							pc.setqf("collect_count",0)
							pc.setqf("drink_drug",0)
							pc.setqf("duration",0)
							set_state(key_item)
							return
						else
							say_title("Girab:")
							say("[ENTER]Hum... infelizmente este está trincado...")
							say("Eu sinto muito. Mas eu não posso usá-lo.")
							say("Por favor, traga outro.")
							say()
							pc.setqf("drink_drug",0)
							return
						end
					else
						say_title("Girab:")
						say("Você não tem um"..item_name(30006).."!")
						return
					end
				else
					say_title("Girab:")
					say()
					say("Eu sinto muito, mas... ainda estou")
					say("analisando o dente que você trouxe")
					say("Você pode trazer para mim")
					say("outro dente mais tarde?")
					say()
					say()
					say()
					return
                end
			end
		end
        state key_item begin
			when letter begin
				send_letter("Estudo do Biólogo")
				if pc.count_item(30220)>0 then
					local v = find_npc_by_vnum(20084)
						if v != 0 then
							target.vid("__TARGET__", v, "")
						end
					end
                end
                when button or info begin
                        if pc.count_item(30220) >0 then
                                say_title("Pedra da Alma Orc")
                                say()
                                ---                                                   l
                                say_reward("Você encontrou a Pedra da Alma Orc.")
                                say_reward("Leve-a para o Biólogo Girab.")
                                say_reward("Ele espera por você.")
                                say()
                                return
                        end
                       say_title("Pedra da Alma Orc")
                        say()
                        ---                                                   l
                        say("Para terminar os seus estudos o Biólogo")
                        say("precisa da Pedra da Alma Orc.")
                        say("Você já entregou os 10 dentes.")
                        say()
						say()
						say_item_vnum(30220)
                        say("Entregue ao Biólogo a pedra que você encontrou.")
					say("Você consegue derrotando "..mob_name(635)..", ")
					say(""..mob_name(636)..", "..mob_name(637)..".")
					say()
                end
                when 635.kill or 636.kill or 637.kill  begin
					local s = number(1, 500)
					if s == 1 and pc.count_item(30220)==0 then
					pc.give_item2(30220, 1)
					send_letter("Você encontrou a Pedra da Alma Orc.")
				end
			end
			when __TARGET__.target.click  or
				20084.chat."Eu tenho a Pedra da Alma Orc" with pc.count_item(30220) > 0  begin
				target.delete("__TARGET__")
				if pc.count_item(30220) > 0 then
				say_title("Girab")
				---                                                   l
				say()
				say("Você lutou muito...")
				say("Mas eu vou aumentar sua força interior!")
				say("Eu vou te dar uma receita para que")
				say("você possa melhorar o seu poder interior!")
				say("Graças a sua preciosa ajuda agora")
				say("eu entendo a Lenda da Pedra da Alma Orc...")
				say("Vá com esta informação a Baek-Go.")
				say("Ele ajudará você a aumentar sua força.")
				say()
				pc.remove_item(30220,1)
				set_state(__reward)
			else
                say_title("Girab:")
				say("Você não tem a "..item_name(30220).."!")
				say()
				return
                end
			end
		end
		state __reward begin
			when letter begin
				send_letter("A Recompensa do Biólogo")
				local v = find_npc_by_vnum(20018)
				if v != 0 then
				target.vid("__TARGET__", v, "Baek-Go")
				end
			end
			when button or info begin
				say_title("A Recompensa do Biólogo")
				---                                                   l
				say()
				say("Como recompensa por me ajudar")
				say("vou lhe dar uma receita para uma poção")
				say("secreta. Por favor de isto a Baek Go, ele")
				say("vai criar esta fantástica  poção para você.")
				say()
			end
			when __TARGET__.target.click  or
				20018.chat."A Receita Secreta"  begin
				target.delete("__TARGET__")
				say_title("Baek-Go:")
				say()
				say("Deixe-me dar uma olhada...")
				say("O Biólogo te enviou por causa de uma receita?")
				say("Me mostre ela... Oh... esta receita vai aumentar ")
				say("sua velocidade em +20 de forma permanente.")
				say("Obrigado!")
				say()
				-----------                                                   l
				say_title("Recompensa:")
				say_reward("Bônus Permanente: +20 de velocidade de movimento. ")
				say()
				affect.add_collect(apply.MOV_SPEED, 20, 60*60*24*365*60) -- 60Years
				clear_letter()
				set_quest_state("collect_quest_lv40", "run")
				set_state(__complete)
			end
        end
        state __giveup__ begin
			when 20084.chat."Another Trial." begin
				say_title("Girab:")
				say()
				say("Você pode tentar de novo?")
				say("Hmm, muito bom")
				say("Isso me atrai muito bem, mas")
				say("tente novamente")
				say("Ok, até mais.")
				set_state(start)
             end
         end
        state __complete begin
	end
end