2/6 Porzadek Bialego Lotosu ; Czworo Meznych

[smok590]

Cześć, oto druga część oraz kontynuacja questa :

 

http://www.mpcforum.pl/topic/1013980-questporzadek-bialego-lotosu-;-ksiega-ryta-questy-fabularne/

 

------------------------------------------------------
-- druga czesc fabularnego questa
-- napisane przez : smok590 z mpcforum.pl
-- Pelna Nazwa: Porzadek Bialego Lotosu; 4 mezych
------------------------------------------------------
quest porzadek_bialego_lotosu_4_meznych begin
	state start begin
		when login or levelup with pc.level >= 40 begin
			set_state(information1)
		end
	end
	state information1 begin
		when letter begin
			local v = find_npc_by_vnum(20011)
			if v != 0 then
			target.vid("__TARGET__", v, "Trzecia Strona")
			end
			send_letter("Trzecia Strona")
		end
		when button or info begin
			say_title("Trzecia Strona")
			say("")
			say("Udaj sie do Uriela")
			say("Chce on z toba porozmawiac")
			say("o zagubionej stronie")
			say("")
		end
		when __TARGET__.target.click or 20011.chat."Znajdz Uriela" begin
			target.delete("__TARGET__")
			say("Uriel:")
			say("Witaj,")
			say("Jak pewnie wiesz w pamietniku Ryta")
			say("Brakuje trzeciej i osotniej strony ")
			say("na niej znajduje sie kluczowa informacja")
			say("Podejrzewam ,ze Czarne Orki")
			say("Moga ja posiadac")
			say_red("Idz i szukaj strony u Orkow")
			set_state(information2)
		end
	end
	state information2 begin
		when letter begin
			send_letter("Trzecia Strona")
		end
		when button or info begin
			say_title("Trzecia Strona")
			say("")
			say("Zabijaj Czarne Orki by")
			say("zdobyć osotnia strone pamietnika Ryta")
			say("")
		end
		when kill with game.get_event_flag("nowy_drop")>0 begin
			local s = number(1, 1000)
			if s == 50 then
			say("Tak mam osotnia strone!")
			wait()
			say_yellow("Strona 3/3")
			say("A wiec wyruszyl...")
			say("Nie on nie wroci ")
			say("Lecz moze posle za nim")
			say("Mojego lucznika by dodal mu odwagi")
			say("w drodze do krainy Smierci")
			wait()
			say("Musi przebyc dluga droge")
			say("Przez Doline Orkow")
			say("Labirynt Hwang")
			say("oraz Wieze Demonow")
			say("Na mnie pora.")
			wait()
			say_green(""..pc.get_name()..":")
			say("Wiec nie udal sie tam sam")
			say("To interesujace")
			say("Musze o tym powiadomic Uriela")
			set_state(information3)
			end
		end
	end
	state information3 begin
		when letter begin
			local v = find_npc_by_vnum(20011)
			if v != 0 then
			target.vid("__TARGET2__", v, "Trzecia Strona")
			end
			send_letter("Trzecia Strona")
		end
		when button or info begin
			say_title("Trzecia Strona")
			say("")
			say("Udaj sie do Uriela")
			say("")
		end
		when __TARGET2__.target.click or 20011.chat."Znajdz Uriela" begin
			target.delete("__TARGET2__")
			say("Uriel:")
			say("Ahh..")
			say("Teraz wiemy ,ze nie byl sam")
			say("Ale skoro mial przy sobie doswiadczonego")
			say("lucznika ,dziwne ,ze nie wrocili zywi")
			say("Hmmm...")
			wait()
			say("Udaj sie do Doliny Orkow i poszukaj")
			say("jakis wskazowek")
			set_state(information4)
		end
	end
	state information4 begin -- tutaj musimy sobie stworzyc npc -> zatrutego lucznika -- u mnie to jest id 9801 oraz go ustalic na stale Tuz przed wejsciem do av1
		when letter begin
			send_letter("Poszukiwania")
		end
		when button or info begin
			say_title("Poszukiwania")
			say("")
			say("Przeszukaj Doline Orkow")
			say("Rozgladaj sie za lucznikiem")
			say("")
		end
		when or 20011.chat."On nie zyje" begin
			say(""..pc.get_name()..":")
			say("O nie !")
			say("On nie zyje od ")
			say("Dlugiego czasu")
			say("Ale gdzie jest cialo Arkosa ?")
			say("Hmmm...")
			wait()
			say("Musze to powiedziec Urielowi")
			set_state(information5)
		end
	end
	state information5 begin
		when letter begin
			local v = find_npc_by_vnum(20011)
			if v != 0 then
			target.vid("__TARGET2__", v, "Znalazlem Lucznika")
			end
			send_letter("Znalazlem Lucznika")
		end
		when button or info begin
			say_title("Znalazlem Lucznika")
			say("")
			say("Udaj sie do Uriela")
			say("")
		end
		when __TARGET2__.target.click or 20011.chat."Znalazlem Lucznika" begin
			target.delete("__TARGET2__")
			say("Uriel:")
			say("Nie , nie takich nowi sie spodziewalem")
			say("Ale jestes juz na tyle doswiadczony")
			say("Bym powiedzial Ci troche wiecej")
			wait()
			say("Po odjezdzie Arkosa mijaly miesiace, lata")
			say("Az stary Ryt umarl na ciezka chorobe")
			say("Tuz przed smiercia zalozyl tajne stowarzyszenie")
			say("Porzadek Bialego Lotosu")
			wait()
			say("Mial on znalesc Arkosa i")
			say("pomscic mlodzienca")
			wait()
			say("Porzadek Bialego Lotosu ")
			say("Tworzyly cztery postacie")
			wait()
			say_yellow("Stina-Potezna szamanka")
			say("zaklinajaca wszystkie zywioly")
			say("oraz wszystkie zwierzeta panujace na ziemi")
			wait()
			say_yellow("Anthony-wojownik o nieziemskiej sile")
			say("Potrafil doskonale wladac bronia")
			say("oraz wykuwac ja niczym najlepszy kowal")
			wait()
			say_yellow("Bella-Najsprytniejszy Ninja")
			say("Swego czasu byl platnym zabojca")
			say("Jednak odnalazl dobra droge w swoim zyciu")
			wait()
			say_yellow("Oraz Julietta-potezna sura")
			say("Kiedys zawarla pakt z diablem")
			say("miala dostac niesmiertelnosc")
			say("a po smierci diabel jej dusze")
			say("Jednak lezac na lozu smierci oszukala diabla")
			say("i posiadla jego moc i niesmiertelnosc")
			wait()
			say("Uriel:")
			say("Do czego zdazam")
			say("Skoro oni nie dali rady nie wysle cie")
			say("teraz ,nie jestes")
			say("wystarczajaco doswiadczony")
			say("Wybacz , gdy zdobedziesz wiecej doswiadczenia")
			say("Przyjdz i porozmawiaj")
			set_state(__complete)
		end
	end
	state __complete begin
	end
