Pisanie / Poprawa Questów !

kajojzdw · 29 Grudnia 2011

Witam prosił bym o poprawe questa ma on działac na takiej zasadzei ze po wbiciu danego lvl pokazuje sie misje idzimy do kapitana on tam gada mowi zebymy zabili 20metinow pokazuje nam ile metinow juz zabilismy po zabiciu 20 metinow mamy wrucuc do kapitana i on nam daje nagrode

quest metiny75 begin
    state start begin
				    when login or levelup with pc.level >= 75 begin
								    set_state(pierwszy)
						    end
		    end

		    state pierwszy begin
				    when letter begin
	 local v = find_npc_by_vnum(20355)
   if v != 0 then
	  target.vid("__TARGET__", v, "Zadanie od Kapitana")
	  end
								    send_letter("Zadanie od Kapitana")
  end
								  when 8026.kill begin
								    local count = pc.setqf("ilosc")+20				 
										    if count == 20 then
	    send_letter("Misja zakończona")
										    say("Zabiłeś 20 Metinów")
										    say("To-Young.")
										    say_reward("Otzymałeś 100.000.000 Yang.")
										    say_reward("Otrzymałeś rangę: Rycerski.")
										    set_state(__complete__)
										    pc.change_money(100000000)
										    pc.change_alignment(40000)
										    end
										    end
						    end

						    when button or info begin
	  say("Kapitan, najmężniejszy wojownik w naszym królestwie")
	  say("ma dla Ciebie trudne zadanie.")
	  say("Jeżeli czujesz, że jesteś gotów")
	  say("podjąć się tego zadania, udaj się do niego")
	  say("i porozmawiaj z nim !")
	  say("")
	  say("")
	  say_reward("Znajdź Kapitana")
	  say("")
	  if count < 20 then
								    pc.getqf("ilosc", count)
	  say_reward("Do tej pory zniszczyłeś".." "..pc.getqf("ilosc").."kamieni metin")
	  end
    end
	  when __TARGET__.target.click or
	  20355.chat."Znajdź Kapitana" begin
	  target.delete("__TARGET__")
	  say("Kapitan: ")
	  if pc.get_sex == 1 then
	  say("Witaj brzemienniku, Mam dla Ciebie kolejne zadanie.")
	  else
	  say("Witaj brzemienniczko, Mam dla Ciebie kolejne zadanie.")
	  end
	  say("Wielu z naszych posłańców próbowało już dokonać owego zadania,")
	  say("jednak żaden nie wrócił żywy.")
	  say_reward("Zadanie jest proste, musisz zniszczyć 20 metinów To-Young,")
	  say("które od niepamiętnych czasów nękają naszą krainę.")
	  say("Pamiętaj o tym by być ostrożnym.")
	  say("Jeżeli uda ci się podołać temu wyzwaniu, czeka Ciebie nagroda.")

	  end

    end
    end
		    end
		    state __complete__ begin
		    end
end

Reydan · 30 Grudnia 2011

Proszę o poprawę 2 questów.

1. wiadomość u npc, którą za 250.00 yang można nadać na cały serwer. Najlepiej by była nadawana w okienku chat dolnym. Taki trade channel.

quest jest dla npc, który posiada już kilka innych zadań, i ma ogólnie wymieniać sztabki na itemy, pomagać nam i własnie mieć możliwość nadania wiadomości trade. Gdy kto wgrywam nie mam błedu, a npc kóry powinien go mieć nie ma takiej zakładki, gdy na niego klikne.


quest sayall begin
state start begin
	when 9010.chat."Ogloszenie" begin
	say_title(mob_name(9010)..":")
	say("Ogłoszenie:")
	say("U mnie możesz nadac ogłoszenie do wszystkich osób")
	say("Kosztować cię to będzie 250.000 yang")
	say("")
	say("Czy chcesz cokolwiek powiedziec?")
   local b=select("Tak", "Nie")
		if 1==b then
		say("Wpisz Co chcesz powiedziec")
	local c=input()
	notice_all("Gracz: "..c)
	pc.changegold(-250000)
	say_reward("250.000 Yang zostalo odjetych z Twojego konta!")
		elseif 2==b then
		else
			say("UNKNOWN BUTTON ["..b.."]")
		end
  end
end
end

2. Czy można w tym quescie ustawić by drob sztabek z potworów był rzadzszy, np. wypadają rzadziej o 4 razy.

quest dropsztabki3 begin
state start begin
when kill with not npc.is_pc() begin
local s = math.random(100)
if s >= 1 and s < 6 then
pc.give_item2(80007)
end
end
end
end

Za pomoc daję lubie to.

LIR0Y · 30 Grudnia 2011

Siema all mam takie pytanie czy mógłby mi ktoś napisac podobnego quest do questa z pl na zdobycie

krwistego kamienia ?? Dam full like i szacunek =>

Stelios · 30 Grudnia 2011

sorry... coś po..ebałem

GoGame · 30 Grudnia 2011

@LIROY

daj mi dialogi

i jak misja ma wyglądać to napiszę

@TOPIC

mam sprawę dot. pętli while

gdzie mam je umieszczać ...

tak ?

quest x begin
state start begin
	while warunek do
		when x begin
			-- Dalej
		end
	end
end
end

czy tak ?

quest x begin
state start begin
	when x begin
		while warunek do
			-- Dalej
		end
	end
end
end

W Lua pierwszy raz mam problem z pętlami

w C++ umieszcza się je w ciele funkcji i nie ma problemu

ale tutaj sam nie wiem gdzie mam je dać ...

kilu · 30 Grudnia 2011

Proszę o sprawdzenie moich questów, przy pierwszym quescie po oddaniu potrzebnych itemkow udaje sie do bake-go po nagrode lecz ten sie zwiesza i nie da sie na niego kliknac pomimo ze sie swieci, przed wzieciem questa od biologa normalnie bylo mozna.

Poza tym przed wzięciem questa mozna bylo na neigo kliknac i byla opcja "o biolog cie do mnie przyslal"

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("")
					say_reward("Otrzymujesz 10% szybkości poruszania się")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")
					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

