Devil's Catacomb

BooMeKK · 13 Marca 2014

W Pełni Sprawnych I Działających Catacomb !!

Dam Limit +++ !!!

Dzięki

Phoenix. · 13 Marca 2014

quest dc begin
	state start begin
		when 20367.chat."Piekielne Katakumby" begin
			say_koral("Strażnik Katakumb:")
				if party.get_near_count() < 1 then
					say_cialo("Aby wejść do Piekielnych Katakumb musisz posiadać ")
					say_cialo("przynajmniej 1 osobę w grupie! ")
					return	
			end
			if pc.level < 100 then
				say_cialo("Aby wejść do Piekielnych Katakumb musisz posiadać ")
				say_cialo("przynajmniej 100 Poziom! ")		
			else
			say_cialo("Jestem strażnikiem Piekielnych Katakumb. ")
			say_cialo("Strzegę naszą krainę przed upiorami z podziemia. ")
			say_cialo("Możecie mi pomóc przez wejście do krainy. ")
			say_cialo("Chcecie tam się teraz przenieść? ")
			local s = select("Tak", "Nie ")
			if s == 1 then
				pc.setqf("priv_dc", 1)
				d.join(209)
			end	
			end
		end
		when login with pc.in_dungeon() and pc.getqf("priv_dc") > 0 begin
				pc.setqf("priv_dc", 0)
				d.set_regen_file("data/dungeon/dc_regen1.txt")					
				d.notice("<Informacja> Zniszcz te kreatury, aby otrzymać Klucz Kryształu Duszy. ")
				d.notice("<Informacja> Klucz ten otworzy Ci wrota do 2. poziomu. ")
				d.setf("ki", 1)
		end

		when kill with npc.get_race() == 2501 or npc.get_race() == 2502 or npc.get_race() == 2503 or npc.get_race() == 2504 or npc.get_race() == 2505 and pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			if d.getf("ki") == 1 then
			local szansa = math.random(40, 100)
			if szansa == 80 then
				game.drop_item(30311, 1)
				d.setf("ki", 0)
				end
			end
		end	
		when 30103.take with item.vnum == 30311 and pc.in_dungeon() begin
			if not party.is_leader() then
				say_koral("Informacja: ")
				say_cialo("Aby przejść dalej, musisz przekazać klucz ")
				say_cialo("liderowi grupy. Następnie lider musi przenieść go ")
				say_cialo("na żółwią skałę! ")
			elseif party.is_leader() then
				item.remove()
				say_koral("Informacja: ")
				say_cialo("Otworzyły się wrota. ")
				say_cialo("Szybko przejdź przez nie! ")
				wait()
				say_koral("Informacja:")
				say_cialo("Tutaj zaczyna się prawdziwa przygoda! Masz jednak ")
				say_cialo("tylko godzinę na zbadanie Piekielnych Katakumb. ")
				wait()
				d.jump_all(3622, 12077)
				d.set_regen_file("data/dungeon/dc_regen2.txt")
				d.notice("<Informacja> Zniszczcie wrota, aby dotrzeć do Runicznego Pala. ")
				d.notice("<Informacja> Pozostało Wam jeszcze 60 minut. ")
				timer("drugiepietro", 3600)
				timer("licznikfirst", 600)
				timer("liczniksecond", 1200)
				timer("licznikthird", 1800)
				timer("licznikfourth", 2400)
				timer("licznikfifth", 3000)
			end
		end
		when licznikfirst.timer with pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.notice("<Informacja> Pozostało 50 minut. Pospieszcie się! ")
		end	
		when liczniksecond.timer with pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.notice("<Informacja> Pozostało 40 minut. Pospieszcie się! ")
		end		
		when licznikthird.timer with pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.notice("<Informacja> Pozostało 30 minut. Pospieszcie się! ")
		end	
		when licznikfourth.timer with pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.notice("<Informacja> Pozostało 20 minut. Pospieszcie się! ")
		end	
		when licznikfifth.timer with pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.notice("<Informacja> Pozostało 10 minut. Pospieszcie się! ")
		end			
		
		when drugiepietro.timer begin
			d.notice("<Informacja> Czas minął! Zostaniecie wyrzuceni z Katakumb. ")
			d.exit_all()
		end	
		
		when 30104.take with item.vnum == 30319 or 30320 and pc.in_dungeon() begin 
			if not party.is_leader() then
				say_koral("Informacja: ")
				say_cialo("Aby przejść dalej, musisz przekazać przedmiot ")
				say_cialo("liderowi grupy. Następnie lider musi przenieść go ")
				say_cialo("na Runiczny Pal. ")
			else
				say_koral("Informacja:")
				say_cialo("Po szczegółowej inspekcji kamienia dostrzegasz na ")
				say_cialo("nim grawerunek. ")
				wait()
				say_koral("Informacja:")
				say_cialo("Wejść może jedynie ten, kto posiada Zasuszoną ")
				say_cialo("Głowę i zniszczył pieczęci trzech wrót. ")
				say_cialo("Jeśli nie posiadasz tego reliktu zostaniesz ")
				say_cialo("przeniesiony na zewnątrz katakumb. ")
				wait()
				local wybor = select("Tak, przepuść mnie! ", "Nie, lepiej nie. ")
				if wybor == 1 then
				item.remove()
				say_koral("Informacja:")
				say_cialo("Jesteś w posiadaniu Zasuszonej Głowy i zostaniesz ")
				say_cialo("przeniesiony na  3. poziom. ")
				wait()
				d.jump_all(3072+1379, 12032+250)
				d.notice("<Informacja> Zniszczcie prawdziwy Metin Odwetu! ")
				d.notice("<Informacja> Czas upływa... ")
				d.set_regen_file("data/dungeon/devilcave/dc_regen_ebene3.txt")
				elseif wybor == 2 then
				say_koral("Informacja: ")
				say_cialo("Zostaniesz wyrzucony z katakumb! ")
				d.exit()
				end
			end
		end	
		when kill with npc.get_race() == 8038 and pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			local metin = math.random(1, 5)
			if metin >= 2 then
				d.notice("<Informacja> Zniszczyliście fałszywy kamień metin! ")
			elseif metin <= 1 then
				d.notice("<Informacja> Prawdziwy kamień metin został zniszczony! ")
				d.notice("<Informacja> Zostaniecie przeniesieni za 10 sekund. ")
				d.setf("tpbug", 1)
				timer("czworka", 10)
			end
		end
		when czworka.timer with d.getf("tpbug") == 1 and pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.jump_all(3072+846, 12032+898)
			d.notice("<Informacja> Zdobądźcie Upiorny Totem z Bastardów. ")
			d.notice("<Informacja> Czas upływa... ")
			d.set_regen_file("data/dungeon/devilcave/dc_regen_ebene5.txt")
			d.setf("tpbug", 0)
		end	
		when kill with npc.get_race() == 2593 and pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			local totem = math.random(1, 2)
			if totem == 1 then
				d.notice("<Informacja> Ten Bastard nie posiadał totemu! ")
			elseif totem == 2 then
				game.drop_item(30312, 1)
				d.notice("<Informacja> Zdobyliście Upiorny Totem! ")
				d.notice("<Informacja> Przenieście go na Bazaltowy Obelisk. ")
			end
		end			
		when 30102.take with item.vnum == 30312 and pc.in_dungeon() begin
			if not party.is_leader() then
				say_koral("Informacja: ")
				say_cialo("Przekaż liderowi grupy Upiorny Totem! ")
			elseif party.is_leader() then
				pc.remove_item(30312, 1)
				say_koral("Informacja: ")
				say_cialo("Upiorny Totem został przyjęty! ")
				wait()
				say_koral("Informacja: ")
				say_cialo("Zaraz zostaniecie przeniesieni na 5. poziom. ")
				wait()
				d.jump_all(3072+1322, 12032+631)
				d.regen_file("data/dungeon/devilcave/dc_regen_ebene6.txt")
				d.notice("<Informacja> Zabijcie sługę władcy - Charona, aby dostać się do Komnaty Azraela. ")
			end
	end
		when kill with npc.get_race() == 2597 and pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			timer("dcsw", 20)
			d.notice("<Informacja> Za 20 sekund przeniesiecie się do Komnaty Azraela.")
		end
		when dcsw.timer with pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.jump_all(3072+74, 12032+1160)
			d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
			d.notice("<Informacja> Jesteście w głównej komnacie - zniszczcie Azraela! ")
		end	
		when kill with npc.get_race() == 2598 and pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin 
			d.notice("<Informacja> Za 30 sekund zostaniecie wyrzuceni przed wejście. ")
			d.kill_all()
			timer("dcend", 30)
		end
		when dcend.timer with pc.in_dungeon() and pc.get_map_index() >= 2090000 and pc.get_map_index() < 2100000 begin
			d.exit_all()
		end
	end	
