[PYTANIE]Quest Biologa

[szeler]

Witam

 

gdzie w quescie biologa mozna zmienic szanse na drop np konara zelkova?

 

Quest:

 

 

----------------------------------------------------
--COLLECT QUEST_lv100
--METIN2 Collecting Quest
----------------------------------------------------
quest collect_quest_lv100  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 100 and pc.level <= 120 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, "Biolog Chaegirab")
					end
					send_letter("Badania Biologa")
			end
			when button or info begin
					say_title("Badania Biologa")
					say("")
					say("Biolog szuka pomocy,")
					say("udaj się do niego")
					say("I zaoferuj swą pomoc.")
					say("")
			end
			when __TARGET__.target.click or
					20084.chat."Znajdź Biologa" begin
					target.delete("__TARGET__")
					say_title("Biolog Chaegirab:")
  say("")
					---												   l
  say("Witaj Ponownie!")
					say("Znowu potrzebuję Twej pomocy!.")
					say("Dziś interesuje mnie las duchów..")
					say("Wiem co myślisz... Badaj sam doktorku... ,")
  say("Ja nie mogę ! Jestem tylko biologiem! Pamiętaj:")
					say("Zostaniesz dobrze wynagrodzony!.")
					say("")
					say("")
					wait()
  say_title("Biolog Chaegirab:")
  say("")
					say("Opowiedz mi o lesie duchów:")
					say("Mało o tym wiem...")
  say("Był to kiedyś wielki gaj!.")
  say("Lecz energia kamieni metin opętała drzewa energią.")
  say("Złą i ciemną energią.")
					say("Teraz złe duchy terroryzują przechodniów.")
					say("A Ty musisz znaleść dla mnie Konar Zelkowa")
					say("")
					wait()
					say_title("Biolog Chaegirab:")
  say("")
					say("Bedziesz tak długo musiał mi je dostarczać")
  say("Aż zbiorę odpowiednią ilość nienaruszonych gałęzi. ")
  say(" ...")
					say("Nie mogę używać małych i połamanych")
					say("do badań potrzebuję tylko 25 Konarów")
					say("Powodzenia!")
					say("")
					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("Badania Biologa")
			end
			when button or info begin
					say_title("Muszę czegoś się dowiedzieć o Lesie.")
					---												   l
					say("")
  say("Biolog uczeń Uriela, właśnie bada")
  say("Ghost Forest.")
  say("On musi mieć dużo Konarów")
  say("Podobno wejśćie do lasu jest schowane...")
  say("A drzewa mają mocne umiejętności.")
  say(" Przynieś mi 25 Konarów Zelkowa,")
  say("Ale tylko jeden na raz.")
					say_item_vnum(30165)
					say_reward("Do tej pory zebrałeś"..pc.getqf("collect_count").." konarów")
					say("")
			end
			when 71035.use begin --DasVerwirrungswasser
					if get_time() < pc.getqf("duration") then
							say("Nie można korzystać z mikstury do misji..")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("Już .")
							return
					end
					if pc.count_item(30165)==0 then
							say_title("Chaegirap:")
say("")
-----												   l
							say("Podczas zbierania konarów")
say("można użyć mikstury do questów")
							say("")
							return
					end
					item.remove()
					pc.setqf("drink_drug",1)
			end
 when 2301.kill or
2302.kill or
2303.kill or
2304.kill or
2305.kill or
2311.kill or
2312.kill or
2313.kill or
2314.kill or
2315.kill  begin
  local s = number(1, 200)
  if s == 1 and pc.count_item(30165)==0 then
pc.give_item2(30165)
			send_letter("Znalazłeś"..item_name(30165).. ". ")
  end
 end
	 when 20084.chat."Łuski Smoka" with pc.count_item(30165) >0   begin
					if get_time() > pc.getqf("duration") then
							say("Biolog Chaegirab")
							---												   l
							say("Oh!! Pokaż mi ją!...")
							say("Sprawdzę.....")
							say("Momencik...")
							say("")
							pc.remove_item(30165, 1)
	pc.setqf("duration",get_time()+1*1*1)--------------22­Ó¤p?É							
	wait()
							local pass_percent
							if pc.getqf("drink_drug")==0 then
									pass_percent=60
							else
									pass_percent=90
							end
	local s= number(1,100)
							if s<= pass_percent  then
							   if pc.getqf("collect_count")< 24 then													
		local index =pc.getqf("collect_count")+1
								   pc.setqf("collect_count",index)	
								   say_title("Biolog Chaegirab:")
											say("Oh!! haha ! Udało się ta jest idealna!...")
											say("Zostało ci ".." "..25-pc.getqf("collect_count").. "jeszcze.")
											say("Powodzenia!")
											say("")
											pc.setqf("drink_drug",0)	  
											return
									end
									say_title("Biolog Chaegirab:")
	  say("")
									---												   l
	  say("Zebrałeś wszystkie konary!!!")
									say("Pozostał tylko kamień")
	  say("Jest on jakby kluczem do zagadki.")
									say("Święty kamień możesz zdobyć od drzew w lesie")
									say("Załatw mi go !")
									say("")
									pc.setqf("collect_count",0)
									pc.setqf("drink_drug",0)
									pc.setqf("duration",0)
									set_state(key_item)
									return
							else
							say_title("Biolog Chaegirab:")