Biolog na 40 lvl

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("")
					say_reward("Otrzymujesz +15 szybkości ataku")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")
					affect.add_collect(apply.ATT_SPEED,15,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

Biolog 50lvl

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 - Pamiatki po Demonie")
					end
					send_letter("Analiza Biologa - Pamiatki po Demonie")
			end

			when button or info begin
					say_title("Analiza Biologa - Pamiatki po Demonie")
					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 - Pamiatki po Demonie")

			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."Pamiatki po Demonie" 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()+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ÓĄĽşˇ
											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 - Pamiatki po Demonie")

					if pc.count_item(30222)>0 then  
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Pamiatki po Demonie")
							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)----------Żu¤`ĆFĆF»îĄŰ
					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("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")

											local s = select("30% regeneracji hp", "2000 hp")
					if s == 1 then
									affect.add_collect(apply.HP_REGEN, 30, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 30% regeneracji hp")
									say_reward("Otrzymałeś bonus: +60 Obrony")
									say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")
					elseif s == 2 then
									affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 2000 hp")
									say_reward("Otrzymałeś bonus: +60 Obrony")
									say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")

							end


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

					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/[code]
[/spoiler]

Biolog 60lvl

[spoiler][code]
quest collect_quest_lv60  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 60 and pc.level <= 99 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()+60*1*15) -----------------------------------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("10% szans na krytyka", "10% szans na przeszywke")
					if s == 1 then
									affect.add_collect(apply.CRITICAL_PCT,10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% na krytyczne uderzenie")

					elseif s == 2 then
									affect.add_collect(apply.PENETRATE_PCT,10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% na przeszywajace uderzenie")


							end
					say_reward("Otrzymałeś +110 wartosci ataku")
					say_reward("Na zawsze!")
					say_reward("oraz")
					say_reward("Otrzymałeś 5x Dziewieciu Ogonow")

					affect.add_collect(apply.ATT_GRADE_BONUS,110,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

Biolog zelkovy 70+

Quest collect_quest_lv70  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 70 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 - Konary Zelkova")
					end
					send_letter("Analiza Biologa - Konary Zelkova")
			end

			when button or info begin
					say_title("Analiza Biologa - Konary Zelkova")
					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 Konary Zelkova.")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Konarow Zelkova.")
					say("Czy moglbys przyniesc mi 25 Konarow Zelkova?")
					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)--¨ú±oŞşŞ««~ĽĆ¶q
					pc.setqf("drink_drug",0) --łÜ°g´bĂÄ¤ôŞş¸Ü 1
			end
	end

	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

			end
			when button or info begin
					say_title("Znajdz Konary Zelkova")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Konarow Zelkova")
					say("Zawsze przynos mu po jednym, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Konarow Zelkova szukaj w zwyklym i czerwonym lesie")
					say("")
					say_item_vnum(30165)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Konarow Zelkova")
					say("")
			end

			when 71035.use begin --°g´bĂÄ¤ô
					if get_time() < pc.getqf("duration") then
							say("ÁŮ¤ŁĄiĄH¨ĎĄÎ°g´bĂÄ¤ô")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("¤w¸g¨ĎĄÎ¤F1¦¸")
							return
					end
					if pc.count_item(30165)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Konarow Zelkova?...")
							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, 5)
					if s == 1 and pc.count_item(30165)==0 then
							pc.give_item2(30165)
					end	
			end



	when 20084.chat."Konary Zelkova" with pc.count_item(30165) >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(30165, 1)
							pc.setqf("duration",get_time()+0*0*0)------------------22Ó¤p®É
							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")< 24 then	 --25ÓĄĽşˇ
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 --¨ú±o¤F¤@Ó+1
											say("Biolog Chaegirab:")
											say("Oh!! Ten Konar Zelkova jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..25-pc.getqf("collect_count").. " Konarow Zelkova")
											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 Konar Zelkova 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 Konaru!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end

	end
end


	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

					if pc.count_item(30224)>0 then  
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Konary Zelkova")
							end
					end

			end
			when button or info begin
					if pc.count_item(30224) >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 25 Konarow Zelkova")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30224)----------°¤ěĆF»îĄŰ
					say("Mozesz go znalezc zabijajac potwory")	  
					say("w zwykłym i czerwonym lesie")
					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, 50)
					if s == 1 and pc.count_item(30224)==0 then
							pc.give_item2(30224)
							send_letter("Wroc do Biologa!")		
					end	
			end



			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30224) > 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(30224,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("5% szans na zablokowanie ataku fizycznego", "5% szans na unikniecie strzaly", "10% odporności na otrucie", "10% szans na odbicie ciosu w cialo")
					if s == 1 then
									affect.add_collect(apply.POINT_BLOCK, 5, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 5% szans na zablokowanie ataku fizycznego)
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")
					elseif s == 2 then
									affect.add_collect(apply.POINT_DODGE, 5, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 5% szans na unikniecie strzaly")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

					elseif s == 3 then
									affect.add_collect(apply.POISON_REDUCE, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% odporności na otrucie")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

					elseif s == 4 then
									affect.add_collect(apply.REFLECT_MELEE, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% szans na odbicie ciosu w cialo")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

							end	

					affect.add_collect_point(POINT_ATTBONUS_HUMAN,15,60*60*24*365*60) --60łâ			
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)

					clear_letter()
					set_quest_state("collect_quest_lv80", "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
[/spoiler]


Biolog 80lvl
[spoiler]
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("Obrazenia od 10% beda dodane do pz", "Obrazenia od 10% beda dodane do pe")
					if s == 1 then
									affect.add_collect(apply.POINT_KILL_HP_RECOVER, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: Obrazenia od 10% beda dodane do pz")
									say_reward("Otrzymałeś bonus: +50 wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
					elseif s == 2 then
									affect.add_collect(apply.POINT_KILL_SP_RECOVER, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: Obrazenia od 10% beda dodane do pe")
									say_reward("Otrzymałeś bonus: +50 wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
						end	

					affect.add_collect_point(POINT_ATT_GRADE_BONUS,50,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_quest_state("collect_quest_lv85", "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

Biolog 85lvl

Quest collect_quest_lv85  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 85 and pc.level <= 99 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 - Konary Zelkova")
					end
					send_letter("Analiza Biologa - Czerwone Konary")
			end

			when button or info begin
					say_title("Analiza Biologa - Czerwone Konary")
					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 Konary Zelkova.")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Konarow Zelkova.")
					say("Czy moglbys przyniesc mi 25 Czerwone Konary?")
					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)--¨ú±oŞşŞ««~ĽĆ¶q
					pc.setqf("drink_drug",0) --łÜ°g´bĂÄ¤ôŞş¸Ü 1
			end
	end

	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

			end
			when button or info begin
					say_title("Znajdz Konary Zelkova")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Czerwone Konary")
					say("Zawsze przynos mu po jednym, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Konarow Zelkova szukaj w zwyklym i czerwonym lesie")
					say("")
					say_item_vnum(30167)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Czerwony Konar")
					say("")
			end

			when 71035.use begin --°g´bĂÄ¤ô
					if get_time() < pc.getqf("duration") then
							say("ÁŮ¤ŁĄiĄH¨ĎĄÎ°g´bĂÄ¤ô")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("¤w¸g¨ĎĄÎ¤F1¦¸")
							return
					end
					if pc.count_item(30167)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Czerwonych Konarow?...")
							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, 50)
					if s == 1 and pc.count_item(30167)==0 then
							pc.give_item2(30167)
					end	
			end



	when 20084.chat."Konary Zelkova" with pc.count_item(30167) >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(30167, 1)
							pc.setqf("duration",get_time()+60*1*15)------------------22Ó¤p®É
							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")< 24 then	 --25ÓĄĽşˇ
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 --¨ú±o¤F¤@Ó+1
											say("Biolog Chaegirab:")
											say("Oh!! Ten Czerony konar jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..25-pc.getqf("collect_count").. " Konarow Zelkova")
											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 Czerwony Konar 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 Konaru!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end

	end
end


	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

					if pc.count_item(30224)>0 then  
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Czerwone Konary")
							end
					end

			end
			when button or info begin
					if pc.count_item(30224) >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 25 Czerwone Konary")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30224)----------°¤ěĆF»îĄŰ
					say("Mozesz go znalezc zabijajac potwory")	  
					say("w zwykłym i czerwonym lesie")
					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, 50)
					if s == 1 and pc.count_item(30224)==0 then
							pc.give_item2(30224)
							send_letter("Wroc do Biologa!")		
					end	
			end



			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30224) > 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(30224,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 +15% odpornosci na ludzi")
					say_reward("i +20 szybkosci poruszania sie")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")

					affect.add_collect(apply.MOV_SPEED,20,60*60*24*365*60)  
					affect.add_collect(apply.POINT_RESIST_WARRIOR,  15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_ASSASSIN, 15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_SURA,	 15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_SHAMAN,   15, 60*60*24*365*60) --60¦~						
					pc.give_item2(50081)
					pc.give_item2(27006, 100)
					clear_letter()
					set_quest_state("collect_quest_lv90", "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

Biolog 90lvl

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, "Analiza Biologa")
					end
					send_letter("Analiza Biologa")
			end

			when button or info begin
				say_title("Analiza Biologa")
				say("")
									say("Biolog Chaegirab, uczeń Uriela,")
				say("właśnie Cie szukał. Proszę idz")
				say("do niego i zaoferuj mu swoją pomoc.")
				say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("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 wyprawe. ")
					say("Proszę,pomóż mi. ")
					wait()
											say("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 dziesięć Notatek Przywódcy?")
					say("Proszę, pomóż mi! Zawsze przynoś mi po jednym,")
					say("abym miał czas na ich dokladne przebadanie!")
					say("")																																																												  
					set_state(go_to_disciple)
					pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞş®É¶ˇ
					pc.setqf("collect_count",0) -- ˇX¨ú±oąLŞşŞ««~ĽĆ¶q
					pc.setqf("drink_drug",0) -- ˇX łÜ°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 Notatki Przywódców")
					---												   l
											say("")
											say("Biolog Chaegirab, uczeń Uriela,")
					say("szuka Zębów Orka.")
					say("Zawsze przynoś mu po jednym, aby miał czas")
											say("na ich dokladne przebadanie.")
					say("Notatek szukaj u wszystkich bossów.")
					say("")
					say_item_vnum(30168)
					say_reward("Do tej pory dostarczyłeś ".." "..pc.getqf("collect_count").." Notatki Przywódcy.")
					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(30168)==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(30168) >0   begin
					if get_time() > pc.getqf("duration") then
															say("Biolog Chaegirab:")
							---												   l
							say("Oh!! Znalazleś!")
							say("Pozwól,ze rzuce okiem...")
							say("Jeszcze chwilke.")
							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")< 9 then	 --10ÓĄH¤U
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 --¨ú±o¤@Ó®É +1
											say("Biolog Chaegirab:")
											say("Oh!! Ta notatka jest doskonałej jakości!")
											say("Przynieś mi jeszcze ".." "..10-pc.getqf("collect_count").. " notatek przywódcy.")
											say("Prosze, sprobuj je znalezć!")
					say("")
											pc.setqf("drink_drug",0)		 --ĂÄ¤ôŞě©l¤Ć
											return
									end
									say("Biolog Chaegirab:")  
				say("Oh,zebraleś juz wszystkie!")
				say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoją pracę, potrzebuje")	
									say("abyś przyniusł dla mnie jeszcze jeden przedmiot.")
									say("Zrób to dla mnie...")	  
									say("")
									say_item("Kamień Duszy Gyimok ", 30224, "")

									say_reward("Zabijaj Olbrzymi Pustynny Żółw, Królowa Pająków, Wódz Orków")
									say_reward("Dziewięć Ogonów, Zjawa Żółtego Tygrysa, Ezoteryk Przywoływacz")
									say_reward("Król Demonów, Umarły Rozpruwacz, Ognisty Król ")

									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 notatka jest złej jakości!")
							say("Sprobuj przynieść mi inny!")
							say("Proszę, pomóż mi!")
							pc.setqf("drink_drug",0)		 --ĂÄ¤ôŞě©l¤Ć
							return
							end
		else
			  say("Biolog Chaegirab:")
			  say("Jeszcze nie skończyłem badać ostatniej notakti !")
			  say("Wróc później, kiedy juz skończę!")
			  say("")
			  return
			end

	end
end


	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne!")

					if pc.count_item(30224)>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(30224) >0 then
							say_title("Znalazłeś Kamień Duszy!")
							say("")
							---												   l
							say("Wróć do Biologa, aby")
							say("odnieść mu kamień!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---												   l
					say("Zebrałeś już wszystkie dziesięć notatek!")
					say("Teraz, Biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30224)
					say("Możesz go znalezć zabijająć bossy")
					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("Wróc do Biologa!")		
					end	
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazłem Kamien Duszy" with pc.count_item(30224) > 0  begin
				target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazłeś!")
					say("Bardzo Tobie dziękuje!")
					say("W zamian otrzymasz nagrode!")
					say("Idz do mojego mistrza Uriela")
					say("On za pomoc mi podaruje Ci cenna nagrode.")
					say("")
					say_reward("Możesz teraz iść do Baek-Go po nagrodę!")
					say("")
					pc.remove_item(30224,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("Odbierz nagrode!")
					---												   l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrodę do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda"  begin
				target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a więc Biolog")
					say("wysłał Cie po nagrodę?")
					say("Zobaczmy, co tam masz...")
					say("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")

											local s = select("+300 wartości ataku", "+3000 pz", "+200 obrony magicznej)
					if s == 1 then
									affect.add_collect(apply.ATT_GRADE_BONUS, 300, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +300 wartości ataku")


					elseif s == 2 then
									affect.add_collect(apply.MAX_HP, 300, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +3000 pz")


					 elseif s == 3 then
									affect.add_collect(apply.MAGIC_DEF_GRADE, 200, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +200 obrony magicznej)

						end	




					say_reward("15% na ludzi, 15 szybkosci ataku ")
					say_reward("na zawsze!")

					affect.add_collect(apply.ATT_SPEED,	  15,60*60*24*365*60) --60¦~
					affect.add_collect(apply.ATTBONUS_HUMAN, 15, 60*60*24*365*60)

																			if pc.job==0 then
											pc.give_item2()
											say_reward("")		
									end
									if pc.job==1 then
											pc.give_item2()
												 say_reward("")
															   end
									if pc.job==2 then
											pc.give_item2(11658, 1)
											say_reward("")
									end
									if pc.job==3 then			  
											pc.give_item2()
											say_reward("")
									end  




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

	end


	state __giveup__ begin
			when 20084.chat."Poddajesz sie?" begin
					say("Biolog Chaegirab:")
					say("Czy jestes pewien, że chcesz sie poddać!?")
					say("Nie bedziesz mial szansy, aby zacząć ponownie!")
					say("Ta misja Cie opusci...")
		 end
	 end
	state __complete begin
	end
end

Proszę o jak najszybszą edycję!

Dam tygodniowy limit plusów!

z4z0l · 30 Grudnia 2011

kilu

say_reward("Otrzymujesz 10% szybkości poruszania się")

polski znak przy cudzysłowiu

ZnowuJa · 30 Grudnia 2011

Mam pytanie. Czy w przypadku questa od dropu (np. sztabki) można ustawić by na różnych mapach był maksymalny lewel dropu ?

Np. w m1 możliwość dropu tylko do 30 lvl .

A po drugie jak w quescie zrobić wiarygodną szansę dropu, bo tym:

quest drops begin
state start begin
when kill with not npc.is_pc() begin
local szansa = 10000000000
if math.random(szansa) == 10000000000 then
pc.give_item2(80007, 1)
end
end
end
end

I tak dropi bardzo często te sztabki (a powinno prawie w ogóle) .

sankixd · 30 Grudnia 2011

Witam. Potrzbuje pomocy przy moim quesscie :P Gdzies jest blad ale oczywiscie nie moge zlokalizowac.

quest grota_kp  begin
   state start begin
       when login or levelup with pc.get_level() >=70  begin
           set_state(information)
       end     
   end
   state information begin
		    when letter begin
				    local v = find_npc_by_vnum(20093)
				    if v != 0 then
						    target.vid("__TARGET__", v, "Koe-Pung")
				    end
				    send_letter("")
		    end

               when button or info begin
				    say_title("Zatruty przez diabła")
				    say("Koe-Pung potrzebuje")
				    say("Twojej pomocy.")
				    say("Ma dla Ciebie misję.")
				    say("Udaj się do niego.")
		    end

               when __TARGET__.target.click or
				    20093.chat."Pomoc" begin
				    target.delete("__TARGET__")
				    say_title("Koe-Pung:")
			    say("Niebiosa, proszę, pomóżcie mi...")
				    say("Mój brat, Kochany brat, zwiedzał okolicę,")
				    say("zainteresowała go jakaś dziwna grota...")
                       say("Każdy boi się tam chodzi,")
				    say("a miejscowi mówią, ze żyją tam diabły...")
				    say("Dotknięty przez jednego, zatruł się...")
                       say("Proszę pomóż mi i mojemu bratu!")
				    wait()
				    say_title("Koe-Pung:")
				    say("Widać, że jesteś doświadczonym wojownikiem,")
				    say("więc zapewne nie boisz się tam pójść.")
				    say("Mój brat potrzebuje mikstury z Odłamku diabła.")
				    say("Biolog ją dla Ciebie przygotuje,")
				    say("lecz musisz mu zanieść Odłamek diabła.")
			    say("Zdobyć go możesz z diabłów żyjących w grocie.")
				    say("Proszę pomóż mi...")
                       set_state(go_to_disciple)
		    end
    end
               state go_to_disciple begin
		    when letter begin
				    send_letter("Diabły w grocie")

		    end
		    when button or info begin
				    say_title("Zdobądź odłamek diabła")												  
				    say("Koe-Pung potrzebuje go do")
				    say(" mikstury z odłamku diabła.")
				    say("Zdobądź odłamek i wróć do Koe-Punga")
				    say("daj mu odłamek a on zrobi")
				    say("miksturę dla swojego brata.")
				    say("Odłamek zdobędziesz z łuczników setaou")
				    say_item("Odłamek Diabła",70042,"")
               end
               when 70042.use begin
                   chat(" Nie możesz tego użyć! ")
                   return
               end
               when 2412.kill begin
                   if pc.count_item(70042)<1 then
                       pc.give_item2(70042, 1)
                   end
               end
       when 20093.chat."Mam Odłamek!" with pc.count_item(70042) >0 begin
           say_title("Koe-Pung:")
           say("Zdobyłeś dla mnie Odłamek diabła!?")
           say("Szczerze mówiąc nie wierzyłem,")
           say("że Ci się uda...")
           say("Ale nie czas by o tym mówić!")
           say("Pokaż mi ten odłamek!")
           wait()
           say_title("Koe-Pung:")
           say("Ohh! Jesteś wspaniały!")
           say("Bardzo Ci dziękuję za Twą pomoc!");
           say("Cieszę się ze pomogłeś mojemu bratu!")
           say("W zamian za uratowanie mojego brata,")
           say("Dam Ci mały upominek.")
           say_reward(" Jako nagrodę otrzymasz od Koe-Punga sporą ")
	    say_reward(" ilość Punktów Doświadczenia oraz 100kk Yang ")
           pc.change_money(100000000)
	    pc.give_exp2(90000000)
           wait()
           say_title("Koe-Pung:")
           say("Mój brat jest już zdrowy!")
           say("A ty wzamian za pomoc otrzymałeś nagrodę")
           say("Obaj jesteśmy szczęśliwi!")
           say("Jeszcze raz Ci dziękuję Przybyszu!")
           clear_letter()
	    set_state(__complete)
       end
end


state __complete begin
    end
end

Prosze o pomoc

kilu · 30 Grudnia 2011

kilu
say_reward("Otrzymujesz 10% szybkości poruszania się")
polski znak przy cudzysłowiu

zmienilem to i nic to nie dalo, wszedzie...

Kiddy · 30 Grudnia 2011

Macie może quest z TP w którym jest możliwośc zakupu potek i pelerynek ?

Bistik · 31 Grudnia 2011

Witam , posiadam wieże wygnanców z tego tematu: http://www.mpcforum....uestdemontower/ i mam do was ogromna prośbe a mianowicie napisze mi ktos w czym tkwi problem bo quest odbugowalem dziala mi wieza wygnanców wczytuje moby itp ale jest 1 ale w zwyklym dt jak sa te metiny do rozwalenia( chyba 5 albo 6 ) .. rozwalam je wszystkie pisze ze zostane przeniesiony i loga co jest nie tak i czego to wina oto quest :

(Quest macie również w odnośniku wyżej wraz z plikami wszystkimi)

quest deviltower_zone begin

state start begin

when login begin

if pc.get_map_index() == 66 then

-- ¨Ă«D¦b1ĽÓ®É, °eŞđĄ~±.

-- ĽhĽĆ ˝dłň

-- 1ĽÓ 88 577 236 737

-- 2ĽÓ 91 343 238 504

-- 3ĽÓ 104 107 248 269

if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then

pc.warp((5376+532)*100, (512+596+4)*100, 65)

end

pc.set_warp_location(65, 5376+532, 512+596+4)

elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then

pc.set_warp_location(65, 5376+532, 512+596+4)

end

when deviltower_man.chat.locale.deviltower_man_chat begin

if pc.get_level() < 40 then

say(locale.deviltower_man_say_you_cant)

else

say(locale.deviltower_man_say)

local s = select(locale.deviltower_enter,locale.deviltower_no_enter)

if s == 1 then

-- warp into!

pc.warp(216500,727000)

end

when devil_stone1.kill begin

timer("devil_stone1_1", 6)

end

when devil_stone1_1.timer begin

local mapto7= pc.count_item(30302) -- ®ř·Ŕ¤ŁŞľ¬O§_¦s¦bŞşŻu¤`ĆF¶đ

