Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[SZUKAM]Działającego questa na biologa

lusan

Rekomendowane odpowiedzi

lusan Pomocnik

lusan

Opublikowano
Pomocnik

lusan

Opublikowano

Szukam działającego w 100% questa na biologa na pliki badara, dziekuję. Nie wiem czemu, ale z MPC nie działają :(

Kusicielka Uczeń

Kusicielka

Opublikowano
Uczeń

Kusicielka

Opublikowano

quest 70 lvl

 

 

----------------------------------------------------
--COLLECT QUEST_lv50
--METIN2 Collect Quest
----------------------------------------------------
quest collect_quest_lv50 begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 50 and pc.level <= 90 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, "Analiza Biologa")
					end
					send_letter("Analiza Biologa")
			end
			when button or info begin
					say_title("Analiza Biologa")
					say("")
					say("Biolog Chaegirab,uczen Uriela,")
					say("wlasnie Cie szukal.Prosze idz")
					say("do niego i zaoferuj mu swoja pomoc")
					say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					---	 l
					say("Niebiosa,prosze pomozcie mi...")
					say("Badam wszystkie rodzaje potworow w tym ")
					say("imperium.Jest bardzo duzo rzeczy,")
					say("ktore musza zostac zrobione.Nie mam")
					say("czasu abym mogl sam wybrac sie na wyprawe.")
					say("Prosze,pomoz mi.")
					say("Wynagrodze Cie za to.")
					wait()
					say("Aktualnie badam Pamiatki po Demonie.")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Pamiatek po Demonie.")
					say("Czy moglbys przyniesc mi 15 Pamiatek po Demonie?")
					say("Prosze,pomoz mi!Zawsze przynos mi po jednej,")
					say("abym mial czas na ich dokladne przebadanie!")
					say("")																																																																									  
					set_state(go_to_disciple)
					pc.setqf("duration",0) --ĄiĄH¸Ő¸ŐŞş?É?ˇ
					pc.setqf("collect_count",0)-- ¨ú?oŞşŞ??~ĽĆ?q
					pc.setqf("drink_drug",0) --łÜ°g´bĂĤôŞş¸Ü1
			end
	end
	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne")

			end
			when button or info begin
					say_title("Znajdz Pamiatki po Demonie")
					---	 l
					say("")
					say("Biolog Chaegirab,uczen Uriela,")
					say("szuka Pamiatek po Demonie")
					say("Zawsze przynos mu po jednej,aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Pamiatek po Demonie szukaj w Wiezy Demonow!")
					say("")
					say_item_vnum(30015)
					say_reward("Do tej pory zebrales" "..pc.getqf("collect_count").." Pamiatek po Demonie")
					say("")
			end

			when 71035.use begin --°g´bĂĤô
					if get_time() < pc.getqf("duration") then
							say("")
							say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")
							say("")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("")
							say("¤w¸g¨ĎĄÎ¤F1?¸")
							say("")
							return
					end
					if pc.count_item(30015)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Pamiatek po Demonie?...")
							say("")
							return
					end
					item.remove()
					pc.setqf("drink_drug",1)
			end

			when 20084.chat."Ksiegi Klatw" with pc.count_item(30015) >0 begin
					if get_time() > pc.getqf("duration") then
							say("Biolog Chaegirab")
							---	 l
							say("Oh!!Znalazles!")
							say("Pozwol, ze rzuce okiem...")
							say("Jeszcze chwilke.")
							say("")
							pc.remove_item(30015, 1)
							pc.setqf("duration",get_time()+1*1*1) ----------------22??
							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")< 14 then  --15­ÓĄĽşˇ
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)		 --¨ú?o¤@­Ó?É+1
											say("Biolog Chaegirab")
											say("Oh!!Ta Pamiatka po Demonie jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..15-pc.getqf("collect_count").. " Pamiatek po Demonie")
											say("Prosze,sprobuj je znalezc!")
											say("")
											pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
											return
									end
									say("Biolog Chaegirab:")
									say("Oh,zebrales juz wszystkie?")
									say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoja prace, potrzebuje")
									say("abys przyniosl dla mnie jeszcze jeden przedmiot!")
									say("")
									pc.setqf("collect_count",0)
									pc.setqf("drink_drug",0)	
									pc.setqf("duration",0)
									set_state(key_item)
									return
							else														
							say("Biolog Chaegirab:")
							say("Ta Pamiatka po Demonie jest zlej jakosci!")
							say("Sprobuj przyniesc inna!")
							say("Prosze, pomoz mi!")							  
							pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
							return
							end
			else
			 say("Biolog Chaegirab:")
			 say("Jeszcze nie skonczylem badac ostatniej Pamiatki!")
			 say("Wroc pozniej, kiedy juz skoncze!")
			 say("")
			 return
			end
	end
end
	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne!")

					if pc.count_item(30222)>0 then
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa")
							end
					end
			end
			when button or info begin
					if pc.count_item(30222) >0 then
							say_title("Znalazles kamien duszy!")
							say("")
							---	 l
							say("Wroc do biologa, aby")
							say("odniesc mu kamien!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---	 l
					say("Zebrales juz wszystkie 15 Pamiatek!")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30222)
					say("Mozesz go znalezc zabijajac Podle Demony")
					say("w Wiezy Demonow!")
					say("")
			end

			when 1031.kill or
					 1032.kill or
					 1033.kill or
					 1034.kill begin
					local s = number(1, 50)
					if s == 1 and pc.count_item(30222)==0 then
							pc.give_item2(30222, 1)
							send_letter("Wroc do biologa!")	  
					end  
			end

			when __TARGET__.target.click or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30222) > 0 begin
					target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazles!")
					say("Bardzo Tobie dziekuje!")
					say("")
					say_reward("Mozesz teraz isc do Baek-Go po nagrode!")
					say("")
					pc.remove_item(30222,1)
					set_state(__reward)
			end

	end

	state __reward begin
			when letter begin
					send_letter("Analiza Biologa - Nagroda")

					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("Skonczyles analize biologa!")
					---	 l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrode do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click or
					20018.chat."Nagroda" begin
					target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a wiec Biolog")
					say("wyslal Cie po nagrode?")
					say("Zobaczmy, co tam masz...")
					say("")
					say_reward("Otrzymujesz +60 wartosci obrony i niespodzianke")
					say_reward("na zawsze.")
					say("")

					affect.add_collect(apply.DEF_GRADE_BONUS,60,60*60*24*365*60) -----ˇV60?~	
					pc.give_item2(50077)

					clear_letter()
					set_quest_state("collect_quest_lv60", "run")
					set_state(__complete)
			end

	end

	state __giveup__ begin
			when 20084.chat."Poddajesz sie?" begin
					say("Biolog Chaegirab:")
					say("Czy jestes pewien, ze chcesz sie poddac!?")
					say("Nie bedziesz mial szansy, aby zaczac")
					say("ponownie!")
			end
	 end
	state __complete begin
	end
