Skocz do zawartości

  • 👋 Witaj na MPCForum!

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

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

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

    Zarejestruj się teraz

Analiza Biologa 30-80Lvl Edit By Flexior

Damdus

Rekomendowane odpowiedzi

Damdus Mentor

Damdus

Opublikowano
Mentor

Damdus

Opublikowano

Witam

W tym temacie przedstawiam serię questów "Analiza Biologa" edytowane przeze mnie

 

Nowości:

Na początku dodam, że często widywałem quest na 40lvl, gdzie Kamień po oddaniu Ksiąg dropiło się w V1. Ja to poprawiłem tak aby ten kamień dropił tak jak na PL'u, czyli w świątyni.

 

Questy przebiegają normalnie.

Bierzemy misje, dropimy itemki, oddajemy, odbieramy nagrodę.

Tylko w tym przypadku umożliwiłem w pewnym sensie wybierania rozwoju własnej postaci już od 30 poziomu dzięki tym questom.

 

Otóż, gdy oddamy kamień i pójdziemy do Beak-Go, ten da nam dowyboru jeden z bonusów wybranych przez nas na stałe.

Są to bonusy:

- silny przeciwko wojownikom

- silny przeciwko Ninjom

- silny przeciwko Surom

- silny przeciwko Szamanom

 

Nagrody:

Za misje 30lvl:

- jeden z wybranych bonusów: +10%

- szybkość poruszania się 10%

- 5x szkatułka wodza orków

 

Za misje 40lvl:

- jeden z wybranych bonusów: +15%

- szybkość ataku: 10%

- 5x szkatułka Królowej Pająków

 

Za misje 50lvl:

- jeden z wybranych bonusów: +20%

- Obrona +200

- 5x szkatułka Króla Demonów

 

Za misje 60lvl:

- jeden z wybranych bonusów: +25%

- Wartość ataku +150

- 5x szkatułka Dziewięciu Ogonów

 

Za misje 70lvl:

- jeden z wybranych bonusów: +30%

- Bonus: Silny Przeciwko Ludziom +15%

- 5x szkatułka Pustynnego Żółwia

 

Za misje 80lvl:

- jeden z wybranych bonusów: +35%

- bonus: Wartość Ataku +20%

- 5x Szkatułka Zjawy Zółtego Tygrysa

 

Jak wgrać quest??

http://www.mpcforum.pl/topic/163124-tutwgrywanie-questow-na-serwer/

 

 

Na jakie serwery jest ten quest??

Polecam użyć jego na serwer easy, pvp, a nawet normal. Jest to doskonały quest pozwalający samemu wybrać kierunek rozwijania naszej postaci.

 

Ważne:

Itemki oddaje się jedna po drugiej, nie ma limitu czasowego

 

 

Quest 30lvl

 

----------------------------------------------------
-- Serwer Rehab
-- Quest Edit by Flexior
-- Analiza Biologa 30lv
----------------------------------------------------
quest collect_quest_lv30  begin
state start begin
	when login or levelup with pc.level >= 30 and pc.level <= 90 begin
		set_state(information)
	end	
end

state information begin
	when letter begin
		local v = find_npc_by_vnum(20084)
		if v != 0 then
			target.vid("__TARGET__", v, "Analiza Biologa - Zeby Orka")
		end
		send_letter("Analiza Biologa - Zeby Orka")
	end

	when button or info begin
                   say_title("Analiza Biologa - Zeby Orka")
                   say("")
                   say("Biolog Chaegirab, uczen Uriela,")
                   say("wlasnie Cie szukal. Prosze idz")
                   say("do niego i zaoferuj mu swoja pomoc")
                   say("")
	end

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

