Cod: Selectaţi tot

----------------------------------------------------
----- Quest:  Catacomba diavolului	           -----
----- Server: Rise of the Unknown              -----
----- Author: hope                             -----
----------------------------------------------------

quest catacomba_diavolului begin
    state start begin
	
        when catacomba_diavolului_paznic.chat."Intră în Catacomba Diavoulului" begin       
			if pc.get_level() < 80 then 			  
				say_title ( "Gardianul Catacombei:" )
				say ( "Ai nevoie de nivelul 80 pentru a putea intra.[ENTER]" )				
				return
			end
			
			if not party.is_party() then
				say_title ( "Gardianul Catacombei:" )
				say ( "Pentru a intra în Catacomba Diavolului trebuie" )
				say ( "să faci parte dintr-o grupă.[ENTER]" )
				return
			end
			
			if not party.is_leader() then
				say_title ( "Gardianul Catacombei:" )
				say ( "Doar liderul grupei poate începe misiunea.[ENTER]")
				return
			end	
			
			say_title ( "Gardianul Catacombelor" )
			say ( "Salut aventurierule. Sigur vrei să intri în" )
			say ( "Catacomba Diavoulului? Puţină lume a reuşit" )
			say ( "să ajungă până la final.[ENTER]" )					         
				
			local cd_intrare = select ( "Intră " , "Nu, mulţumesc" )				
			if cd_intrare == 1 then				
			pc.setqf ( "etaj", 1)
			d.join(90)							
            elseif cd_intrare == 2 then
			return		
			end				
		end 
			
        when login with pc.get_map_index() == 80 begin		
            if pc.getqf( "etaj" ) == 1 then	
			pc.setqf ( "drop_cheie", 0)
			pc.setqf ( "liderul_grupei", 0)				
			say ( "Distruge creaturile pentru a primi Cheia" )
			say ( "Suflet Cristalizat. Aceasta deschide poarta" )
			say ( "etajului 2.[ENTER]" )					
			end
		end
						
		when login with pc.get_map_index() == 90 begin	
			pc.set_warp_location(65, 1815, 12205)
		end	
				
		when logout begin
			if pc.get_map_index() == 90 then
			pc.remove_item(30311, pc.count_item(30311))
			pc.remove_item(30312, pc.count_item(30312))
			end
		end   
	
        when kill with not npc.is_pc() and pc.get_map_index() == 90 begin 
            local sansa_drop_cheie = number( 1 , 50 )
			if sansa_drop_cheie == 1 and pc.getqf ( "drop_cheie" )==0 then
			pc.setqf ( "drop_cheie" , 1 )					
			game.drop_item_with_ownership(30311, 1)
            end
        end
		
        when catacomba_diavolului_statuie1.take with item.vnum == 30311 begin		
			if party.is_party() and not party.is_leader()  then					
			say ( "Doar liderul grupului poate rupe sigiliul.[ENTER]" )				
			return
		end
		
			pc.remove_item(30311)
			pc.setqf ( "liderul_grupei" , 1 )			
			say ( "Sigiliul a fost rupt.[ENTER]Imediat vei fi teleportat la etajul următor.[ENTER]" )				
			wait()							
			d.new_jump_all ( 90, 3636, 12086 )		
			d.setf ( "etaj" , 2)				
        end    		

        when login with pc.in_dungeon() begin				
			if d.getf( "etaj" ) == 2 then						
			pc.set_warp_location ( 65, 5908, 1112 )				
			say ( "Sparge porţile şi distruge sigiliul pentru[ENTER]a trece mai departe.[ENTER]" )	
			say_reward ( "Ai 60 minute la dispoziţie.[ENTER]" )
			d.regen_file ( "data/dungeon/catacomba_diavolului/catacomba_diavolului_usi.txt" )
			d.regen_file ( "data/dungeon/catacomba_diavolului/catacomba_diavolului_etaj_2.txt" )	
			d.regen_file ( "data/dungeon/catacomba_diavolului/etaj_2_regen.txt" )	
			timer ( "catacomba_diavolului_60_min", 1 )			
			end			
		end
			
        when catacomba_diavolului_60_min.timer begin
            timer ( "catacomba_diavolului_50_min", 600 )
        end  
		
        when catacomba_diavolului_50_min.timer begin
			chat ( "Ţi-au mai rămas 50 minute." )
            timer ( "catacomba_diavolului_40_min", 600 )
        end  
		
        when catacomba_diavolului_40_min.timer begin
			chat ( "Ţi-au mai rămas 40 minute." )
            timer ( "catacomba_diavolului_30_min", 600 )
        end   
		
        when catacomba_diavolului_30_min.timer begin
			chat ( "Ţi-au mai rămas 30 minute." )
            timer ( "catacomba_diavolului_20_min", 600 )
        end   
		 
        when catacomba_diavolului_20_min.timer begin
			chat ( "Ţi-au mai rămas 20 minute." )
            timer ( "catacomba_diavolului_10_min", 600 )
        end        
		
        when catacomba_diavolului_10_min.timer begin
			chat ( "Ţi-au mai rămas 10 minute." )
            timer ( "catacomba_diavolului_0_min", 600 )
        end
        		
        when catacomba_diavolului_0_min.timer begin
			chat ( "Timpul a expirat. Imediat vei fi teleportat la suprafaţă." )
            d.exit_all()
        end     
		
		when catacomba_diavolului_testoasa.take with item.vnum == 30320 begin
			if pc.getqf ( "liderul_grupei" ) == 1 then		
			pc.remove_item ( "30320" )				
			npc.purge()
			d.clear_regen()											
			timer ( "catacomba_diavolului_etaj3" , 5 )
			else			
			say ( "Doar liderul grupului poate rupe sigiliul.[ENTER]" )				
			end
		end
			
		when catacomba_diavolului_etaj3.timer begin
            d.jump_all( 3072+1339 , 12032+250 )		
            d.setf ( "etaj", 3 )
			d.regen_file ( "data/dungeon/catacomba_diavolului/catacomba_diavolului_etaj_3.txt" )
			d.regen_file ( "data/dungeon/catacomba_diavolului/etaj_3_regen.txt" )				
			say ( "Caută piatra Metin corectă şi distruge-o." )								
		
			local coord_metin = {{1340,348},{1243,357},{1334,151},{1252,148},{1149,148},{1139,244},{1148,355}}
			local metin_corect = math.mod(os.time(),table.getn(coord_metin)+1)
			for i = 1,table.getn(coord_metin) do
			if i == metin_corect then	
			local v = d.spawn_mob(8038, coord_metin[i][1], coord_metin[i][2])
			d.set_unique("real", v)
			else
			d.spawn_mob(8038, coord_metin[i][1], coord_metin[i][2])			
			end
			end
		end
		
		when catacomba_diavolului_metin1.kill with pc.in_dungeon() begin		
			if d.is_unique_dead ( "real" ) then
			d.notice ( "Ai găsit piatra Metin corectă." )
			d.clear_regen()			
			timer ( "catacomba_diavolului_etaj4", 3)
			d.clear_regen()	
			else
			d.notice( "Piatra Metin este falsă. Găseşte-o pe cea adevărată." )
			end
		end
		
		when catacomba_diavolului_etaj4.timer begin
		    d.jump_all( 3072+70 , 12032+580 )	
			d.setf ( "etaj", 4 )
			d.regen_file ( "data/dungeon/catacomba_diavolului/etaj_4_regen.txt" )
			d.regen_file ( "data/dungeon/catacomba_diavolului/catacomba_diavolului_portale.txt" )
			d.notice ( "Găseşte calea corectă pentru a ajunge la nivelul următor!" )
		end
		
		when catacomba_diavolului_runa.click with pc.in_dungeon() begin		
			if pc.getqf ( "liderul_grupei" ) == 1 then
			npc.purge()
			say ( "Ai găsit ieşirea din labirint![ENTER]")
			d.clear_regen()
			wait()
			timer ( "catacomba_diavolului_etaj5", 3 )	
			else
			say ( "Doar liderul grupului poate rupe sigiliul.[ENTER]" )
			end
		end
								
		when catacomba_diavolului_etaj5.timer begin		
			d.jump_all( 3072+845 , 12032+899 )	
			d.setf ( "etaj" , 5 )
			d.regen_file ( "data/dungeon/catacomba_diavolului/catacomba_diavolului_etaj_5.txt" )
			d.regen_file ( "data/dungeon/catacomba_diavolului/etaj_5_regen.txt" )	
			say ( "Înfrânge Gardienii Demoni pentru a primi[ENTER]Totemul Schimonosit. După ce ai găsit totemul[ENTER]du-te şi pune-l pe obeliscul din vârful muntelui.[ENTER]" )			
		
			local coord_sef = {{848,570},{678,832},{685,632},{1031,637},{1003,856}}
			local sef_corect = math.mod(os.time(),table.getn(coord_sef)+1)
			for i = 1,table.getn(coord_sef) do
			if i == sef_corect then
			local v = d.spawn_mob(2591, coord_sef[i][1], coord_sef[i][2])
			d.set_unique("real", v)
			else
			d.spawn_mob(2591, coord_sef[i][1], coord_sef[i][2])					
			end
			end			
		end
			
		when catacomba_diavolului_king1.kill with pc.in_dungeon() begin			
			if d.is_unique_dead( "real" ) and d.getf ( "sef_corect_omorat" ) == 0 then
			d.setf( "sef_corect_omorat", 1)					
			d.notice ( "Ai găsit Totemul Schimonosit. Mergi şi pune-l pe obeliscul din vârful muntelui. " )
			game.drop_item_with_ownership(30312 , 1)
			else
			d.notice ( "Nu ai găsit totemul. Continuă să cauţi.")
			end
		end
		
        when catacomba_diavolului_obelisc.take with item.vnum == 30312 begin			
			if pc.getqf ( "liderul_grupei" ) == 1 then		
		    pc.remove_item (30312)				
			npc.purge()
			d.clear_regen()					
			timer ( "catacomba_diavolului_etaj6" , 3 )
			else
			say ( "Doar liderul grupului poate rupe sigiliul.[ENTER]" )
			end 
		end
		
		when catacomba_diavolului_etaj6.timer begin		
			say ( "Înfrânge-l pe Charon şi demonii lui pentru" )
			say ( "a trece la următorul nivel.[ENTER]" )	
			d.jump_all( 3072+1327 , 12032+652 )
			d.setf ( "etaj", 6 )
			d.regen_file ( "data/dungeon/catacomba_diavolului/catacomba_diavolului_etaj_6.txt" )
			d.regen_file ( "data/dungeon/catacomba_diavolului/etaj_6_regen.txt" )	
			d.spawn_mob(2597, 1304, 708)				
			d.notice ( "Ecoul strigătului de sânge coagulat se aude din adâncul Catacombei Diavolului." )
			d.notice ( "Charon s-a trezit!" )
        end		
        
        when catacomba_diavolului_king2.kill with pc.in_dungeon() begin	
            d.kill_all()
			d.clear_regen()
			timer ( "catacomba_diavolului_etaj7" , 3 )
		end
		
		when catacomba_diavolului_etaj7.timer begin					
			d.jump_all( 3072+75 , 12032+1155 )
			d.setf ( "etaj", 7 )
			d.regen_file ( "data/dungeon/catacomba_diavolului/catacomba_diavolului_etaj_7.txt" )	
			d.regen_file ( "data/dungeon/catacomba_diavolului/etaj_7_regen.txt" )	
			d.spawn_mob(2598, 75, 1104)			
			d.notice ( "Ai ajuns în cea mai întunecată parte a catacombei." )
			d.notice ( "Pregăteşte-te să-l înfrunţi pe Azrael!" )		
        end

        when catacomba_diavolului_king3.kill with pc.in_dungeon() begin
			game.drop_item_with_ownership(50186 , 1)				
			say ( "Azrael a fost învins. În Catacomba Diavolului în[ENTER]sfârşit domneşte pacea. Acum vei fi teleportat la[ENTER]suprafaţă.[ENTER]" )						
			d.kill_all()	
			d.clear_regen()				
			if party.is_party() then						
			notice_all ( pc.get_name().." şi grupa sa au reuşit să-l învingă pe Azrael!" )					
			timer ( "catacomba_diavolului_iesire", 30 )				
			else			
			notice_all ( pc.get_name().." a reuşit să-l învingă pe Azrael!" )				
			timer ( "catacomba_diavolului_iesire", 30 )				
			end
		end

        when catacomba_diavolului_iesire.timer begin
			d.exit_all()
		end
		
	end
end

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