end

 

Uwaga : Jeżeli chcecie by było zachowane następstwo questów należy wykorzystać ten quest ( to jest pierwszy fabularny quest z lotosu tylko przerobiony+ 2 przerobiony")

 

 

 

------------------------------------------------------
-- pierwsza czesc fabularnego questa
-- napisane przez : smok590 z mpcforum.pl
-- Pelna Nazwa: Porzadek Bialego Lotosu; Ks Ryta
------------------------------------------------------
quest porzadek_bialego_lotosu_ks_ryta begin
	state start begin
		when login or levelup with pc.level >= 30 begin
			set_state(information1)
		end
	end
	state information1 begin
		when letter begin
			local v = find_npc_by_vnum(20355)
			if v != 0 then
			target.vid("__TARGET__", v, "Droga Zycia")
			end
			send_letter("Droga Zycia")
		end
		when button or info begin
			say_title("Droga Zycia")
			say("")
			say("Udaj sie do Uriela")
			say("ma on do opowiedzenia Ci")
			say("pewna przypowiesc")
			say("")
		end
		when __TARGET__.target.click or 20011.chat."Znajdz Uriela" begin
			target.delete("__TARGET__")
			say("Uriel:")
			say("Pewnie zastanawiasz sie ")
			say("po co Cie wezwalem")
			wait()
			say("Chodzi o pewna historie ,ktorej")
			say("zapewnie nie znasz")
			say("Gryyy , gryy -chrzaka-")
			say("Wiec")
			wait()
			say("Wszystko zaczelo sie wiele lat temu")
			say("Gdy jeszcze porzadek Bialego Lotosu")
			say("nie byl nikomu znany")
			say("Pewien mlody wojownik")
			say("O imieniu Arkos podja sie nielada wyzwania")
			say("Mial on pokonac Smierc i przezwyciezyc")
			say("Zlo panujace w krainie")
			wait()
			say("Zastanawiasz sie pewnie ,dlaczego")
			say("zwyklemu wiesniakowi powierzono")
			say("tak wazne zadanie - nieprawdaz?")
			say("Rowniez udrecza mnie to pytanie")
			say("Ostatnia osoba ,ktora go widziala")
			say("w miescie byl Beak-Go")
			say("Udaj sie do niego i zapytaj o mlodzienca")
			set_state(information2)
		end
	end
	state information2 begin
		when letter begin
			local v = find_npc_by_vnum(20018)
			if v != 0 then
			target.vid("__TARGET2__", v, "Znajdz Beak-Go")
			end
			send_letter("Znajdz Beak-Go")
		end
		when button or info begin
			say_title("Znajdz Beak-Go")
			say("")
			say("Dowiedz co sie kto i dlaczego")
			say("powiezyl tak trudne zadanie wiesniakowi")
			say("Porozmawiaj z Beak-Go")
			say("")
		end
		when __TARGET2__.target.click or 20018.chat."Jestem Beak-Go" begin
			target.delete("__TARGET2__")
			say("Beak-Go:")
			say("Czego tutaj szukasz?!")
			say("Nie paletaj sie pod nogami.")
			say("Jestem zajety")
			say(""..pc.get_name()..":")
			say("Spokojnie, przyszedlem na prosbe")
			say("Uriela")
			say("Beak-Go:")
			say("O co chodzi ?")
			wait()
			say(""..pc.get_name()..":")
			say("Chodzi o mlodzienca Arkosa")
			say("Dlaczego i kto ")
			say("Powierzyl mu tak trudne zadanie?")
			wait()
			say("Stary Kapitan powierzyl mu to zadanie")
			say("Tuz przed opuszczeniem wioski byl u mnie")
			say("i szukal rady jak walczyc ze Smiercia")
			say("Otrzymal co chcial , jednak wiecej go nie")
			say("Zobaczylem")
			wait()
			say("Beak-Go")
			say("Zapytaj Kapitana co sie stalo")
			set_state(information3)
		end
	end
	state information3 begin
		when letter begin
			local v = find_npc_by_vnum(20355)
			if v != 0 then
			target.vid("__TARGET2__", v, "Znajdz Kapitana")
			end
			send_letter("Znajdz Kapitana")
		end
		when button or info begin
			say_title("Znajdz Kapitana")
			say("")
			say("Beak-Go powiedzial ze to Kapitan")
			say("zlecil mu to zadanie.")
			say("Zapytaj go o powod .")
			say("")
		end
		when __TARGET2__.target.click or 20018.chat."Dlaczego Arkos" begin
			target.delete("__TARGET2__")
			say("Kapitan:")
			say("Witaj")
			say("Domyslam sie po co tutaj przybyles")
			say("lecz nie moge Ci pomoc")
			say("Kilka dni temu patrolowalem")
			say("obrzeza wioski ,ale ktos")
			say("mnie napadl i zabral")
			say("pamietnik mojego ojca ,w ktorym")
			say("Bylo wszystko zapisane")
			say("niestaty nie zdazylem go przestudiowac")
			wait()
			say("Mysle ,ze Jin-Hee stoi za atakiem na mnie")
			say("Idz i zabij tego zlodziejaszka!")
		end
		when 394.kill begin
			say_red(""..pc.get_name()..":")
			say("Nie przy nim nie ma zadnego notesu")
			say("kompletnie nic nie ma .")
			say("Powiem to Kapitanowi")
			set_state(information4)
		end
	end
	state information4 begin
		when __TARGET__.target.click or 20355.chat."Pomyliles sie" begin
			target.delete("__TARGET__")
			say("Kapitan:")
			say("Co ?")
			say("Nie wierze !")
			say("Skoro to nie on to kto?")
			wait()
			say(""..pc.get_name()..":")
			say("Pamietasz cos sprzed uderzenia?")
			say("Bardzo cie bolalo?")
			wait()
			say("Kapitan:")
			say("Wybacz nic nie pamietam")
			say("Poza rykiem jakiejs besti")
			say("Myslalem ,ze to Jin-Hee")
			say("Widac inne stworzenie tak ryczy")
			say("To chyba Bera , sprawdz to")
			set_state(bera)
		end
	end
	state bera begin
			when 193.kill begin
			say_red(""..pc.get_name()..":")
			say("Tak !")
			say("Jest notes lepiej go zaniose")
			say("Kapitanowi , lub")
			say("Przeczytam go teraz")
			local s = select("Czytam","Zaniose go Kapitanowi")
				if s == 1 then
					say_green("Wlasciciel: Ryt")
					say_yellow("Tresc:")
					say_yellow("Strona 1/3")
					say("Tak wiec w tym mlodziencu")
					say("jest duza sila ,lecz")
					say("musi udowodnic ,ze jest prawdziwym")
					say("nastepca cesarza smokow")
					wait()
					say_yellow("strona 2/3")
					say("Musi zabic smierc ")
					say("podejrzewam ,ze nie wroci")
					say("a ja nie moge teraz opuscic wioski")
					say("Gdy aktywnosc Gangu wzrosla")
					say("Coz ...")
					wait()
					say_yellow("-brak 3 strony-")
					say(""..pc.get_name()..":")
					say("o nie !")
					say("Co sie stalo z trzecia strona...")
					say("Poinformuje Uriela")
					set_state(__complete)
					set_quest_state("porzadek_bialego_lotosu_4_meznych", "run")
				end
			end
	end
	state __complete begin
	end
end

-- drugi

------------------------------------------------------
-- druga czesc fabularnego questa
-- napisane przez : smok590 z mpcforum.pl
-- Pelna Nazwa: Porzadek Bialego Lotosu; 4 mezych
------------------------------------------------------
quest porzadek_bialego_lotosu_4_meznych begin
	state start begin
	end
	state run begin
		when login or levelup with pc.level >= 40 begin
			set_state(information1)
		end
	end
	state information1 begin
		when letter begin
			local v = find_npc_by_vnum(20011)
			if v != 0 then
			target.vid("__TARGET__", v, "Trzecia Strona")
			end
			send_letter("Trzecia Strona")
		end
		when button or info begin
			say_title("Trzecia Strona")
			say("")
			say("Udaj sie do Uriela")
			say("Chce on z toba porozmawiac")
			say("o zagubionej stronie")
			say("")
		end
		when __TARGET__.target.click or 20011.chat."Znajdz Uriela" begin
			target.delete("__TARGET__")
			say("Uriel:")
			say("Witaj,")
			say("Jak pewnie wiesz w pamietniku Ryta")
			say("Brakuje trzeciej i osotniej strony ")
			say("na niej znajduje sie kluczowa informacja")
			say("Podejrzewam ,ze Czarne Orki")
			say("Moga ja posiadac")
			say_red("Idz i szukaj strony u Orkow")
			set_state(information2)
		end
	end
	state information2 begin
		when letter begin
			send_letter("Trzecia Strona")
		end
		when button or info begin
			say_title("Trzecia Strona")
			say("")
			say("Zabijaj Czarne Orki by")
			say("zdobyć osotnia strone pamietnika Ryta")
			say("")
		end
		when kill with game.get_event_flag("nowy_drop")>0 begin
			local s = number(1, 1000)
			if s == 50 then
			say("Tak mam osotnia strone!")
			wait()
			say_yellow("Strona 3/3")
			say("A wiec wyruszyl...")
			say("Nie on nie wroci ")
			say("Lecz moze posle za nim")
			say("Mojego lucznika by dodal mu odwagi")
			say("w drodze do krainy Smierci")
			wait()
			say("Musi przebyc dluga droge")
			say("Przez Doline Orkow")
			say("Labirynt Hwang")
			say("oraz Wieze Demonow")
			say("Na mnie pora.")
			wait()
			say_green(""..pc.get_name()..":")
			say("Wiec nie udal sie tam sam")
			say("To interesujace")
			say("Musze o tym powiadomic Uriela")
			set_state(information3)
			end
		end
	end
	state information3 begin
		when letter begin
			local v = find_npc_by_vnum(20011)
			if v != 0 then
			target.vid("__TARGET2__", v, "Trzecia Strona")
			end
			send_letter("Trzecia Strona")
		end
		when button or info begin
			say_title("Trzecia Strona")
			say("")
			say("Udaj sie do Uriela")
			say("")
		end
		when __TARGET2__.target.click or 20011.chat."Znajdz Uriela" begin
			target.delete("__TARGET2__")
			say("Uriel:")
			say("Ahh..")
			say("Teraz wiemy ,ze nie byl sam")
			say("Ale skoro mial przy sobie doswiadczonego")
			say("lucznika ,dziwne ,ze nie wrocili zywi")
			say("Hmmm...")
			wait()
			say("Udaj sie do Doliny Orkow i poszukaj")
			say("jakis wskazowek")
			set_state(information4)
		end
	end
	state information4 begin -- tutaj musimy sobie stworzyc npc -> zatrutego lucznika -- u mnie to jest id 9801 oraz go ustalic na stale Tuz przed wejsciem do av1
		when letter begin
			send_letter("Poszukiwania")
		end
		when button or info begin
			say_title("Poszukiwania")
			say("")
			say("Przeszukaj Doline Orkow")
			say("Rozgladaj sie za lucznikiem")
			say("")
		end
		when or 20011.chat."On nie zyje" begin
			say(""..pc.get_name()..":")
			say("O nie !")
			say("On nie zyje od ")
			say("Dlugiego czasu")
			say("Ale gdzie jest cialo Arkosa ?")
			say("Hmmm...")
			wait()
			say("Musze to powiedziec Urielowi")
			set_state(information5)
		end
	end
	state information5 begin
		when letter begin
			local v = find_npc_by_vnum(20011)
			if v != 0 then
			target.vid("__TARGET2__", v, "Znalazlem Lucznika")
			end
			send_letter("Znalazlem Lucznika")
		end
		when button or info begin
			say_title("Znalazlem Lucznika")
			say("")
			say("Udaj sie do Uriela")
			say("")
		end
		when __TARGET2__.target.click or 20011.chat."Znalazlem Lucznika" begin
			target.delete("__TARGET2__")
			say("Uriel:")
			say("Nie , nie takich nowi sie spodziewalem")
			say("Ale jestes juz na tyle doswiadczony")
			say("Bym powiedzial Ci troche wiecej")
			wait()
			say("Po odjezdzie Arkosa mijaly miesiace, lata")
			say("Az stary Ryt umarl na ciezka chorobe")
			say("Tuz przed smiercia zalozyl tajne stowarzyszenie")
			say("Porzadek Bialego Lotosu")
			wait()
			say("Mial on znalesc Arkosa i")
			say("pomscic mlodzienca")
			wait()
			say("Porzadek Bialego Lotosu ")
			say("Tworzyly cztery postacie")
			wait()
			say_yellow("Stina-Potezna szamanka")
			say("zaklinajaca wszystkie zywioly")
			say("oraz wszystkie zwierzeta panujace na ziemi")
			wait()
			say_yellow("Anthony-wojownik o nieziemskiej sile")
			say("Potrafil doskonale wladac bronia")
			say("oraz wykuwac ja niczym najlepszy kowal")
			wait()
			say_yellow("Bella-Najsprytniejszy Ninja")
			say("Swego czasu byl platnym zabojca")
			say("Jednak odnalazl dobra droge w swoim zyciu")
			wait()
			say_yellow("Oraz Julietta-potezna sura")
			say("Kiedys zawarla pakt z diablem")
			say("miala dostac niesmiertelnosc")
			say("a po smierci diabel jej dusze")
			say("Jednak lezac na lozu smierci oszukala diabla")
			say("i posiadla jego moc i niesmiertelnosc")
			wait()
			say("Uriel:")
			say("Do czego zdazam")
			say("Skoro oni nie dali rady nie wysle cie")
			say("teraz ,nie jestes")
			say("wystarczajaco doswiadczony")
			say("Wybacz , gdy zdobedziesz wiecej doswiadczenia")
			say("Przyjdz i porozmawiaj")
			set_state(__complete)
		end
	end
	state __complete begin
	end
end