state go_to_disciple begin
	when letter begin
		send_letter("Zadanie Specjalne - Zeby Orka")

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

	when 71035.use begin --°g´bĂĤô
		if get_time() < pc.getqf("duration") then
			say("")
			say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")
			say("")
			return
		end
		if pc.getqf("drink_drug")==1 then
			say("")
			say("¤w¸g¨ĎĄÎ¤F1¦¸")
			say("")

			return
		end
		if pc.count_item(30006)==0 then
			say("Biolog Chaegirab:")
			say("Co? Nie przyniosles mi zadnych")
			say("Zebow Orka?...")
			say("")
			return
		end
		item.remove()	
		pc.setqf("drink_drug",1)
	end




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

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

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

end
end


state key_item begin
	when letter begin
		send_letter("Zadanie Specjalne - Zeby Orka")

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

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



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

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

end

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

		local v = find_npc_by_vnum(20018)
		if v != 0 then
			target.vid("__TARGET__", v, "Baek-Go")
		end

	end
	when button or info begin
		say_title("Skonczyles analize biologa!")
		---                                                   l
		say("Biolog Chaegirab wysyla Cie")
		say("po nagrode do Baek-Go!")
		say("")
	end

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

		                        local s = select("10% na Wojowników", "10% na Ninje", "10% na Sury", "10% na Szamanów")
                       if s == 1 then
				affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 10, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 10% na Wojowników")
				say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
				say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
                       elseif s == 2 then
				affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 10, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 10% na Ninje")
				say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
				say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
			elseif s == 3 then
				affect.add_collect(apply.POINT_ATTBONUS_SURA, 10, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 10% na Sury")
				say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
				say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
			elseif s == 4 then
				affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 10, 60*60*24*365*60) --60¦~	
				say_reward("Otrzymałeś bonus: 10% na Szamanów")
				say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")
				say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")
			end

		pc.give_item2(50070)
		pc.give_item2(50070)
		pc.give_item2(50070)
		pc.give_item2(50070)
		pc.give_item2(50070)
		affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) --60¦~

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

end


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

 

 

Quest 40lvl

 

----------------------------------------------------
-- Serwer Rehab
-- Quest Edit by Flexior
-- Analiza Biologa 40lv
----------------------------------------------------
quest collect_quest_lv40  begin
state start begin
end
state run begin
	when login or levelup with pc.level >= 40 and pc.level <= 90 begin
		set_state(information)
	end	
end

state information begin
	when letter begin
		local v = find_npc_by_vnum(20084)
		if v != 0 then
			target.vid("__TARGET__", v, "Analiza Biologa - Ksiegi Klatw")
		end
		send_letter("Analiza Biologa - Ksiegi Klatw")
	end

	when button or info begin
		say_title("Analiza Biologa - Ksiegi Klatw")
		say("")
		say("Biolog Chaegirab, uczen Uriela,")
		say("wlasnie Cie szukal. Prosze idz")
		say("do niego i zaoferuj mu swoja pomoc")
		say("")
	end

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

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

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

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

		item.remove()	
		pc.setqf("drink_drug",1)
	end




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

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

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

end
end


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

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

	end
	when button or info begin
		if pc.count_item(30221) >0 then
			say_title("Znalazles kamien duszy!")
			say("")
			---                                                   l
			say("Wroc do biologa, aby")
			say("odniesc mu kamien!")
			say("")
			return
		end

		say_title("Kamien Duszy")
		say("")
		---                                                   l
		say("Zebrales juz wszystkie 15 Ksiag!")
		say("Teraz, biolog potrzebuje ostatni")
		say("przedmiot, aby zakonczyc swoje badania!")
		say_item_vnum(30221)
		say("Mozesz go znalezc zabijajac ezoteryków")
		say("w Świątyni!")	
		say("")
	end




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


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