end

Musisz jedynie posiadać regeny.

BooMeKK · 14 Marca 2014

te catacumby nie działają...poprzerabiałem bo samo wejście nie działało.. pozatym tp na 2 piętro nie działa itd

Proszę o inne

Mentor™ · 14 Marca 2014

Trzymaj:

---------------------------------------------------------------------------------------------
---Devils Catacomb by Exterminatus
---Letzte bearbeitung am 03.03.2012 um 12:20Uhr durch Exterminatus
---Poprawki i spolszczenie by Mentor™ - Nexanity Team
---------------------------------------------------------------------------------------------
quest devilcave begin
state start begin
--Reset stanu DC
when 4029.chat."Zresetuj stan Devil's Catacomb! " with pc.is_gm begin
setbgimage("ung_inf.tga")
say_orange("Strażnik Katakumb: ")
say("")
say_title("Status zresetowany! ")
say("")
game.set_event_flag("dc_versuche",1)
game.set_event_flag("dcgamer",0)
game.set_event_flag("dc_geschaft",0)
end
--Konfiguracja
when 4029.chat."Konfiguracja Devil's Catacomb! " with game.get_event_flag("block_dc_config") == 0 and pc.is_gm begin
game.set_event_flag("dc_is_ok",1)
game.set_event_flag("block_dc_config",1)
game.set_event_flag("dc_versuche",1)
end
--Nieudane wejście
--when 20351.chat."[Lv.80] Devil's Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 and pc.get_level() > 80 begin
--say_title("Strażnik Katakumb")
--say("")
--say_reward("Nie możesz wejść do Devil's Catacomb!")
--say("")
--say_reward("Przynieś mi Relikt Żniwiarza!")
--say_reward("Wtedy pozwolę Ci iść dalej!")
--end
--when 20351.chat."[Lv.80] Devil's Catacomb" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 1 and pc.get_level() < 80 begin
--say_title("Strażnik Katakumb")
--say("")
--say_reward("Posiadasz zbyt niski poziom!")
--say("")
--end
--Oddanie przedmiotu
--when 20351.take with item.vnum == 30122 and pc.getqf("can_in_dc") == 0 begin
--if pc.get_level() < 80 then
--say_title("Strażnik Katakumb")
--say("")
--say_reward("Musisz posiadać 80 poziom oraz Relikt Żniwiarza!")
--say("")
--else
--item.remove()
--say_title("Strażnik Katakumb")
--say("")
--say_reward("Dobrze, możesz wejść do Devil's Catacomb!")
--say("")
--pc.setqf("can_in_dc", 1)
--end
--end
--Wejście
when 4029.chat."Wejdź do Katakumb! " with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 begin
if pc.get_level() < 86 then
setbgimage("ung_inf.tga")
say_orange("Strażnik Katakumb: ")
say("")
say("Niestety nie mog Cię wpuścić! ")
say("Jeżeli chce, bym wpuścił Cię do Diabelskich")
say("Katakumb, musisz mieć conajmniej 86 poziom! ")
say("")
else
setbgimage("ung_inf.tga")
say_orange("Strażnik Katakumb: ")
say("")
say("Do tej pory "..game.get_event_flag("dcgamer").." śmiałków weszło")
say("do Katakumb. Tylko "..game.get_event_flag("dc_geschaft").." wróciło")
say("bezpiecznie do swoich domów! ")
say("")
wait()
setbgimage("ung_inf.tga")
say_orange("Strażnik Katakumb: ")
say("")
say("Jesteś pewien swojej decyzji ? ")
say("Wojowników których próbowało przejść ")
say("przez Katakumby, było aż "..game.get_event_flag("dc_versuche").." ! ")
say("Niewielu z nich dożyło dnia dzisiejszego... ")
say("")
local dc_login = select("Chcę wejść! ", "Rezygnuję... ")
if dc_login == 1 then
pc.warp(314800, 1209800)
elseif dc_login == 2 then
return
end
end
end
--Poziom 1
when login with pc.get_map_index() == 209 begin
game.set_event_flag("trumetin", 0)
game.set_event_flag(("dcgamer"), game.get_event_flag("dcgamer")+1)
game.set_event_flag(("dc_versuche"), game.get_event_flag("dc_versuche")+1)
setbgimage("ung_inf.tga")
say_orange("Katakumby Diabła: ")
say("")
say("Aby dostać się na drugi poziom musisz zbobyć ")
say("")
say_item("Kryształowy Klucz Duszy", 30311, "")
say("")
say("i przeciągnąć go na pomnik na środku mapy! ")
say("Powodzenia!")
say("")
pc.setqf("sksgedroppt", 0)
end
when kill with not npc.is_pc() and pc.get_map_index() == 209 begin
local sks = number(1, 700)
if sks==274 and pc.getqf("sksgedroppt")==0 then
pc.setqf("sksgedroppt", 1)
chat("Udało Ci się! Znalazłeś Kryształowy Klucz Duszy! ")
game.drop_item_with_ownership(30311, 1)
end
end
when 30101.take with item.vnum == 30311 begin
item.remove()
d.new_jump_all(209, 3636, 12086)
d.notice("Musicie przedostać się przez Piekielne Bramy! ")
d.notice("Waszym celem jest Posąg Żółwia! ")
d.regen_file("data/dungeon/devilcave/dc_regen_ebene2.txt")
d.regen_file("data/dungeon/devilcave/dc_regen_tore.txt")
d.regen_file("data/dungeon/devilcave/dc_regen_tore_left.txt")
d.spawn_mob(30103, 741, 221)
end
 
