Cod: Selectaţi tot

------------------------------------
---Devils Catacomb by Metin2TN.Ro---
-------------------------------------------- 
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

Cod: Selectaţi tot

quest devilcave begin
   state start begin
      when login begin
         if pc.get_map_index() == 193 then
            warp_all_to_village()
         end
      end
--DC Status Reset
      when 30121.chat."Reseteaza statusul catacombei!" with pc.is_gm begin
         say_title("Gardianul Catacombei")
         say("")
         say_reward("Statusul a fost resetat!")
         say("")
         game.set_event_flag("dc_versuche",1)
         game.set_event_flag("dcgamer",0)
         game.set_event_flag("dc_geschaft",0)
      end   
--Configuration   
      when 30121.chat."Configuratia catacombei!" 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
--FaiL... Entry
      --when 30121.chat."Catacomba diavolului" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 and pc.get_level() > 80 begin
         --say_title("Gardianul Catacombei")
         --say("")
         --say_reward("Nu poti intra în catacomba.")
         --say("")
         --say_reward("Adu-mi o relicva a Îngerului cu coasa")
         --say_reward("si da-mi-o!")
      --end
      --when 30121.chat."Catacomba diavolului" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 1 and pc.get_level() < 80 begin
         --say_title("Gardianul Catacombei")
         --say("")
         --say_reward("Esti prea mic în nivel.")
         --say("")
      --end
--Sensenmannrelikt Abgabe!
      --when 30121.take with item.vnum == 30122 and pc.getqf("can_in_dc") == 0 begin
         --if pc.get_level() < 80 then
            --say_title("Gardianul Catacombei")
            --say("")
            --say_reward("Esti prea mic pentru a intra revino când o sa ai level 80!")
            --say("")
         --else
            --item.remove()
            --say_title("Gardianul Catacombei")
            --say("")
            --say_reward("Acum puteti intra în Catacomba Diavolului!")
            --say("")
            --pc.setqf("can_in_dc", 1)
         --end
      --end
--Entry   
      when 30121.chat."Catacomba Diavolului (lv.80)" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 begin
         if pc.get_level() < 80 then 
            say_title("Gardianul Catacombei")
            say("")
            say_reward("Esti prea mic pentru a intra, revino când o sa ai level 80!")
            say("")
         else
            say_title("Gardianul Catacombei")
            say("")
            say("Pana în prezent "..game.get_event_flag("dcgamer").." soldati au încercat ")
            say("sa il invinga pe Azrael !")
            say("Din pacate "..game.get_event_flag("dc_geschaft").." soldati au murit în lupta.")
            wait()
            say_title("Gardianul Catacombei")
            say("")
            say_reward("Vrei sa încerci?")
            say("Ai grija de tine sa nu ajungi pe lista celor care au murit în lupta.")
            local dc_login = select("Intru", "Nu intru")
            if dc_login == 1 then
               pc.warp(307200,1203200)
            elseif dc_login == 2 then
               return
            end
         end
      end         
--Ebene 1      
      when login with pc.get_map_index() == 193 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 intra la etajul 2 trebuie sa...")
         say_item("Cheie Suflet Cristalizat", 30311, "") 
         say("dupa ce o gasiti o trageti peste")
         say("Statuia Kud!")
         say("")
         say_reward("Succes!")
         say("")
         pc.setqf("sksgedroppt", 0)
      end
      when kill with not npc.is_pc() and pc.get_map_index() == 193 begin 
         local sks = number(1,15)
         if sks==1 and pc.getqf("sksgedroppt")==0 then
            pc.setqf("sksgedroppt", 1)
            chat("Ai primit cheia!")
            game.drop_item(30311, 1)   
         else
            chat("Acest monstru nu a avut cheia...")
         end
      end
      when 30101.take with item.vnum == 30311 begin
         item.remove()
         d.new_jump_all(193, 3636, 12086)
         timer("dc1", 600)
         d.notice("~~~Ai 10 minute pentru a trece la etajul 3!~~~")
         d.regen_file("data/dungeon/devilcave/dc_regen_ebene2.txt")
         d.regen_file("data/dungeon/devilcave/dc_regen_tore_unten.txt")
         d.regen_file("data/dungeon/devilcave/dc_regen_tore_left.txt")
         d.spawn_mob(30104, 741, 221)
      end   
      when dc1.timer begin
         d.notice("Timpul a expirat!")
         warp_all_to_village()
      end    



      
      when dc20.timer begin
         d.notice("Mai aveti 50 de minute!")
         timer("dc3", 193)
      end   
      when dc30.timer begin
         d.notice("Mai aveti 45 de minute!")
         timer("dc4", 193)
      end       
      when dc40.timer begin
         d.notice("Mai aveti 40 de minute!")
         timer("dc5", 193)
      end       
      when dc50.timer begin
         d.notice("Mai aveti 35 de minute!")
         timer("dc6", 193)
      end       
      when dc60.timer begin
         d.notice("Mai aveti 30 de minute!")
         timer("dc7", 193)
      end       
      when dc70.timer begin
         d.notice("Mai aveti 25 de minute!")
         timer("dc8", 193)
      end       
      when dc80.timer begin
         d.notice("Mai aveti 20 de minute!")
         timer("dc9", 193)
      end       
      when dc90.timer begin
         d.notice("Mai aveti 15 de minute!")
         timer("dc10", 193)
      end       
      when dc100.timer begin
         d.notice("Mai aveti 10 de minute!")
         timer("dc11", 193)
      end       
      when dc101.timer begin
         d.notice("Mai aveti 5 de minute!")
         timer("dc12", 193)
      end                
      when dc110.timer begin
         d.notice("Timpul a expirat!")
         warp_all_to_village()
      end                 