end

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

		local v = find_npc_by_vnum(20018)
		if v != 0 then
			target.vid("__TARGET__", v, "Baek-Go")
		end

	end
	when button or info begin
		say_title("Skonczyles analize biologa!")
		---                                                   l
		say("Biolog Chaegirab wysyla Cie")
		say("po nagrode do Baek-Go!")
		say("")
	end

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

		                        local s = select("15% na Wojowników", "15% na Ninje", "15% na Sury", "15% na Szamanów")
                       if s == 1 then
				affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 15, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 15% na Wojowników")
				say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
                       elseif s == 2 then
				affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 15, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 15% na Ninje")
				say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
			elseif s == 3 then
				affect.add_collect(apply.POINT_ATTBONUS_SURA, 15, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 15% na Sury")
				say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
			elseif s == 4 then
				affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 15, 60*60*24*365*60) --60¦~	
				say_reward("Otrzymałeś bonus: 15% na Szamanów")
				say_reward("Otrzymałeś bonus: 10% Szybkosci ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Królowej Pająków")
			end


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

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

end


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

 

 

Quest 50lvl

 

----------------------------------------------------
-- Serwer Rehab
-- Quest Edit by Flexior
-- Analiza Biologa 50lv
----------------------------------------------------
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("20% na Wojowników", "20% na Ninje", "20% na Sury", "20% na Szamanów")
                       if s == 1 then
				affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 20, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 20% na Wojowników")
				say_reward("Otrzymałeś bonus: +200 Obrony")
				say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")
                       elseif s == 2 then
				affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 20, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 20% na Ninje")
				say_reward("Otrzymałeś bonus: +200 Obrony")
				say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")
			elseif s == 3 then
				affect.add_collect(apply.POINT_ATTBONUS_SURA, 20, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 20% na Sury")
				say_reward("Otrzymałeś bonus: +200 Obrony")
				say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")
			elseif s == 4 then
				affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 20, 60*60*24*365*60) --60¦~	
				say_reward("Otrzymałeś bonus: 20% na Szamanów")
				say_reward("Otrzymałeś bonus: +200 Obrony")
				say_reward("Otrzymałeś 5x Szkatułkę Króla Demonów")
			end


		affect.add_collect(apply.DEF_GRADE_BONUS,200,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

 

 

Quest 60lvl

 

----------------------------------------------------
-- Serwer Rehab
-- Quest Edit by Flexior
-- Analiza Biologa 60lv
----------------------------------------------------
quest collect_quest_lv60  begin
state start begin
end
state run begin
	when login or levelup with pc.level >= 60 and pc.level <= 90 begin
		set_state(information)
	end	
end

state information begin
	when letter begin
		local v = find_npc_by_vnum(20084)
		if v != 0 then
			target.vid("__TARGET__", v, "Analiza Biologa - Matowe Lody")
		end
		send_letter("Analiza Biologa - Matowe Lody")
	end

	when button or info begin
		say_title("Analiza Biologa - Matowe Lody")
		say("")
		say("Biolog Chaegirab, uczen Uriela,")
		say("wlasnie Cie szukal. Prosze idz")
		say("do niego i zaoferuj mu swoja pomoc")
		say("")
	end

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

state go_to_disciple begin
	when letter begin
		send_letter("Zadanie Specjalne - Matowe Lody")

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

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

		item.remove()	
		pc.setqf("drink_drug",1)
	end




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

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

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

end
end


state key_item begin
	when letter begin
		send_letter("Zadanie Specjalne - Matowe Lody")

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

	end
	when button or info begin
		if pc.count_item(30223) >0 then
			say_title("Znalazles kamien duszy!")
			say("")
			---                                                   l
			say("Wroc do biologa, aby")
			say("odniesc mu kamien!")
			say("")
			return
		end

		say_title("Kamien Duszy")
		say("")
		---                                                   l
		say("Zebrales juz wszystkie 20 Lodow!")
		say("Teraz, biolog potrzebuje ostatni")
		say("przedmiot, aby zakonczyc swoje badania!")
		say_item_vnum(30223)
		say("Mozesz go znalezc zabijajac lodowe potwory")
		say("na Gorze Sohan!")	
		say("")
	end




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


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

end

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

		local v = find_npc_by_vnum(20018)
		if v != 0 then
			target.vid("__TARGET__", v, "Baek-Go")
		end

	end
	when button or info begin
		say_title("Skonczyles analize biologa!")
		---                                                   l
		say("Biolog Chaegirab wysyla Cie")
		say("po nagrode do Baek-Go!")
		say("")
	end

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

		                        local s = select("25% na Wojowników", "25% na Ninje", "25% na Sury", "25% na Szamanów")
                       if s == 1 then
				affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 25, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 25% na Wojowników")
				say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
                       elseif s == 2 then
				affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 25, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 25% na Ninje")
				say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
			elseif s == 3 then
				affect.add_collect(apply.POINT_ATTBONUS_SURA, 25, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 25% na Sury")
				say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
			elseif s == 4 then
				affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 25, 60*60*24*365*60) --60¦~	
				say_reward("Otrzymałeś bonus: 25% na Szamanów")
				say_reward("Otrzymałeś bonus: +150 Wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Dziewięciu Ogonów")
			end

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

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

end


state __complete begin
end
end

 

 

Quest 70lvl

 

----------------------------------------------------
-- Serwer Rehab
-- Quest Edit by Flexior
-- Analiza Biologa 70lv
----------------------------------------------------
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("30% na Wojowników", "30% na Ninje", "30% na Sury", "30% na Szamanów")
                       if s == 1 then
				affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 30, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 30% na Wojowników")
				say_reward("Otrzymałeś bonus: +15% na Ludzi")
				say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia")
                       elseif s == 2 then
				affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 30, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 30% na Ninje")
				say_reward("Otrzymałeś bonus: +15% na Ludzi")
				say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia")
			elseif s == 3 then
				affect.add_collect(apply.POINT_ATTBONUS_SURA, 30, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 30% na Sury")
				say_reward("Otrzymałeś bonus: +15% na Ludzi")
				say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia")
			elseif s == 4 then
				affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 30, 60*60*24*365*60) --60¦~	
				say_reward("Otrzymałeś bonus: 30% na Szamanów")
				say_reward("Otrzymałeś bonus: +15% na Ludzi")
				say_reward("Otrzymałeś 5x Szkatułkę Pustynnego Żółwia")
			end	

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

		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

 

 

Quest 80lvl

 

----------------------------------------------------
-- Serwer Rehab
-- Quest Edit by Flexior
-- Analiza Biologa 80lv
----------------------------------------------------
quest collect_quest_lv80  begin
state start begin
end
state run begin
	when login or levelup with pc.level >= 80 and pc.level <= 90 begin
		set_state(information)
	end	
end

state information begin
	when letter begin
		local v = find_npc_by_vnum(20084)
		if v != 0 then
			target.vid("__TARGET__", v, "Analiza Biologa - Certyfikaty Tugyisa")
		end
		send_letter("Analiza Biologa - Certyfikaty Tugyisa")
	end

	when button or info begin
		say_title("Analiza Biologa - Certyfikaty Tugyisa")
		say("")
		say("Biolog Chaegirab, uczen Uriela,")
		say("wlasnie Cie szukal. Prosze idz")
		say("do niego i zaoferuj mu swoja pomoc")
		say("")
	end

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

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

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

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

		item.remove()	
		pc.setqf("drink_drug",1)
	end

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


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

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

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

end
end


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

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

	end
	when button or info begin
		if pc.count_item(30225) >0 then
			say_title("Znalazles kamien duszy!")
			say("")
			---                                                   l
			say("Wroc do biologa, aby")
			say("odniesc mu kamien!")
			say("")
			return
		end

		say_title("Kamien Duszy")
		say("")
		---                                                   l
		say("Zebrales juz wszystkie 30 Certyfikatow!")
		say("Teraz, biolog potrzebuje ostatni")
		say("przedmiot, aby zakonczyc swoje badania!")
		say_item_vnum(30225)
		say("Mozesz go znalezc zabijajac potwory")
		say("na Wezowym Polu!")	
		say("")
	end




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


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

end

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

		local v = find_npc_by_vnum(20018)
		if v != 0 then
			target.vid("__TARGET__", v, "Baek-Go")
		end

	end
	when button or info begin
		say_title("Skonczyles analize biologa!")
		---                                                   l
		say("Biolog Chaegirab wysyla Cie")
		say("po nagrode do Baek-Go!")
		say("")
	end

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

		                        local s = select("35% na Wojowników", "35% na Ninje", "35% na Sury", "35% na Szamanów")
                       if s == 1 then
				affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 35, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 35% na Wojowników")
				say_reward("Otrzymałeś bonus: +20% wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
                       elseif s == 2 then
				affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 35, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 35% na Ninje")
				say_reward("Otrzymałeś bonus: +20% wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
			elseif s == 3 then
				affect.add_collect(apply.POINT_ATTBONUS_SURA, 35, 60*60*24*365*60) --60¦~
				say_reward("Otrzymałeś bonus: 35% na Sury")
				say_reward("Otrzymałeś bonus: +20% wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
			elseif s == 4 then
				affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 35, 60*60*24*365*60) --60¦~	
				say_reward("Otrzymałeś bonus: 35% na Szamanów")
				say_reward("Otrzymałeś bonus: +20% wartości Ataku")
				say_reward("Otrzymałeś 5x Szkatułkę Zjawy Żółtego Tygrysa")
			end	

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

		clear_letter()
		set_state(__complete)
	end

end


state __complete begin
end
end

 

 

Download (Wszystkie questy w paczce):

http://www.speedyshare.com/files/26979174/Analiza_Biologa_by_Flexior.rar

 

Skan:

http://www.virustotal.com/file-scan/report.html?id=8c483878fdf2ca0eac713a302c35ce184f8ec713a4d7ceaf2a19f51a40f6e922-1298220761

 

 

 

Jeśli Tobie się nie przydało to trudno, nie musisz mi dawać za to -

 

Natomiast jeśli ten quest Ci się przydał to prosiłbym o wręczenie +

 

Zakaz Kopiowania na inne fora bez mojej zgody

Kejsi Specjalista

Kejsi

Opublikowano
Specjalista

Kejsi

Opublikowano

Zawierają poprawkę napisaną przez Bambuska?

Oczywiście + i nie przejmuj się bo zaraz ktoś napisze że było i oczywiście nie da linku laugh.gif

Damdus Mentor

Damdus

Opublikowano
Mentor

Damdus

  • Autor
Opublikowano

@2UP tak posiadają

w każdym queście jest coś takiego

                        if pc.count_item(30165)==0 then
                               say("Biolog Chaegirab:")
                               say("Co? Nie przyniosles mi zadnych")
                               say("Konarow Zelkova?...")
                               say("")
                               return

 

Wątpie, że było

Szukałem i nieznalazłem

 

Jeszcze 1 ważna rzecz

Itemki oddaje się jedna po drugiej, nie ma limitu czasowego

Damdus Mentor

Damdus

Opublikowano
Mentor

Damdus

  • Autor
Opublikowano

UP

tzreba wykonywac po kolei

jeśli jednak chcesz aby było to zależne od poziomu to wystarczy w koncówkach questu usunąć coś takiego jak:

set_quest_state("collect_quest_lv40", "run")

Kastek Bywalec

Kastek

Opublikowano
Bywalec

Kastek

Opublikowano

fajne ale wielce 4fun:) a szkoda bo szukam cos na medium/hard ;/ Licze ze wkrutce pojawia sie nowe questy z twojej strony

s0vgbq.png

userbarkopiasz8.png

Damdus Mentor

Damdus

Opublikowano
Mentor

Damdus

  • Autor
Opublikowano

@UP

Ostatnio coś żadnych questów nie pisze, gdyz nie mam żadnych pomysłów

ale może zaraz coś mnie natchnie :)

ME951 Weteran

ME951

Opublikowano
Weteran

ME951

Opublikowano

zapowiada sie super;] fajne bony ;] + leci