pc.remove_item(30302,mapto7)

local boxto7= pc.count_item(30300) -- ®ř·Ŕ¤ŁŞľ¬O§_¦s¦bŞş¤ŁŞľ¦WŞş˝c¤l

pc.remove_item(30300,boxto7)

d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])

d.regen_file("data/dungeon/deviltower2_regen.txt")

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")

end

--when devil_stone2.kill begin

--d.jump_all_local(special.devil_tower[2][1], special.devil_tower[2][2])

--end

when devil_stone3.kill begin

--d.jump_all_local(special.devil_tower[3][1], special.devil_tower[3][2])

--d.set_exit_all_at_eliminate(6)

--d.set_warp_at_eliminate(6, d.get_map_index(), 100, 100)

--d.set_warp_at_eliminate(4, 65, 5376+532, 512+596+4)

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")

d.check_eliminated()

--d.exit_all()

end

function get_4floor_stone_pos()

local positions = {

{368, 629},

{419, 630},

{428, 653},

{422, 679},

{395, 689},

{369, 679},

{361, 658},

}

for i = 1, 6 do

local j = number(i, 7)

if i != j then

local t = positions;

positions = positions[j];

positions[j] = t;

end

--for i = 1, 7 do

-- positions[1] = positions[1] * 100

-- positions[2] = positions[2] * 100

-- end

return positions

end

when 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.setf("level", 4)

-- ¦A˛{¤j¶q©ÇŞ«¤Î»słyŻuĄŰŔY©M°˛ĄŰŔY

--d.regen_file("data/dungeon/deviltower4_regen.txt")

local positions = deviltower_zone.get_4floor_stone_pos()

for i = 1, 6 do

chat(positions[1], positions[2])

d.set_unique("fake" .. i , d.spawn_mob(8017, positions[1], positions[2]))

end

chat(positions[7][1], positions[7][2])

local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])

chat(vid)

d.set_unique("real", vid)

server_loop_timer('devil_stone4_update', 10, pc.get_map_index())

server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

d.notice("Brawo, udalo sie Tobie");

d.notice("zniszczyc kamien metin!");

d.notice("Macie 15 minut na nastepnym pietrze[ENTER] zanim zostaniecie wylogowani.");

d.notice("Spieszcie sie!");

end

when devil_stone4_fail1.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Pozostalo 10 minut!")

server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())

end

when devil_stone4_fail2.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Pozostalo 5 minut!")

server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())

end

when devil_stone4_fail.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Nie udalo sie, zostaniecie wylogowany!")

d.exit_all()

clear_server_timer('devil_stone4_update', get_server_timer_arg())

end

when devil_stone4_update.server_timer begin

if d.select(get_server_timer_arg()) then

if not d.is_unique_dead("real") then

for i = 1, 6 do

if d.getf("fakedead" .. i) == 0 then

if d.unique_get_hp_perc("fake" .. i) < 50 then

d.purge_unique("fake" .. i)

d.setf("fakedead" .. i, 1)

d.notice("To nie ten kamien!");

end

else

--d.clear_regen()

--d.regen_file("data/dungeon/deviltower5_regen.txt")

server_timer("devil_stone4_end", 5, get_server_timer_arg())

d.notice("Udalo sie! Zabij wszystkie potwory na nastepnym");

d.notice("pietrze, aby zdobyc kamien otwarcia!")

clear_server_timer('devil_stone4_fail1', get_server_timer_arg())

clear_server_timer('devil_stone4_fail2', get_server_timer_arg())

clear_server_timer('devil_stone4_fail', get_server_timer_arg())

end

else

server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())

end

when devil_stone4_stop_timer.server_timer begin

clear_server_timer('devil_stone4_update', get_server_timer_arg())

end

when devil_stone4_end.server_timer begin

if d.select(get_server_timer_arg()) then

d.setf("level", 5)

d.setf("stone_count", 5)

d.notice("Brawo, jestes na 5 pietrze!")

d.notice("Aby przejsc na 6 pietro musisz zabic")

d.notice("wszystkie potwory tutaj, zdobyc kamien")

d.notice("otwarcia i otworzyc pieczecie przed czasem!")

d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])

server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())

clear_server_timer('devil_stone4_update', get_server_timer_arg())

