Cod: Selectaţi tot

quest devilcave begin
   state start begin
      when login begin
         if pc.get_map_index() == 90 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