jak Ci pomogłem daj minusa <-> gdyż mi to obojętne ale lubie czerwony kolor;]

 

gdyby moderator widział że pomogłem jakoś graczowi, proszę usuń te kilka % statusu ostrzeżeń gdyż jak nie chcący napisze niepotrzebnego posta choć się staram już tego nie robić bardzo przepraszam.

 

"to przygnębiające uczucie gdy po długim czasie wracasz z wysokim lv, profesjonalnym eq, na najlepszy spot w m2 gdzie "dawniej" ciężko było znaleść wolne miejsce a tutaj pusto i wszyscy o tym miejscu zapomnieli mimo tego że dawało ono najwięcej zabawy:( "

 

 

 

kliknij tutaj a dowiesz się wszystko o privach

Damdus Mentor

Damdus

Opublikowano
Mentor

Damdus

  • Autor
Opublikowano

@UP

Pozmieniaj po prostu po 1 linijce w questach

 

 

zamiast

pc.setqf("duration",get_time()+0*0*0)

 

Wpisz

pc.setqf("duration",get_time()+60*30)

 

i bd miał co 30min

  • 2 tygodnie później...
  • 7 miesięcy temu...
wojas666 Odkrywca

wojas666

Opublikowano
Odkrywca

wojas666

Opublikowano

