quest devilscave begin
state start begin
when login begin
if pc.get_map_index() == 10 then
pc.set_warp_location(10, 3148, 12098)
end
end
when 30121.chat."Catacomba Diavolului" begin
if pc . get_level ( ) <= 75 then
say_title ( "Gardian" )
say("")
say_reward("Pentru a putea intra trebuie ca nivelul tau sa fie mai mare de 75 !");
return
end
if party . is_party ( ) then
else
say_reward( "Nu poti intra de unu singur aici...trebuie sa fii intr-o grupa." )
say("")
return
end
say_title ( "Gardian" )
say("Eu te pot conduce in catacomba diavolului")say(",dar sa stii ca nu faci fata singur acolo")
say("si te sfatuiesc sa iti iei cei mai buni prieteni cu tine pentru a birui in fata lu Azrael.")
say("Toti membri din grupa trebuie sa aiba peste nivelul 75!")
say("")
local dc_login = select("Vreau sa intru", "Nu vreau")
if dc_login == 1 then
pc.warp(314800, 1209800)
else
say_title("Gardian:")
say("Va inteleg.")
say("Cand esti pregatit poti sa te intorci inapoi aici.")
return
end
end


--Ebene 1
when login with pc.get_map_index() == 10 begin
game.set_event_flag(("dcgamer"), game.get_event_flag("dcgamer")+1)
game.set_event_flag(("dc_versuche"), game.get_event_flag("dc_versuche")+1)
say_title("Catacomba Diavolului")
say("Pentru a trece la nivelul 2 ai nevoie de o")
say_item("Cheie Rubin", 50150, "")
say("Dupa ce gasiti cheia va veti duce si o veti pune pe statuie!")
say("")
say_reward("Mult noroc!")
say("")
pc.setqf("sksgedroppt", 0)
end
when kill with not npc.is_pc() and pc.get_map_index() == 10 begin
local sks = number(1,50)
if sks==1 and pc.getqf("sksgedroppt")==0 then
pc.setqf("sksgedroppt", 1)
chat("Ai gasit Cheia Rubin!")
game.drop_item(50150, 1)

end
end
--Puertas

when 30101.take with item.vnum == 50150 begin
if party.is_party() then
item.remove()
say("Felicitari...acum veti fi teleportati la nivelul 2")
wait()
say("Pentru a putea trece mai departe de acest obstacol va trebui sa cauti drumul cel bun pana la portalul ce te va duce la etajul urmator.Grabeste-te timpul se scurge.....tic tac ")
wait()

timer("devils_catacomb_goto_ebene3", 5)
else
say("Tu nu mai apartii nici unui grup")
end
end



when devils_catacomb_goto_ebene3.timer begin
d.new_jump_all(10, 3617, 12074)
say("~~Pentru a putea trece mai departe gaseste drumul cel bun!~~")
say("~~Si da click pe portal pentru a putea trece cu grupul mai departe~~")
d.regen_file("data/dungeon/dc_regen_ebene2.txt")
d.regen_file("data/dungeon/dc_regen_tore_unten.txt")
d.regen_file("data/dungeon/dc_regen_tore_left.txt")
d.spawn_mob(30104, 741, 221)
end

--Ebene 2

when 30104.chat."Esti pregatit pentru Etajul 3 ?" begin
if party.is_leader() then
else
say("Tu si grupul tau veti fi teleportati la etajul 3")
return
end
npc.purge()
say_reward("Statuia Broasca Testoasa")
say("Bravo ai trecut mai departe!..Aici te va astepta o porovocare care tine mai mult de noroc.Trebuie sa gasesti in acest tinut metinul cel adevarat si sa il distrugi.")
wait()
d.notice("Tu si echipa ta veti fi teleportati mai departe")
timer("devils_catacomb_goto_ebene8", 5)
end
when devils_catacomb_goto_ebene8.timer begin
d.new_jump_all(10, 4427, 12284)