-- 5ĽÓÄ~Äň¦A˛{

d.set_regen_file("data/dungeon/deviltower5_regen.txt")

-- 5ĽÓ«Ę¦LĄŰ¦A˛{

d.spawn_mob(20073, 421, 452)

d.spawn_mob(20073, 380, 460)

d.spawn_mob(20073, 428, 414)

d.spawn_mob(20073, 398, 392)

d.spawn_mob(20073, 359, 426)

end

when devil_stone5_fail1.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Pozostalo 15 minut!")

server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())

end

when devil_stone5_fail2.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Pozostalo 10 minut!")

server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())

end

when devil_stone5_fail3.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Pozostalo 5 minut!")

server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())

end

when devil_stone5_fail.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Nie udalo sie, zostaniesz wylogowany!")

d.exit_all()

end

--when devil_stone4.kill begin

--d.setf("level", 5)

--d.setf("stone_count", 4)

--d.clear_regen()

--d.regen_file("data/dungeon/deviltower5_regen.txt")

--d.jump_all_local(special.devil_tower[4][1], special.devil_tower[4][2])

--end

when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin

local KILL_COUNT_FOR_DROP_KEY = 50

--if is_test_server() then

--KILL_COUNT_FOR_DROP_KEY = 1

--end

local n =d.getf("count") + 1

d.setf("count", n)

if n == KILL_COUNT_FOR_DROP_KEY then

-- ±Ľ¤UÂę°Í

game.drop_item(50084, 1)

d.setf("count", 0)

end

when devil_stone5.take with item.vnum == 50084 begin

npc.purge()

item.remove()

d.setf("stone_count", d.getf("stone_count") - 1)

if d.getf("stone_count") <= 0 then

d.setf("level", 6)

d.clear_regen()

d.regen_file("data/dungeon/deviltower6_regen.txt")

d.notice("Brawo udalo sie! jestes na 6 pietrze!")

d.notice("Zabij wszystkie potwory!")

d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])

clear_server_timer('devil_stone5_fail1', get_server_timer_arg())

clear_server_timer('devil_stone5_fail2', get_server_timer_arg())

clear_server_timer('devil_stone5_fail3', get_server_timer_arg())

clear_server_timer('devil_stone5_fail', get_server_timer_arg())

else

d.notice("Do otwarcia posostały "..d.getf("stone_count").." pieczęcie")

end

when devil_stone6.kill begin

-- ¶Ç°e¨ě·Ň¸t©Ň¦bŞş¦aąĎ

-- §_«hˇA¶}ł]¤@Ó·s·Ň¸t

--d.jump_all(special.devil_tower[6][1], special.devil_tower[6][2])

d.kill_all()

-- d.set_warp_at_eliminate(3*60, 65, 5376+532, 512+596+4)

d.check_eliminated()

local reward_alchemist = {20074, 20075, 20076}

d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);

d.setqf("can_refine", 1)

end

--------------------------------------

-- ĄŃ¶i¤J7ĽÓ¦Ü¨ěąF8ĽÓ¤§«e

--------------------------------------

when 20074.chat."Chce przejsc dalej" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

say(""..mob_name(20074).."")

say("Zostaniesz przeniesiony")

say("na 7 pietro Wiezy Demonow!")

say("Lecz uwazaj...")

say("Tam nie bedzie tak latwo jak wczesniej!")

wait()

if pc.level >=75 then

say("Kazdy z graczy zostanie przeniesiony!")

timer("devil_jump_7", 6)

return

end

say("Mozesz przejsc dalej!")

say("")

wait()

pc.warp(590500, 110500)

return

end

when 20075.chat."Chce przejsc dalej" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

say(""..mob_name(20075).."")

say("Zostaniesz przeniesiony")

say("na 7 pietro Wiezy Demonow!")

say("Lecz uwazaj...")

say("Tam nie bedzie tak latwo jak wczesniej!")

wait()

if pc.level >=75 then

say("Kazdy z graczy zostanie przeniesiony!")

timer("devil_jump_7", 6)

return

end

say("Mozesz przejsc dalej!")

say("")

wait()

pc.warp(590500, 110500)

return

end

when 20076.chat."Chce przejsc dalej" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

say(""..mob_name(20076).."")

say("Zostaniesz przeniesiony")

say("na 7 pietro Wiezy Demonow!")

say("Lecz uwazaj...")

say("Tam nie bedzie tak latwo jak wczesniej!")

wait()

if pc.level >=75 then

say("Kazdy z graczy zostanie przeniesiony!")

timer("devil_jump_7", 6)

return

end

say("Mozesz przejsc dalej!")

say("")

wait()

pc.warp(590500, 110500)

return

end

when devil_jump_7.timer begin

d.clear_regen()

d.spawn_mob(8018, 639, 658)

d.spawn_mob(8018, 611, 637)

d.spawn_mob(8018, 596, 674)

d.spawn_mob(8018, 629, 670)

d.setf("level", 7)

d.jump_all(2048+590, 6656+638)

end

when 8018.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

local cont = d.getf("7_stone_kill") + 1

d.setf("7_stone_kill", cont)

if cont >= 4 then

d.setf("7_stone_kill", 0)

d.set_regen_file("data/dungeon/deviltower7_regen.txt")

end

when 8019.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

game.drop_item(30300, 1)

end

when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

pc.remove_item("30300", 1)

local pct = number(1,10)

if pct == 1 then

-- ±Ľ¤UŻu¦aąĎ

game.drop_item(30302, 1)

d.clear_regen()

else

-- ±Ľ¤U°˛¦aąĎ

game.drop_item(30301, 1)

end

when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

-- ¶Ç°e¨ě8ĽÓ

say("Przeniesiesz sie na 8 pietro!")

pc.remove_item("30302", 1)

timer("devil_jump_8", 6)

d.clear_regen()

end

--------------------------------------------

-- ĄŃ¶i¤J8ĽÓ¦Ü¨ěąF9ĽÓ¤§«e

--------------------------------------------

when devil_jump_8.timer begin

d.setf("level", 8)

d.jump_all(2048+590, 6656+403)

d.set_regen_file("data/dungeon/deviltower8_regen.txt")

d.spawn_mob(20366, 640, 460)