mam taki problem, wgrałem qesty na server są ale jak skończe zemby orka to nie wyświetla mi się następny qest... wgrywałem każdy quest osobno komendą "./qc nazw_questa"

 

Wyjaśni mi ktoś co może być nie tak?

 

treść questa lv30:

 

 

 

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

-- Serwer Rehab

-- Quest Edit by Flexior

-- Analiza Biologa 30lv

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

quest collect_quest_lv30 begin

state start begin

when login or levelup with pc.level >= 30 and pc.level <= 90 begin

set_state(information)

end

end

 

state information begin

when letter begin

local v = find_npc_by_vnum(20084)

if v != 0 then

target.vid("__TARGET__", v, "Analiza Biologa - Zeby Orka")

end

send_letter("Analiza Biologa - Zeby Orka")

end

 

when button or info begin

say_title("Analiza Biologa - Zeby Orka")

say("")

say("Biolog Chaegirab, uczen Uriela,")

say("wlasnie Cie szukal. Prosze idz")

say("do niego i zaoferuj mu swoja pomoc")

say("")

end

 

when __TARGET__.target.click or

20084.chat."Znajdz Biologa" begin

target.delete("__TARGET__")

say("Biolog Chaegirab:")

--- l

say("Niebiosa, prosze pomozcie mi...")

