quest devils_catacomb begin
    state start begin
		function lider()
			say_title(mob_name(9997)..":")
			say("Nie jesteś liderem grupy!")
			say("Tylko lider może ze mną rozmawiać na tym etapie misji!")
		end

		when login or levelup with pc.level >= 230 and pc.getqf("Diabelskie_Katakumby") == 0 begin
			send_letter("Diabelskie Katakumby")
			pc.setqf("Diabelskie_Katakumby", 1)
			local v = find_npc_by_vnum(30101)
			if v != 0 then
				target.vid("__Diabelskie_Katakumby__", v, "Diabelskie_Katakumby")
			end
		end

		when login or enter with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf("check") == 0 then
				devils_catacomb.czysc_timery()
				d.setf("check", 1)
			end
			if pc.get_sex() == 0 then
				d.notice(pc.get_name().." zalogował się do dungeonu Diabelskich Katakumb.")
			else
				d.notice(pc.get_name().." zalogowała się do dungeonu Diabelskich Katakumb.")
			end
		end

		when button or info begin
			say_title("Diabelskie Katakumby")
			say("Witaj,")
			say("")
			say("zapewne słyszałeś o takim miejscu jak diabelskie katakumby? ")
			say("Jeśli nie to czas je poznać. ")
			say("")
			say_reward("Udaj się do "..mob_name(30101))
		end

		when 30101.chat."Diabelskie Katakumby" with pc.get_map_index() == 65 begin
			target.delete("__Diabelskie_Katakumby__")
			clear_letter("Diabelskie Katakumby")
			local wybor = select( "Wejście", " Co to jest?", "Kim jestem?", "Przebieg Dungeonu", "Anuluj" )
			if wybor == 1 then
				if pc.get_level() >= 230 then
					say_title(mob_name(30101)..":")
					say_bursztyn(" Masz 230 poziom. " )
					say_bursztyn(" Mogę więc przenieś cię do parteru diabelskich katakumb!" )
					say_bursztyn(" Pamiętaj, żeby utworzyć tam grupę i wspólnie zabić 250 potworów.")
					say_bursztyn(" Żeby zesłać posąg ognia! ")
					say("")
					say_red(" Lecisz do diabelskich katakumb! ")
					wait()
					-- warp into!
					pc.warp(8007600,6600)
				else
					say_title(mob_name(30101)..":")
					say_red(" Aby wejść do diabelskich katakumb musisz mieć 230 poziom! ")
				end-- zaymamy drugiego ifa po else.

			elseif wybor == 2 then -- elseif od 1 ifa czyli dobrze
				say_title(mob_name(30101)..":")
				say(" Diabelskie katakumby to mapa dla graczy mających poz")
				say(" iom 230 lub większy.")
				say("  Występują tam bardzo silne potwory i nie sposób tam zginąć.")
				say("  To nie jest to samo co av. ")
				say("  Za dużo sobie pozwalasz jeśli tak myślisz. ")
				say(" ")
				say_red(" Rozumiesz chyba nie? ")
				wait()
				say_title(mob_name(30101)..":")
				say_size(300, 500)
				say("  Moby teoretycznie znane są z mapy zombie w pierścionku. ")
				say("  Jednak te są o wiele silniejsze i są ich różne odmiany. ")
				say("  Wyróżniamy takie jak:" )
				say(" ")
				say_cialo(" Moby Normalne - mają szarawy kolor i są nie zbyt silne. ")
				say_red(" Moby Zin(Złe) - mają kolor czerwony i są o wiele silniejsze niż ich koledzy.")
				say_red(" Moby Cesarskie - są bardzo silne i różnią się znacznie wyglądem od innych mobów. Bronią ważne nieumarłe osobistości takie jak:")
				say(" ")
				say_lazur("Azrael")
				say_koral("Żniwiarz.")
				say(" ")
				say_poziomka(" To wszystko. ")
			elseif wybor == 3 then -- elseif od 1 ifa czyli dobrze
				say_title(mob_name(30101)..":")
				say("  Jestem byłym bogiem zombie występujących w diabelskich katakumbach. ")
				say("  Jednak od pewnego czasu wyznają oni wiarę w nieumarłego Azraela. ")
				say("  A mnie mają gdzieś. Nawet jeśli go pokonasz on się i tak zrespi.")
				say("  Ja już zawsze będę zawsze wyrzutkiem.")
				say_bursztyn(" Wiadomo, bywa. Nie każdy ma szczęście. ")
			elseif wybor == 4 then
				local dungeon = select("Parter", "Labirynt Śmierci", "Ścieżka Śmierci", "Szept", "Krypty Zegarowe", "Pentagram Żniwiarza", "Komnata Azraela", "Anuluj")
				if dungeon == 1 then
					say_title(mob_name(30101)..":")
					say_title("Parter")
					say(" ")
					say_ametyst(" Na parterze należy utworzyć grupę.")
					say_ametyst(" Ma ona się składać z min 2 graczy.")
					say_ametyst(" Mając grupę trzeba zniszczyć posąg ognia. ")
					say_ametyst(" Można znaleźć go w dowolnym miejscu na mapie. ")
					say_ametyst(" Jeśli nie idzie go znaleźć należy zabić 250 potworów.")
					say_ametyst(" Wtedy zostanie zesłany na jakieś miejsce na mapie.")
					say(" ")
					say_ametyst(" Po zniszczeniu posągu zostaje cała grupa teleportowana na pierwsze piętro.")
					say_ametyst(" Zwie się ono Labiryntem Śmierci. ")
					say(" ")
					say_ametyst(" To wszystko. ")
				elseif dungeon == 2 then
					say_title(mob_name(30101)..":")
					say_title("Labirynt Śmierci")
					say("")
					say_brzoskwinia(" Jeśli już jesteśmy w tej części dungeona zabijamy Nieumarłego Włóczęgę. ")
					say_brzoskwinia(" Teraz zostajemy teleportowani. ")
					say_brzoskwinia(" Musimy zniszczyć wszystkie występujące tutaj potwory. ")
					say_brzoskwinia(" Nie są one trudne do zniszczenia, jednak jest ich dużo. ")
					say_brzoskwinia(" Czasem trudno je znaleźć. ")
					say_brzoskwinia(" Poruszamy się przez portale, których jest dużo. ")
					say(" ")
					say_red(" Po zniszczeniu wszystkich potworów zostajemy teleportowani na ścieżkę śmierci.")
				elseif dungeon == 3 then
					say_size(300, 350)
					say_title(mob_name(30101)..":")
					say_title("Ścieżka Śmierci")
					say(" ")
					say_bursztyn(" Na tym piętrze lider grupy musi porozmawiać z duchem wojownika. ")
					say_bursztyn(" Cała grupa otrzymuje teraz zadanie. W ciągu 10 minut musi wydropić 8 lalk Hadeko. ")
					say_bursztyn(" Na chacie ukaże się informacja o położeniu Ducha Wojownika, któremu lider oddaje lalki. ")
					say_bursztyn(" Po oddaniu lalek przez lidera wszyscy zostają teleportowani do Szeptu. ")
					say_bursztyn(" Jeśli czas się skończy cała grupa kończy podróż zostając wylogowani. ")
					say(" ")
					say_red(" Na chacie wyświetlane jest kto wydropił lalke, o którą lider może się upomnieć.")
				elseif dungeon == 4 then
					say_title(mob_name(30101)..":")
					say_title("Szept")
					say(" ")
					say_pistacja("Po teleportacji na to piętro członków grupy.")
					say_pistacja("Lider musi porozmawiać z duchem wojownika.")
					say_pistacja("Po rozmowie z nim trzeba zniszczyć 7 metinów.")
					say_pistacja("W momencie zniszczenia 7, ostatniego metina. ")
					say_pistacja("Zaczyna dość mocno atakować chorda nieumarłych. ")
					say_pistacja("Duch natomiast gdzieś się chowa i lider musi go znaleźć.")
					say(" ")
					say_red("Warto dodać, że mamy ograniczony czas do 10 minut na jego znalezienie. ")
					say_red("Po rozmowie z duchem przez lidera, grupa za 10s zostaje teleportowana na następne piętro.")
				elseif dungeon == 5 then
					say_size(300, 375)
					say_title(mob_name(30101)..":")
					say_title("Krypty Zegarowe")
					say(" ")
					say_trawa("Bedąc już na tym piętrze lider ma za zadanie porozmawiać z duchem wojownika.")
					say_trawa("Po tej czynności Duch odpowiada całej grupie za rozmowę.")
					say_trawa("Po przyjęciu rozmowy czas zaczyna się liczyć i jest ograniczony do 20 min.")
					say_trawa("W ciągu tego czasu musimy dezaktywować 6 diabelskich posągów. ")
					say_trawa("Żeby zdobyć pieczęć do dezaktywacji należy zabić Złego Nieumarłego Rzeźnika. ")
					say_trawa("Żeby jednak on się pojawił na koncie grupy musi być zabitych 200 potworów.")
					say(" ")
					say_red("Rzeźnik pojawia się w losowych miejscach. ")
					say_red("Pieczęć dostarczamy poprzez przeciągnięcie przedmiotu na posąg.")
				elseif dungeon == 6 then
					say_size(300, 375)
					say_title(mob_name(30101)..":")
					say_title("Pentagram Żniwiarza")
					say(" ")
					say_green("Tutaj pierwszą czynnością jest rozmowa lidera z duchem wojownika.")
					say_green("Po tej czynności Duch daje za zadanie zniszczenie prawidłowego metina.")
					say_green("Jest to ograniczone czasem 15 minut.")
					say_green("Po zniszczeniu odpowiedniego metina lider musi wrócić do Ducha. ")
					say_green("Teraz Duch się denerwuje i zsyła Żniwiarza z którego po zabiciu reinkarnuje się Ponury Żniwiarz.")
					say_green("Na jego zabicie mamy 15 minut i musimy się uporywać z respem innych potworów.")
					say(" ")
					say_red("Żniwiarz jest podatny na ogień i magię. ")
					say_red("Ma bardzo szybką regenerację hp.")
				elseif dungeon == 7 then
					say_title(mob_name(30101)..":")
					say_title("Komnata Krola")
					say(" ")
					say_lazur("Jest to ostatnie pietro dungeona.")
					say_lazur("W ciagu 60 minut trzeba zniszczyc Azraela.")
					say(" ")
					say_red("Azrael ma bardzo duza odpornosc na wszelkiego rodzaju bron. ")
					say_red("Ma tez bardzo szybką regenerację hp.")
				end
			end
		end

		when 3501.kill or 3502.kill or 3503.kill or 3504.kill or 3505.kill or 3506.kill or 3507.kill or 3508.kill or 3509.kill or
		3510.kill or 3511.kill or 3512.kill or 3514.kill with pc.get_map_index() == 16 and party.is_party() begin
			if party.getf('level') == 0 then
				party.setf("moby_count", party.getf("moby_count") + 1)
				chat("Twoja grupa zabiła już: " ..party.getf("moby_count").. " potworów!")
				if party.getf("moby_count") == 250 then
					party.chat("Grupa: Otrzymujecie możliwość przejścia na pierwsze pietro.")
					party.chat("Zniszczcie losowy posag ognia.")
					party.setf('level', 1)
					mob.spawn(11506, pc.get_local_x(), pc.get_local_y(), 0, 0, 1)
					notice_in_map("Posąg ognia został zesłany na pozycje " ..pc.get_local_x()..", "..pc.get_local_y()..".")
				end
			end
		end

		when 11506.kill with pc.get_map_index() == 16 and party.is_party() begin
			if party.getf('level') == 1 then
				party.chat("Niech lider zaniesie przepustke nieumarłych do Boga Zombie")
				party.chat("Jest on na końcu parteru!")
				party.setf('level', 2)
			end
		end

		when 3541.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 1 then
				game.drop_item(18088, 1)
				if pc.get_sex() == 0 then
					d.board(pc.get_name().." zabił Nieumarłego Zwiadowcę!")
					d.board("Niech da Wodną Monetę Duchowi Wojownika!")
				else
					d.board(pc.get_name().." zabiła Nieumarłego Zwiadowcę!")
					d.board("Niech da Wodną Monetę Duchowi Wojownika!")
				end
			end
		end

		when 3516.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 3 then
				if pc.get_sex() == 0 then
					d.notice(pc.get_name().." zabił Nieumarłego Rzeźnika!")
				else
					d.notice(pc.get_name().." zabiła Nieumarłego Rzeźnika!")
				end
				d.spawn_goto_mob(500, 716, 549, 46)
				d.spawn_mob(9997, 556, 45)
				d.board("[Duch Wojownika]: Portal został aktywowany, śmiało można w niego wejść!")
				d.board("[Duch Wojownika]: Prowadzi on na ścieżkę śmierci.")
				d.board("[Duch Wojownika]: Takie portale są tylko w jedną stronę!")
				d.board("[Duch Wojownika]: Dlatego radzę uważać!")
				d.setf('level', 4)
			end

			if d.getf('level') == 11 then
				game.drop_item("18090", "1")
				if pc.get_sex() == 0 then
					d.notice(pc.get_name().." zabił Złego Nieumarłego Rzeźnika!")
				else
					d.notice(pc.get_name().." zabiła Złego Nieumarłego Rzeźnika!")
				end
			end
		end

		when 3521.kill or 3522.kill or 3523.kill or 3524.kill or 3525.kill or 3526.kill or 3527.kill or 3528.kill or
		3529.kill or 3530.kill or 3531.kill or 3532.kill or 3533.kill or 3534.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 5 then
				if math.random(70) == 1 then
					if pc.get_sex() == 0 then
						d.notice(pc.get_name().." wydropił przedmiot: " ..item_name(18089))
						game.drop_item("18089", "1")
					else
						d.notice(pc.get_name().." wydropiła przedmiot: " ..item_name(18089))
						game.drop_item("18089", "1")
					end
				end
			end

			if d.getf('level') == 11 then
				d.setf('krole_count', d.getf('krole_count') + 1)
				if d.getf('krole_count') >= 200 then
					d.notice("[Duch Wojownika]: Pokonaliście 200 wrogów. ")
					d.notice("[Duch Wojownika]: Na mapie pojawił się Nieumary Rzeźnik!")
					d.setf('krole_count', 0)
					d.spawn_mob(3516, pc.get_local_x(), pc.get_local_y())
					d.board(mob_name(3516).. " został zesłany na pozycje: " ..pc.get_local_x()..", "..pc.get_local_y()..".")
				end
			end
		end

		when 8040.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 7 then
				d.setf("metin_count", d.getf("metin_count") + 1)
				if d.getf("metin_count") <= 6 then
					d.notice(" Zniszczyliście już "..d.getf("metin_count").." metinów. ")
				elseif d.getf("metin_count") >= 7 then
					d.setf('level',8)
					d.board(" [Duch Wojownika]: Zniszczyliście wszystkie metiny.")
					d.board(" [Duch Wojownika]: Zapraszam lidera grupy do mnie!")
				end
			end
		end

		when 8041.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 13 then
				d.setf('kamyczki', d.getf('kamyczki') + 1)
				if d.getf('kamyczki') >= 7 then
					d.board("Ten metin był prawidłowy!")
					d.board("Niech lider porozmawia z duchem wojownika!")
					d.setf('level', 14)
				else
					local szansa = number(1, 3)
					if szansa < 3 then
						d.notice("Ten metin nie był prawidłowy!")
					elseif szansa >= 3 then
						d.board("Ten metin był prawidłowy!")
						d.board("Niech lider porozmawia z duchem wojownika!")
						d.setf('level', 14)
					end
				end
			end
		end

		when 3519.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 15 then
				d.board("[Duch Wojownika]: Zabiliście Ponurego Żniwiarza!")
				d.board("[Duch Wojownika]: Naprawdę gratuluję.")
				d.board("[Duch Wojownika]: Jednak pozostał jeszcze Azrael.")
				d.board("[Duch Wojownika]: Niech lider ze mną porozmawia!")
				d.setf('level', 16)
				d.spawn_mob(9997, 1307, 710)
				notice_all("Grupa "..pc.get_name().." pokonała Ponurego Kosiarza.")
				server_timer('timer_6', 1, d.get_map_index())
			end
		end

		when 3518.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 18 then
				---if d.select(get_server_timer_arg()) then
				d.notice(" [Azrael]: AAAa..")
				--d.spawn_mob(9997,
				notice_all("Grupa "..pc.get_name().." pokonała Azraela.")
				notice_all("Tym samym wygrywa dungeon Diabelskich Katakumb!")
				d.notice(" [Azrael]: Jak to możliwe, że mnie zabiliście.." )
				d.board(" [Duch Wojownika]: Wygraliście dungeon Diabelskie Katakumby! ")
				d.board(" [Duch Wojownika]: Po rozmowie ze mną wyjdziecie z tej mapy. ")
				d.notice(" [Alchemik]: U mnie natomiast możecie włożyć do broni kd masakry.")
				d.notice(" [Alchemik]: Wystarczy ją na mnie przeciągnąć i mieć włożone kd ludzi.")
				d.spawn_mob(9997, 74, 1105)
				local x = pc.get_local_x()
				local y = pc.get_local_y()
				d.spawn_mob(20001, x, y)
				server_timer('timery_4', 1, d.get_map_index())
				server_timer('Koniec', 4*60, d.get_map_index())
				d.notice("Pośpieszcie się!")
				d.notice("Za 4 minuty zostaniecie wylogowani!")
				d.setf('level', 19)
			end
		end

		when 3517.kill with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 15 then
				---if d.select(get_server_timer_arg()) then
				d.board("[Duch Wojownika]: Zabiliście Żniwiarza!")
				d.board("[Duch Wojownika]: Jednak teraz musicie stawić czoła Ponuremu Żniwiarzowi. ")
			end
		end

		when 30101.chat."Labirynt Śmierci" with pc.get_map_index() == 16 begin
			if pc.get_sex() == 0 then
				say_title(mob_name(30101)..":")
				say(" Doszedłeś aż tutaj..")
			else
				say_title(mob_name(30101)..":")
				say(" Doszedłaś aż tutaj..")
			end
			say(" Pamiętaj, że musisz mieć Przepustkę Nieumarłych.")
			say_reward("Dla przypomnienia wygląda ona tak i można ją zdobyć zabijająć niebiską śmierć.")
			say_item_vnum(18086)
			say(" Czy chcesz rozpocząć misje?")
			local wybor = select(locale.yes, locale.no)
			if wybor == 1 then
				if party.getf('level') == 2 and party.is_party() and party.is_leader and pc.count_item(18086) >= 1 and party.get_near_count() >= 2 or pc.is_gm() then
					say_title(mob_name(30101)..":")
					say(" Twoja grupa i ty zostajecie teleportowani do Labiryntu Śmierci.")
					wait()
					pc.remove_item("18086", "1")
					d.join(16)
					d.spawn_mob(9997, 76, 73)
				elseif party.get_near_count() < 4 then
					say_title(mob_name(30101)..":")
					say(" Twoja grupa musi się składać z min 2 graczy!")
					say("")
					say_reward("Ps. Każdy gracz musi być online oraz stać przy liderze.")
				elseif party.getf('level') <= 2 and party.is_leader() == false then
					say_title(mob_name(30101)..":")
					say(" Nie jesteś liderem grupy!")
				elseif party.getf('level') < 2 and party.is_leader() then
					say_title(mob_name(30101)..":")
					say(" Nie jesteś na tym etapie misji!")
				elseif party.getf('level') == 2 and party.is_party() and party.is_leader() and pc.count_item(18086) < 1 then
					say_title(mob_name(30101)..":")
					say(" Nie masz Przepustki Nieumarłych!")
				end
			elseif wybor == 2 then
				say_title(mob_name(30101)..":")
				say(" Aha, widocznie chcecie sobie tutaj trochę poexpić.")
				say(" Mi to nie przeszkadza.")
			end
		end

		when 9997.chat."Dlaczego jesteśmy na parterze?" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 0 begin
			if party.is_leader() == false then
				say_title(mob_name(9997)..":")
				say("  Nie jesteś liderem grupy, nie możesz ze mną rozmawiać! ")
			elseif party.is_leader() then
				say_title(mob_name(9997)..":")
				say(" Chyba Bóg Zombie was oszukał, bo jesteście tutaj.")
				say(" Powinniście być już w labiryncie śmierci!")
				wait()
				say_title(pc.get_name()..":")
				say(" Widocznie nas oszukał.")
				say(" ")
				say(" Co mamy zrobić?")
				wait()
				say_title(mob_name(9997)..":")
				say(" Zabijcie Nieumarłego Zwiadowce i dajcie mi jego monetę!")
				say("  Jest on na kordach: 88, 113)..")
				say("  Powodzenia!")
				d.spawn_mob(3541,88,113)
				d.setf('level', 1)
				d.notice(" [Duch Wojownika]: Niech ktoś zabije Nieumarłego Zwiadowce. ")
				d.notice(" I dostarczy mi Wodną Monetę! ")
			end
		end

		when 9997.chat."Wodna Moneta" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 1 begin
			say_title(mob_name(9997)..":")
			say(" Hmm...")
			say(" ")
			say(" Masz dla mnie Wodną Monetę?")
			local mam = select(locale.yes, locale.no)
			if mam == 1 then
				if pc.count_item(18088) < 1 then
					say_title(mob_name(9997)..":")
					say(" Nie masz Wodnej Monety!")
					if pc.get_sex() == 0 then
						d.notice("[Duch Wojownika]:"..pc.get_name().." mnie oszukał!")
						d.notice("[Duch Wojownika]: Nie ma Wodnej Monety!")
					else
						d.notice("[Duch Wojownika]:"..pc.get_name().." mnie oszukała!")
						d.notice("[Duch Wojownika]: Nie ma Wodnej Monety!")
					end
				elseif pc.count_item(18088) >= 1 then
					say_title(mob_name(9997)..":")
					say(" Masz Wodną Monetę.")
					say(" Zostajecie więc przeniesieni do Labiryntu Śmierci!")
					if pc.get_sex() == 0 then
						d.notice("[Duch Wojownika]: "..pc.get_name().. " dostarczył Wodną Monetę!")
					else
						d.notice("[Duch Wojownika]: "..pc.get_name().." dostarczyła Wodną Monetę!")
					end
					d.notice(" Witamy w Labiryncie Śmierci!")
					d.jump_all(80070, 576)
					d.spawn_mob(9997,71,580)
					d.spawn_mob(3515,500,779)
					d.setf('level', 2)
				end
			elseif mam == 2 then
				say_title(mob_name(9997)..":")
				if pc.get_sex() == 0 then
					say(" To wróć jak będziesz miał ty lub ktoś z twojej grupy.")
				else
					say(" To wróć jak będziesz miała ty lub ktoś z twojej grupy.")
				end
			end
		end

		when 9997.chat."Labirynt Śmierci" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 2 begin
			if party.is_leader() then
				say_title(mob_name(9997)..":")
				say(" Musisz przejść przez labiryntowe portale tak,")
				say(" żeby dojść do otwartej komnaty i zabić tam Złego Nieumarłego Rzeźnika!")
				wait()
				say_title(mob_name(9997)..":")
				say(" Po jego zabiciu ktoś musi oznajmić to mi.")
				say(" Nie trać czasu tylko ruszaj!")
				d.board("[Duch Wojownika]: Przejdzcie przez labirynt tak, aby dostać się do Zlego Nieumarłego Rzeźnika!")
				d.setf('level', 3)
				d.regen_file("data/dungeon/devils_catacomb_8.txt")
				local positions = {
					{131, 668, 68, 807},
					{189, 711, 94, 845},
					{50, 920, 187, 566},
					{281, 636, 274, 835},
					{224, 779, 313, 860},
					{364, 893, 370, 776},
					{366, 809, 500, 729},
					{70, 669, 346, 562},
					{401, 558, 70, 577},
					{345, 554, 194, 870},
					{243, 854, 94, 846},
					{194, 862, 70, 577},
					{140, 821, 68, 807},
					{94, 839, 189, 719},
					{55, 864, 140, 815},
					{142, 865, 68, 807},
					{144, 919, 401, 565},
					{90, 948, 70, 577},
					{68, 814, 131, 661},
					{313, 853, 230, 779},
					{274, 713, 70, 665},
					{274, 841, 70, 577},
					{328, 779, 131, 661},
					{345, 554, 187, 566},
					{180, 566, 346, 562},
					{296, 567, 70, 577},
					{296, 567, 70, 577},
					{347, 839, 70, 577},
					{429, 841, 131, 661},
					{431, 935, 401, 565},
					{406, 871, 346, 562},
					{181, 667, 68, 807},
					{364, 776, 194, 869},
					{352, 717, 411, 712},
					{419, 711, 358, 718},
				}

				for i = 1, 35 do
					d.spawn_goto_mob(positions[i][1], positions[i][2], positions[i][3], positions[i][4])
				end
			else
				say_title(mob_name(9997)..":")
				devils_catacomb.lider()
			end
		end

		when 9997.chat."Co tutaj trzeba zrobić?" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 3 begin
			say_title(mob_name(9997)..":")
			say(pc.get_name().. " a po co ty tu?")
			say(" Nie wiesz co zrobić?")
			say(" ")
			say(" Wraz z grupa musisz przez portale przejść Labirynt Smierci!")
			say(" A następnie pokonać Złego Nieumarłego Rzeźnika.")
			say(" Po czym lider ma wrócić do mnie.")
		end

		when 9997.chat."Ścieżka Śmierci" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 4 begin
			if party.is_leader() then
				say_title(mob_name(9997)..":")
				say(" Teraz ci powiem co macie zrobić na tym poziomie.")
				wait()
				say_title(pc.get_name())
				say(" Więc słucham.")
				wait()
				say_title(mob_name(9997)..":")
				say(" W ciągu 15 minut.")
				say(" Musicie przebić się przez chordy zombie.")
				say(" Właściwie to zabić ich tyle aż wydropicie 8 lalk hadeko.")
				say("  Lalki należy dostarczać Byłemu Bogowi Zombie.")
				say("  Jest on na pozycji: 740, 216")
				say(" ")
				say(" To tyle, jak coś możesz do mnie wrócić i się zapytć co i jak.")
				d.setf('level', 5)
				d.board("[Duch Wojownika]: Potwory opanowały naszą ziemię!")
				d.board("[Duch Wojownika]: Brońcie się!")
				d.board("[Duch Wojownika]: Szybko dropcie lalki Hadeko!")
				d.notice(" Pozostało 15 minut! ")
				d.set_regen_file("data/dungeon/devils_catacomb_2.txt")
				d.spawn_mob(30101, 740, 216)
				server_timer('lalki', 5*60, d.get_map_index())
			elseif party.is_leader() == false then
				say_title(mob_name(9997)..":")
				say(" Nie jesteś liderem grupy!")
				say(" Mimo to upewnij się, że każdy przeszedł przez portal!")
			end
		end

		when lalki.server_timer begin
			if d.select(get_server_timer_arg()) then
			d.notice(" Pozostało 10 minut! ")
			--server_timer('lalki2', 5*60, d.get_map_index())
			server_timer('lalki2', 5*60, d.get_map_index())
			end
		end

		when lalki2.server_timer begin
			if d.select(get_server_timer_arg()) then
			d.notice(" Pozostało 5 minut! ")
			--server_timer('lalki2', 5*60, d.get_map_index())
			server_timer('lalki3', 5*60, d.get_map_index())
			end
		end

		when lalki3.server_timer begin
			if d.select(get_server_timer_arg()) then
			d.board(" Czas się skończył! ")
			d.board(" Zostajecie wylogowani! ")
			d.exit_all()
			end
		end

		when 9997.chat."Co trzeba zrobić?" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 5 begin
			say_title(mob_name(9997)..":")
			if pc.get_sex() == 0 then
				say(" Zapomniałeś co trzeba zrobić?")
			else
				say(" Zapomniałaś co trzeba zrobić?")
			end
			wait()
			say_title(pc.get_name())
			say(" Tak.")
			wait()
			say_title(mob_name(9997)..":")
			say(" W ciągu 10 minut.")
			say(" Musicie przebić się przez chordy zombie.")
			say(" Właściwie to zabić ich tyle aż wydropicie 8 lalk hadeko.")
			say("  Lalki należy dostarczyć byłemu Bogowi Zombie.")
			say("  Jest on na pozycji: 740, 217")
			say("  Jeśli nie zdążycie zostaniecie wylogowani!")
			say(" ")
			say(" To tyle, jak coś możesz do mnie wrócić i się zapytć co i jak.")
		end

		when 30101.chat."Lalki Hadeko" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 5  begin
			if not party.is_leader() then
				say_title("Bóg Zombie: ")
				say("")
				say("Aby oddać lalki musisz być liderem grupy.")
				return
			end
			say_title("Bóg Zombie: ")
			say("Czy masz dla mnie lalki, o których mówił ci duch wojownika?")
			wait()
			say_title(pc.get_name()..":")
			local mam = select( locale.yes, locale.no)
			if mam == 1 then
				if pc.count_item(18089) >= 1 then
					local ilosc = pc.count_item(18089)
					pc.remove_item("18089", ilosc)
					d.setf("lalki_count", d.getf("lalki_count") + ilosc)
					if pc.get_sex() == 0 then
						d.notice(pc.get_name().. " dostarczył lalke Hadeko w ilości "..ilosc)
					else
						d.notice(pc.get_name().. " dostarczyła lalke Hadeko w ilości "..ilosc)
					end
					say_title("Bóg Zombie:")
					say(" Dostarczyliście już " ..d.getf("lalki_count").. " lalek! ")
					if d.getf("lalki_count") >= 8 then
						server_timer('timery_1', 1, d.get_map_index())
						say_title("Bóg Zombie:")
						say(" Dostarczyliście wszystkie lalki.")
						say(" Dlatego też rozpoczyna się nowy etap misji.")
						d.purge()
						wait()
						say_title("Bóg Zombie:")
						say(" Zostajecie przeniesieni do szeptu.")
						say(" Teraz porozmawiaj z duchem wojownika.")
						say(" Zleci on ci kolejne zadanie!")
						d.setf('level', 6)
						d.jump_all(81378, 250)
						d.spawn_mob(9997, 1345, 245)
					end
				else
					say_title(" Bóg Zombie: ")
					say_red(" Dlaczego mnie oszukujesz! ")
					say_red(" Wracaj dropić lalki. ")
				end
			else
				return
			end
		end

		when 30101.chat."Liczba Lalek" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 5  begin
			say_title("Bóg Zombie:")
			say(" Liczba dostarczonych lalek to " ..d.getf("lalki_count"))
			say(" Do dostarczenia pozostało " ..8 - d.getf("lalki_count"))
		end

		when 9997.chat."Szept" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 6 begin
			if party.is_leader() then
				say_title(mob_name(9997)..":")
				say(" O.o ty już w szepcie.")
				wait()
				say_title(pc.get_name())
				say(" A widzisz :) ")
				wait()
				say_title(mob_name(9997)..":")
				say(" Macie teraz nowe zadanie.")
				say(" Tym razem będzie ono polegało na zniszczeniu.")
				say(" Siedmiu metinów, które są na tym pięrze.")
				say(" Po ich zniszczeniu wróć do mnie.")
				d.setf('level', 7)
				d.board("[Duch Wojownika]: Zniszczie siedem metinów!")
				d.board("[Duch Wojownika]: Ich pozycji nie podam.")
				d.board("[Duch Wojownika]: Nie macie na to limitu czasu.")
				local metki = {
						{1152, 149},
						{1350, 150},
						{1145, 147},
						{1147, 349},
						{1351, 345},
						{1242, 343},
						{1149, 246},
				}
				for a = 1, 7 do
					d.spawn_mob(8040, metki[a][1], metki[a][2])
				end
			elseif party.is_leader() == false then
				devils_catacomb.lider()
			end
		end

		when 9997.chat."Liczba Zniszczonych Kamieni" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 7 begin
			say_title(mob_name(9997)..":")
			say(" Liczba Zniszczonych kamini wynosi " ..d.getf("metin_count"))
			say(" Do zniszczenia pozostało: " ..7 - d.getf("metin_count"))
		end

		when 9997.chat."Co trzeba zrobić?" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 7 begin
			say_title(mob_name(9997)..":")
			say(" Musicie zniszczyć 7 kamieni metin.")
			say(" Po ich zabiciu lider grupy musi ze mną pomówić.")
		end

		when 9997.chat."Co teraz?" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 8 begin
			if party.is_leader() then
				say_title(mob_name(9997)..":")
				say(" Ty się pytasz co teraz..")
				say(" Więc ci powiem.")
				wait()
				say_title(mob_name(9997)..":")
				say(" Teraz czas na śmierć!")
				d.board("Duch Wojownika was zdradził!")
				d.board("Musicie go znaleźć w przeciągu 10 min!")
				d.notice("Inaczej zostaniecie wylogowani!")
				d.regen_file("data/dungeon/devils_catacomb_3.txt")
				server_timer('znajdz', 5, d.get_map_index())
				d.setf('level', 9)
				npc.purge()
				local duszek = {
						{1154, 152},
						{1156, 169},
						{1150, 165},
						{1152, 147},
						{1163, 142},
						{1145, 158},
						{1137, 164},
						{1148, 184},
						{1151, 202},
						{1152, 216},
						{1152, 222},
						{1149, 207},
						{1147, 195},
						{1145, 186},
						{1149, 228},
						{1152, 236},
						{1159, 244},
						{1162, 244},
						{1166, 248},
						{1152, 254},
						{1149, 256},
						{1139, 237},
						{1152, 247},
						{1158, 270},
						{1152, 276},
						{1152, 291},
						{1152, 302},
						{1152, 311},
						{1154, 331},
						{1152, 338},
						{1151, 349},
						{1151, 356},
						{1143, 355},
						{1140, 342},
						{1139, 350},
						{1158, 360},
						{1161, 356},
						{1164, 352},
						{1254, 357},
						{1255, 365},
						{1228, 357},
						{1227, 353},
						{1239, 360},
						{1251, 366},
						{1258, 355},
						{1259, 351},
						{1244, 343},
						{1241, 341},
						{1262, 345},
						{1265, 348},
						{1285, 351},
						{1319, 349},
						{1344, 349},
						{1352, 353},
						{1346, 364},
						{1341, 342},
						{1350, 340},
						{1354, 348},
						{1353, 356},
						{1249, 320},
						{1250, 312},
						{1250, 300},
						{1250, 270},
						{1242, 246},
						{1250, 257},
						{1264, 253},
						{1258, 246},
						{1241, 257},
						{1249, 241},
						{1247, 226},
						{1250, 212},
						{1248, 194},
						{1250, 178},
						{1249, 167},
						{1262, 160},
						{1271, 154},
						{1264, 144},
						{1260, 141},
						{1234, 143},
						{1234, 153},
						{1256, 164},
						{1253, 154},
						{1252, 148},
						{1250, 141},
						{1250, 135},
						{1286, 149},
						{1297, 149},
						{1313, 149},
						{1351, 149},
						{1360, 158},
						{1351, 164},
						{1345, 163},
						{1333, 142},
						{1345, 139},
						{1358, 146},
						{1361, 254},
						{1353, 255},
						{1350, 245},
						{1356, 253},
						{1322, 248},
						{1316, 248},
						{1310, 248},
						{1297, 248},
						{1287, 249},
						{1353, 357},
						{1327, 356},
						{1326, 353},
						{1310, 349},
						{1286, 350},
						{1270, 349},
						{1270, 362},
						{1249, 167},
						{1262, 160},
						{1271, 154},
						{1264, 144},
						{1260, 141},
						{1234, 143},
						{1234, 153},
						{1256, 164},
						{1253, 154},
						{1252, 148},
						{1250, 141},
						{1250, 135},
						{1286, 149},
						{1297, 149},
						{1313, 149},
						{1351, 149},
						{1360, 158},
						{1351, 164},
						{1345, 163},
						{1333, 142},
						{1345, 139},
						{1358, 146},
						{1361, 254},
						{1353, 255},
						{1350, 245},
						{1356, 253},
						{1322, 248},
						{1316, 248},
						{1310, 248},
						{1297, 248},
						{1287, 249},
						{1353, 357},
						{1327, 356},
						{1326, 353},
						{1310, 349},
						{1286, 350},
						{1270, 349},
						{1270, 362},
				}
				local m = number(1, 149)
				local b = m
				d.spawn_mob(9997, duszek[b][1], duszek[b][2])
				d.notice("Duch Wojownika jest na pozycji: " ..duszek[b][1]..", "..duszek[b][2]..".")
			elseif party.is_leader() == false then
				say_title(mob_name(9997)..":")
				devils_catacomb.lider()
			end
		end

		when znajdz.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Szukajcie Ducha Wojownika!")
				server_timer('find', 5*60, d.get_map_index())
			end
		end

		when find.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Pozostało 5 minut!")
				server_timer('find2', 5*60, d.get_map_index())
			end
		end

		when find2.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.board("Czas minął!")
				d.board("Dlatego zostajecie wylogowani!")
				d.exit_all()
			end
		end

		when 9997.chat."Znaleziony!" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 9 begin
			if party.is_leader() and d.select(get_server_timer_arg()) then
				server_timer('timery_2', 1, d.get_map_index())
				say_title(mob_name(9997)..":")
				say(" A to się nie udało... ")
				say(" Ale klapa.")
				say(" A było tak blisko")
				say(" Ehhh...")
				d.purge()
				wait()
				say_title(mob_name(9997)..":")
				say(" Otwieram portal do następnego piętra.")
				say(" Jest on na pozycji: 1380, 250 ")
				d.board("Podążajcie do portalu, aby wejść do krypt zegarowych!")
				d.spawn_goto_mob(1380, 250, 846, 902)
				d.spawn_mob(9997, 841, 896)
				d.setf('level', 10)
			elseif party.is_leader() == false then
				say_title(mob_name(9997)..":")
				say(" Nie jesteś liderem grupy!")
				say(" Lecz przekażę mu informacje o moim położeniu.")
				if pc.get_sex() == 0 then
					d.notice(pc.get_name().. " znalazł Ducha Wojownika i jest na pozycji:")
				else
					d.notice(pc.get_name().. " znalazła Ducha Wojownika i jest na pozycji:")
				end
				d.notice(pc.get_local_x()..", "..pc.get_local_y())
			else
				say_title(mob_name(9997)..":")
				say("Hahaha, myślałeś, że jak mnie znajdziesz.")
				say("To od razu przejdziesz na następne piętro?")
				say("Nie jest w życiu łatwo.")
				say("Musicie się bronić do 5 minut!")
			end
		end

		when timery_2.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Czas wyłączony!")
				clear_server_timer('find', d.get_map_index())
				clear_server_timer('find2', d.get_map_index())
			end
		end

		when timery_1.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Czas wyłączony!")
				clear_server_timer('lalki', d.get_map_index())
				clear_server_timer('lalki2', d.get_map_index())
				clear_server_timer('lalki3', d.get_map_index())
			end
		end

		when 9997.chat."Krypty Zegarowe" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 10 begin
			if party.is_leader() then --and d.select(get_server_timer_arg()) then
				say_title(mob_name(9997)..":")
				say("Jesteście już na tym piętrze.")
				say("Szacun.")
				say("")
				say("Tym razem mam dla was specjalne zadanie.")
				say("W ciągu 20 minut musicie dezaktywować 7 Obelisków Żniwiarza")
				wait()
				say_title(mob_name(9997)..":")
				say("Jednak, żeby dezaktywować należy wykonać kilka czynności.")
				say("")
				say("Najpierw trzeba zabić 200 potworów, żeby na mapie pojawił się Nieumarły Rzeźnik.")
				say("Na mapie jest 7 Obelisków, wiec musisz zabic 7 Rzeźników.")
				say("Kiedy go zabijesz wyleci z niego: " ..item_name(18090))
				wait()
				say_title(mob_name(9997)..":")
				say("Po dezaktywacji wszystkich Obelisków.")
				say("Zostaniecie teleportowani na nastepne pietro.")
				say("Przypominam o czasie 20 min!")
				server_timer('zabic', 10, d.get_map_index())
				d.board("[Duch Wojownika]: W ciagu 20 minut!")
				d.board("[Duch Wojownika]: Dezaktywujcie wszystkie Obeliski!")
				d.setf('level', 11)
				d.set_regen_file("data/dungeon/devils_catacomb_5.txt")
				npc.purge()
				local obeliski = {
						{708, 812},
						{845, 868},
						{717, 656},
						{847, 585},
						{1002, 651},
						{983, 855},
						{983, 835},
						{849, 755},
				}
				for a = 1, 7 do
					d.spawn_mob(30102, obeliski[a][1], obeliski[a][2])
				end
			else
				devils_catacomb.lider()
			end
		end

		when zabic.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Pozostało 20 minut!")
				server_timer('zabic2', 5*60, d.get_map_index())
			end
		end

		when zabic2.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Pozostało 15 minut!")
				server_timer('zabic3', 5*60, d.get_map_index())
			end
		end

		when zabic3.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Pozostało 10 minut!")
				server_timer('zabic4', 5*60, d.get_map_index())
			end
		end

		when zabic4.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.board("Pozostało 5 minut!")
				d.notice(" Śpieszcie się! ")
				server_timer('zabic5', 5*60, d.get_map_index())
			end
		end

		when zabic5.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.board("Niestety nie udało się! ")
				d.board("Zostajecie wylogowani!")
				d.exit_all()
			end
		end

		when 30102.take with item.vnum == 18090 and pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if d.getf('level') == 11 then
				d.setf("stone_count", d.getf("stone_count") + 1)
				npc.purge()
				item.remove()
				if d.getf("stone_count") >= 7 then --and d.select(get_server_timer_arg()) then
					server_timer('timer1_5', 1, d.get_map_index())
					server_timer('pentagram', 5, d.get_map_index())
					d.setf("level", 12)
					d.board("Oddaliście wszystkie pieczęcie.")
					d.board("Zaraz zostaniecie przeniesieni do Pentagramu Zagłady.")
				else
					d.notice(" Otwarliście już "..d.getf("stone_count").." magicznych pieczeci. Musicie otworzyć siedem. ")
				end
			end
		end

		when timer1_5.server_timer begin
			if d.select(get_server_timer_arg()) then
				clear_server_timer('zabic', d.get_map_index())
				clear_server_timer('zabic2', d.get_map_index())
				clear_server_timer('zabic3', d.get_map_index())
				clear_server_timer('zabic4', d.get_map_index())
				clear_server_timer('zabic5', d.get_map_index())
				d.notice("Czas wyłączony!")
				d.purge()
			end
		end

		when pentagram.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.jump_all(81307, 704)
				d.spawn_mob(9997,1305,739)
				d.board(" [Duch Wojownika]: Witam w Pentagramie Zagłady. ")
				d.board(" [Duch Wojownika]: Gratuluję, że aż tutaj dotarliście. ")
				d.board(" [Duch Wojownika]: Mam teraz nowe zadanie. ")
				d.notice(" [Duch Wojownika]: Zapraszam do mnie lidera grupy. ")
			end
		end

		when 9997.chat."Pentagram Zagłady" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 12 begin
			if party.is_leader() then ---and d.select(get_server_timer_arg()) then
				say_title(mob_name(9997)..":")
				say("Naprawdę przerastacie moje wyobrażenia.")
				say("Tyle już przeszliście, a nadal żyjecie.")
				say("")
				say("Tym razem może się to zmienić.")
				say("Mam dla was typowe zadanie.")
				wait()
				say_title(mob_name(9997)..":")
				say("Musicie zniszczyć prawidłowy kamień metin z siedmiu.")
				say("")
				say("Następnie lider masz ze mną pomówić.")
				say("Dodam, że macie na to 20 minut!")
				d.board("[Duch Wojownika]: W ciągu 20 minut zniszczcie prawidłowy kamień metin!")
				d.board("[Duch Wojownika]: Śpieszcie się!")
				d.notice("Nie bijcie wszystkich metinów naraz, gdyż nie pokonacie wszystkich potworów!")
				d.notice("A są one silne.")
				d.notice("Pozostało 20 minut!")
				d.setf('level', 13)
				server_timer('stony', 5*60, d.get_map_index())
				d.notice("Metiny Zrzucone!")
				local positions = {
						{1274, 685},
						{1278, 721},
						{1306, 608},
						{1327, 723},
						{1332, 689},
						{1303, 664},
						{1305, 720},
						{1303, 692},
						{1300, 705},
				}
				for metki = 1, 9 do
					d.spawn_mob(8041, positions[metki][1], positions[metki][2])
				end
			else
				say_title(mob_name(9997)..":")
				say("Nie jesteś liderem grupy!")
				say("Tylko on może ze mną rozmawiać.")
			end
		end

		when stony.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Pozostało 15 minut!")
				server_timer('stony2', 5*60, d.get_map_index())
			end
		end

		when stony2.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Pozostało 10 minut!")
				server_timer('stony3', 5*60, d.get_map_index())
			end
		end

		when stony3.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Pozostało 5 minut!")
				server_timer('stony4', 5*60, d.get_map_index())
			end
		end

		when stony4.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.board("Czas się skończył!")
				d.board("Dlatego zostajecie wylogowani!")
				d.exit_all()
			end
		end

		when timery_3.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Czas wyłączony!")
				clear_server_timer('stony', d.get_map_index())
				clear_server_timer('stony2', d.get_map_index())
				clear_server_timer('stony3', d.get_map_index())
				clear_server_timer('stony4', d.get_map_index())
			end
		end

		when 9997.chat."Co trzeba zrobić?" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 13 begin
			say_title(mob_name(9997)..":")
			say("W tym momencie musicie zrobić następujące rzeczy:")
			say("")
			say("Musicie zniszczyć prawidłowy kamień metin z siedmiu.")
			say("Następnie lider masz ze mną pomówić.")
			say("Dodam, że macie na to 20 minut!")
		end

		when 9997.chat."Skończysz?" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 14 begin
			if party.is_leader() then ---and d.select(get_server_timer_arg()) then
				say_title(mob_name(9997)..":")
				server_timer('timery_3', 1, d.get_map_index())
				say("Żal. Nawet metkom daliście rady.")
				say("Nie mówię, że wygraliście.")
				wait()
				say_title(mob_name(9997)..":")
				say("Zobaczymy, czy dacie radę pokonać Ponurego Żniwiarza!.")
				say("Oczywiście on sam nie walczy.")
				if pc.get_sex() == 0 then
					say("Będziesz miał nieskończoną ilość czasu.")
				else
					say("Będziesz miała nieskończoną ilość czasu.")
				end
				say("Żniwiarz natomiast kolegów do pomocy.")
				wait()
				say_title(mob_name(9997)..":")
				say("Czas start!")
				d.board("[Duch Wojownika]: Czas z wami skończyć!")
				d.board("[Duch Wojownika]: Nadchodzi Żniwiarz!")
				d.set_regen_file("data/dungeon/devils_catacomb_6.txt")
				d.spawn_mob(3517, 1304, 705)
				d.setf('level', 15)
			else
				devils_catacomb.lider()
			end
		end

		when timer_6.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Czas rzezi minął! ")
			end
		end

		when 9997.chat."Komnata Króla" with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 16 begin
			if party.is_leader() then ---and d.select(get_server_timer_arg()) then
				say_title(mob_name(9997)..":")
				say("Zniszczyliście Ponurego Żniwiarza.")
				say("To naprawdę czyn godny poszanowania!")
				say("Mimo, że cię zdradziłem, teraz zwracam honor.")
				say("")
				say("Dlatego przenoszę was do komnaty króla!")
				wait()
				say_title(mob_name(9997)..":")
				say("Teraz zniszcie Azraela!")
				d.jump_all(80057, 1145)
				d.spawn_mob(3518, 74, 1105)
				d.set_regen_file("data/dungeon/devils_catacomb_7.txt")
				d.board("[Duch Wojownika]: Witam w komnacie króla.")
				d.board("[Duch Wojownika]: Macie teraz bardzo trudne zadanie.")
				d.board("[Duch Wojownika]: Musicie w ciągu 60 minut zabić Azraela.")
				d.notice("[Duch Wojownika]: Jeśli to wam się nie uda, zostaniecie wylogowani.")
				d.notice("[Duch Wojownika]: My już więcej się nie zobaczymy.")
				d.notice("[Duch Wojownika]: Jak już to w v10.")
				d.notice("[Duch Wojownika]: Czas start!")
				d.setf('level', 18)
				server_timer('Azrael1', 20*60, d.get_map_index())
				d.notice("Pozostało 60 minut!")
			else
				devils_catacomb.lider()
			end
		end

		when Azrael1.server_timer begin
			if d.select(get_server_timer_arg()) then
				server_timer('Azrael2', 20*60, d.get_map_index())
				d.notice("Pozostało 40 minut!")
			end
		end
		when Azrael2.server_timer begin
			if d.select(get_server_timer_arg()) then
				server_timer('Azrael3', 20*60, d.get_map_index())
				d.board("Pozostało 20 minut!")
			end
		end
		when Azrael3.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Czas się skończył.")
				d.board("Dlatego zostajecie wylogowani.")
				d.purge()
				d.exit_all()
			end
		end
		when timery_4.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Czas wyłączony!")
				clear_server_timer('Azrael1', d.get_map_index())
				clear_server_timer('Azrael2', d.get_map_index())
				clear_server_timer('Azrael3', d.get_map_index())
			end
		end

		when 9997.chat."Wyjdź " with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 19 begin --- 14 begin
			say_title(mob_name(9997)..":")
			say("Teraz to masz się czym chwalić.")
			say("Oczywiście ty i twoja drużyna wygraliście.")
			say("")
			say("Czy chcesz opuścić Diabelskie Katakumby?")
			local wybor = select(locale.yes, locale.no)
			if wybor == 1 then
				say_title(mob_name(9997)..":")
				if pc.get_sex() == 0 then
					say("Zostaniesz przeniesiony do miasta.")
				else
					say("Zostaniesz przeniesiona do miasta.")
				end
				warp_to_village()
			elseif wybor == 2 then
				say_title(mob_name(9997)..":")
				say("Jak chcesz!")
			end
		end

		when Koniec.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("4 min minęły.")
				d.board("Dlatego zostajecie wylogowani.")
				d.purge()
				d.exit_all()
			end
		end

		function czysc_timery()
			clear_server_timer('Azrael1', d.get_map_index())
			clear_server_timer('Azrael2', d.get_map_index())
			clear_server_timer('Azrael3', d.get_map_index())
			clear_server_timer('spawnuj', d.get_map_index())
			clear_server_timer('stony', d.get_map_index())
			clear_server_timer('stony2', d.get_map_index())
			clear_server_timer('zabic', d.get_map_index())
			clear_server_timer('zabic2', d.get_map_index())
			clear_server_timer('zabic3', d.get_map_index())
			clear_server_timer('zabic4', d.get_map_index())
			clear_server_timer('zabic5', d.get_map_index())
			clear_server_timer('lalki', d.get_map_index())
			clear_server_timer('lalki2', d.get_map_index())
			clear_server_timer('find', d.get_map_index())
			clear_server_timer('find2', d.get_map_index())
			clear_server_timer('Azrael', d.get_map_index())
			clear_server_timer('timery_1', d.get_map_index())
			clear_server_timer('timery_2', d.get_map_index())
			clear_server_timer('timery_3', d.get_map_index())
			clear_server_timer('timery_4', d.get_map_index())
			clear_server_timer('timery_5', d.get_map_index())
			clear_server_timer('timery_6', d.get_map_index())
		end

		when logout with pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 begin
			if pc.get_sex() == 0 then
				d.notice(pc.get_name().." się wylogował z dungeonu Diabelskich Katakumb!")
			else
				d.exit()
				d.notice(pc.get_name().." się wylogowała z dungeonu Diabelskich Katakumb!")
			end
		end

		when 20001.chat."Włożenie Kd Masakry" with item.get_type() == 1 and item.get_subtype() != 6 and pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 19 begin
			say_title(mob_name(npc.race)..":")
			say("Witaj "..pc.get_name()..",")
			say(" U mnie możesz do broni włożyć kd masakry.")
			say(" Oczywiście sam też możesz.")
			say(" Jednak u mnie możesz zrobić broń taką,")
			say(" że oprócz kd ludzi ma kd masakry.")
			say(" Wystarczy przeciągnąć na mnie broń,")
			say(" do której chcesz włożyć kd masakry.")
			say(" Warunkiem jest wbite kd ludzi.")
			say("")
			say_reward("Aby wbić do broni kd masakry, przeciągnij broń na alchemika.")
		end

		when 20001.take with item.get_type() == 1 and pc.in_dungeon() and pc.get_map_index() >= 160000 and pc.get_map_index() < 170000 and d.getf('level') == 19 or pc.is_gm() begin
			say_title(mob_name(npc.race)..":")
			say("Witaj "..pc.get_name()..",")
			say("jeśli w broni jest kd ludzi, ")
			say("możesz do niej włożyć też kd masakry.")
			say("")
			say_reward("Czy chcesz do swojej broni włożyć kd masakry?")
			local kd = select("Tak", "Nie")
			if kd == 1 then
				say_title(mob_name(npc.race)..":")
				say("A więc tak..")
				say("")
				say_reward("Na jaki slot chcesz włożyć kd masakry?")
				local slot = select("Pierwszy", "Drugi", "Trzeci", "Anuluj")
				if slot == 1 then
					say_title(mob_name(npc.race)..":")
					say("")
					if item.get_socket(0) < 5000 then
						say("W tym slocie nie ma włożonego żadnego kd.")
						if item.get_socket(0) >= 28969 and item.get_socket(0) <= 28974 or item.get_socket(1) >= 28969 and item.get_socket(1) <= 28974 or item.get_socket(2) >= 28969 and item.get_socket(2) <= 28974 then
							say("W broni jest już kd masakry!")
							say("Kogo ty chcesz oszukać?")
							say("Hmm...")
						else
							if item.get_socket(1) == 28955 or item.get_socket(1) >= 28964 and item.get_socket(1) <= 28968 then
								say("W drugim slocie jest jednak włożone "..item_name(item.get_socket(1))..".")
								say_item_vnum(item.get_socket(1))
								wait()
								say_title(mob_name(npc.race)..":")
								say_reward("Wybierz więc jakie kd chcesz włożyć:")
								local wybierzkd = select(item_name(28969), item_name(28970), item_name(28971), item_name(28972), item_name(28973), item_name(28974), "Anuluj")
								if wybierzkd == 1 then
									if pc.count_item(28969) >= 1 then
										item.set_socket(0, 28969)
										pc.remove_item("28969", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28969)..".")
										say_item_vnum(28969)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 2 then
									if pc.count_item(28970) >= 1 then
										item.set_socket(0, 28970)
										pc.remove_item("28970", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28970)..".")
										say_item_vnum(28970)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 3 then
									if pc.count_item(28971) >= 1 then
										item.set_socket(0, 28971)
										pc.remove_item("28971", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28971)..".")
										say_item_vnum(28971)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 4 then
									if pc.count_item(28972) >= 1 then
										item.set_socket(0, 28972)
										pc.remove_item("28972", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28972)..".")
										say_item_vnum(28972)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 5 then
									if pc.count_item(28973) >= 1 then
										item.set_socket(0, 28973)
										pc.remove_item("28973", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28973)..".")
										say_item_vnum(28973)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 6 then
									if pc.count_item(28974) >= 1 then
										item.set_socket(0, 28974)
										pc.remove_item("28974", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28974)..".")
										say_item_vnum(28974)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								else
									return
								end
							elseif item.get_socket(2) == 28955 or item.get_socket(2) >= 28964 and item.get_socket(2) <= 28968 then
								say("W trzecim slocie jest jednak włożone "..item_name(item.get_socket(2))..".")
								say_item_vnum(item.get_socket(2))
								wait()
								say_title(mob_name(npc.race)..":")
								say_reward("Wybierz więc jakie kd chcesz włożyć:")
								local wybierzkd = select(item_name(28969), item_name(28970), item_name(28971), item_name(28972), item_name(28973), item_name(28974), "Anuluj")
								if wybierzkd == 1 then
									if pc.count_item(28969) >= 1 then
										item.set_socket(0, 28969)
										pc.remove_item("28969", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28969)..".")
										say_item_vnum(28969)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 2 then
									if pc.count_item(28970) >= 1 then
										item.set_socket(0, 28970)
										pc.remove_item("28970", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28970)..".")
										say_item_vnum(28970)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 3 then
									if pc.count_item(28971) >= 1 then
										item.set_socket(0, 28971)
										pc.remove_item("28971", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28971)..".")
										say_item_vnum(28971)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 4 then
									if pc.count_item(28972) >= 1 then
										item.set_socket(0, 28972)
										pc.remove_item("28972", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28972)..".")
										say_item_vnum(28972)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 5 then
									if pc.count_item(28973) >= 1 then
										item.set_socket(0, 28973)
										pc.remove_item("28973", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28973)..".")
										say_item_vnum(28973)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 6 then
									if pc.count_item(28974) >= 1 then
										item.set_socket(0, 28974)
										pc.remove_item("28974", 1)
										say_title(mob_name(npc.race)..":")
										say("Do pierwszego slota zostało włożone "..item_name(28974)..".")
										say_item_vnum(28974)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								else
									return
								end
							else
								say("")
								say_reward("W żadnym slocie nie ma kd ludzi!")
							end
						end
					else
						say("W tym slocie jest już kd.")
						say("Tutaj już nie można włożyć żadnego kd.")
					end
				elseif slot == 2 then
					say_title(mob_name(npc.race)..":")
					say("")
					if item.get_socket(1) < 5000 then
						say("W tym slocie nie ma włożonego żadnego kd.")
						if item.get_socket(0) >= 28969 and item.get_socket(0) <= 28974 or item.get_socket(1) >= 28969 and item.get_socket(1) <= 28974 or item.get_socket(2) >= 28969 and item.get_socket(2) <= 28974 then
							say("W broni jest już kd masakry!")
							say("Kogo ty chcesz oszukać?")
							say("Hmm...")
						else
							if item.get_socket(0) == 28955 or item.get_socket(0) >= 28964 and item.get_socket(0) <= 28968 then
								say("W pierwszym slocie jest jednak włożone "..item_name(item.get_socket(0))..".")
								say_item_vnum(item.get_socket(0))
								wait()
								say_title(mob_name(npc.race)..":")
								say_reward("Wybierz więc jakie kd chcesz włożyć:")
								local wybierzkd = select(item_name(28969), item_name(28970), item_name(28971), item_name(28972), item_name(28973), item_name(28974), "Anuluj")
								if wybierzkd == 1 then
									if pc.count_item(28969) >= 1 then
										item.set_socket(1, 28969)
										pc.remove_item("28969", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28969)..".")
										say_item_vnum(28969)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 2 then
									if pc.count_item(28970) >= 1 then
										item.set_socket(1, 28970)
										pc.remove_item("28970", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28970)..".")
										say_item_vnum(28970)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 3 then
									if pc.count_item(28971) >= 1 then
										item.set_socket(1, 28971)
										pc.remove_item("28971", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28971)..".")
										say_item_vnum(28971)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 4 then
									if pc.count_item(28972) >= 1 then
										item.set_socket(1, 28972)
										pc.remove_item("28972", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28972)..".")
										say_item_vnum(28972)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 5 then
									if pc.count_item(28973) >= 1 then
										item.set_socket(1, 28973)
										pc.remove_item("28973", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28973)..".")
										say_item_vnum(28973)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 6 then
									if pc.count_item(28974) >= 1 then
										item.set_socket(1, 28974)
										pc.remove_item("28974", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28974)..".")
										say_item_vnum(28974)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								else
									return
								end
							elseif item.get_socket(2) == 28955 or item.get_socket(2) >= 28964 and item.get_socket(2) <= 28968 then
								say("W trzecim slocie jest jednak włożone "..item_name(item.get_socket(2))..".")
								say_item_vnum(item.get_socket(2))
								wait()
								say_title(mob_name(npc.race)..":")
								say_reward("Wybierz więc jakie kd chcesz włożyć:")
								local wybierzkd = select(item_name(28969), item_name(28970), item_name(28971), item_name(28972), item_name(28973), item_name(28974), "Anuluj")
								if wybierzkd == 1 then
									if pc.count_item(28969) >= 1 then
										item.set_socket(1, 28969)
										pc.remove_item("28969", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28969)..".")
										say_item_vnum(28969)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 2 then
									if pc.count_item(28970) >= 1 then
										item.set_socket(1, 28970)
										pc.remove_item("28970", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28970)..".")
										say_item_vnum(28970)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 3 then
									if pc.count_item(28971) >= 1 then
										item.set_socket(1, 28971)
										pc.remove_item("28971", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28971)..".")
										say_item_vnum(28971)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 4 then
									if pc.count_item(28972) >= 1 then
										item.set_socket(1, 28972)
										pc.remove_item("28972", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28972)..".")
										say_item_vnum(28972)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 5 then
									if pc.count_item(28973) >= 1 then
										item.set_socket(1, 28973)
										pc.remove_item("28973", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28973)..".")
										say_item_vnum(28973)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 6 then
									if pc.count_item(28974) >= 1 then
										item.set_socket(1, 28974)
										pc.remove_item("28974", 1)
										say_title(mob_name(npc.race)..":")
										say("Do drugiego slota zostało włożone "..item_name(28974)..".")
										say_item_vnum(28974)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								else
									return
								end
							else
								say("")
								say_reward("W żadnym slocie nie ma kd ludzi!")
							end
						end
					else
						say("W tym slocie jest już kd.")
						say("Tutaj już nie można włożyć żadnego kd.")
					end
				elseif slot == 3 then
					say_title(mob_name(npc.race)..":")
					say("")
					if item.get_socket(2) < 5000 then
						say("W tym slocie nie ma włożonego żadnego kd.")
						if item.get_socket(0) >= 28969 and item.get_socket(0) <= 28974 or item.get_socket(1) >= 28969 and item.get_socket(1) <= 28974 or item.get_socket(2) >= 28969 and item.get_socket(2) <= 28974 then
							say("W broni jest już kd masakry!")
							say("Kogo ty chcesz oszukać?")
							say("Hmm...")
						else
							if item.get_socket(0) == 28955 or item.get_socket(0) >= 28964 and item.get_socket(0) <= 28968 then
								say("W pierwszym slocie jest jednak włożone "..item_name(item.get_socket(0))..".")
								say_item_vnum(item.get_socket(0))
								wait()
								say_title(mob_name(npc.race)..":")
								say_reward("Wybierz więc jakie kd chcesz włożyć:")
								local wybierzkd = select(item_name(28969), item_name(28970), item_name(28971), item_name(28972), item_name(28973), item_name(28974), "Anuluj")
								if wybierzkd == 1 then
									if pc.count_item(28969) >= 1 then
										item.set_socket(2, 28969)
										pc.remove_item("28969", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28969)..".")
										say_item_vnum(28969)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 2 then
									if pc.count_item(28970) >= 1 then
										item.set_socket(2, 28970)
										pc.remove_item("28970", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28970)..".")
										say_item_vnum(28970)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 3 then
									if pc.count_item(28971) >= 1 then
										item.set_socket(2, 28971)
										pc.remove_item("28971", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28971)..".")
										say_item_vnum(28971)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 4 then
									if pc.count_item(28972) >= 1 then
										item.set_socket(2, 28972)
										pc.remove_item("28972", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28972)..".")
										say_item_vnum(28972)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 5 then
									if pc.count_item(28973) >= 1 then
										item.set_socket(2, 28973)
										pc.remove_item("28973", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28973)..".")
										say_item_vnum(28973)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 6 then
									if pc.count_item(28974) >= 1 then
										item.set_socket(2, 28974)
										pc.remove_item("28974", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28974)..".")
										say_item_vnum(28974)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								else
									return
								end
							elseif item.get_socket(1) == 28955 or item.get_socket(1) >= 28964 and item.get_socket(1) <= 28968 then
								say("W trzecim slocie jest jednak włożone "..item_name(item.get_socket(1))..".")
								say_item_vnum(item.get_socket(1))
								wait()
								say_title(mob_name(npc.race)..":")
								say_reward("Wybierz więc jakie kd chcesz włożyć:")
								local wybierzkd = select(item_name(28969), item_name(28970), item_name(28971), item_name(28972), item_name(28973), item_name(28974), "Anuluj")
								if wybierzkd == 1 then
									if pc.count_item(28969) >= 1 then
										item.set_socket(2, 28969)
										pc.remove_item("28969", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28969)..".")
										say_item_vnum(28969)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 2 then
									if pc.count_item(28970) >= 1 then
										item.set_socket(2, 28970)
										pc.remove_item("28970", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28970)..".")
										say_item_vnum(28970)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 3 then
									if pc.count_item(28971) >= 1 then
										item.set_socket(2, 28971)
										pc.remove_item("28971", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28971)..".")
										say_item_vnum(28971)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 4 then
									if pc.count_item(28972) >= 1 then
										item.set_socket(2, 28972)
										pc.remove_item("28972", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28972)..".")
										say_item_vnum(28972)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 5 then
									if pc.count_item(28973) >= 1 then
										item.set_socket(2, 28973)
										pc.remove_item("28973", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28973)..".")
										say_item_vnum(28973)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								elseif wybierzkd == 6 then
									if pc.count_item(28974) >= 1 then
										item.set_socket(2, 28974)
										pc.remove_item("28974", 1)
										say_title(mob_name(npc.race)..":")
										say("Do trzeciego slota zostało włożone "..item_name(28974)..".")
										say_item_vnum(28974)
									else
										say_title(mob_name(npc.race)..":")
										say("Nie posiadasz tego kd!")
									end
								else
									return
								end
							else
								say("")
								say_reward("W żadnym slocie nie ma kd ludzi!")
							end
						end
					else
						say("W tym slocie jest już kd.")
						say("Tutaj już nie można włożyć żadnego kd.")
					end
				else
					return
				end
			else
				return
			end
		end
	end-- state
end-- quest