--Ebene 2
      when 30104.chat."Etajul 3" begin
         npc.purge()
         say_reward("Inscriptia")
         say("Drumul spre Azrael este foarte lung...")
         wait()
         d.new_jump_all(193, 4427, 12284)
         d.setf("goto_ebene3", 0)
         d.notice("~~Drumul catre Azrael este foarte lung...~~")
         d.notice("~~Gaseste si distruge Metinul care te va duce la etajul urmator~~")
         d.regen_file("data/dungeon/devilcave/dc_regen_ebene3.txt")
         local metindv = number(1,4)
         if metindv==1 then
            d.spawn_mob(8028, 1351, 348)
            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 nu este cel care trebuie distrus~~")
      end
      when 8029.kill with pc.in_dungeon() begin
         d.notice("~~Felicitari acest metin este bun, vei fi teleportat imediat~~")
         timer("devils_catacomb_goto_ebene4", 5)
      end   
      
--Ebene 4 (Labyrinth)
      when devils_catacomb_goto_ebene4.timer begin
         d.new_jump_all(193, 3143, 12657)
         d.setf("labyrinth", 1)
         d.spawn_mob(20023, 500, 720) 
         d.regen_file("data/dungeon/devilcave/dc_regen_ebene4_portale.txt")
         d.notice("~~Gaseste calea de iesire din labirint~~")
         d.notice("~~si apoi citeste inscriptia de pe stâlpul~~")
         if game.get_event_flag("dc_is_wartung") == 1 then
            d.spawn_mob(20023, 72, 586)
         end
      end         
      when 20023.chat."Etajul 5" with pc.in_dungeon() begin
         npc.purge()
         say_title(".....")
         d.notice("~~Ai gasit drumul cel bun...")
         timer("devils_catacomb_goto_ebene5", 5)
      end
--Ebene 6 (Tartaros)
      when devils_catacomb_goto_ebene5.timer begin
         d.new_jump_all(193, 3917, 12925)
         d.notice("~~Cauta si ucide Ucigasul Iadului pentru a obtine un Totem Schimonosit!~~")
         d.notice("~~acesta se trage peste Basalt-Obelisk!~~")
         d.spawn_mob(30102, 848, 739)
         timer("dc4", 600)
         d.regen_file("data/dungeon/devilcave/dc_regen_ebene5.txt")
         local tartaros = number(1,4)
         if tartaros==1 then
            d.spawn_mob(2593, 991, 848)
         end
         if tartaros==2 then
            d.spawn_mob(2593, 999, 652)
         end
         if tartaros==3 then
            d.spawn_mob(2593, 848, 577)
         end
         if tartaros==4 then
            d.spawn_mob(2593, 703, 644)
         end
         if tartaros==5 then
            d.spawn_mob(2593, 692, 817)
         end
      end         
      when 2593.kill with pc.in_dungeon() begin
         d.notice("~~~Ucigasul Iadului ti-a dat un Totem Schimonosit!~~~")
         d.notice("~~~Acum du-te si trage-l peste Basalt-Obelisk!~~~")
         game.drop_item(30312, 1)
      end   
      when 30102.take with item.vnum == 30312 begin
         timer("dc4", 6000)
         item.remove()
         npc.purge()
         say_reward("...")
         d.notice("~~O sa fi teleportat imediat!~~")
         timer("devils_catacomb_goto_ebene6", 5)
      end
      when dc4.timer begin
         d.notice("Timpul a expirat!")
         warp_all_to_village()
      end   
--Ebene 7 (Charon)
      when devils_catacomb_goto_ebene6.timer begin
         d.new_jump_all(193, 4411, 12736)
         timer("dc5", 600)
         d.notice("~~Pentru a putea ajunge la Azrael trebuie sa îl ucizi pe Charon~~")
         d.regen_file("data/dungeon/devilcave/dc_regen_ebene6.txt")
      end      
      when 2597.kill with pc.in_dungeon() begin
         timer("dc5", 6000)
         d.notice("~~O sa fii teleportat imediat~~")
         d.notice("~~Pregateste-te de lupta cu Azrael!~~")
         timer("devils_catacomb_goto_ebene7", 10)
      end
      when dc5.timer begin
         d.notice("Timpul a expirat!")
         warp_all_to_village()
      end   
--Ebene 8 (Azrael)
      when devils_catacomb_goto_ebene7.timer begin
         d.new_jump_all(193, 3147, 13191)
         d.notice("~~Ucide-l pe Azrael, doar atunci vei primi o recompensa!~~")
         d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
      end
      when 2598.kill with pc.in_dungeon() begin
         game.set_event_flag(("dc_geschaft"), game.get_event_flag("dc_geschaft")+1)
         local level = pc.get_level()         
         d.notice("~~L-ai învins, si meriti o recompensa!~~")
         d.kill_all()
         d.kill_all()
         notice_all("~~Jucatorul "..pc.get_name().." l-a învivins pe Azrael !~~")
         notice_all("~~Drept rasplata a primit Lada lui Azrael!~~")
         timer("goout_from_dc", 60)
         d.spawn_mob(9012, 74, 1159)   
         pc.give_item2(50186)
      end
   end
end