say("Badam wszystkie rodzaje potworow w tym ")

say("imperium. Jest bardzo duzo rzeczy,")

say("ktore musza zostac zrobione. Nie mam")

say("czasu abym mogl sam wybrac sie na wyprawe.")

say("Prosze, pomoz mi.")

wait()

say("Aktualnie badam Zeby Orka.")

say("Musze przeprowadzic kilka eksperymentow,")

say("dlatego potrzebuje kilku Zebow Orka.")

say("Czy moglbys przyniesc mi 10 Zebow Orka?")

say("Prosze, pomoz mi! Zawsze przynos mi po jednym,")

say("abym mial czas na ich dokladne przebadanie!")

say("")

set_state(go_to_disciple)

pc.setqf("duration",0)

pc.setqf("collect_count",0)

pc.setqf("drink_drug",0)

end

end

 

state go_to_disciple begin

when letter begin

send_letter("Zadanie Specjalne - Zeby Orka")

 

end

when button or info begin

say_title("Znajdz Zeby Orka")

--- l

say("")

say("Biolog Chaegirab, uczen Uriela,")

say("szuka Zebow Orka.")

say("Zawsze przynos mu po jednym, aby mial czas")

say("na ich dokladne przebadanie.")

say("Zebow orka szukaj u Czarnych Orkow!")

say("")

