Cod: Selectaţi tot

quest dc begin
    state start begin 
--FaiL... Entry
        --when 20092.chat."Devils Catacomb (lv.85)" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 1 and pc.get_level() < 85 begin
            --say_title("Wächter der Katakombe")
            --say("")
            --say_reward("Du bist noch zu Schwach!")
            --say("")
        --end
--Eintritt!  
        when 20092.chat."Intrã în Catacombele Diavolului" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 begin
            say ( "Pânã în prezent " .. game . get_event_flag ( "dc_jucator" ) .. " soldaþi au încercat" ) 
		say ( "sã il invingã pe Azrael !")
		say ( "Din pacãte " .. game . get_event_flag ( "dc_succes" ) .. " soldaþi au murit în luptã." ) 
		say ( "Foarte putini reuºesc sa ducã pânã la sfârºit aceastã misiune, te mai las un moment sã te gândeºti...")
		say ( "" )
		
wait ( ) 
if pc . count_item ( 30320 ) >= 1 and pc . level >= 85 then 

		say ("Esti sigur cã vrei sã intri?")
		say ("")
		
local s = select ( "Intra" , "Numai vreau" ) 
if s == 1 then 

pc . remove_item ( 30320 , 1 ) 
pc . warp ( 315000 , 1210100 ) 
else 
return 
end 
else

		say_reward ( "Pentru a intra în catacombe ai nevoie de un" ) 
		say_reward ( "Cap Mumificat ºi nivelul 85. Intoarce-te când")
		say_reward ( "îndeplineºti toate condiþiile.")
		say ( "" )
		
end 
		end