say("")
							say("Hmm...")
							say("Przykro on już był użyty")
							say("Jest zbyt cienki i słaby.")
							say("Proszę znajdź inny.")
							say("")
							pc.setqf("drink_drug",0)									  
		 return
							end
				else
				 say_title("Biolog Chaegirab:")
say("")
---												   l
			  say("Niezmiernie mi przykro....")
			  say("Jeszcze nie skończyłem badać poprzedniego")
say("Daj mi trochę czasu...")
say("Do zobaczenia!")
			  say("")
			  say("")
			  return
			end
	end
end

	state key_item begin
			when letter begin
					send_letter("Kamień Duszy Gyimok")
					if pc.count_item(30224)>0 then
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Biolog Chaegirab")
							end
					end
			end
			when button or info begin
					if pc.count_item(30224) >0 then
							say_title("Kamień Duszy Gyimok")
							say("")
							---												   l
							say("Kamień Duszy Gyimok znajdę u drzew.")
							say("Jeśli go odszukam mam go zanieść biologowi.")
say("Prędko!")
							say("")
							return
					end
					say_title("Kamień Duszy Gyimok")
					say("")
					---												   l
					say("Do badań biolog potrzebuje")
  say("zebrane już konary i I Kamień Duszy")
  say("Znajdź go i oddaj biologowi,")
					say("Potrzebny jest ten kamień...,")
					say_item_vnum(30224)----------The GhostˇŻs Soul Stone
					say("Otrzymasz go od drzew w lesie..")
					say("Oddaj go potem Biologowi.")
					say("")
			end

 when 2301.kill or
2302.kill or
2303.kill or
2304.kill or
2305.kill or
2311.kill or
2312.kill or
2313.kill or
2314.kill or
2315.kill  begin
					local s = number(1, 500)
					if s == 1 and pc.count_item(30224)==0 then
							pc.give_item2(30224)
							send_letter("Znalazłeś Kamień Duszy Gyimok!. ")
					end
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazłeś Kamień Duszy Gyimok" with pc.count_item(30224) > 0  begin
				target.delete("__TARGET__")
  say_title("Chaegirap:")
  say("")
 ---												   l
					say("Oh!!! Wielkie dzięki!.")
					say("Nagroda będzie bardzo wyszukana!")
					say("Przekażę ci tajemnicę")
  say("Tajemnicę siły.")
  say("Tajemnicę siły")
					say("Idź do Baek-go on ci wszystko opowie")
  say("Brawo!")
					say("Dzięki za pomoc!")
  say("Z tymi upiorami...")
					say("")
					pc.remove_item(30224,1)
					set_state(__reward)
			end
	end
	state __reward begin
			when letter begin
					send_letter("Nagroda lvl 70")
					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("Badania Biologa - Nagroda")
					---												   l
					say("Jako nagrodę za znalezienie 25 konarów ")
  say("oraz kamienia duchów")
  say("biolog załatwił Ci wspaniałą nagrodę!")
  say("To sekretna mikstura!.")
					say("Udaj się do Baek Go  on ci przekaże:")
  say("Nagrody")
					say("")
			end
			when __TARGET__.target.click  or
					20018.chat."The Secret Recipe"  begin
				target.delete("__TARGET__")
					say_title("Baek-Go:")
  say("")
  ---												   l
					say("Uważaj")
					say("Widzę, że się starasz pomóc mojemu przayjacielowi. mam coś dla Ciebie")
					say("Hmm, Odporność +10% i sszybkość ataku +11")
					say("Gratuluję.")
					say("")
					wait()
					say_title("Baek-Go:")
  say("")
					say("a do tego, zielona.ebon.szkata!")
					say("Proszę.")
					say("")
					say_reward("Jako nagrodę otrzymujesz bonusy:")
					say_reward(" 10% Szybkość ataku i 10% Odporności na Wszystko!")
					say_reward("To bon stały.")
					say("")
  affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60)
  affect.add_collect_point(POINT_DEF_BONUS,10,60*60*24*365*60) --60łâ
					clear_letter()
					set_quest_state("collect_quest_lv80", "run")
					set_state(__complete)
			end
	end

	state __complete begin
	end
end

 

[Dargon]

zaznaczyłem na czerwono

 

local s = number(1, 200)

if s == 1 and pc.count_item(30165)==0 then

pc.give_item2(30165)

send_letter("Znalazłeś"..item_name(30165).. ". ")