Quest poprawa

[2StronaMT2PL]

quest biolog_lvl110 begin --level, np. biolog_lv25(LEVEL), trzeba zapisac misje pod ta sama nazwa
	state start begin
	end

	state run begin
		when login or levelup with pc.level >= 110 begin -- level
			set_state(informacja)
		end
	end

	state informacja begin
		when letter begin
			local szukaj_biologa = find_npc_by_vnum(20084)
			if szukaj_biologa != 0 then
				target.vid("__TARGET__", szukaj_biologa, "Badania Biologa")
			end
			send_letter("Badania Biologa")
		end

		when button or info begin
			say_title("Pojawiła się nowa misja u Biologa! ")
			say("")
			say("Biolog szuka Cię po całym mieście! ")
			say("Lepiej staw się u niego najszybciej ")
			say("jak to tylko możliwe. ")
			say("")
			say("Biologa możesz znaleźć w M1 każdego z królestw.")
		end

		when __TARGET__.target.click or 20084.chat."Badania Biologa" begin
			local nazwa_itemu = "Niebieska Muszla" -- nazwa przedmiotu
			local id_itemu = 29002 -- id przedmiotu
			say_title("Biolog Chaegirab: ")
			say("")
			say("Na Yon-Setaou, proszę pomóż mi..! ")
			say("Staram się przebadać wszelakie legendarne przedmioty ")
			say("znajdujące się na świecie Arkantos. Niestety, ")
			say("przedmioty te nie należą do często spotykanych, ")
			say("więc żeby je zdobyć trzeba poświęcić trochę ")
			say("czasu na zabijanie potworów przechowujących owe ")
			say("przedmioty. ")
			wait()
			say_title("Biolog Chaegirab: ")
			say("")
			say"Na obecną chwilę, mam zamiar badać "..nazwa_itemu..". ")
			say("Potrzebuję ich do przeprowadzenia kilku eksperymentów, ")
			say("które przy odpowiednich warunkach atmosferycznych ")
			say("mogą zaważyć na losach ludzkości. ")
			say("Czy mógłbyś mi przynieść 20 tego typu przedmiotów? ")
			say("Byłbym bardzo wdzięczny, gdyby udało Ci się ")
			say("zdobyć taką ilość przedmiotów. ")
			say_item_vnum(id_itemu)
			wait()
			say_title("Biolog Chaegirab: ")
			say("")
			say("Pamiętaj jednak, że nie każdy przedmiot jest ")
			say("zdatny aby przeprowadzić na nim odpowiednie ")
			say("badania. Szczerze powiedziawszy, jedynie ")
			say("około 60% przedmiotów nadaje się do badań. ")
			say("Jeżeli więc chcesz zaoszczędzić swój ")
			say("cenny czas, przynieś więcej przedmiotów ")
			say("niż jest to wymagane. ")
			wait()
			say_title("Biolog Chaegirab: ")
			say("")
			say("Zdradzę Ci jeszcze pewien sekret.. ")
			say("Posiadając specjalny Eliksir Badacza, przedmioty ")
			say("które mi przynosisz będą w 100% dobre. ")
			say("Najlepiej przynoś mi przedmioty tylko gdy ")
			say("wypiłeś wcześniej Eliksir Badacza. Wtedy ")
			say("i ja, i Ty zaoszczędzimy sporo czasu. ")
			say("Eliksir ten możesz znaleźć w ItemShop, lub ")
			say("w różnych dungeonach. ")
			say_item_vnum(150000)
			say_reward("Powodzenia! ")
			set_state(zdobywamy_przedmioty)
			pc.setqf("czas_oczekiwania",0)
			pc.setqf("oddane_przedmioty",0)
		end
	end

	state zdobywamy_przedmioty begin
		when letter begin
			send_letter("Zbierz przedmioty dla Biologa! ")
		end

		when button or info begin
			local nazwa_itemu = "Rogów Cyklopa" -- nazwa przedmiotu
			local zdobywanie_itemu = "na Pustkowiu" -- miejsce zdobycia
			local mobyy = "Cyklopów" -- nazwa mobow
			local id_itemu = 29002 -- id przedmiotu
			local oddalem = pc.getqf("oddane_przedmioty")
			say_title("Biolog szuka przedmiotów do badań! ")
			say("")
			say("Biolog Chaegirab szuka do swoich badań ")
			say("rzadkich przedmiotów. Pomóż mu, przynosząc ")
			say("20 sztuk "..nazwa_itemu..".")
			say("Możesz szukać "..nazwa_itemu.." "..zdobywanie_itemu.."")
			say("u "..mobyy)
			say("")
			say_item_vnum(id_itemu)
			say("")
			say("Oddałeś już Biologowi "..oddalem.." sztuk "..nazwa_itemu..". ")
		end

		when 150000.use begin
			local id_itemu = 29002 -- id przedmiotu

			if pc.count_item(id_itemu) == 0 then
				say("")
				say("Nie możesz użyć eliksiru gdy nie posiadasz ")
				say("ani jednego przedmiotu do badań biologa. ")
				say("")
				return
			end

			say("")
			say("Użyłeś eliksiru. Kolejny przedmiot, który oddasz")
			say("biologowi będzie w 100% dobry.")
			say("")
			pc.remove_item(150000, 1)
			pc.setqf("wypilem_eliksir", pc.getqf("wypilem_eliksir")+1)
		end

		when kill with not npc.is_pc() and npc.get_race() >= 3101 and npc.get_race() <= 3105 begin -- id mobow mid, id mobow max
			local id_itemu = 29002 -- id przedmiotu
			if math.random(25) == 1 then
				game.drop_item_with_ownership(id_itemu, math.random(3))
			end
		end

		when 20084.chat."Oddaj przedmiot biologowi" with pc.count_item(29002) >0 begin -- id przedmiotu
			local id_itemu = 29002 -- id przedmiotu
			local id_kluczowy = 30225 -- id przedmiotu kamien
			if pc.getqf("oddane_przedmioty")< 19 then
				menu_biologa(id_itemu)
			else
				say("Biolog Chaegirab:")
				say("")
				say("Oh, widzę że znalazłeś już wszystkie przedmioty! ")
				say("Wykazałeś się nie lada odwagą, ale podczas ")
				say("moich badań natknąłem się jeszcze na jeden ")
				say("mały szczegół. Mianowicie potrzebuję jeszcze ")
				say_item_vnum(id_kluczowy)
				say("Kamienia, by zakończyć swe żmudne badania. ")
				say("Możesz go zdobyć z określonych potworów, ")
				say("O których informację otrzymasz w liście. ")
				say("")
				say_reward("Powodzenia!")
				pc.setqf("oddane_przedmioty",0)
				pc.setqf("czas_oczekiwania",0) 
				set_state(kluczowy_przedmiot)
				return
			end
		end
	end

	state kluczowy_przedmiot begin
		when letter begin
			local id_kluczowy = 30225 -- id przedmiotu kamien
			send_letter("Znajdź Kamień Duszy dla Biologa")
			if pc.count_item(id_kluczowy)>0 then
				local znajdz_biologa = find_npc_by_vnum(20084)
				if znajdz_biologa != 0 then
					target.vid("__TARGET__", znajdz_biologa, "Znajdź Kamień Duszy dla Biologa")
				end
			end
		end

		when button or info begin
			local id_kluczowy = 30225 -- id przedmiotu kamien
			local info1 = "Kamień Duszy Tugyi" -- nazwa przedmiotu kamien
			local info2 = "w Dolinie wygnancow" -- miejsce zdobycia
			if pc.count_item(id_kluczowy)>0 then
				say_title("Odnalazłeś Kamień Duszy! ")
				say("")
				say("Możesz teraz wrócić do biologa,")
				say("i oddać mu zdobyty kamień. Jestem pewien, ")
				say(" że otrzymasz za to zadanie sowitą nagrodę. ")
				say("")
				return
			else
				say_title("Znajdź Kamień Duszy dla Biologa ")
				say("")
				say("Udało Ci się już zebrać odpowiednią ilość ")
				say("przedmiotów dla Biologa. Jest on Ci bardzo ")
				say("wdzięczny, lecz musisz zdobyć dla niego jeszcze ")
				say(info1)
				say("Owy kamień, możesz zdobyć zabijając przeróżne ")
				say("potwory "..info2.." !")
			end
		end

		when kill with not npc.is_pc() and npc.get_race() >= 3101 and npc.get_race() <= 3105 begin -- id mobow min, id mobow max
			local losowanie_kamien = number(1,40)
			local id_kluczowy = 30225 -- id przedmiotu kamien
			if losowanie_kamien == 1 and pc.count_item(id_kluczowy) == 0 then
				pc.give_item2(id_kluczowy, 1)
				send_letter("Znajdź Kamień Duszy dla Biologa ")
			end
		end

		when __TARGET__.target.click or 20084.chat."Oddaj Kamień Biologowi" with pc.count_item(30225) > 0 begin -- id przedmiotu kamien
			local id_kluczowy = 30225 -- id przedmiotu kamien
			target.delete("__TARGET__")
			say_title("Biolog Chaegirab: ")
			say("")
			say_green("No, no Ojciec byłby z Ciebie dumny. ")
			say("Ten kamień wygląda zjawiskowo. Cieszę się, ")
			say(" że udało Ci się go zdobyć. Teraz mogę bez problemów ")
			say("przeprowadzić swoje badania. ")
			say("Udaj się teraz do Baek-Go. Otrzymasz od niego ")
			say("nagrodę. Na pewno zrekompensuje Ci ona Twój trud. ")
			say("")
			say_reward("Jeszcze raz dziękuję za pomoc! ")
			pc.remove_item(id_kluczowy,1)
			set_state(__nagroda)
		end
	end

	state __nagroda begin
		when letter begin
			send_letter("Nagroda za badania!")
			local v = find_npc_by_vnum(20018)
			if v != 0 then
				target.vid("__TARGET__", v, "Nagroda za badania!")
			end
		end

		when button or info begin
			say_title("Nagroda za badania!")
			say("Udało Ci się oddać wszystkie 20 przedmiotów ")
			say("Biologowi! Jako rekompensatę za Twój trud, Biolog ")
			say("wysyła Cię do swojego przyjaciela - Baek-Go! ")
			say("Od niego otrzymasz zasłużoną nagrodę za czas ")
			say("poświęcony zdobywaniu przedmiotów. Znajdziesz do ")
			say("w M1 każdego z królestw. ")
			say("Powodzenia!")
		end
		
		when __TARGET__.target.click or 20018.chat."Nagroda za badania!" begin
			local b1_nazwa = "+15% Silny przeciwko Ludziom " -- nazwa bonusu
			local b1_id = 17 -- id bonusu
			local b1_wartosc = 15 -- wartosc bonusu
			local nagroda = 50117 -- id nagrod
			local nagroda1 = 72003
			local nagroda2 = 111139
			local nagroda3 = 42014
			target.delete("__TARGET__")
			say_title("Baek-Go:")
			say("Witaj, "..pc.get_name().."! ")
			say("Biolog już dał mi znać o Tobie, przybywasz ")
			say("po nagrodę, nieprawdaż? Mogę Ci dać jedną ")
			say("z jego mikstur, dzięki niej, otrzymasz bonus ")
			say("w postaci: ")
			say_reward(b1_nazwa)
			say("Za Twój ciężki trud dorzucę również coś od ")
			say("siebie. Oto przedmioty, które Ci powierzam: ")
			say_reward("- "..item_name(nagroda))
			say_reward("- "..item_name(nagroda1))
			say_reward("- "..item_name(nagroda2))
			say_reward("- "..item_name(nagroda3))
			pc.give_item2(nagroda, 6)
			pc.give_item2(nagroda1, 6)
			pc.give_item2(nagroda2, 6)
			pc.give_item2(nagroda3, 1)
			say_reward("- Yang")
			affect.add_collect(b1_id,b1_wartosc,60*60*24*365*60)
			pc.give_gold(20000000)
			clear_letter()
			set_quest_state("biolog_lvl130", "run") -- nazwa kolejnej misji
			set_state(__complete)
		end
	end

	state __complete begin
	end
end