say_item_vnum(30006)

say_reward("Do tej pory zebrales".." "..pc.getqf("collect_count").." Zebow Orka.")

say("")

end

 

when 71035.use begin --°g´bĂĤô

if get_time() < pc.getqf("duration") then

say("")

say("Á٤ŁĄiĄH¨ĎĄÎ°g´bĂĤô")

say("")

return

end

if pc.getqf("drink_drug")==1 then

say("")

say("¤w¸g¨ĎĄÎ¤F1¦¸")

say("")

 

return

end

if pc.count_item(30006)==0 then

say("Biolog Chaegirab:")

say("Co? Nie przyniosles mi zadnych")

say("Zebow Orka?...")

say("")

return

end

item.remove()

pc.setqf("drink_drug",1)

end

 

 

 

 

when 20084.chat."Zeby Orka" with pc.count_item(30006) >0 begin

if get_time() > pc.getqf("duration") then

say("Biolog Chaegirab:")

--- l

say("Oh!! Znalazles!")

say("Pozwol, ze rzuce okiem...")

say("Jeszcze chwilke.")

say("")

pc.remove_item("30006", 1)

pc.setqf("duration",get_time()+0*0*0)

wait()

 

local pass_percent

if pc.getqf("drink_drug")==0 then

pass_percent=70

else

pass_percent=90

end

 

local s= number(1,100)

if s<= pass_percent then

if pc.getqf("collect_count")< 9 then --10­ÓĄH¤U

local index =pc.getqf("collect_count")+1

pc.setqf("collect_count",index) --¨ú±o¤@­Ó®É +1

say("Biolog Chaegirab:")

say("Oh!! Ten Zab Orka jest doskonalej jakosci!")

say("Przynies mi jeszcze".." "..10-pc.getqf("collect_count").. " Zebow Orka.")

say("Prosze, sprobuj je znalezc!")

say("")

pc.setqf("drink_drug",0) --ĂĤôŞě©l¤Ć

return

end

say("Biolog Chaegirab:")

say("Oh, zebrales juz wszystkie?")

say("Dobra robota...")

say("Ale poczekaj!")

say("Aby zakonczyc swoja prace, potrzebuje")

say("abys przyniosl dla mnie jeszcze jeden przedmiot!")

say("")

pc.setqf("collect_count",0)

pc.setqf("drink_drug",0)

pc.setqf("duration",0)

set_state(key_item)

return

else

say("Biolog Chaegirab:")

say("Ten Zab orka jest zlej jakosci!")

say("Sprobuj przyniesc inny!")

say("Prosze, pomoz mi!")

pc.setqf("drink_drug",0) --ĂĤôŞě©l¤Ć

return

end

else

say("Biolog Chaegirab:")

say("Jeszcze nie skonczylem badac ostatniego Zebu Orka!")

say("Wroc pozniej, kiedy juz skoncze!")

say("")

return

end

 

end

end

 

 

state key_item begin

when letter begin

send_letter("Zadanie Specjalne - Zeby Orka")

 

if pc.count_item(30220)>0 then

local v = find_npc_by_vnum(20084)

if v != 0 then

target.vid("__TARGET__", v, "Analiza Biologa - Zeby Orka")

end

end

 

end

when button or info begin

if pc.count_item(30220) >0 then

say_title("Znalazles kamien duszy!")

say("")

--- l

say("Wroc do biologa, aby")

say("odniesc mu kamien!")

say("")

return

end

say_title("Kamien Duszy")

say("")

--- l

say("Zebrales juz wszystkie 10 Zebow!")

say("Teraz, biolog potrzebuje ostatni")

say("przedmiot, aby zakonczyc swoje badania!")

say_item_vnum(30220)

say("Mozesz go znalezc zabijajac orki")

say("w Dolinie Seungryong!")

say("")

end

 

 

 

when 635.kill or

636.kill or

637.kill begin

local s = number(1, 50)

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

pc.give_item2(30220, 1)