d.setf("goto_ebene3", 0)
d.notice("Pentru a putea trece mai departe gaseste metinul adevarat si distrugel")
d.regen_file("data/dungeon/dc_regen_ebene3.txt")
local metindv = number(1,4)
if metindv==1 then
d.spawn_mob(8028, 1264, 238)
d.spawn_mob(8028, 1148, 350)
d.spawn_mob(8028, 1151, 155)
d.spawn_mob(8029, 1351, 149)
end
if metindv==2 then
d.spawn_mob(8028, 1351, 348)
d.spawn_mob(8028, 1148, 350)
d.spawn_mob(8029, 1151, 155)
d.spawn_mob(8028, 1351, 149)
end
if metindv==3 then
d.spawn_mob(8028, 1351, 348)
d.spawn_mob(8029, 1148, 350)
d.spawn_mob(8028, 1151, 155)
d.spawn_mob(8028, 1351, 149)
end
if metindv==4 then
d.spawn_mob(8029, 1351, 348)
d.spawn_mob(8028, 1148, 350)
d.spawn_mob(8028, 1151, 155)
d.spawn_mob(8028, 1351, 149)
end
end
when 8028.kill with pc.in_dungeon() begin
d.notice("Acest metin este fals")
end
when 8029.kill with pc.in_dungeon() begin
d.notice("Ai gasit metinul cel bun!")
timer("devils_catacomb_goto_ebene4", 5)
end
--Ebene 4 (Labirint)
when devils_catacomb_goto_ebene4.timer begin
d.new_jump_all(10, 3143, 12657)
d.setf("Laberinto", 1)
d.spawn_mob(30103, 500, 720)
d.regen_file("data/dungeon/dc_regen_ebene4_portale.txt")
d.regen_file("data/dungeon/dc_regen_ebene8.txt")
d.notice("Gaseste o cale de iesire din acest labirit")
d.notice("Catre statuia Broastei Testoase")
if game.get_event_flag("dc_is_wartung") == 1 then
end
end
when 30103.chat."Cursa Iadului" with pc.in_dungeon() begin
say("Felicitari ati ajuns la etajul 5")
npc.purge()
timer("devils_catacomb_goto_ebene5", 5)
end
--Ebene 6 (Tartaros)
when devils_catacomb_goto_ebene5.timer begin
d.new_jump_all(10, 3917, 12925)
d.notice("Tartarus detine cheia catre etajul urmator")
d.notice("Pentru a o obtine trebuie sa omori cat mai multi..depinde de norocul tau.")
d.spawn_mob(30102, 848, 739)
d.regen_file("data/dungeon/dc_regen_ebene5.txt")
local tartaros = number(1,5)
if tartaros==1 then
d.spawn_mob(2593, 991, 848)
d.spawn_mob(2594, 999, 652)
d.spawn_mob(2594, 848, 577)
d.spawn_mob(2594, 703, 644)
d.spawn_mob(2594, 692, 817)
end
if tartaros==2 then
d.spawn_mob(2594, 991, 848)
d.spawn_mob(2593, 999, 652)
d.spawn_mob(2594, 848, 577)
d.spawn_mob(2594, 703, 644)
d.spawn_mob(2594, 692, 817)
end
if tartaros==3 then
d.spawn_mob(2594, 991, 848)
d.spawn_mob(2594, 999, 652)
d.spawn_mob(2593, 848, 577)
d.spawn_mob(2594, 703, 644)
d.spawn_mob(2594, 692, 817)
end
if tartaros==4 then
d.spawn_mob(2594, 991, 848)
d.spawn_mob(2594, 999, 652)
d.spawn_mob(2594, 848, 577)
d.spawn_mob(2593, 703, 644)
d.spawn_mob(2594, 692, 817)
end
if tartaros==5 then
d.spawn_mob(2594, 991, 848)
d.spawn_mob(2594, 999, 652)
d.spawn_mob(2594, 848, 577)
d.spawn_mob(2594, 703, 644)
d.spawn_mob(2593, 692, 817)
end
end
when 2594.kill with pc.in_dungeon() begin
d.notice("Din pacate acest monstru nu a avut cheia la el.")
end
when 2593.kill with pc.in_dungeon() begin
game.set_event_flag((""..pc.get_name().."ap_send"), game.get_event_flag(""..pc.get_name().."ap_send") + 5)
local Reward = 5
local Achievement = "Höllenbastard"
local killcount = pc.getqf("2593")
local actual_achievement_points = pc.getqf("achievement_points")
pc.setqf("2593", killcount + 1)
pc.setqf("achievement_points", actual_achievement_points + Reward)
cmdchat("achievement ".. Achievement .."_getötet#".. killcount + 1 .."%".. actual_achievement_points + Reward .."")
d.notice("Bastardul Iadului a fost invins si cheia de la portal era la el!")
game.drop_item(50151, 1)
end
when 30102.take with item.vnum == 50151 begin
item.remove()
npc.purge()
say_reward("Aceasta cheie se potriveste perfect.Tu si echipa ta veti putea trece mai departe.")
d.notice("Felicitari veti trece mai departe!")
timer("devils_catacomb_goto_ebene6", 5)
end
--Ebene 7 (Charon)
when devils_catacomb_goto_ebene6.timer begin
d.new_jump_all(10, 4411, 12736)
d.notice("Felicitari pentru ca ati putut ajunge pana aici!")
d.notice("Pentru a putea trece la ultimul nivel va trebuie sa il omorati pe Charon!")
d.regen_file("data/dungeon/dc_regen_ebene6.txt")
end
when 2597.kill with pc.in_dungeon() begin
game.set_event_flag((""..pc.get_name().."ap_send"), game.get_event_flag(""..pc.get_name().."ap_send") + 8)
local Reward = 8
local Achievement = "Charon"
local killcount = pc.getqf("2597")
local actual_achievement_points = pc.getqf("achievement_points")
pc.setqf("2597", killcount + 1)
--pc.setqf("achievement_points", actual_achievement_points + Reward)
cmdchat("achievement ".. Achievement .."_getötet#".. killcount + 1 .."%".. actual_achievement_points + Reward .."")
pc.give_item2(30320)
chat("L-ati doborat si pe Charon!")
d.notice("Sunteti foarte buni...")
d.notice("Pregatitiva pentru al infrunta pe Marele Azrael")
timer("devils_catacomb_goto_ebene7", 10)
end
--Ebene 8 (Azrael)
when devils_catacomb_goto_ebene7.timer begin
d.new_jump_all(10, 3147, 13191)
d.notice("~~Omoaral pe Azrael pentru a primi o recompensa!~~")
d.regen_file("data/dungeon/dc_regen_ebene7.txt")
end
when 2598.kill with pc.in_dungeon() begin
d.kill_all()
notice_all("Felicitari Azrael a fost invins.")
timer("ebane_end_jump", 65)
end
when ebane_end_jump.timer begin
d.new_jump_all(65, 5376+535 , 512+480)
end
end
end