when dc2.timer begin
d.notice("Pozostało 30 minut! ")
timer("dc3", 300)
end
when dc3.timer begin
d.notice("Pozostało 25 minut! ")
timer("dc4", 300)
end 
when dc4.timer begin
d.notice("Pozostało 20 minut! ")
timer("dc5", 300)
end 
when dc5.timer begin
d.notice("Pozostało 15 minut! ")
timer("dc6", 300)
end 
when dc6.timer begin
d.notice("Pozostało 10 minut! ")
timer("dc7", 300)
end
when dc7.timer begin
d.notice("Pozostało 5 minut! ")
timer("dc8", 240)
end 
when dc8.timer begin
d.notice("Pozostała 1 minuta ! ! ! ")
timer("dc9", 60)
end 
when dc9.timer begin
d.notice("Czas minął! Zostaniecie wylogowani! ")
warp_all_to_village()
end
 
--Poziom 2
when 30103.chat."III poziom! " begin
npc.purge()
setbgimage("ung_inf.tga")
say_orange("Głos z głębi katakumb: ")
say("")
say("Ha ha ha ! To dopiero początek... ")
say("")
wait()
d.jump_all(4427, 12284)
d.setf("goto_ebene3", 0)
d.notice("Przed tobą jeszcze długa droga... ")
d.notice("Znajdź i zniszcz prawdziwy Metin Odwetu! ")
d.regen_file("data/dungeon/devilcave/dc_regen_ebene3.txt")
d.spawn_mob(8038, 1351, 348)
d.spawn_mob(8038, 1148, 350)
d.spawn_mob(8038, 1151, 155)
d.spawn_mob(8038, 1351, 149)
end
when 8038.kill with pc.in_dungeon() begin
local los = number(1,4)
if los == 1 or game.get_event_flag("trumetin") == 3 then
d.notice("Prawdziwy Kamień Metin został zniszczony! ")
d.notice("Zostaniecie przeniesieni na kolejne piętro! ")
timer("devils_catacomb_goto_ebene5", 15)
else
d.notice("Zniszczyliście fałszywy kamień !")
game.set_event_flag("trumetin", game.get_event_flag("trumetin")+1)
end
end
 