send_letter("Wroc do biologa!")

end

end

 

when __TARGET__.target.click or

20084.chat."Znalazlem Kamien Duszy" with pc.count_item(30220) > 0 begin

target.delete("__TARGET__")

say("Biolog Chaegirab:")

say("Oh, Znalazles!")

say("Bardzo Tobie dziekuje!")

say("")

say_reward("Mozesz teraz isc do Baek-Go po nagrode!")

say("")

pc.remove_item(30220,1)

set_state(__reward)

end

 

end

 

state __reward begin

when letter begin

send_letter("Analiza Biologa - Nagroda")

 

local v = find_npc_by_vnum(20018)

if v != 0 then

target.vid("__TARGET__", v, "Baek-Go")

end

 

end

when button or info begin

say_title("Skonczyles analize biologa!")

--- l

say("Biolog Chaegirab wysyla Cie")

say("po nagrode do Baek-Go!")

say("")

end

 

when __TARGET__.target.click or

20018.chat."Nagroda" begin

target.delete("__TARGET__")

say("Baek-Go:")

say("Hmm, a wiec Biolog")

say("wyslal Cie po nagrode?")

say("Zobaczmy, co tam masz...")

say("")

wait()

say_title("Wybierz rodzaj bonusu jaki chcesz otrzymać ")

 

local s = select("5% na Wojowników", "5% na Ninje", "5% na Sury", "5% na Szamanów")

if s == 1 then

affect.add_collect(apply.POINT_ATTBONUS_WARRIOR, 5, 60*60*24*365*60) --60¦~

say_reward("Otrzymałeś bonus: 10% na Wojowników")

say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")

say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")

elseif s == 2 then

affect.add_collect(apply.POINT_ATTBONUS_ASSASSIN, 5, 60*60*24*365*60) --60¦~

say_reward("Otrzymałeś bonus: 10% na Ninje")

say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")

say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")

elseif s == 3 then

affect.add_collect(apply.POINT_ATTBONUS_SURA, 5, 60*60*24*365*60) --60¦~

say_reward("Otrzymałeś bonus: 10% na Sury")

say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")

say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")

elseif s == 4 then

affect.add_collect(apply.POINT_ATTBONUS_SHAMAN, 5, 60*60*24*365*60) --60¦~

say_reward("Otrzymałeś bonus: 10% na Szamanów")

say_reward("Otrzymałeś bonus: 10% Szybkosci poruszania się ")

say_reward("Otrzymałeś 5x Szkatułkę Wodza Orków")

end

 

pc.give_item2(50070)

pc.give_item2(50070)

pc.give_item2(50070)

pc.give_item2(50070)

pc.give_item2(50070)

affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60) --60¦~

 

clear_letter()

set_quest_state("collect_quest_lv40", "run")

set_state(__complete)

end

 

end

 

 

state __giveup__ begin

when 20084.chat."Poddajesz sie?" begin

say("Biolog Chaegirab:")

say("Czy jestes pewien, ze chcesz sie poddac!?")

say("Nie bedziesz mial szansy, aby zaczac")

say("ponownie!")

end

end

state __complete begin

end

end

[/quest]

 

troszke je wyedytowałem ale po za nagrodami nic nie zmieniałem. Jak ktoś wie jak mi pomóc bardzo proszę ;D

Damdus Mentor

Damdus

Opublikowano
Mentor

Damdus

  • Autor
Opublikowano

Heh

Już nie wchodziłem do działu tworzenia prywatnych serwerów od bodajże czerwca. Nagle coś mnie tchnęło, zeby zobaczyc jakie nowości, a tu temat mój temat na 1 stronie :)

 

Więc dziękuję za +

 

@2UP

Otówrz spoiler'y

Skopiuj je i zapisz w edytorze pod rozszerzeniem .quest

Każdy osobno oczywiście

 

Musisz to niestety zrobić ręcznie, skoro link nie działa.

  • 4 tygodnie później...

Zarchiwizowany

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

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