local _count= pc.count_item(30302)-- ®ř·ŔŻu¤`ĆF¶đ

pc.remove_item(30302,_count)

end

when 1040.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

local pct1 = number(1, 5)

if pct1 == 1 then

local pct2 = number(1, 10)

if pct2 == 1 then

-- ±Ľ¤UŻuÂę°Í

game.drop_item(30304, 1)

else

-- ±Ľ¤U°˛Âę°Í

game.drop_item(30303, 1)

end

else

return

end

when 20366.take with item.vnum == 30304 begin

-- 9ĽÓ«Ę¦L¸Ń°Ł

d.notice("Zostaniecie przeniesieni na 9 pietro!")

npc.purge()

item.remove()

timer("devil_jump_9", 6)

end

---------------------------------------------

-- ĄŃ¶i¤J9ĽÓ¦Üµ˛§ô

---------------------------------------------

when devil_jump_9.timer begin

d.setf("level", 9)

d.jump_all(2048+590, 6656+155)

d.regen_file("data/dungeon/deviltower9_regen.txt")

end

when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.kill_all()

notice_all(pc.get_name().." zabil Umarlego Rozpruwacza!")

timer("devil_end_jump", 60)

end

when devil_end_jump.timer begin

d.exit_all()

end

when login begin

if pc.get_map_index() == 65 then

if pc.getqf("priv_dt") > 0 then

pc.setqf("priv_dt", 0)

end

if pc.get_map_index() == 66 then

if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then

pc.warp((5376+532)*100, (512+596+4)*100, 65)

end

pc.set_warp_location(65, 5376+532, 512+596+4)

elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then

pc.set_warp_location(65, 5376+532, 512+596+4)

end

when deviltower_man.chat."Wejdź do Wieży Wygnańców" with party.is_leader() begin

say_title("Strażnik Wieży Wygnańców:")

if party.get_near_count() < 5 then

say("Wybacz, musisz mieć ze sobą 5 osób w grupie.")

party.chat("Wasza grupa posiada zbyt mało członków.")

return

end

if pc.get_level() < 110 then

say("Wybacz, mogę wpuszczać tylko soby od 110 poziomu.")

party.chat("Lider grupy nie posiada 110 poziomu.")

else

say("Spełniasz wszystkie warunki..")

say("Czy aby na pewno chcesz wejść do Wieży?")

say("Czeka tam na Ciebie i Twoich znajomych ogromne")

say("niebezpieczeństwo.. Jesteś tego pewien?")

local s = select("Wejdź!","Nie wchodzę..")

if s == 1 then

pc.setqf("priv_dt", 1)

-- join into map!

d.join(66)

end

when login with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

--local i = nie ważne..

--chat("i: "..i) -- for test

if party.is_leader() == true and pc.getqf("priv_dt") > 0 then

pc.setqf("priv_dt", 0)

d.regen_file("data/dungeon/wygnancy.txt")

d.notice("Witajcie, w Wieży Wygnańców!")

d.notice("Zniszczie Metin Morderstwa, by przedostać się dalej.")

d.spawn_mob(8024, 195, 690)

end

when 8024.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

timer("wieza", 6)

chat(special.devil_tower[1][1].." "..special.devil_tower[1][2])

end

when wieza.timer begin

d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])

d.regen_file("data/dungeon/wygnancy2.txt")

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/wygnancy3.txt")

end

when 1903.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/wygnancy4.txt")

d.check_eliminated()

d.notice("Elit. Dziewięć Ogonów został pokonany!")

end

function get_4floor_stone_pos()

local positions = {

{368, 629},

{419, 630},

{428, 653},

{422, 679},

{395, 689},

{369, 679},

{361, 658},

}

for i = 1, 6 do

local j = number(i, 7)

if i != j then

local t = positions;

positions = positions[j];

positions[j] = t;

end

return positions

end

when 8025.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.setf("levels", 4)

local positions = deviltower_zone.get_4floor_stone_pos()

for i = 1, 6 do

chat(positions[1], positions[2])

d.set_unique("fake" .. i , d.spawn_mob(8026, positions[1], positions[2]))

end

chat(positions[7][1], positions[7][2])

local vid = d.spawn_mob(8026, positions[7][1], positions[7][2])

chat(vid)

d.set_unique("real", vid)

server_loop_timer('devil_stone4_updates', 10, pc.get_map_index())

server_timer('devil_stone4_fail1s', 5*60, pc.get_map_index())

d.notice("Brawo, udało się Tobie zniszczyć Metin Ma-An.");

d.notice("Musicie teraz znaleźć prawdziwy Kamień Metin,");

d.notice("by dostać się na kolejne piętro.");

d.notice("Macie na to 5 minut zanim zostaniecie wylogowani !");

d.notice("Śpieszcie się!");

end

when devil_stone4_fail1s.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Pozostało 10 minut!")

server_timer('devil_stone4_fail2s', 5*60, get_server_timer_arg())

end

when devil_stone4_fail2s.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Pozostało 5 minut!")

server_timer('devil_stone4_fails', 5*60, get_server_timer_arg())

end

when devil_stone4_fails.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Nie udalo sie, zostaniecie wylogowany!")

d.exit_all()

clear_server_timer('devil_stone4_updates', get_server_timer_arg())

end

when devil_stone4_updates.server_timer begin

if d.select(get_server_timer_arg()) then

if not d.is_unique_dead("real") then

for i = 1, 6 do

if d.getf("fakedead" .. i) == 0 then

if d.unique_get_hp_perc("fake" .. i) < 50 then

d.purge_unique("fake" .. i)

d.setf("fakedead" .. i, 1)

d.notice("To nie ten kamień!");

end

else

server_timer("devil_stone4_ends", 5, get_server_timer_arg())

d.notice("Udało się wam zniszczyć prawdziwy Kamień Metin!");

d.notice("Zostaniecie przeniesieni na kolejne piętro.")

clear_server_timer('devil_stone4_fail1s', get_server_timer_arg())

clear_server_timer('devil_stone4_fail2s', get_server_timer_arg())

clear_server_timer('devil_stone4_fails', get_server_timer_arg())

end

else

server_timer('devil_stone4_stop_timers', 1, get_server_timer_arg())

end

when devil_stone4_stop_timers.server_timer begin

clear_server_timer('devil_stone4_updates', get_server_timer_arg())

end

when devil_stone4_ends.server_timer begin

if d.select(get_server_timer_arg()) then

d.setf("levels", 5)

d.setf("stone_counts", 5)

d.notice("Świetnie.. Przechodzicie na 5 piętro!")

d.notice("Aby przejść na kolejne musicie zabić wszystkie potwory.")

d.notice("Poczym podnieść Kamień Otwarcia i otworzyć,")

d.notice("wszystkie pięć pieczęci przed czasem!")

d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])

server_timer('devil_stone5_fail1s', 5*60, get_server_timer_arg())

clear_server_timer('devil_stone4_updates', get_server_timer_arg())

-- 5ĽÓÄ~Äň¦A˛{

d.set_regen_file("data/dungeon/wygnancy5.txt")

-- 5ĽÓ«Ę¦LĄŰ¦A˛{

d.spawn_mob(20353, 421, 452)

d.spawn_mob(20353, 380, 460)

d.spawn_mob(20353, 428, 414)

d.spawn_mob(20353, 398, 392)

d.spawn_mob(20353, 359, 426)

end

when devil_stone5_fail1s.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Do Końca pozostało 15 minut.")

server_timer('devil_stone5_fail2s', 5*60, get_server_timer_arg())

end

when devil_stone5_fail2s.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Do Końca pozostało 10 minut.")

server_timer('devil_stone5_fail3s', 5*60, get_server_timer_arg())

end

when devil_stone5_fail3s.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Do Końca pozostało 5 minut.")

server_timer('devil_stone5_fails', 5*60, get_server_timer_arg())

end

when devil_stone5_fails.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Niestety... Nie udało się! Zostaniecie wylogowani.")

d.exit_all()

end

when 2412.kill with pc.in_dungeon() and d.getf("levels") == 5 begin

local KILL_COUNT_FOR_DROP_KEYs = 50

local n =d.getf("counts") + 1

d.setf("counts", n)

if n == KILL_COUNT_FOR_DROP_KEYs then

pc.give_item2(50084, 1)

d.notice(pc.get_name().." Podniósł Kamień Otwarcia!")

d.setf("counts", 0)

end

when 20353.take with item.vnum == 50084 and d.getf("levels") == 5 begin

npc.purge()

item.remove()

d.setf("stone_counts", d.getf("stone_counts") - 1)

if d.getf("stone_counts") <= 0 then

d.setf("levels", 6)

d.clear_regen()

d.regen_file("data/dungeon/wygnancy6.txt")

d.notice("Brawo, udało się! Jesteście na 6 piętrze!")

d.notice("Zabijcie wszystkie potwory!")

d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])

timer("mob",6)

clear_server_timer('devil_stone5_fail1s', get_server_timer_arg())

clear_server_timer('devil_stone5_fail2s', get_server_timer_arg())

clear_server_timer('devil_stone5_fail3s', get_server_timer_arg())

clear_server_timer('devil_stone5_fails', get_server_timer_arg())

else

d.notice("Do otwarcia pozostały "..d.getf("stone_counts").." pieczęcie.")

end

when mob.timer begin

d.spawn_mob(1304, 425, 216);

end

when 1306.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and d.getf("levels") == 6 begin

d.kill_all()

d.check_eliminated()

local reward_alchemists = {20074, 20075, 20076}

d.spawn_mob(reward_alchemists[number(1,3)], 425, 216);

d.setqf("can_refine", 2)

end

--------------------------------------

-- ĄŃ¶i¤J7ĽÓ¦Ü¨ěąF8ĽÓ¤§«e

--------------------------------------

when 20074.chat."Chce przejść dalej (smok)" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and d.getf("levels") == 6 begin

say_title(""..mob_name(20074).."")

say("Możesz przejsć na 7 piętro Wieży Wygnańców?")

say("Lecz uważaj..")

say("Tam wyżej nie będzie tak łatwo jak wcześniej!")

wait()

if pc.level >=110 then

say_title(""..mob_name(20074).."")

say("Posiadasz odpowiedni level.")

say("Zostaniesz przeniesiony na 7 piętro.")

timer("devil_jump_7s", 6)

return

end

say_title(""..mob_name(20074).."")

say("Wybacz.. nie posiadasz 110 poziomu")

say("Nie mogę Cię przenieść na kolejne piętro.")

wait()

pc.warp(590500, 110500)

return

end

when 20075.chat."Chce przejść dalej (smok)" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and d.getf("levels") == 6 begin

say_title(""..mob_name(20074).."")

say("Możesz przejsć na 7 piętro Wieży Wygnańców.")

say("Lecz uważaj..")

say("Tam wyżej nie będzie tak łatwo jak wcześniej!")

wait()

if pc.level >=110 then

say_title(""..mob_name(20074).."")

say("Posiadasz odpowiedni level.")

say("Zostaniesz przeniesiony na 7 piętro.")

timer("devil_jump_7s", 6)

return

end

say_title(""..mob_name(20074).."")

say("Wybacz.. nie posiadasz 110 poziomu")

say("Nie mogę Cię przenieść na kolejne piętro.")

wait()

pc.warp(590500, 110500)

return

end

when 20076.chat."Chce przejść dalej (smok)" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and d.getf("levels") == 6 begin

say_title(""..mob_name(20074).."")

say("Możesz przejsć na 7 piętro Wieży Wygnańców.")

say("Lecz uważaj..")

say("Tam wyżej nie będzie tak łatwo jak wcześniej!")

wait()

if pc.level >=110 then

say_title(""..mob_name(20074).."")

say("Posiadasz odpowiedni level.")

say("Zostaniesz przeniesiony na 7 piętro.")

timer("devil_jump_7s", 6)

return

end

say_title(""..mob_name(20074).."")

say("Wybacz.. nie posiadasz 110 poziomu")

say("Nie mogę Cię przenieść na kolejne piętro.")

wait()

pc.warp(590500, 110500)

return

end

when devil_jump_7s.timer begin

d.clear_regen()

d.spawn_mob(1095, 617, 676)

d.setf("levels", 7)

d.regen_file("data/dungeon/wygnancy7.txt")

d.jump_all(2048+590, 6656+638)

end

---------------------------------------------

-- Niebieska Śmierć

---------------------------------------------

when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

timer("devil_jump_ 8S", 30)

d.clear_regen()

d.notice("Pokonaliście Niebieską Śmierć!")

d.notice("Zostaniecie przeniesieni na piętro smoka!")

end

---------------------------------------------

-- Niebiański Smok

---------------------------------------------

when devil_jump_ 8S.timer begin

d.setf("levels", 8)

d.jump_all(2048+590, 6656+155)

d.spawn_mob(2493,630,195)

end

when 2493.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.kill_all()

local m_sex = pc.get_sex()

if m_sex == 0 then

notice_all(pc.get_name().." zabił Niebiańskiego Smoka!")

else

notice_all(pc.get_name().." zabiła Niebiańskiego Smoka!")

end

timer("devil_end_jumps", 60)

end

when devil_end_jumps.timer begin

d.exit_all()

end

state __GOOD__ begin

end

Proszę pomózcie dam limit +++++++++++++ jak ktos powie co zrobic zeby przenosilo a nie logalo

sankixd · 31 Grudnia 2011

@UP Bistik hah ;D ten quest mi nie dzialal, sam przerobilem sobie questa

mogę Ci udostepnić, ale powiedz mi z kowalami na koncu(po niebieskiej smierci) czy nie ?

Bistik · 31 Grudnia 2011

daj bez jak możesz

Jankensztajn · 31 Grudnia 2011

Napisze mi ktoś questa, że po zabiciu moba "xxxx" otrzymujemy przedmiot "yyy".

Stelios · 31 Grudnia 2011

Mam pytanie. Czy w przypadku questa od dropu (np. sztabki) można ustawić by na różnych mapach był maksymalny lewel dropu ?

Np. w m1 możliwość dropu tylko do 30 lvl .

A po drugie jak w quescie zrobić wiarygodną szansę dropu, bo tym:
quest drops begin
state start begin
when kill with not npc.is_pc() begin
local szansa = 10000000000
if math.random(szansa) == 10000000000 then
pc.give_item2(80007, 1)
end
end
end
end
I tak dropi bardzo często te sztabki (a powinno prawie w ogóle) .

Ustaw ograniczenie typu

when kill begin
if pc.get_level() < 30 then
if pc.get_map_index() == 1 or pc.get_map_index() == 21 or pc.get_map_index() == 41 then
local szansa = number(1, 500)
if szansa >= 50 and szansa <= 70 then
pc.give_item2(id, ilosc)
end
end
end
if pc.get_level() < 45 then
elseif pc.get_map_index() == 3 or pc.get_map_index() == 23 or pc.get_map_index() == 43 then
local.... itd..

czaisz ock?

sankixd · 31 Grudnia 2011

to nikt nie zna odpowiedzi na moj problem ;<

Stelios · 31 Grudnia 2011

Witam. Potrzbuje pomocy przy moim quesscie :P Gdzies jest blad ale oczywiscie nie moge zlokalizowac.

quest grota_kp  begin
state start begin
	when login or levelup with pc.get_level() >=70  begin
		set_state(information)
	end	
end
state information begin
			when letter begin
					local v = find_npc_by_vnum(20093)
					if v != 0 then
							target.vid("__TARGET__", v, "Koe-Pung")
					end
					send_letter("")
			end

			when button or info begin
					say_title("Zatruty przez diabła")
					say("Koe-Pung potrzebuje")
					say("Twojej pomocy.")
					say("Ma dla Ciebie misję.")
					say("Udaj się do niego.")
			end

			when __TARGET__.target.click or
					20093.chat."Pomoc" begin
					target.delete("__TARGET__")
					say_title("Koe-Pung:")
				say("Niebiosa, proszę, pomóżcie mi...")
					say("Mój brat, Kochany brat, zwiedzał okolicę,")
					say("zainteresowała go jakaś dziwna grota...")
					say("Każdy boi się tam chodzi,")
					say("a miejscowi mówią, ze żyją tam diabły...")
					say("Dotknięty przez jednego, zatruł się...")
					say("Proszę pomóż mi i mojemu bratu!")
					wait()
					say_title("Koe-Pung:")
					say("Widać, że jesteś doświadczonym wojownikiem,")
					say("więc zapewne nie boisz się tam pójść.")
					say("Mój brat potrzebuje mikstury z Odłamku diabła.")
					say("Biolog ją dla Ciebie przygotuje,")
					say("lecz musisz mu zanieść Odłamek diabła.")
				say("Zdobyć go możesz z diabłów żyjących w grocie.")
					say("Proszę pomóż mi...")
					set_state(go_to_disciple)
			end
	end
			state go_to_disciple begin
			when letter begin
					send_letter("Diabły w grocie")

			end
			when button or info begin
					say_title("Zdobądź odłamek diabła")												  
					say("Koe-Pung potrzebuje go do")
					say(" mikstury z odłamku diabła.")
					say("Zdobądź odłamek i wróć do Koe-Punga")
					say("daj mu odłamek a on zrobi")
					say("miksturę dla swojego brata.")
					say("Odłamek zdobędziesz z łuczników setaou")
					say_item("Odłamek Diabła",70042,"")
			end
			when 70042.use begin
				chat(" Nie możesz tego użyć! ")
				return
			end
			when 2412.kill begin
				if pc.count_item(70042)<1 then
					pc.give_item2(70042, 1)
				end
			end
	when 20093.chat."Mam Odłamek!" with pc.count_item(70042) >0 begin
		say_title("Koe-Pung:")
		say("Zdobyłeś dla mnie Odłamek diabła!?")
		say("Szczerze mówiąc nie wierzyłem,")
		say("że Ci się uda...")
		say("Ale nie czas by o tym mówić!")
		say("Pokaż mi ten odłamek!")
		wait()
		say_title("Koe-Pung:")
		say("Ohh! Jesteś wspaniały!")
		say("Bardzo Ci dziękuję za Twą pomoc!");
		say("Cieszę się ze pomogłeś mojemu bratu!")
		say("W zamian za uratowanie mojego brata,")
		say("Dam Ci mały upominek.")
		say_reward(" Jako nagrodę otrzymasz od Koe-Punga sporą ")
		say_reward(" ilość Punktów Doświadczenia oraz 100kk Yang ")
		pc.change_money(100000000)
		pc.give_exp2(90000000)
		wait()
		say_title("Koe-Pung:")
		say("Mój brat jest już zdrowy!")
		say("A ty wzamian za pomoc otrzymałeś nagrodę")
		say("Obaj jesteśmy szczęśliwi!")
		say("Jeszcze raz Ci dziękuję Przybyszu!")
		clear_letter()
		set_state(__complete)
	end
end


state __complete begin
	end
end

Prosze o pomoc

A jakiś błąd przy wgrywaniu masz?

say("A ty wzamian za pomoc otrzymałeś nagrodę")

polski znak przy "

z4z0l · 31 Grudnia 2011

Witam. Potrzbuje pomocy przy moim quesscie :P Gdzies jest blad ale oczywiscie nie moge zlokalizowac.

quest grota_kp  begin
state start begin
	when login or levelup with pc.get_level() >=70  begin
		set_state(information)
	end	
end
state information begin
			when letter begin
					local v = find_npc_by_vnum(20093)
					if v != 0 then
							target.vid("__TARGET__", v, "Koe-Pung")
					end
					send_letter("")
			end

			when button or info begin
					say_title("Zatruty przez diabła")
					say("Koe-Pung potrzebuje")
					say("Twojej pomocy.")
					say("Ma dla Ciebie misję.")
					say("Udaj się do niego.")
			end

			when __TARGET__.target.click or
					20093.chat."Pomoc" begin
					target.delete("__TARGET__")
					say_title("Koe-Pung:")
				say("Niebiosa, proszę, pomóżcie mi...")
					say("Mój brat, Kochany brat, zwiedzał okolicę,")
					say("zainteresowała go jakaś dziwna grota...")
					say("Każdy boi się tam chodzi,")
					say("a miejscowi mówią, ze żyją tam diabły...")
					say("Dotknięty przez jednego, zatruł się...")
					say("Proszę pomóż mi i mojemu bratu!")
					wait()
					say_title("Koe-Pung:")
					say("Widać, że jesteś doświadczonym wojownikiem,")
					say("więc zapewne nie boisz się tam pójść.")
					say("Mój brat potrzebuje mikstury z Odłamku diabła.")
					say("Biolog ją dla Ciebie przygotuje,")
					say("lecz musisz mu zanieść Odłamek diabła.")
				say("Zdobyć go możesz z diabłów żyjących w grocie.")
					say("Proszę pomóż mi...")
					set_state(go_to_disciple)
			end
	end
			state go_to_disciple begin
			when letter begin
					send_letter("Diabły w grocie")

			end
			when button or info begin
					say_title("Zdobądź odłamek diabła")												  
					say("Koe-Pung potrzebuje go do")
					say(" mikstury z odłamku diabła.")
					say("Zdobądź odłamek i wróć do Koe-Punga")
					say("daj mu odłamek a on zrobi")
					say("miksturę dla swojego brata.")
					say("Odłamek zdobędziesz z łuczników setaou")
					say_item("Odłamek Diabła",70042,"")
			end
			when 70042.use begin
				chat(" Nie możesz tego użyć! ")
				return
			end
			when 2412.kill begin
				if pc.count_item(70042)<1 then
					pc.give_item2(70042, 1)
				end
			end
	when 20093.chat."Mam Odłamek!" with pc.count_item(70042) >0 begin
		say_title("Koe-Pung:")
		say("Zdobyłeś dla mnie Odłamek diabła!?")
		say("Szczerze mówiąc nie wierzyłem,")
		say("że Ci się uda...")
		say("Ale nie czas by o tym mówić!")
		say("Pokaż mi ten odłamek!")
		wait()
		say_title("Koe-Pung:")
		say("Ohh! Jesteś wspaniały!")
		say("Bardzo Ci dziękuję za Twą pomoc!");
		say("Cieszę się ze pomogłeś mojemu bratu!")
		say("W zamian za uratowanie mojego brata,")
		say("Dam Ci mały upominek.")
		say_reward(" Jako nagrodę otrzymasz od Koe-Punga sporą ")
		say_reward(" ilość Punktów Doświadczenia oraz 100kk Yang ")
		pc.change_money(100000000)
		pc.give_exp2(90000000)
		wait()
		say_title("Koe-Pung:")
		say("Mój brat jest już zdrowy!")
		say("A ty wzamian za pomoc otrzymałeś nagrodę")
		say("Obaj jesteśmy szczęśliwi!")
		say("Jeszcze raz Ci dziękuję Przybyszu!")
		clear_letter()
		set_state(__complete)
	end
end


state __complete begin
	end
end

Prosze o pomoc

say("A ty wzamian za pomoc otrzymałeś nagrodę")

Bistik · 31 Grudnia 2011

Co w tym quescie jest nie tak ze bledy wywala to wieza se-pong za poprawe daje +++++++++

quest diamondt begin

state start begin

--WEJSCIE

when 20031."Wieza Se-Pong" begin

if pc.get_level() > 95 then

ay_title("Strażniczka Se-Pong: ")

say("Chcesz wejść do Wieży Se-Pong?")

local s = select("Wejdz", "Anuluj")

if s == 1 then

pc.setqf("priv_se_pong", 1)

d.join(66)

end

else

say("Posiadasz zbyt maly level")

end

--ZABEZPIECZENIE

when login begin

if pc.get_map_index() == 65 then

if pc.getqf("priv_se_pong") > 0 then

pc.setqf("priv_se_pong", 0)

end

if pc.get_map_index() == 66 then

if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then

pc.warp((5376+532)*100, (512+596+4)*100, 65)

end

pc.set_warp_location(65, 5376+532, 512+596+4)

elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then

pc.set_warp_location(65, 5376+532, 512+596+4)

end

--TELEPORT

when login with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

if pc.getqf("priv_se_pong") > 0 then

pc.setqf("priv_se_pong", 0)

d.regen_file("data/dungeon/se_pong_regen.txt")

d.spawn_mob(8032, 195, 690)

end

--PO UBICIU METKA

when 8032.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

timer("se_pong", 6)

end

--TIMER1

when se_pong.timer begin

d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])

d.regen_file("data/dungeon/se_pong_regen2.txt")

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/se_pong_regen3.txt")

end

--PO UBICIU KROLA

when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.jump_all(special.devil_tower[3][1], special.devil_tower[3][2])

d.spawn_mob(8033, 372, 631)

end

--PO UBICIU 2 METKA

when 8033.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.regen_file("data/dungeon/se_pong_regen4.txt")

end

--PO UBICIU MOBA

when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.setf("pieczenci", 5)

d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])

d.regen_file("data/dungeon/se_pong_regen5.txt")

end

--DROP PIECZENCI

when 2291.kill with pc.in_dungeon() begin

pc.give_item2(50084, 1)

end

--PIECZENC NA KAMIEN

when 20353.take with item.vnum == 50084 begin

npc.purge()

item.remove()

d.setf("pieczenci", d.getf("pieczenci") - 1)

if d.getf("pieczenci") <= 0 then

d.clear_regen()

d.regen_file("data/dungeon/se_pong_regen6.txt")

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/se_pong_regen7.txt")

end

--MINOTAUR

when 2604.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.clear_regen()

d.spawn_mob(2501, 617, 676)

d.jump_all(2048+590, 6656+638)

end

--KOSIARKA

when 2501.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.spawn_mob(20074, 617, 676)

d.regen_file("data/dungeon/se_pong_regen7.txt")

end

--Moje ulepszenie

when 20087.chat."Wyjdz" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

say("Chcesz wyjść ")

local a = select("Wyjdz", "Anuluj")

if a == 1 then

timer("wyjdz_se_pong", 12)

end

--END

when wyjdz_se_pong.timer begin

d.exit_all()

end

kilu · 1 Stycznia 2012

Proszę o sprawdzenie moich questów, przy pierwszym quescie po oddaniu potrzebnych itemkow udaje sie do bake-go po nagrode lecz ten sie zwiesza i nie da sie na niego kliknac pomimo ze sie swieci, przed wzieciem questa od biologa normalnie bylo mozna.

Poza tym przed wzięciem questa mozna bylo na neigo kliknac i byla opcja "o biolog cie do mnie przyslal"

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("")
					say_reward("Otrzymujesz 10% szybkości poruszania się")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")
					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

Biolog na 40 lvl

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("")
					say_reward("Otrzymujesz +15 szybkości ataku")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")
					affect.add_collect(apply.ATT_SPEED,15,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

Biolog 50lvl

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 - Pamiatki po Demonie")
					end
					send_letter("Analiza Biologa - Pamiatki po Demonie")
			end

			when button or info begin
					say_title("Analiza Biologa - Pamiatki po Demonie")
					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 - Pamiatki po Demonie")

			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."Pamiatki po Demonie" 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()+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ÓĄĽşˇ
											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 - Pamiatki po Demonie")

					if pc.count_item(30222)>0 then  
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Pamiatki po Demonie")
							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)----------Żu¤`ĆFĆF»îĄŰ
					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("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")

											local s = select("30% regeneracji hp", "2000 hp")
					if s == 1 then
									affect.add_collect(apply.HP_REGEN, 30, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 30% regeneracji hp")
									say_reward("Otrzymałeś bonus: +60 Obrony")
									say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")
					elseif s == 2 then
									affect.add_collect(apply.MAX_HP, 2000, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 2000 hp")
									say_reward("Otrzymałeś bonus: +60 Obrony")
									say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")

							end


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

					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/[code]
[/spoiler]

Biolog 60lvl

[spoiler][code]
quest collect_quest_lv60  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 60 and pc.level <= 99 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()+60*1*15) -----------------------------------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("10% szans na krytyka", "10% szans na przeszywke")
					if s == 1 then
									affect.add_collect(apply.CRITICAL_PCT,10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% na krytyczne uderzenie")

					elseif s == 2 then
									affect.add_collect(apply.PENETRATE_PCT,10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% na przeszywajace uderzenie")


							end
					say_reward("Otrzymałeś +110 wartosci ataku")
					say_reward("Na zawsze!")
					say_reward("oraz")
					say_reward("Otrzymałeś 5x Dziewieciu Ogonow")

					affect.add_collect(apply.ATT_GRADE_BONUS,110,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

Biolog zelkovy 70+

Quest collect_quest_lv70  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 70 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 - Konary Zelkova")
					end
					send_letter("Analiza Biologa - Konary Zelkova")
			end

			when button or info begin
					say_title("Analiza Biologa - Konary Zelkova")
					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 Konary Zelkova.")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Konarow Zelkova.")
					say("Czy moglbys przyniesc mi 25 Konarow Zelkova?")
					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)--¨ú±oŞşŞ««~ĽĆ¶q
					pc.setqf("drink_drug",0) --łÜ°g´bĂÄ¤ôŞş¸Ü 1
			end
	end

	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

			end
			when button or info begin
					say_title("Znajdz Konary Zelkova")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Konarow Zelkova")
					say("Zawsze przynos mu po jednym, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Konarow Zelkova szukaj w zwyklym i czerwonym lesie")
					say("")
					say_item_vnum(30165)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Konarow Zelkova")
					say("")
			end

			when 71035.use begin --°g´bĂÄ¤ô
					if get_time() < pc.getqf("duration") then
							say("ÁŮ¤ŁĄiĄH¨ĎĄÎ°g´bĂÄ¤ô")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("¤w¸g¨ĎĄÎ¤F1¦¸")
							return
					end
					if pc.count_item(30165)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Konarow Zelkova?...")
							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, 5)
					if s == 1 and pc.count_item(30165)==0 then
							pc.give_item2(30165)
					end	
			end



	when 20084.chat."Konary Zelkova" with pc.count_item(30165) >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(30165, 1)
							pc.setqf("duration",get_time()+0*0*0)------------------22Ó¤p®É
							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")< 24 then	 --25ÓĄĽşˇ
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 --¨ú±o¤F¤@Ó+1
											say("Biolog Chaegirab:")
											say("Oh!! Ten Konar Zelkova jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..25-pc.getqf("collect_count").. " Konarow Zelkova")
											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 Konar Zelkova 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 Konaru!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end

	end
end


	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

					if pc.count_item(30224)>0 then  
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Konary Zelkova")
							end
					end

			end
			when button or info begin
					if pc.count_item(30224) >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 25 Konarow Zelkova")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30224)----------°¤ěĆF»îĄŰ
					say("Mozesz go znalezc zabijajac potwory")	  
					say("w zwykłym i czerwonym lesie")
					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, 50)
					if s == 1 and pc.count_item(30224)==0 then
							pc.give_item2(30224)
							send_letter("Wroc do Biologa!")		
					end	
			end



			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30224) > 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(30224,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("5% szans na zablokowanie ataku fizycznego", "5% szans na unikniecie strzaly", "10% odporności na otrucie", "10% szans na odbicie ciosu w cialo")
					if s == 1 then
									affect.add_collect(apply.POINT_BLOCK, 5, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 5% szans na zablokowanie ataku fizycznego)
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")
					elseif s == 2 then
									affect.add_collect(apply.POINT_DODGE, 5, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 5% szans na unikniecie strzaly")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

					elseif s == 3 then
									affect.add_collect(apply.POISON_REDUCE, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% odporności na otrucie")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

					elseif s == 4 then
									affect.add_collect(apply.REFLECT_MELEE, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: 10% szans na odbicie ciosu w cialo")
									say_reward("Otrzymałeś bonus: +15% na Ludzi")
									say_reward("Otrzymałeś 5x Szkatułkę Umarłego Rozpruwacza")

							end	

					affect.add_collect_point(POINT_ATTBONUS_HUMAN,15,60*60*24*365*60) --60łâ			
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)
					pc.give_item2(50082)

					clear_letter()
					set_quest_state("collect_quest_lv80", "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
[/spoiler]


Biolog 80lvl
[spoiler]
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("Obrazenia od 10% beda dodane do pz", "Obrazenia od 10% beda dodane do pe")
					if s == 1 then
									affect.add_collect(apply.POINT_KILL_HP_RECOVER, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: Obrazenia od 10% beda dodane do pz")
									say_reward("Otrzymałeś bonus: +50 wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
					elseif s == 2 then
									affect.add_collect(apply.POINT_KILL_SP_RECOVER, 10, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: Obrazenia od 10% beda dodane do pe")
									say_reward("Otrzymałeś bonus: +50 wartości Ataku")
									say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
						end	

					affect.add_collect_point(POINT_ATT_GRADE_BONUS,50,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_quest_state("collect_quest_lv85", "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

Biolog 85lvl

Quest collect_quest_lv85  begin
	state start begin
	end
	state run begin
			when login or levelup with pc.level >= 85 and pc.level <= 99 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 - Konary Zelkova")
					end
					send_letter("Analiza Biologa - Czerwone Konary")
			end

			when button or info begin
					say_title("Analiza Biologa - Czerwone Konary")
					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 Konary Zelkova.")
					say("Musze przeprowadzic kilka eksperymentow,")
					say("dlatego potrzebuje kilku Konarow Zelkova.")
					say("Czy moglbys przyniesc mi 25 Czerwone Konary?")
					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)--¨ú±oŞşŞ««~ĽĆ¶q
					pc.setqf("drink_drug",0) --łÜ°g´bĂÄ¤ôŞş¸Ü 1
			end
	end

	state go_to_disciple begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

			end
			when button or info begin
					say_title("Znajdz Konary Zelkova")
					---												   l
					say("")
					say("Biolog Chaegirab, uczen Uriela,")
					say("szuka Czerwone Konary")
					say("Zawsze przynos mu po jednym, aby mial czas")
					say("na ich dokladne przebadanie.")
					say("Konarow Zelkova szukaj w zwyklym i czerwonym lesie")
					say("")
					say_item_vnum(30167)
					say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Czerwony Konar")
					say("")
			end

			when 71035.use begin --°g´bĂÄ¤ô
					if get_time() < pc.getqf("duration") then
							say("ÁŮ¤ŁĄiĄH¨ĎĄÎ°g´bĂÄ¤ô")
							return
					end
					if pc.getqf("drink_drug")==1 then
							say("¤w¸g¨ĎĄÎ¤F1¦¸")
							return
					end
					if pc.count_item(30167)==0 then
							say("Biolog Chaegirab:")
							say("Co? Nie przyniosles mi zadnych")
							say("Czerwonych Konarow?...")
							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, 50)
					if s == 1 and pc.count_item(30167)==0 then
							pc.give_item2(30167)
					end	
			end



	when 20084.chat."Konary Zelkova" with pc.count_item(30167) >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(30167, 1)
							pc.setqf("duration",get_time()+60*1*15)------------------22Ó¤p®É
							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")< 24 then	 --25ÓĄĽşˇ
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 --¨ú±o¤F¤@Ó+1
											say("Biolog Chaegirab:")
											say("Oh!! Ten Czerony konar jest doskonalej jakosci!")
											say("Przynies mi jeszcze".." "..25-pc.getqf("collect_count").. " Konarow Zelkova")
											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 Czerwony Konar 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 Konaru!")
			  say("Wroc pozniej, kiedy juz skoncze!")
			  say("")
			  return
			end

	end
end


	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne - Konary Zelkova")

					if pc.count_item(30224)>0 then  
							local v = find_npc_by_vnum(20084)
							if v != 0 then
									target.vid("__TARGET__", v, "Analiza Biologa - Czerwone Konary")
							end
					end

			end
			when button or info begin
					if pc.count_item(30224) >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 25 Czerwone Konary")
					say("Teraz, biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30224)----------°¤ěĆF»îĄŰ
					say("Mozesz go znalezc zabijajac potwory")	  
					say("w zwykłym i czerwonym lesie")
					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, 50)
					if s == 1 and pc.count_item(30224)==0 then
							pc.give_item2(30224)
							send_letter("Wroc do Biologa!")		
					end	
			end



			when __TARGET__.target.click  or
					20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30224) > 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(30224,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 +15% odpornosci na ludzi")
					say_reward("i +20 szybkosci poruszania sie")
					say_reward("Na zawsze!")
					say_reward("Oraz niespodzianke!")

					affect.add_collect(apply.MOV_SPEED,20,60*60*24*365*60)  
					affect.add_collect(apply.POINT_RESIST_WARRIOR,  15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_ASSASSIN, 15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_SURA,	 15, 60*60*24*365*60) --60¦~
					affect.add_collect(apply.POINT_RESIST_SHAMAN,   15, 60*60*24*365*60) --60¦~						
					pc.give_item2(50081)
					pc.give_item2(27006, 100)
					clear_letter()
					set_quest_state("collect_quest_lv90", "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

Biolog 90lvl

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, "Analiza Biologa")
					end
					send_letter("Analiza Biologa")
			end

			when button or info begin
				say_title("Analiza Biologa")
				say("")
									say("Biolog Chaegirab, uczeń Uriela,")
				say("właśnie Cie szukał. Proszę idz")
				say("do niego i zaoferuj mu swoją pomoc.")
				say("")
			end

			when __TARGET__.target.click or
					20084.chat."Znajdz Biologa" begin
					target.delete("__TARGET__")
					say("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 wyprawe. ")
					say("Proszę,pomóż mi. ")
					wait()
											say("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 dziesięć Notatek Przywódcy?")
					say("Proszę, pomóż mi! Zawsze przynoś mi po jednym,")
					say("abym miał czas na ich dokladne przebadanie!")
					say("")																																																												  
					set_state(go_to_disciple)
					pc.setqf("duration",0)  -- ĄiĄH¸Ő¸ŐŞş®É¶ˇ
					pc.setqf("collect_count",0) -- ˇX¨ú±oąLŞşŞ««~ĽĆ¶q
					pc.setqf("drink_drug",0) -- ˇX łÜ°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 Notatki Przywódców")
					---												   l
											say("")
											say("Biolog Chaegirab, uczeń Uriela,")
					say("szuka Zębów Orka.")
					say("Zawsze przynoś mu po jednym, aby miał czas")
											say("na ich dokladne przebadanie.")
					say("Notatek szukaj u wszystkich bossów.")
					say("")
					say_item_vnum(30168)
					say_reward("Do tej pory dostarczyłeś ".." "..pc.getqf("collect_count").." Notatki Przywódcy.")
					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(30168)==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(30168) >0   begin
					if get_time() > pc.getqf("duration") then
															say("Biolog Chaegirab:")
							---												   l
							say("Oh!! Znalazleś!")
							say("Pozwól,ze rzuce okiem...")
							say("Jeszcze chwilke.")
							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")< 9 then	 --10ÓĄH¤U
											local index =pc.getqf("collect_count")+1
											pc.setqf("collect_count",index)	 --¨ú±o¤@Ó®É +1
											say("Biolog Chaegirab:")
											say("Oh!! Ta notatka jest doskonałej jakości!")
											say("Przynieś mi jeszcze ".." "..10-pc.getqf("collect_count").. " notatek przywódcy.")
											say("Prosze, sprobuj je znalezć!")
					say("")
											pc.setqf("drink_drug",0)		 --ĂÄ¤ôŞě©l¤Ć
											return
									end
									say("Biolog Chaegirab:")  
				say("Oh,zebraleś juz wszystkie!")
				say("Dobra robota...")
									say("Ale poczekaj!")
									say("Aby zakonczyc swoją pracę, potrzebuje")	
									say("abyś przyniusł dla mnie jeszcze jeden przedmiot.")
									say("Zrób to dla mnie...")	  
									say("")
									say_item("Kamień Duszy Gyimok ", 30224, "")

									say_reward("Zabijaj Olbrzymi Pustynny Żółw, Królowa Pająków, Wódz Orków")
									say_reward("Dziewięć Ogonów, Zjawa Żółtego Tygrysa, Ezoteryk Przywoływacz")
									say_reward("Król Demonów, Umarły Rozpruwacz, Ognisty Król ")

									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 notatka jest złej jakości!")
							say("Sprobuj przynieść mi inny!")
							say("Proszę, pomóż mi!")
							pc.setqf("drink_drug",0)		 --ĂÄ¤ôŞě©l¤Ć
							return
							end
		else
			  say("Biolog Chaegirab:")
			  say("Jeszcze nie skończyłem badać ostatniej notakti !")
			  say("Wróc później, kiedy juz skończę!")
			  say("")
			  return
			end

	end
end


	state key_item begin
			when letter begin
					send_letter("Zadanie Specjalne!")

					if pc.count_item(30224)>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(30224) >0 then
							say_title("Znalazłeś Kamień Duszy!")
							say("")
							---												   l
							say("Wróć do Biologa, aby")
							say("odnieść mu kamień!")
							say("")
							return
					end
					say_title("Kamien Duszy")
					say("")
					---												   l
					say("Zebrałeś już wszystkie dziesięć notatek!")
					say("Teraz, Biolog potrzebuje ostatni")
					say("przedmiot, aby zakonczyc swoje badania!")
					say_item_vnum(30224)
					say("Możesz go znalezć zabijająć bossy")
					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("Wróc do Biologa!")		
					end	
			end

			when __TARGET__.target.click  or
					20084.chat."Znalazłem Kamien Duszy" with pc.count_item(30224) > 0  begin
				target.delete("__TARGET__")
					say("Biolog Chaegirab:")
					say("Oh, Znalazłeś!")
					say("Bardzo Tobie dziękuje!")
					say("W zamian otrzymasz nagrode!")
					say("Idz do mojego mistrza Uriela")
					say("On za pomoc mi podaruje Ci cenna nagrode.")
					say("")
					say_reward("Możesz teraz iść do Baek-Go po nagrodę!")
					say("")
					pc.remove_item(30224,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("Odbierz nagrode!")
					---												   l
					say("Biolog Chaegirab wysyla Cie")
					say("po nagrodę do Baek-Go!")
					say("")
			end

			when __TARGET__.target.click  or
					20018.chat."Nagroda"  begin
				target.delete("__TARGET__")
					say("Baek-Go:")
					say("Hmm, a więc Biolog")
					say("wysłał Cie po nagrodę?")
					say("Zobaczmy, co tam masz...")
					say("")
					wait()
					say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")

											local s = select("+300 wartości ataku", "+3000 pz", "+200 obrony magicznej)
					if s == 1 then
									affect.add_collect(apply.ATT_GRADE_BONUS, 300, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +300 wartości ataku")


					elseif s == 2 then
									affect.add_collect(apply.MAX_HP, 300, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +3000 pz")


					 elseif s == 3 then
									affect.add_collect(apply.MAGIC_DEF_GRADE, 200, 60*60*24*365*60) --60¦~
									say_reward("Otrzymałeś bonus: +200 obrony magicznej)

						end	




					say_reward("15% na ludzi, 15 szybkosci ataku ")
					say_reward("na zawsze!")

					affect.add_collect(apply.ATT_SPEED,	  15,60*60*24*365*60) --60¦~
					affect.add_collect(apply.ATTBONUS_HUMAN, 15, 60*60*24*365*60)

																			if pc.job==0 then
											pc.give_item2()
											say_reward("")		
									end
									if pc.job==1 then
											pc.give_item2()
												 say_reward("")
															   end
									if pc.job==2 then
											pc.give_item2(11658, 1)
											say_reward("")
									end
									if pc.job==3 then			  
											pc.give_item2()
											say_reward("")
									end  




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

	end


	state __giveup__ begin
			when 20084.chat."Poddajesz sie?" begin
					say("Biolog Chaegirab:")
					say("Czy jestes pewien, że chcesz sie poddać!?")
					say("Nie bedziesz mial szansy, aby zacząć ponownie!")
					say("Ta misja Cie opusci...")
		 end
	 end
	state __complete begin
	end
end

Proszę o jak najszybszą edycję!

Dam tygodniowy limit plusów!

Stelios · 1 Stycznia 2012

Co w tym quescie jest nie tak ze bledy wywala to wieza se-pong za poprawe daje +++++++++

quest diamondt begin

state start begin

--WEJSCIE

when 20031."Wieza Se-Pong" begin

if pc.get_level() > 95 then

ay_title("Strażniczka Se-Pong: ")

say("Chcesz wejść do Wieży Se-Pong?")

local s = select("Wejdz", "Anuluj")

if s == 1 then

pc.setqf("priv_se_pong", 1)

d.join(66)

end

else

say("Posiadasz zbyt maly level")

end

--ZABEZPIECZENIE

when login begin

if pc.get_map_index() == 65 then

if pc.getqf("priv_se_pong") > 0 then

pc.setqf("priv_se_pong", 0)

end

end

if pc.get_map_index() == 66 then

if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then

pc.warp((5376+532)*100, (512+596+4)*100, 65)

end

pc.set_warp_location(65, 5376+532, 512+596+4)

elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then

pc.set_warp_location(65, 5376+532, 512+596+4)

end

end

--TELEPORT

when login with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

if pc.getqf("priv_se_pong") > 0 then

pc.setqf("priv_se_pong", 0)

d.regen_file("data/dungeon/se_pong_regen.txt")

d.spawn_mob(8032, 195, 690)

end

end

--PO UBICIU METKA

when 8032.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

timer("se_pong", 6)

end

--TIMER1

when se_pong.timer begin

d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])

d.regen_file("data/dungeon/se_pong_regen2.txt")

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/se_pong_regen3.txt")

end

--PO UBICIU KROLA

when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.jump_all(special.devil_tower[3][1], special.devil_tower[3][2])

d.spawn_mob(8033, 372, 631)

end

--PO UBICIU 2 METKA

when 8033.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.regen_file("data/dungeon/se_pong_regen4.txt")

end

--PO UBICIU MOBA

when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.setf("pieczenci", 5)

d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])

d.regen_file("data/dungeon/se_pong_regen5.txt")

end

--DROP PIECZENCI

when 2291.kill with pc.in_dungeon() begin

pc.give_item2(50084, 1)

end

--PIECZENC NA KAMIEN

when 20353.take with item.vnum == 50084 begin

npc.purge()

item.remove()

d.setf("pieczenci", d.getf("pieczenci") - 1)

if d.getf("pieczenci") <= 0 then

d.clear_regen()

d.regen_file("data/dungeon/se_pong_regen6.txt")

d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/se_pong_regen7.txt")

end

end

--MINOTAUR

when 2604.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.clear_regen()

d.spawn_mob(2501, 617, 676)

d.jump_all(2048+590, 6656+638)

end

--KOSIARKA

when 2501.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

d.spawn_mob(20074, 617, 676)

d.regen_file("data/dungeon/se_pong_regen7.txt")

end

--Moje ulepszenie

when 20087.chat."Wyjdz" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

say("Chcesz wyjść ")

local a = select("Wyjdz", "Anuluj")

if a == 1 then

timer("wyjdz_se_pong", 12)

end

end

--END

when wyjdz_se_pong.timer begin

d.exit_all()

end

end

end

ay_title("Strażniczka Se-Pong: ")

Bistik · 1 Stycznia 2012

To nie to .. przy dodawaniu spoilera mi ucieło "say" coś dużo błędów ten quest wywala

Bistik · 1 Stycznia 2012

Tu masz screena jak to wygląda

http://www.megaupload.com/?d=AQA114CE

Sunushi · 1 Stycznia 2012

Używaj opcji edytuj a zdjęcia wrzucaj na hostingi umożliwiające wyświetlanie zdjęć, np http://imageshack.us

Zaloguj się

👋 Witaj na MPCForum!

Pisanie / Poprawa Questów !

Rekomendowane odpowiedzi

Zarchiwizowany