--Poziom 4 (Labirynt)
when devils_catacomb_goto_ebene4.timer begin
d.jump_all(3143, 12657)
d.setf("labyrinth", 1)
d.notice("Znajdź wyjście z labiryntu! ")
d.notice("Następnie przeczytaj napis na posągu... ")
if game.get_event_flag("dc_is_wartung") == 1 then
d.spawn_mob(30104, 72, 586)
end
end
when 30104.chat."Dziwny napis... " with pc.in_dungeon() begin
setbgimage("ung_inf.tga")
say_title("Labirynt... ")
say("")
say("Odnalazłeś wyjście z labiryntu... ")
say("")
d.notice("Odnalałeś właściwą drogę! ")
timer("devils_catacomb_goto_ebene5", 5)
end
--Poziom 6 (Tartar)
when devils_catacomb_goto_ebene5.timer begin
d.jump_all(3917, 12925)
d.notice("Znajdź i zabij Tartara, aby otrzymać Totem! ")
d.regen_file("data/dungeon/devilcave/dc_regen_ebene5.txt")
d.spawn_mob(30102, 848, 739)
local tartaros = number(1,4)
if tartaros==1 then
d.spawn_mob(2592, 991, 848)
elseif tartaros==2 then
d.spawn_mob(2592, 999, 652)
elseif tartaros==3 then
d.spawn_mob(2592, 848, 577)
elseif tartaros==4 then
d.spawn_mob(2592, 703, 644)
elseif tartaros==5 then
d.spawn_mob(2592, 692, 817)
end
end
 