end

 

 

quest 30 lvl

 

 

----------------------------------------------------
-- Quest
-- Analiza Biologa 30lv
----------------------------------------------------
quest collect_quest_lv30  begin
	state start begin
			when login or levelup with pc.level >= 30 and pc.level <= 90 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, "Analiza Biologa - Zeby Orka")
					end
					send_letter("Analiza Biologa - Zeby Orka")
			end
			when button or info begin
				say_title("Analiza Biologa - Zeby Orka")
				say("")
				say("Biolog Chaegirab, uczen Uriela,")
				say("wlasnie Cie szukal. Prosze idz")
				say("do niego i zaoferuj mu swoja pomoc")
				say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					---												   l
					say("Niebiosa, prosze pomozcie mi...")
		say("Badam wszystkie rodzaje potworow w tym ")
		say("imperium. Jest bardzo duzo rzeczy,")
		say("ktore musza zostac zrobione. Nie mam")
		say("czasu abym mogl sam wybrac sie na wyprawe.")
		say("Prosze, pomoz mi.")
		wait()
		say("Aktualnie badam Zeby Orka.")
		say("Musze przeprowadzic kilka eksperymentow,")
		say("dlatego potrzebuje kilku Zebow Orka.")
		say("Czy moglbys przyniesc mi 10 Zebow Orka?")
		say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")
		say("abym mial czas na ich dokladne przebadanie!")
		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("Zadanie Specjalne - Zeby Orka")

			end
			when button or info begin
					say_title("Znajdz Zeby Orka")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Zebow Orka.")
					say("Zawsze przynos mu po jednym, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Zebow orka szukaj u Czarnych Orkow!")
					say("")
					say_item_vnum(30006)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Zebow Orka.")
					say("")
			end

			when 71035.use begin --°g´bĂĤô
					if get_time() < pc.getqf("duration") then
							say("")
							say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")
							say("")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("")
							say("¤w¸g¨ĎĄÎ¤F1?¸")
							say("")
							return
					end
					if pc.count_item(30006)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Zebow Orka?...")
							say("")
							return
					end
					item.remove()
					pc.setqf("drink_drug",1)
			end

	when 20084.chat."Zeby Orka" with pc.count_item(30006) >0   begin
					if get_time() > pc.getqf("duration") then
							say("Biolog Chaegirab:")
							---												   l
							say("Oh!! Znalazles!")
							say("Pozwol, ze rzuce okiem...")
							say("Jeszcze chwilke.")
							say("")
							pc.remove_item("30006", 1)
							pc.setqf("duration",get_time()+0*0*0)
							wait()

							local pass_percent
							if pc.getqf("drink_drug")==0 then
									pass_percent=70
							else		  
									pass_percent=90
							end

							local s= number(1,100)
							if s<= pass_percent  then
							   if pc.getqf("collect_count")< 9 then	 --10­ÓĄH¤U
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 --¨ú?o¤@­Ó?É +1
											say("Biolog Chaegirab:")
											say("Oh!! Ten Zab Orka jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..10-pc.getqf("collect_count").. " Zebow Orka.")
											say("Prosze, sprobuj je znalezc!")
											say("")
											pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
											return
									end
									say("Biolog Chaegirab:")
									say("Oh, zebrales juz wszystkie?")
									say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoja prace, potrzebuje")  
									say("abys przyniosl dla mnie jeszcze jeden przedmiot!")
									say("")
									pc.setqf("collect_count",0)
									pc.setqf("drink_drug",0)	  
									pc.setqf("duration",0)
									set_state(key_item)
									return
							else														  
							say("Biolog Chaegirab:")
							say("Ten Zab orka jest zlej jakosci!")
							say("Sprobuj przyniesc inny!")
							say("Prosze, pomoz mi!")
							pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
							return
							end
		else
			  say("Biolog Chaegirab:")
			  say("Jeszcze nie skonczylem badac ostatniego Zebu Orka!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end
	end
end
	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Zeby Orka")

					if pc.count_item(30220)>0 then
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Zeby Orka")
							end
					end
			end
			when button or info begin
					if pc.count_item(30220) >0 then
							say_title("Znalazles kamien duszy!")
							say("")
							---												   l
							say("Wroc do biologa, aby")
							say("odniesc mu kamien!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---												   l
					say("Zebrales juz wszystkie 10 Zebow!")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30220)
					say("Mozesz go znalezc zabijajac orki")
					say("w Dolinie Seungryong!")
					say("")
			end


			when 635.kill or
					 636.kill or
					 637.kill  begin
					local s = number(1, 50)
					if s == 1 and pc.count_item(30220)==0 then
							pc.give_item2(30220, 1)
							send_letter("Wroc do biologa!")	  
					end  
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30220) > 0  begin
				target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazles!")
					say("Bardzo Tobie dziekuje!")
					say("")
					say_reward("Mozesz teraz isc do Baek-Go po nagrode!")
					say("")
					pc.remove_item(30220,1)
					set_state(__reward)
			end

	end

	state __reward begin
			when letter begin
					send_letter("Analiza Biologa - Nagroda")

					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("Skonczyles analize biologa!")
					---												   l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrode do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda"  begin
				target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a wiec Biolog")
					say("wyslal Cie po nagrode?")
					say("Zobaczmy, co tam masz...")
					say("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
											local s = select("10% na Wojowników", "10% na Ninje", "10% na Sury", "10% na Szamanów")
					if s == 1 then
									affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 10, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 10% na Wojowników")
									say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
									say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
					elseif s == 2 then
									affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 10, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 10% na Ninje")
									say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
									say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
							elseif s == 3 then
									affect.add_collect(apply.POINT_ATTBONUS_SURA, 10, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 10% na Sury")
									say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
									say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
							elseif s == 4 then
									affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 10, 60*60*24*365*60) --60?~  
									say_reward("Otrzymałeś bonus: 10% na Szamanów")
									say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
									say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
							end
					pc.give_item2(50070)
					pc.give_item2(50070)
					pc.give_item2(50070)
					pc.give_item2(50070)
					pc.give_item2(50070)
					affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) --60?~
					clear_letter()
					set_quest_state("collect_quest_lv40", "run")
					set_state(__complete)
			end

	end

	state __giveup__ begin
			when 20084.chat."Poddajesz sie?" begin
					say("Biolog Chaegirab:")
					say("Czy jestes pewien, ze chcesz sie poddac!?")
					say("Nie bedziesz mial szansy, aby zaczac")
					say("ponownie!")
		 end
	 end
	state __complete begin
	end
end

 

 

quest 40 lvl

 

 

----------------------------------------------------
-- Analiza Biologa 40lv
----------------------------------------------------
quest collect_quest_lv40  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 40 and pc.level <= 90 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, "Analiza Biologa - Ksiegi Klatw")
					end
					send_letter("Analiza Biologa - Ksiegi Klatw")
			end
			when button or info begin
					say_title("Analiza Biologa - Ksiegi Klatw")
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("wlasnie Cie szukal. Prosze idz")
					say("do niego i zaoferuj mu swoja pomoc")
					say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					---												   l
					say("Niebiosa, prosze pomozcie mi...")
					say("Badam wszystkie rodzaje potworow w tym ")
					say("imperium. Jest bardzo duzo rzeczy,")
					say("ktore musza zostac zrobione. Nie mam")
					say("czasu abym mogl sam wybrac sie na wyprawe.")
					say("Prosze, pomoz mi.")
					say("Wynagrodze Cie za to.")
					wait()
					say("Aktualnie badam Ksiegi Klatw.")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Ksiag Klatw.")
					say("Czy moglbys przyniesc mi 15 Ksiag Klatw?")
					say("Prosze, pomoz mi! Zawsze przynos mi po jednej,")
					say("abym mial czas na ich dokladne przebadanie!")
					say("")																																																																										  
					set_state(go_to_disciple)
					pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞş?É?ˇ
					pc.setqf("collect_count",0)----ˇX¨ú?oŞşŞ??~ĽĆ?q
					pc.setqf("drink_drug",0) ------ˇV łÜ°g´bĂĤôŞş¸Ü 1
			end
	end
	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne - Ksiegi Klatw")

			end
			when button or info begin
					say_title("Znajdz Ksiegi Klatw")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Ksiag Klatw.")
					say("Zawsze przynos mu po jednej, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Ksiag Klatw szukaj pod Swiatynia Hwang!")
					say("")
					say_item_vnum(30047)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Ksiag Klatw")
					say("")
			end

			when 71035.use begin --°g´bĂĤô
					if get_time() < pc.getqf("duration") then
							say("")
							say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")
							say("")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("")
							say("¤w¸g¨ĎĄÎ¤F1?¸")
							say("")
							return
					end
					if pc.count_item(30047)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Ksiag Klatw?...")
							say("")
							return
					end
					item.remove()  
					pc.setqf("drink_drug",1)
			end


	when 20084.chat."Ksiegi Klatw" with pc.count_item(30047) >0   begin
					if get_time() > pc.getqf("duration") then
							say("Biolog Chaegirab:")
							---												   l
							say("Oh!! Znalazles!")
							say("Pozwol, ze rzuce okiem...")
							say("Jeszcze chwilke.")
							say("")
							pc.remove_item(30047, 1)
							pc.setqf("duration",get_time()+0*0*0) -----------------------------------22??
							wait()

							local pass_percent
							if pc.getqf("drink_drug")==0 then
									pass_percent=70
							else		  
									pass_percent=90
							end

							local s= number(1,100)
							if s<= pass_percent  then
							   if pc.getqf("collect_count")< 14 then	 --15­ÓĄH¤U
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 -- ¨ú?o¤F¤@­Ó+1
											say("Biolog Chaegirab:")
											say("Oh!! Ta Ksiega Klatw jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..15-pc.getqf("collect_count").. " Ksiag Klatw")
											say("Prosze, sprobuj je znalezc!")
											say("")
											pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
											return
									end
									say("Biolog Chaegirab:")
									say("Oh, zebrales juz wszystkie?")
									say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoja prace, potrzebuje")
									say("abys przyniosl dla mnie jeszcze jeden przedmiot!")
									say("")
									pc.setqf("collect_count",0)
									pc.setqf("drink_drug",0)	  
									pc.setqf("duration",0)
									set_state(key_item)
									return
							else														  
							say("Biolog Chaegirab:")
							say("Ta Ksiega Klatw jest zlej jakosci!")
							say("Sprobuj przyniesc inna!")
							say("Prosze, pomoz mi!")
							pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
							return
					end
			else
			  say("Biolog Chaegirab:")
			  say("Jeszcze nie skonczylem badac ostatniej Ksiegi!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end
	end
end

	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Ksiegi Klatw")

					if pc.count_item(30221)>0 then
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Ksiegi Klatw")
							end
					end
			end
			when button or info begin
					if pc.count_item(30221) >0 then
							say_title("Znalazles kamien duszy!")
							say("")
							---												   l
							say("Wroc do biologa, aby")
							say("odniesc mu kamien!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---												   l
					say("Zebrales juz wszystkie 15 Ksiag!")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30221)
					say("Mozesz go znalezc zabijajac ezoteryków")
					say("w Świątyni!")	
					say("")
			end


			when 731.kill or
					 733.kill or
					 734.kill or
					 732.kill begin
					local s = number(1, 50)
					if s == 1 and pc.count_item(30221)==0 then
							pc.give_item2(30221, 1)
							send_letter("Wroc do biologa!")		
					end	
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30221) > 0  begin
				target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazles!")
					say("Bardzo Tobie dziekuje!")
					say("")
					say_reward("Mozesz teraz isc do Baek-Go po nagrode!")
					say("")
					pc.remove_item(30221,1)
					set_state(__reward)
			end

	end

	state __reward begin
			when letter begin
					send_letter("Analiza Biologa - Nagroda")

					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("Skonczyles analize biologa!")
					---												   l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrode do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda"  begin
				target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a wiec Biolog")
					say("wyslal Cie po nagrode?")
					say("Zobaczmy, co tam masz...")
					say("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
											local s = select("15% na Wojowników", "15% na Ninje", "15% na Sury", "15% na Szamanów")
					if s == 1 then
									affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 15, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 15% na Wojowników")
									say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
					elseif s == 2 then
									affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 15, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 15% na Ninje")
									say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
							elseif s == 3 then
									affect.add_collect(apply.POINT_ATTBONUS_SURA, 15, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 15% na Sury")
									say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
							elseif s == 4 then
									affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 15, 60*60*24*365*60) --60?~	
									say_reward("Otrzymałeś bonus: 15% na Szamanów")
									say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
							end

					affect.add_collect(apply.ATT_SPEED,10,60*60*24*365*60)	--- ˇV60?~		  
					pc.give_item2(50073)
					pc.give_item2(50073)
					pc.give_item2(50073)
					pc.give_item2(50073)
					pc.give_item2(50073)

					clear_letter()
					set_quest_state("collect_quest_lv50", "run")
					set_state(__complete)
			end

	end

	state __giveup__ begin
			when 20084.chat."Poddajesz sie?" begin
					say("Biolog Chaegirab:")
					say("Czy jestes pewien, ze chcesz sie poddac!?")
					say("Nie bedziesz mial szansy, aby zaczac")
					say("ponownie!")
		 end
	 end
	state __complete begin
	end
end

 

 

quest 60 lvl

 

 

----------------------------------------------------
-- Analiza Biologa 60lv
----------------------------------------------------
quest collect_quest_lv60  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 60 and pc.level <= 90 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, "Analiza Biologa - Matowe Lody")
					end
					send_letter("Analiza Biologa - Matowe Lody")
			end
			when button or info begin
					say_title("Analiza Biologa - Matowe Lody")
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("wlasnie Cie szukal. Prosze idz")
					say("do niego i zaoferuj mu swoja pomoc")
					say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					---												   l
					say("Niebiosa, prosze pomozcie mi...")
					say("Badam wszystkie rodzaje potworow w tym ")
					say("imperium. Jest bardzo duzo rzeczy,")
					say("ktore musza zostac zrobione. Nie mam")
					say("czasu abym mogl sam wybrac sie na wyprawe.")
					say("Prosze, pomoz mi.")
					say("Wynagrodze Cie za to.")
					wait()
					say("Aktualnie badam Matowe Lody.")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Matowych Lodow.")
					say("Czy moglbys przyniesc mi 20 Matowych Lodow?")
					say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")
					say("abym mial czas na ich dokladne przebadanie!")
					say("")																																																																										
					set_state(go_to_disciple)
					pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞş?É?ˇ
					pc.setqf("collect_count",0)----ˇX¨ú?oŞşŞ??~ĽĆ?q
					pc.setqf("drink_drug",0) ------ˇV łÜ°g´bĂĤôŞş¸Ü 1
			end
	end
	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne - Matowe Lody")

			end
			when button or info begin
					say_title("Znajdz Matowe Lody")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Matowych Lodow.")
					say("Zawsze przynos mu po jednym, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Matowych Lodow szukaj na Gorze Sohan!")
					say("")
					say_item_vnum(30050)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Matowych Lodow")
					say("")
			end

			when 71035.use begin --°g´bĂĤô
					if get_time() < pc.getqf("duration") then
							say("")
							say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")
							say("")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("")
							say("¤w¸g¨ĎĄÎ¤F1?¸")
							say("")
							return
					end
					if pc.count_item(30050)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Matowych Lodow?...")
							say("")
							return
					end
					item.remove()
					pc.setqf("drink_drug",1)
			end

	when 20084.chat."Matowe Lody" with pc.count_item(30050) >0   begin
					if get_time() > pc.getqf("duration") then
							say("Biolog Chaegirab:")
							---												   l
							say("Oh!! Znalazles!")
							say("Pozwol, ze rzuce okiem...")
							say("Jeszcze chwilke.")
							say("")
							pc.remove_item(30050, 1)
							pc.setqf("duration",get_time()+0*0*0) -----------------------------------22??
							wait()

							local pass_percent
							if pc.getqf("drink_drug")==0 then
									pass_percent=70
							else		  
									pass_percent=90
							end

							local s= number(1,100)
							if s<= pass_percent  then
							   if pc.getqf("collect_count")< 19 then	 --20­ÓĄĽşˇ
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 -- ¨ú?o¤F¤@­Ó+1
											say("Biolog Chaegirab:")
											say("Oh!! Ten Matowy Lod jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..20-pc.getqf("collect_count").. " Matowych Lodow")
											say("Prosze, sprobuj je znalezc!")
											say("")
											pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
											return
									end
									say("Biolog Chaegirab:")
									say("Oh, zebrales juz wszystkie?")
									say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoja prace, potrzebuje")
									say("abys przyniosl dla mnie jeszcze jeden przedmiot!")
									say("")
									pc.setqf("collect_count",0)
									pc.setqf("drink_drug",0)	  
									pc.setqf("duration",0)
									set_state(key_item)
									return
							else														  
							say("Biolog Chaegirab:")
							say("Ten Matowy Lod jest zlej jakosci!")
							say("Sprobuj przyniesc inna!")
							say("Prosze, pomoz mi!")
							pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
							return
					end
			else
			  say("Biolog Chaegirab:")
			  say("Jeszcze nie skonczylem badac ostatniego Lodu!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end
	end
end
	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Matowe Lody")

					if pc.count_item(30223)>0 then
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Matowe Lody")
							end
					end
			end
			when button or info begin
					if pc.count_item(30223) >0 then
							say_title("Znalazles kamien duszy!")
							say("")
							---												   l
							say("Wroc do biologa, aby")
							say("odniesc mu kamien!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---												   l
					say("Zebrales juz wszystkie 20 Lodow!")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30223)
					say("Mozesz go znalezc zabijajac lodowe potwory")
					say("na Gorze Sohan!")
					say("")
			end


			when 1102.kill or
					 1103.kill or
					 1104.kill or
					 1106.kill begin
					local s = number(1, 50)
					if s == 1 and pc.count_item(30223)==0 then
							pc.give_item2(30223, 1)
							send_letter("Wroc do biologa!")	  
					end  
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30223) > 0  begin
				target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazles!")
					say("Bardzo Tobie dziekuje!")
					say("")
					say_reward("Mozesz teraz isc do Baek-Go po nagrode!")
					say("")
					pc.remove_item(30223,1)
					set_state(__reward)
			end

	end

	state __reward begin
			when letter begin
					send_letter("Analiza Biologa - Nagroda")

					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("Skonczyles analize biologa!")
					---												   l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrode do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda"  begin
				target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a wiec Biolog")
					say("wyslal Cie po nagrode?")
					say("Zobaczmy, co tam masz...")
					say("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
											local s = select("25% na Wojowników", "25% na Ninje", "25% na Sury", "25% na Szamanów")
					if s == 1 then
									affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 25, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 25% na Wojowników")
									say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
					elseif s == 2 then
									affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 25, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 25% na Ninje")
									say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
							elseif s == 3 then
									affect.add_collect(apply.POINT_ATTBONUS_SURA, 25, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 25% na Sury")
									say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
							elseif s == 4 then
									affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 25, 60*60*24*365*60) --60?~  
									say_reward("Otrzymałeś bonus: 25% na Szamanów")
									say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
							end

					affect.add_collect(apply.ATT_GRADE_BONUS,150,60*60*24*365*60)--ˇX100?~		
					pc.give_item2(50077)
					pc.give_item2(50077)
					pc.give_item2(50077)
					pc.give_item2(50077)
					pc.give_item2(50077)

					clear_letter()
					set_quest_state("collect_quest_lv70", "run")
					set_state(__complete)
			end

	end


	state __complete begin
	end
end

 

 

quest 80 lvl

 

 

----------------------------------------------------
-- Analiza Biologa 80lv
----------------------------------------------------
quest collect_quest_lv80  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 80 and pc.level <= 90 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, "Analiza Biologa - Certyfikaty Tugyisa")
					end
					send_letter("Analiza Biologa - Certyfikaty Tugyisa")
			end
			when button or info begin
					say_title("Analiza Biologa - Certyfikaty Tugyisa")
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("wlasnie Cie szukal. Prosze idz")
					say("do niego i zaoferuj mu swoja pomoc")
					say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					---												   l
					say("Niebiosa, prosze pomozcie mi...")
					say("Badam wszystkie rodzaje potworow w tym ")
					say("imperium. Jest bardzo duzo rzeczy,")
					say("ktore musza zostac zrobione. Nie mam")
					say("czasu abym mogl sam wybrac sie na wyprawe.")
					say("Prosze, pomoz mi.")
					say("Wynagrodze Cie za to.")
					wait()
					say("Aktualnie badam Certyfikaty Tugyisa")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Certyfikatow Tugyisa.")
					say("Czy moglbys przyniesc mi 30 Certyfikatow Tugyisa?")
					say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")
					say("abym mial czas na ich dokladne przebadanie!")
					say("")																																																																										  
					set_state(go_to_disciple)
					pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞş?É?ˇ
					pc.setqf("collect_count",0)----ˇX¨ú?oŞşŞ??~ĽĆ?q
					pc.setqf("drink_drug",0) ------ˇV łÜ°g´bĂĤôŞş¸Ü 1
			end
	end
	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne - Certyfikaty Tugyisa")

			end
			when button or info begin
					say_title("Znajdz Certyfikaty Tugyisa")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Certyfikaty Tugyisa.")
					say("Zawsze przynos mu po jednej, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Certyfikatow Tugyisa szukaj na Wezowym Polu!")
					say("")
					say_item_vnum(30166)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Certyfikatow Tugyisa")
					say("")
			end

			when 71035.use begin --°g´bĂĤô
					if get_time() < pc.getqf("duration") then
							say("")
							say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")
							say("")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("")
							say("¤w¸g¨ĎĄÎ¤F1?¸")
							say("")
							return
					end
					if pc.count_item(30166)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Certyfikatow Tugyisa?...")
							say("")
							return
					end
					item.remove()  
					pc.setqf("drink_drug",1)
			end

			when 1401.kill or
					 1402.kill or
					 1403.kill or
					 1601.kill or
					 1602.kill or
					 1603.kill  begin
					local s = number(1, 5)
					if s == 1 and pc.count_item(30166)==0 then
							pc.give_item2(30166, 1)
					end	
			end

	when 20084.chat."Certyfikaty Tugyisa" with pc.count_item(30166) >0   begin
					if get_time() > pc.getqf("duration") then
							say("Biolog Chaegirab:")
							---												   l
							say("Oh!! Znalazles!")
							say("Pozwol, ze rzuce okiem...")
							say("Jeszcze chwilke.")
							say("")
							pc.remove_item(30166, 1)
							pc.setqf("duration",get_time()+0*0*0) -----------------------------------22??
							wait()

							local pass_percent
							if pc.getqf("drink_drug")==0 then
									pass_percent=70
							else		  
									pass_percent=90
							end

							local s= number(1,100)
							if s<= pass_percent  then
							   if pc.getqf("collect_count")< 29 then	 --30­ÓĄH¤U
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 -- ¨ú?o¤F¤@­Ó+1
											say("Biolog Chaegirab:")
											say("Oh!! Ten Certyfikat Tugyisa jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..30-pc.getqf("collect_count").. " Certyfikatow Tugyisa")
											say("Prosze, sprobuj je znalezc!")
											say("")
											pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
											return
									end
									say("Biolog Chaegirab:")
									say("Oh, zebrales juz wszystkie?")
									say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoja prace, potrzebuje")
									say("abys przyniosl dla mnie jeszcze jeden przedmiot!")
									say("")
									pc.setqf("collect_count",0)
									pc.setqf("drink_drug",0)	  
									pc.setqf("duration",0)
									set_state(key_item)
									return
							else														  
							say("Biolog Chaegirab:")
							say("Ten Certyfikat Tugyisa jest zlej jakosci!")
							say("Sprobuj przyniesc inny!")
							say("Prosze, pomoz mi!")
							pc.setqf("drink_drug",0)		 --ĂĤôŞě?l¤Ć
							return
					end
			else
			  say("Biolog Chaegirab:")
			  say("Jeszcze nie skonczylem badac ostatniego Certyfikatu!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end
	end
end

	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Certyfikaty Tugyisa")

					if pc.count_item(30225)>0 then
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Certyfikaty Tugyisa")
							end
					end
			end
			when button or info begin
					if pc.count_item(30225) >0 then
							say_title("Znalazles kamien duszy!")
							say("")
							---												   l
							say("Wroc do biologa, aby")
							say("odniesc mu kamien!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---												   l
					say("Zebrales juz wszystkie 30 Certyfikatow!")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30225)
					say("Mozesz go znalezc zabijajac potwory")
					say("na Wezowym Polu!")
					say("")
			end


			when 1401.kill or
					 1402.kill or
					 1403.kill or
					 1601.kill or
					 1602.kill or
					 1603.kill  begin
					local s = number(1, 50)
					if s == 1 and pc.count_item(30225)==0 then
							pc.give_item2(30225, 1)
							send_letter("Wroc do biologa!")		
					end	
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30225) > 0  begin
				target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazles!")
					say("Bardzo Tobie dziekuje!")
					say("")
					say_reward("Mozesz teraz isc do Baek-Go po nagrode!")
					say("")
					pc.remove_item(30225,1)
					set_state(__reward)
			end

	end

	state __reward begin
			when letter begin
					send_letter("Analiza Biologa - Nagroda")

					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("Skonczyles analize biologa!")
					---												   l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrode do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda"  begin
				target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a wiec Biolog")
					say("wyslal Cie po nagrode?")
					say("Zobaczmy, co tam masz...")
					say("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")
											local s = select("35% na Wojowników", "35% na Ninje", "35% na Sury", "35% na Szamanów")
					if s == 1 then
									affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 35, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 35% na Wojowników")
									say_reward("Otrzymałeś bonus: +20% wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
					elseif s == 2 then
									affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 35, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 35% na Ninje")
									say_reward("Otrzymałeś bonus: +20% wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
							elseif s == 3 then
									affect.add_collect(apply.POINT_ATTBONUS_SURA, 35, 60*60*24*365*60) --60?~
									say_reward("Otrzymałeś bonus: 35% na Sury")
									say_reward("Otrzymałeś bonus: +20% wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
							elseif s == 4 then
									affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 35, 60*60*24*365*60) --60?~	
									say_reward("Otrzymałeś bonus: 35% na Szamanów")
									say_reward("Otrzymałeś bonus: +20% wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
							end	

					affect.add_collect_point(POINT_ATT_BONUS,20,60*60*24*365*60) --60łâ					
					pc.give_item2(50078)
					pc.give_item2(50078)
					pc.give_item2(50078)
					pc.give_item2(50078)
					pc.give_item2(50078)

					clear_letter()
					set_state(__complete)
			end

	end

	state __complete begin
	end
end

 

 

quest 90 lvl

 

 

quest collect_quest_lv90  begin
	state start begin
			when login or levelup with pc.level >= 90 and pc.level <= 90 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, "Badania Biologa")
					end
					send_letter("Badania Biologa")
			end
			when button or info begin
				say_title("Badania Biologa")
				say("Biolog Chaegirab, uczeń Uriela,")
				say("właśnie Cię szukał. Proszę idź ")
				say("do niego i zaoferuj swoją pomoc.")
				say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdź Biologa" begin
					target.delete("__TARGET__")
					say_title("Biolog Chaegirab:")
					---												   l
					say("Niebiosa, proszę pomóż mi... ")
					say("Badam wszystkie rodzaje roślin w tym ")
					say("imperium. Jest bardzo dużo rzeczy, ")
					say("które muszą zostać zbadane. Nie mam ")
					say("czasu abym mógł sam wybrać się na wyprawę. ")
					say("Proszę,pomóż mi. ")
					say("")
					wait()
					say_title("Biolog Chaegirab:")
					say("Aktualnie badam Notatki Przywódców.")
					say("Muszę przeprowadzić kilka eksperymentów,")
					say("dlatego potrzebuję kilku egzemplarzy.")
					say("Czy mógłbyś przynieść mi 50 Notatek Przywódców? ")
					say("Proszę, pomóż mi! Zawsze przynoś mi po jednym,")
					say("abym miał czas na ich dokładne przebadanie!")
					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("Notatki Przywódców")
					---												   l
					say("Biolog Chaegirab, uczeń Uriela, obecnie zajmuj")
					say("się studiowaniem zachowania Przywódców")
					say("Potworów. Do swoich badań potrzebuj 50 Notatek")
					say("Przywódców. Postaraj się je zdobyć i")
					say("pamietaj, aby zanosić je do biologa pojedynczo.")
					say("")
					say_item_vnum(30168)
					say("")
					say_reward("Do tej pory dostarczyłeś ".." "..pc.getqf("collect_count").." Notatk.")
					say("")
			end

			when 71035.use begin
					if get_time() < pc.getqf("duration") then
							say("")
							say("Przedmiot jest już użyty.")
							say("")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("")
							say("Przedmiot jest już użyty.")
							say("")
							return
					end
					if pc.count_item(30168)==0 then
							say_title("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Notatek Przywódcy?")
							say("")
							return
					end
					item.remove()
					pc.setqf("drink_drug",1)
			end

	when 20084.chat."Notatka Przywódcy" with pc.count_item(30168) >0   begin
					if get_time() > pc.getqf("duration") then
							say_title("Biolog Chaegirab:")
							---												   l
							say("Och! Znalazłeś! Notatke")
							say("Poczekaj chwilkę, muszę go sprawdzić...")
							say("")
							pc.remove_item("30168", 1)
							pc.setqf("duration",get_time()+60*60*1) -- oddawanie co 1h
							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")< 49 then
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)
											say_title("Biolog Chaegirab:")
											say("Oh!! Ta Notatka jest doskonałej jakości!")
											say("Przynieś mi jeszcze ".." "..50-pc.getqf("collect_count").. " Notatek.")
											say("Proszę, spróbuj je znaleźć! ")
											say("")
											pc.setqf("drink_drug",0)
											return
									end
									say_title("Biolog Chaegirab:")
									say("Dostarczyłeś mi 50 Notatek, to wspaniale!")
									say("Zgaduję, że domyślasz się, czego teraz")
									say("potrzebuję. Nadal brakuje Kamienia Liderów. Gdy")
									say("mi go dostarczysz, będę miał już wszystko. Dasz")  
									say("sobie radę z tym zadaniem, prawda? Zdobądź Kamień ")
									say("Liderów i mi go przynieś. Możesz go zdobyć od tak")	
									say("zwanych bossów.")
									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("Przykro mi, ale ta Notatka jest złej jakości!")
							say("Proszę, przynieś mi inny!")
							say("Proszę, pomóż mi!")
							say("")
							pc.setqf("drink_drug",0)
							return
							end
		else
			  say_title("Biolog Chaegirab:")
			  say("Jeszcze nie skończyłem badać ostatniej notakti !")
			  say("Wróć później, kiedy już skończę!")
			  say("")
			  return
			end
	end
end
	state key_item begin
			when letter begin
					send_letter("Badania Biologa")

					if pc.count_item(30224)>0 then
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Badania Biologa")
							end
					end
			end
			when button or info begin
					if pc.count_item(30224) >0 then
							say_title("Kamień Liderów")
							---												   l
							say("W końcu udało Ci się zdobyć Kamień. ")
							say("Zanieś go do Biologa Chaegirab. On czeka już na")
							say("Ciebie.")
							say("")
							return
					end
					say_title("Kamień Liderów")
					---												   l
					say("Dostarczyłeś Biologowi 50 Notatek Przywódców.")
					say("Teraz, Chaegirab potrzebuje Kamień ")
					say("Liderów, który pomoże je zrozumieć. ")
					say("")
					say_item_vnum(30224)
					say("")
					say("Możesz go zdobyć z:")
					say("Zjawy Żółt. Tygrysa, Umarły Rozpruwacz,")
					say("Dziewięć Ogniów.")
					say("")
			end


			when 2191.kill or
					 2091.kill or
					 1304.kill or
					 1091.kill or
					 1093.kill or
					 691.kill or
					 2206.kill or
					 1901.kill  begin
					local s = number(1, 50)
					if s == 1 and pc.count_item(30224)==0 then
							pc.give_item2(30224, 1)
							send_letter("Otrzymano Kamień Liderów")	  
					end  
			end

			when __TARGET__.target.click  or
					20084.chat."Otrzymano Kamień Liderów" with pc.count_item(30224) > 0  begin
				target.delete("__TARGET__")
					say_title("Biolog Chaegirab:")
					say("Oh! dobra robota! Teraz, w końcu, mogę dokńczyć ")
					say("moje badania. Jako nagrodę, dam Ci tajemniczą ")
					say("recepturę. Zanieśją do Baek-Go, a przyrządzi on")
					say("dla Ciebie specjalną miksturę. Życzę miłego dnia!")
					say("I dziękuję za Twoją pomoc. Sam bym sobie nie")
					say("poradził!")
					say("")
					pc.remove_item(30224,1)
					set_state(__reward)
			end

	end

	state __reward begin
			when letter begin
					send_letter("Nagroda od Chaegiraba")

					local v = find_npc_by_vnum(20018)
					if v != 0 then
							target.vid("__TARGET__", v, "Nagroda od Chaegiraba")
					end
			end
			when button or info begin
					say_title("Nagroda od Chaegiraba")
					---												   l
					say("W nagrodę za zebranie Notatek Przywódców i")
					say("zdobycie Kamienia Liderów, biolog Chaegirab dał ")
					say("Ci sekretną recepturę. Idź teraz do Baek-Go, on")
					say("przygotuje dla Ciebie cudowną miksturę.")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda za Notatki"  begin
				target.delete("__TARGET__")
					say_title("Baek-Go:")
					say("Spójrz, czy to nie Sekretna Receptura od ")
					say("Chaegirab, tego znanego biologa? Hm, zwiększy ona")
					say("Twoją Siłę Ataku podczas walki z innym graczami.")
					say("Oto Twój napój!")
					say("")
					wait()
					say_title("Baek-Go:")
					say("A tym razem dostaniesz Niebieską Ebonitową ")
					say("Szkatułkę. Jesteś ciekawy co wy niej może być? To")
					say("ją otwórz!")
					say("")
					say_reward("Oto twoja nagroda za pomoc Biologowi Chaegirab.")
					say_reward("Jako nagrodę za wypełnienie zadania od biologa")
					say_reward("Chaegirab, wartość ataku podczas walki z innymi")
					say_reward("graczami {PvP) na stałe wzrośnie o 10%.")
					say_reward("Bonus ten został przyznany na stałe.")
					say_reward("")

					affect.add_collect(apply.ATT_GRADE_BONUS,10, 60*60*24*365*60) --10
						  pc.give_item2(50114)	

			end

	end

	state __giveup__ begin
			when 20084.chat."Poddajesz się? " begin
					say("Biolog Chaegirab:")
					say("Czy jesteś pewień, że chcesz się poddać? ")
					say("Nie bedziesz miał szansy, aby zacząć ")
					say("ponownie.")
		 end
	 end
	state __complete begin
	end
end

 

Pomogłam? Daj: "Lubie to"

kilu Rekrut

kilu

Opublikowano
Rekrut

kilu

Opublikowano

Te questy nie działają... każdy ma jakiś błąd, albo w nagrodach coś nie działa, albo jest pobugowany, np w ostatnim quescie po nagrodzie brakuje bardzo waznej linijki.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...