--Ebene 1        
        when login with pc.get_map_index() == 90 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 ( "" )
				say ( "Pentru a trece la etajul 2 trebuie sã obtii" )
				say_item  ( "Cheie Suflet Cristalizat", 30311, "" ) 
				say ( "dupa ce o gãsiþi, o trageti peste Statuia Kud!" )
				say ( "" )
            pc.setqf("sksgedroppt", 0)
        end
        when kill with not npc.is_pc() and pc.get_map_index() == 90 begin 
            local sks = number(1,15)
            if sks==1 and pc.getqf("sksgedroppt")==0 then
                pc.setqf("sksgedroppt", 1)
                chat("Ai gasit Cheia Suflet Cristalizat.")
                game.drop_item(30311, 1)    
            end
        end
        when 30101.take with item.vnum == 30311 begin
            item.remove()
            d.new_jump_all(90, 3636, 12086)
            timer("dc1", 600)
            d.notice("~~~Felicitari.Tu si echipa ta ve-ti fi teleportati~~~")
            d.notice("~~~La etajul urmator~~~")
            d.regen_file("data/dungeon/dc/dc_regen_ebene2.txt")
            d.regen_file("data/dungeon/dc/dc_regen_tore_unten.txt")
            d.regen_file("data/dungeon/dc/dc_regen_tore_left.txt")
            d.spawn_mob(30103, 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", 90)
        end    
        when dc30.timer begin
            d.notice("Mai aveti 45 de minute!")
            timer("dc4", 90)
        end        
        when dc40.timer begin
            d.notice("Mai aveti 40 de minute!")
            timer("dc5", 90)
        end        
        when dc50.timer begin
            d.notice("Mai aveti 35 de minute!")
            timer("dc6", 90)
        end        
        when dc60.timer begin
            d.notice("Mai aveti 30 de minute!")
            timer("dc7", 90)
        end        
        when dc70.timer begin
            d.notice("Mai aveti 25 de minute!")
            timer("dc8", 90)
        end        
        when dc80.timer begin
            d.notice("Mai aveti 20 de minute!")
            timer("dc9", 90)
        end        
        when dc90.timer begin
            d.notice("Mai aveti 15 minute!")
            timer("dc10", 90)
        end        
        when dc100.timer begin
            d.notice("Mai aveti 10 minute!")
            timer("dc11", 90)
        end        
        when dc101.timer begin
            d.notice("Mai aveti 5 minute!")
            timer("dc12", 90)
        end                    
        when dc110.timer begin
            d.notice("Timpul a expirat!")
            warp_all_to_village()
        end                      
--Ebene 3
        when 30103.chat."Etajul 3" begin
            npc.purge()
            say_reward("Catacomba Diavolului:")
            say("Drumul spre Azrael este foarte lung...")
            wait()
            d.new_jump_all(90, 4427, 12284)
            timer("dc1", 6000)
            timer("dc2", 600)
            d.setf("goto_ebene3", 0)
            d.notice("~~Pentru a trece la etajul urmator")
            d.notice("~~Gaseste si distruge metinul adevarat~~")
            d.regen_file("data/dungeon/dc/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 este fals~~")
        end
        when 8029.kill with pc.in_dungeon() begin
            d.notice("~~Ai gasit metinul cel bun.Ve-ti fi teleportati mai departe~~")
            timer("dc2", 6000)
            timer("devils_catacomb_goto_ebene5", 5)
        end    
        when dc2.timer begin
            d.notice("Timpul a expirat!")
            warp_all_to_village()
        end    

        
--Ebene 5 (Tartaros)
        when devils_catacomb_goto_ebene5.timer begin
            d.new_jump_all(90, 3917, 12925)
            d.notice("~~Cautã ºi ucide Ucigaºul Iadului pentru a obþine un Totem Schimonosit!~~")
            d.spawn_mob(30102, 848, 739)
            timer("dc4", 600)
            d.regen_file("data/dungeon/dc/dc_regen_ebene5.txt")
            local tartaros = number(1,4)
            if tartaros==1 then
                d.spawn_mob(2591, 991, 848)
            end
            if tartaros==2 then
                d.spawn_mob(2591, 999, 652)
            end
            if tartaros==3 then
                d.spawn_mob(2591, 848, 577)
            end
            if tartaros==4 then
                d.spawn_mob(2591, 703, 644)
            end
            if tartaros==5 then
                d.spawn_mob(2591, 692, 817)
            end
        end            
        when 2591.kill with pc.in_dungeon() begin
					d.notice("[Catacomba Diavolului]: Ucigaºul Iadului þi-a dat un Totem Schimonosit!")
					d.notice("[Catacomba Diavolului]: Acum du-te ºi 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("~~Tu si echipa ta veti fi teleportati imediat!~~")
            timer("devils_catacomb_goto_ebene6", 5)
        end
        when dc4.timer begin
            d.notice("Timpul a expirat!")
            warp_all_to_village()
        end    
--Ebene 6 (Charon)
        when devils_catacomb_goto_ebene6.timer begin
            d.new_jump_all(90, 4411, 12736)
            timer("dc5", 600)
            d.notice("[Catacomba Diavolului]: Pentru a putea ajunge la Azrael trebuie sa îl ucideti pe Charon!")
            d.regen_file("data/dungeon/dc/dc_regen_ebene6.txt")
        end        
        when 2597.kill with pc.in_dungeon() begin
            timer("dc5", 6000)
				d.notice ( "[Catacomba Diavolului]: O sa fii teleportat imediat" )
				d.notice ( "[Catacomba Diavolului]: Pregãteºte-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 7 (Azrael)
        when devils_catacomb_goto_ebene7.timer begin
            d.new_jump_all(90, 3147, 13191)
            d.notice("~~Ucide-l pe Azrael , si vei primi o recompensa pe masura~~")
            d.regen_file("data/dungeon/dc/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("[Catacomba Diavolului]: L-ai învins. Meriþi o recompensa!")
            d.kill_all()
            d.kill_all()
            notice_all("Jucatorul "..pc.get_name().." l-a învivins pe Azrael!")
            timer("goout_from_dc", 60)
            d.spawn_mob(9012, 74, 1159)
			pc.give_item2(50186)			
        end
    end
end  

Cavalion scrie:Poftim un Quest este cel de pe serverul meu si este functional :

Cod: Selectaţi tot

quest dc begin
    state start begin 
--FaiL... Entry
        --when 20092.chat."Devils Catacomb (lv.85)" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 1 and pc.get_level() < 85 begin
            --say_title("Wächter der Katakombe")
            --say("")
            --say_reward("Du bist noch zu Schwach!")
            --say("")
        --end
--Eintritt!  
        when 20092.chat."Intrã în Catacombele Diavolului" with game.get_event_flag("dc_is_ok") == 1 and pc.getqf("can_in_dc") == 0 begin
            say ( "Pânã în prezent " .. game . get_event_flag ( "dc_jucator" ) .. " soldaþi au încercat" ) 
		say ( "sã il invingã pe Azrael !")
		say ( "Din pacãte " .. game . get_event_flag ( "dc_succes" ) .. " soldaþi au murit în luptã." ) 
		say ( "Foarte putini reuºesc sa ducã pânã la sfârºit aceastã misiune, te mai las un moment sã te gândeºti...")
		say ( "" )
		
wait ( ) 
if pc . count_item ( 30320 ) >= 1 and pc . level >= 85 then 

		say ("Esti sigur cã vrei sã intri?")
		say ("")
		
local s = select ( "Intra" , "Numai vreau" ) 
if s == 1 then 

pc . remove_item ( 30320 , 1 ) 
pc . warp ( 315000 , 1210100 ) 
else 
return 
end 
else

		say_reward ( "Pentru a intra în catacombe ai nevoie de un" ) 
		say_reward ( "Cap Mumificat ºi nivelul 85. Intoarce-te când")
		say_reward ( "îndeplineºti toate condiþiile.")
		say ( "" )
		
end 
		end
--Ebene 1        
        when login with pc.get_map_index() == 90 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 ( "" )
				say ( "Pentru a trece la etajul 2 trebuie sã obtii" )
				say_item  ( "Cheie Suflet Cristalizat", 30311, "" ) 
				say ( "dupa ce o gãsiþi, o trageti peste Statuia Kud!" )
				say ( "" )
            pc.setqf("sksgedroppt", 0)
        end
        when kill with not npc.is_pc() and pc.get_map_index() == 90 begin 
            local sks = number(1,15)
            if sks==1 and pc.getqf("sksgedroppt")==0 then
                pc.setqf("sksgedroppt", 1)
                chat("Ai gasit Cheia Suflet Cristalizat.")
                game.drop_item(30311, 1)    
            end
        end
        when 30101.take with item.vnum == 30311 begin
            item.remove()
            d.new_jump_all(90, 3636, 12086)
            timer("dc1", 600)
            d.notice("~~~Felicitari.Tu si echipa ta ve-ti fi teleportati~~~")
            d.notice("~~~La etajul urmator~~~")
            d.regen_file("data/dungeon/dc/dc_regen_ebene2.txt")
            d.regen_file("data/dungeon/dc/dc_regen_tore_unten.txt")
            d.regen_file("data/dungeon/dc/dc_regen_tore_left.txt")
            d.spawn_mob(30103, 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", 90)
        end    
        when dc30.timer begin
            d.notice("Mai aveti 45 de minute!")
            timer("dc4", 90)
        end        
        when dc40.timer begin
            d.notice("Mai aveti 40 de minute!")
            timer("dc5", 90)
        end        
        when dc50.timer begin
            d.notice("Mai aveti 35 de minute!")
            timer("dc6", 90)
        end        
        when dc60.timer begin
            d.notice("Mai aveti 30 de minute!")
            timer("dc7", 90)
        end        
        when dc70.timer begin
            d.notice("Mai aveti 25 de minute!")
            timer("dc8", 90)
        end        
        when dc80.timer begin
            d.notice("Mai aveti 20 de minute!")
            timer("dc9", 90)
        end        
        when dc90.timer begin
            d.notice("Mai aveti 15 minute!")
            timer("dc10", 90)
        end        
        when dc100.timer begin
            d.notice("Mai aveti 10 minute!")
            timer("dc11", 90)
        end        
        when dc101.timer begin
            d.notice("Mai aveti 5 minute!")
            timer("dc12", 90)
        end                    
        when dc110.timer begin
            d.notice("Timpul a expirat!")
            warp_all_to_village()
        end                      
--Ebene 3
        when 30103.chat."Etajul 3" begin
            npc.purge()
            say_reward("Catacomba Diavolului:")
            say("Drumul spre Azrael este foarte lung...")
            wait()
            d.new_jump_all(90, 4427, 12284)
            timer("dc1", 6000)
            timer("dc2", 600)
            d.setf("goto_ebene3", 0)
            d.notice("~~Pentru a trece la etajul urmator")
            d.notice("~~Gaseste si distruge metinul adevarat~~")
            d.regen_file("data/dungeon/dc/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 este fals~~")
        end
        when 8029.kill with pc.in_dungeon() begin
            d.notice("~~Ai gasit metinul cel bun.Ve-ti fi teleportati mai departe~~")
            timer("dc2", 6000)
            timer("devils_catacomb_goto_ebene5", 5)
        end    
        when dc2.timer begin
            d.notice("Timpul a expirat!")
            warp_all_to_village()
        end    

        
--Ebene 5 (Tartaros)
        when devils_catacomb_goto_ebene5.timer begin
            d.new_jump_all(90, 3917, 12925)
            d.notice("~~Cautã ºi ucide Ucigaºul Iadului pentru a obþine un Totem Schimonosit!~~")
            d.spawn_mob(30102, 848, 739)
            timer("dc4", 600)
            d.regen_file("data/dungeon/dc/dc_regen_ebene5.txt")
            local tartaros = number(1,4)
            if tartaros==1 then
                d.spawn_mob(2591, 991, 848)
            end
            if tartaros==2 then
                d.spawn_mob(2591, 999, 652)
            end
            if tartaros==3 then
                d.spawn_mob(2591, 848, 577)
            end
            if tartaros==4 then
                d.spawn_mob(2591, 703, 644)
            end
            if tartaros==5 then
                d.spawn_mob(2591, 692, 817)
            end
        end            
        when 2591.kill with pc.in_dungeon() begin
					d.notice("[Catacomba Diavolului]: Ucigaºul Iadului þi-a dat un Totem Schimonosit!")
					d.notice("[Catacomba Diavolului]: Acum du-te ºi 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("~~Tu si echipa ta veti fi teleportati imediat!~~")
            timer("devils_catacomb_goto_ebene6", 5)
        end
        when dc4.timer begin
            d.notice("Timpul a expirat!")
            warp_all_to_village()
        end    
--Ebene 6 (Charon)
        when devils_catacomb_goto_ebene6.timer begin
            d.new_jump_all(90, 4411, 12736)
            timer("dc5", 600)
            d.notice("[Catacomba Diavolului]: Pentru a putea ajunge la Azrael trebuie sa îl ucideti pe Charon!")
            d.regen_file("data/dungeon/dc/dc_regen_ebene6.txt")
        end        
        when 2597.kill with pc.in_dungeon() begin
            timer("dc5", 6000)
				d.notice ( "[Catacomba Diavolului]: O sa fii teleportat imediat" )
				d.notice ( "[Catacomba Diavolului]: Pregãteºte-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 7 (Azrael)
        when devils_catacomb_goto_ebene7.timer begin
            d.new_jump_all(90, 3147, 13191)
            d.notice("~~Ucide-l pe Azrael , si vei primi o recompensa pe masura~~")
            d.regen_file("data/dungeon/dc/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("[Catacomba Diavolului]: L-ai învins. Meriþi o recompensa!")
            d.kill_all()
            d.kill_all()
            notice_all("Jucatorul "..pc.get_name().." l-a învivins pe Azrael!")
            timer("goout_from_dc", 60)
            d.spawn_mob(9012, 74, 1159)
			pc.give_item2(50186)			
        end
    end
end  

yonutzzell scrie:O camera de cristal completa imi poate da cineva ?

----------------------------------------------------
--Camera_de_cristal_by_demonn
----------------------------------------------------
quest Camera_de_cristal_by_demon begin
state start begin
        
        when 30123.chat."Templul Dragonului." with pc.get_map_index() == 73 begin
        if get_time() > game.get_event_flag("Grotte_time") then
        game.set_event_flag("Grotte_zugang",0)
        end
        if pc.is_gm() or pc.count_item(30179) >= 0 then
        say_title(""..mob_name(30123).."")
        say("Bun venit "..pc.get_name().."")
        say("Nu ai nevoie nici de chei nici de parola")
        say("esti GM poti intra cand vrei.")
        wait()
        pc.warp(826400, 1063800)
        return
        end
        if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
        say_title(""..mob_name(30123).."")
		say_reward("Pentru a intra în templul lui Beran,")
        say_reward("ai nevoie de "..item_name(30179).."")
        say_item_vnum(30179)
        say_reward("Această cheie răsucită pică la Căpitanul Setaou.")
		say_reward("Ai nevoie de trei Chei Răsucite pentru a intra.")
        return
        end
        if game.get_event_flag("Grotte_zugang") == 1 then
        say_title(""..mob_name(30123).."")
        pc.setqf("grotte_passworto", 078954687921)
        if pc.getqf("abgabe") == 1 then
        pc.setqf("abgabe",0)
        say("Ai cele trei Chei Răsucite.")
        say("Te voi teleporta imediat în camera de cristal.")
        pc.setqf("erlaubt",1)
        wait()
        pc.warp(826400, 1063800)
        return
        end
        say("Introdu codul ales de liderul grupului.")
        local passwort = tonumber(input(""))
        --pc.setqf("grotte_passworto", passwort) 
        if game.get_event_flag("Grotte_passwort") == passwort then
        say_title(""..mob_name(30123).."")
        say("Ai introdus codul corect.")
        if pc.count_item(30179) < 3 then
        say("Nu te pot teleporta deoarece nu ai")
        say(""..item_name(30179).."")
        say_item_vnum(30179)
        say("Ai nevoie de cele trei Chei Răsucite.")
        return
        end
        say("Te voi teleporta imediat.")
        pc.setqf("erlaubt",1)
        wait()
        if pc.can_warp() then   
	 pc.remove_item("30179",3) end
        pc.warp(826400, 1063800)
        elseif passi != pc.getqf("grotte_passworto") then
        say_title(""..mob_name(30123).."")
        say("")
        return
        end
        end
        if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
        say_title(""..mob_name(30123).."")
        say("Deţin în mine, ultima suflare a zului dragon.")
		say("Această suflare magică te pot ajuta să mergi în")
		say_reward("Camera de cristal.")
		say("")
        say("Ai nevoie de cele trei chei răsucite.")
        local i = select("Da, Vreau", "Nu, Mulţumesc")
        if 1 == i then
        say_title(""..mob_name(30123).."")
        say("Ai nevoie de un cod pentru tine şi grupul tău.")
		say("Codul pe care îl vei introduce, va trebui să ")
		say("conţină maxim 2 cifre.")
        local passwort = tonumber(input(""))
        if passwort and passwort <= 999999999 and pc.count_item(30179)>=1 then
        game.set_event_flag("Grotte_zugang",1)
        game.set_event_flag("Grotte_passwort",passwort)
        local times = get_time() + 300 --Wartezeit
        game.set_event_flag("Grotte_time", times)
        say_title(""..mob_name(30123).."")
        pc.setqf("abgabe",1)
        say("Parola aleasa este: "..passwort.."")
        notice_in_map("[Pocal Magic]:Parola camerei alese este "..passwort.." ")
        pc.remove_item("30179",3)
        else 
        say_title(""..mob_name(30123).."")
        say("Nu ai scris codul corect.")
        end
        end
        end
        end
    when login with pc.get_map_index() == 189 and not pc.is_gm() begin
        if pc.count_item("30179") >= 0 then chat("") return end
        if pc.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 189 then
         chat("")
            warp_to_village()
        end
        notice_in_map("[Camera de cristal]:Bun venit în camera de cristal ! Începem prima sarcină a voastră.")
        notice_in_map("[Camera de cristal]:Spargeţi toate metinele, si aflaţi care este metinul corespunzător.")
        pc.set_warp_location(73 , 1825, 12207)
        end
    when 8031.kill with pc.get_map_index() == 189 begin
        timer("skipia_boss_goo", 10)
        notice_in_map("[Camera de cristal]:Aţi spart metinul corespunzător.")
	 notice_in_map("[Camera de cristal]:Îl veţi întâlni pe Beran-Setaou. Ce veţi face ?")
	 d.kill_all()
        end
    when skipia_boss_goo.timer begin
        game.set_event_flag("Grotte_zugang",0)
        d.new_jump_all(189, 8264, 10638)
        d.setf("grotte_boss", 1)
        d.spawn_mob(9012, 64, 142)
        end
    when 8031.kill or 8032.kill or 8033.kill or 8034.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
    local n =d.getf("count") + 1
    d.setf("count", n) 
    notice_in_map("[Camera de cristal]:Aţi spart până acum "..n.." metine.")
    if n > 2 then
    local t = number(1,4)
    notice_in_map("[Camera de cristal]:Beran-Setaou este foarte furios.")
	notice_in_map("[Camera de cristal]:Cheama şi mai multe metine.")
    if 1 == t then
    d.regen_file("data/dungeon/skia_boss1.txt")
    elseif 2 == t then
    d.regen_file("data/dungeon/skia_boss2.txt")
    elseif 3 == t then
    d.regen_file("data/dungeon/skia_boss3.txt")
    else
    d.regen_file("data/dungeon/skia_boss4.txt")
    end
    end
    end
    when 2493.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
        d.setf("grotte_boss", 3)
        notice_all("Cu o ultimă suflare de speranţă liderul "..pc.get_name().."")
        notice_all("Urmat de războinici lui de încredere, au reuşit să învingă Dragonul Albastru.")
        timer("skipia_boss_end", 60)
		d.spawn_mob(9012, 64, 142)
        d.kill_all()
        d.clear_regen()
        end

    when login with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
    pc.set_warp_location(73 , 1825, 12207)
    end
    when login with pc.in_dungeon() and d.getf("grotte_boss") == 1 begin
        timer("skipia_boss_end", 3600)    
        d.set_regen_file("data/dungeon/skia_boss.txt")
        local t = number(1,4)
        if 1 == t then
            d.regen_file("data/dungeon/skia_boss1.txt")
            elseif 2 == t then
            d.regen_file("data/dungeon/skia_boss2.txt")
            elseif 3 == t then
            d.regen_file("data/dungeon/skia_boss3.txt")
            else
            d.regen_file("data/dungeon/skia_boss4.txt")
        end
        local o = number(1,4)
        if 1 == o then
            d.regen_file("data/dungeon/skia_boss5.txt")
            elseif 2 == o then
            d.regen_file("data/dungeon/skia_boss6.txt")
            elseif 3 == o then
            d.regen_file("data/dungeon/skia_boss7.txt")
            else
            d.regen_file("data/dungeon/skia_boss8.txt")
            end    
        d.setf("grotte_boss", 2)
        d.notice("[Camera de cristal]:Aveţi la dispozitie 60 de minute să îi capturaţi sufletul lui Beran.")
        d.setf("count", 0)
        pc.set_warp_location(73 , 1825, 12207)
        end

    when login with pc.in_dungeon() and d.getf("grotte_boss") == 3 begin -- begin
    --pc.warp(181700, 1220600)
    end
    when skipia_boss_end.timer begin
        d.exit_all()
        end
    when skipia_boss_ende.timer begin
        kill_all_in_map(189)
        game.set_event_flag("Grotte_zugang",0)
        d.setf("grotte_boss", 1)
        d.exit_all()
    end
    when login with pc.get_map_index() != 189 or not pc.in_dungeon() begin
    pc.setqf("erlaubt",0)
    end
    end
end  

quest devilcave begin
	state start begin
		when login begin
			if pc.get_map_index() == 206  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() == 206  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 ai...")
			say_item("Cheie Suflet Cristalizat", 30311, "") 
			say("dupa ce o gasiti o trageti peste")
			say("Statuia Zombi!")
			say("")
			say_reward("Succes!")
			say("")
			pc.setqf("sksgedroppt", 0)
		end
		when kill with not npc.is_pc() and pc.get_map_index() == 206  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(206 , 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", 206 )
		end	
		when dc30.timer begin
			d.notice("Mai aveti 45 de minute!")
			timer("dc4", 206 )
		end	    
		when dc40.timer begin
			d.notice("Mai aveti 40 de minute!")
			timer("dc5", 206 )
		end	    
		when dc50.timer begin
			d.notice("Mai aveti 35 de minute!")
			timer("dc6", 206 )
		end	    
		when dc60.timer begin
			d.notice("Mai aveti 30 de minute!")
			timer("dc7", 206 )
		end	    
		when dc70.timer begin
			d.notice("Mai aveti 25 de minute!")
			timer("dc8", 206 )
		end	    
		when dc80.timer begin
			d.notice("Mai aveti 20 de minute!")
			timer("dc9", 206 )
		end	    
		when dc90.timer begin
			d.notice("Mai aveti 15 de minute!")
			timer("dc10", 206 )
		end	    
		when dc100.timer begin
			d.notice("Mai aveti 10 de minute!")
			timer("dc11", 206 )
		end	    
		when dc101.timer begin
			d.notice("Mai aveti 5 de minute!")
			timer("dc12", 206 )
		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(206 , 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(206 , 3572, 12752)
			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(206 , 3917, 12925)
			d.notice("~~Cauta si ucide Ucigasul Iadului pentru a obtine un Totem Schimonosit!~~")
			d.notice("~~acesta se trage peste Stalpu Zombi!~~")
			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 Stalpu Zombi!~~~")
			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(206 , 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(206 , 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

Filip™ scrie:

yonutzzell scrie:O camera de cristal completa imi poate da cineva ?

Cod: Selectaţi tot

----------------------------------------------------
--Camera_de_cristal_by_demonn
----------------------------------------------------
quest Camera_de_cristal_by_demon begin
state start begin
        
        when 30123.chat."Templul Dragonului." with pc.get_map_index() == 73 begin
        if get_time() > game.get_event_flag("Grotte_time") then
        game.set_event_flag("Grotte_zugang",0)
        end
        if pc.is_gm() or pc.count_item(30179) >= 0 then
        say_title(""..mob_name(30123).."")
        say("Bun venit "..pc.get_name().."")
        say("Nu ai nevoie nici de chei nici de parola")
        say("esti GM poti intra cand vrei.")
        wait()
        pc.warp(826400, 1063800)
        return
        end
        if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
        say_title(""..mob_name(30123).."")
		say_reward("Pentru a intra în templul lui Beran,")
        say_reward("ai nevoie de "..item_name(30179).."")
        say_item_vnum(30179)
        say_reward("Această cheie răsucită pică la Căpitanul Setaou.")
		say_reward("Ai nevoie de trei Chei Răsucite pentru a intra.")
        return
        end
        if game.get_event_flag("Grotte_zugang") == 1 then
        say_title(""..mob_name(30123).."")
        pc.setqf("grotte_passworto", 078954687921)
        if pc.getqf("abgabe") == 1 then
        pc.setqf("abgabe",0)
        say("Ai cele trei Chei Răsucite.")
        say("Te voi teleporta imediat în camera de cristal.")
        pc.setqf("erlaubt",1)
        wait()
        pc.warp(826400, 1063800)
        return
        end
        say("Introdu codul ales de liderul grupului.")
        local passwort = tonumber(input(""))
        --pc.setqf("grotte_passworto", passwort) 
        if game.get_event_flag("Grotte_passwort") == passwort then
        say_title(""..mob_name(30123).."")
        say("Ai introdus codul corect.")
        if pc.count_item(30179) < 3 then
        say("Nu te pot teleporta deoarece nu ai")
        say(""..item_name(30179).."")
        say_item_vnum(30179)
        say("Ai nevoie de cele trei Chei Răsucite.")
        return
        end
        say("Te voi teleporta imediat.")
        pc.setqf("erlaubt",1)
        wait()
        if pc.can_warp() then   
	 pc.remove_item("30179",3) end
        pc.warp(826400, 1063800)
        elseif passi != pc.getqf("grotte_passworto") then
        say_title(""..mob_name(30123).."")
        say("")
        return
        end
        end
        if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
        say_title(""..mob_name(30123).."")
        say("Deţin în mine, ultima suflare a zului dragon.")
		say("Această suflare magică te pot ajuta să mergi în")
		say_reward("Camera de cristal.")
		say("")
        say("Ai nevoie de cele trei chei răsucite.")
        local i = select("Da, Vreau", "Nu, Mulţumesc")
        if 1 == i then
        say_title(""..mob_name(30123).."")
        say("Ai nevoie de un cod pentru tine şi grupul tău.")
		say("Codul pe care îl vei introduce, va trebui să ")
		say("conţină maxim 2 cifre.")
        local passwort = tonumber(input(""))
        if passwort and passwort <= 999999999 and pc.count_item(30179)>=1 then
        game.set_event_flag("Grotte_zugang",1)
        game.set_event_flag("Grotte_passwort",passwort)
        local times = get_time() + 300 --Wartezeit
        game.set_event_flag("Grotte_time", times)
        say_title(""..mob_name(30123).."")
        pc.setqf("abgabe",1)
        say("Parola aleasa este: "..passwort.."")
        notice_in_map("[Pocal Magic]:Parola camerei alese este "..passwort.." ")
        pc.remove_item("30179",3)
        else 
        say_title(""..mob_name(30123).."")
        say("Nu ai scris codul corect.")
        end
        end
        end
        end
    when login with pc.get_map_index() == 189 and not pc.is_gm() begin
        if pc.count_item("30179") >= 0 then chat("") return end
        if pc.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 189 then
         chat("")
            warp_to_village()
        end
        notice_in_map("[Camera de cristal]:Bun venit în camera de cristal ! Începem prima sarcină a voastră.")
        notice_in_map("[Camera de cristal]:Spargeţi toate metinele, si aflaţi care este metinul corespunzător.")
        pc.set_warp_location(73 , 1825, 12207)
        end
    when 8031.kill with pc.get_map_index() == 189 begin
        timer("skipia_boss_goo", 10)
        notice_in_map("[Camera de cristal]:Aţi spart metinul corespunzător.")
	 notice_in_map("[Camera de cristal]:Îl veţi întâlni pe Beran-Setaou. Ce veţi face ?")
	 d.kill_all()
        end
    when skipia_boss_goo.timer begin
        game.set_event_flag("Grotte_zugang",0)
        d.new_jump_all(189, 8264, 10638)
        d.setf("grotte_boss", 1)
        d.spawn_mob(9012, 64, 142)
        end
    when 8031.kill or 8032.kill or 8033.kill or 8034.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
    local n =d.getf("count") + 1
    d.setf("count", n) 
    notice_in_map("[Camera de cristal]:Aţi spart până acum "..n.." metine.")
    if n > 2 then
    local t = number(1,4)
    notice_in_map("[Camera de cristal]:Beran-Setaou este foarte furios.")
	notice_in_map("[Camera de cristal]:Cheama şi mai multe metine.")
    if 1 == t then
    d.regen_file("data/dungeon/skia_boss1.txt")
    elseif 2 == t then
    d.regen_file("data/dungeon/skia_boss2.txt")
    elseif 3 == t then
    d.regen_file("data/dungeon/skia_boss3.txt")
    else
    d.regen_file("data/dungeon/skia_boss4.txt")
    end
    end
    end
    when 2493.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
        d.setf("grotte_boss", 3)
        notice_all("Cu o ultimă suflare de speranţă liderul "..pc.get_name().."")
        notice_all("Urmat de războinici lui de încredere, au reuşit să învingă Dragonul Albastru.")
        timer("skipia_boss_end", 60)
		d.spawn_mob(9012, 64, 142)
        d.kill_all()
        d.clear_regen()
        end

    when login with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
    pc.set_warp_location(73 , 1825, 12207)
    end
    when login with pc.in_dungeon() and d.getf("grotte_boss") == 1 begin
        timer("skipia_boss_end", 3600)    
        d.set_regen_file("data/dungeon/skia_boss.txt")
        local t = number(1,4)
        if 1 == t then
            d.regen_file("data/dungeon/skia_boss1.txt")
            elseif 2 == t then
            d.regen_file("data/dungeon/skia_boss2.txt")
            elseif 3 == t then
            d.regen_file("data/dungeon/skia_boss3.txt")
            else
            d.regen_file("data/dungeon/skia_boss4.txt")
        end
        local o = number(1,4)
        if 1 == o then
            d.regen_file("data/dungeon/skia_boss5.txt")
            elseif 2 == o then
            d.regen_file("data/dungeon/skia_boss6.txt")
            elseif 3 == o then
            d.regen_file("data/dungeon/skia_boss7.txt")
            else
            d.regen_file("data/dungeon/skia_boss8.txt")
            end    
        d.setf("grotte_boss", 2)
        d.notice("[Camera de cristal]:Aveţi la dispozitie 60 de minute să îi capturaţi sufletul lui Beran.")
        d.setf("count", 0)
        pc.set_warp_location(73 , 1825, 12207)
        end

    when login with pc.in_dungeon() and d.getf("grotte_boss") == 3 begin -- begin
    --pc.warp(181700, 1220600)
    end
    when skipia_boss_end.timer begin
        d.exit_all()
        end
    when skipia_boss_ende.timer begin
        kill_all_in_map(189)
        game.set_event_flag("Grotte_zugang",0)
        d.setf("grotte_boss", 1)
        d.exit_all()
    end
    when login with pc.get_map_index() != 189 or not pc.in_dungeon() begin
    pc.setqf("erlaubt",0)
    end
    end
end  

Uite si catacomba.

Cod: Selectaţi tot

quest devilcave begin
	state start begin
		when login begin
			if pc.get_map_index() == 206  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() == 206  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 ai...")
			say_item("Cheie Suflet Cristalizat", 30311, "") 
			say("dupa ce o gasiti o trageti peste")
			say("Statuia Zombi!")
			say("")
			say_reward("Succes!")
			say("")
			pc.setqf("sksgedroppt", 0)
		end
		when kill with not npc.is_pc() and pc.get_map_index() == 206  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(206 , 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", 206 )
		end	
		when dc30.timer begin
			d.notice("Mai aveti 45 de minute!")
			timer("dc4", 206 )
		end	    
		when dc40.timer begin
			d.notice("Mai aveti 40 de minute!")
			timer("dc5", 206 )
		end	    
		when dc50.timer begin
			d.notice("Mai aveti 35 de minute!")
			timer("dc6", 206 )
		end	    
		when dc60.timer begin
			d.notice("Mai aveti 30 de minute!")
			timer("dc7", 206 )
		end	    
		when dc70.timer begin
			d.notice("Mai aveti 25 de minute!")
			timer("dc8", 206 )
		end	    
		when dc80.timer begin
			d.notice("Mai aveti 20 de minute!")
			timer("dc9", 206 )
		end	    
		when dc90.timer begin
			d.notice("Mai aveti 15 de minute!")
			timer("dc10", 206 )
		end	    
		when dc100.timer begin
			d.notice("Mai aveti 10 de minute!")
			timer("dc11", 206 )
		end	    
		when dc101.timer begin
			d.notice("Mai aveti 5 de minute!")
			timer("dc12", 206 )
		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(206 , 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(206 , 3572, 12752)
			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(206 , 3917, 12925)
			d.notice("~~Cauta si ucide Ucigasul Iadului pentru a obtine un Totem Schimonosit!~~")
			d.notice("~~acesta se trage peste Stalpu Zombi!~~")
			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 Stalpu Zombi!~~~")
			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(206 , 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(206 , 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

FreshXL scrie:Uitate aici pt catacomba


http://just4metin.ro/topic353.html

Fellipe scrie:Hmmmm...3 quest-uri si tot nu merge? Nu ti se pare umpic strange?
Sigur e de la quest?