when kill with npc.get_race() == 2592 and pc.in_dungeon() begin
local level1 = pc.get_level()
d.notice("Gracz "..pc.get_name().." z poziomem "..(level1).." wydropił totem! ")
game.drop_item(30312, 1)
end
 
when 30102.take with item.vnum == 30312 begin
item.remove()
npc.purge()
setbgimage("ung_inf.tga")
say_orange("Głos z głębi katakumb: ")
say("")
say("Czekam na Was... ")
say("")
d.notice("Udało się! Przejście zostało aktywowane! ")
timer("devils_catacomb_goto_ebene6", 20)
end
 
--Poziom 7 (Charon)
when devils_catacomb_goto_ebene6.timer begin
d.new_jump_all(209, 4411, 12736)
d.notice("Zabij Charona aby dostać się do komnaty Azraela! ")
d.regen_file("data/dungeon/devilcave/dc_regen_ebene6.txt")
end
when kill with npc.get_race() == 2597 and pc.in_dungeon() begin
d.notice("Pokonaliście Charona! ")
d.notice("Macie 25 sekund na przygotowanie się do walki z panem piekieł - Azraelem! ")
timer("devils_catacomb_goto_ebene7", 10)
end
 
--Poziom 8 (Azrael)
when devils_catacomb_goto_ebene7.timer begin
d.new_jump_all(209, 3147, 13191)
d.notice("Jesteście w komnacie pana piekieł, Azraela... stawcie mu czoła! ")
d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
end
 
when kill with npc.get_race() == 2598 and pc.in_dungeon() begin
game.set_event_flag(("dc_geschaft"), game.get_event_flag("dc_geschaft")+1)
local level = pc.get_level()
local sex = pc.get_sex()
d.notice("Gratulacje! Pokonaliście władcę ciemności - Azraela! ")
d.notice("Użyjcie Kryształu Teleportacji, by wyjść z Katakumb. ")
d.kill_all()
if sex == 0 then
notice_all("Lv. "..(level).." "..pc.get_name().." zabił Pana Katakumb - Azraela! ")
else
notice_all("Lv. "..(level).." "..pc.get_name().." zabiła Pana Katakumb - Azraela! ")
end
 
 
end
 
end
end

http://wklej.to/P9o5J

Na Nexanity działało w 100%, regeny postaram się podrzucić potem, dam edit'a

Wiadomka... ID itd musisz przerobić pod siebie

#Edit

Coś nie mogę znaleźć tych regen'ów, nie obiecuję, że wstawię

Najwyżej sobie sam zrobisz

BooMeKK · 14 Marca 2014

wrzuc to do archiwum , tego questa i uploadnij zebym z tel mogl pobrac , Beda +++

Dzieki

Mentor™ · 14 Marca 2014

Spoko, prosze

DL:

http://speedy.sh/CKnyj/katakumby.rar

SKAN:

https://www.virustotal.com/pl/url/4081bb6c7a5b5b7393ef4395f902da8268a13900311e199189eb913b35e52221/analysis/1394829633/

BooMeKK · 14 Marca 2014

Dzieki , sprawdze jutro i dam znac

Zaloguj się

👋 Witaj na MPCForum!

Devil's Catacomb

Rekomendowane odpowiedzi

BooMeKK

BooMeKK

Phoenix.

Phoenix.

BooMeKK

BooMeKK

Mentor™

Mentor™

BooMeKK

BooMeKK

Mentor™

Mentor™

BooMeKK

BooMeKK

Zarchiwizowany