quest deviltower_zone begin
state start begin
   when login begin
if pc.get_map_index() == 66 then
-- Nicht în einer Etage, die wieder nach drau|n .
-- Layer Range 
-- 1F 88 577 236 737
-- 2F 91 343 238 504
-- 3F 104 107 248 269
if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
pc.warp((5376+532)*100, (512+596+4)*100, 65)
end
pc.set_warp_location(65, 5376+532, 512+596+4)
elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
pc.set_warp_location(65, 5376+532, 512+596+4)
end
   end
   when deviltower_man.chat.locale.deviltower_man_chat begin
if pc.get_level() < 40 then
say(locale.deviltower_man_say_you_cant)
else
say(locale.deviltower_man_say)
local s = select(locale.deviltower_enter,locale.deviltower_no_enter)
if s == 1 then
-- warp into!
pc.warp(216500,727000)
end
end
   end
   when devil_stone1.kill begin
timer("devil_stone1_1", 6)
   end
   when devil_stone1_1.timer begin
local mapto7= pc.count_item(30302) -- Ich wei?nicht, das wahre Tilgung der die Existenz der Seele des Turms 
pc.remove_item(30302,mapto7)

local boxto7= pc.count_item(30300) -- Beseitigung des unbekannten wei?nicht, ob es sich um ein Feld 
pc.remove_item(30300,boxto7)

d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
d.regen_file("data/dungeon/deviltower2_regen.txt")
d.set_warp_at_eliminate(4,
 d.get_map_index(), special.devil_tower[2][1], 
special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
   end
   --when devil_stone2.kill begin
   --d.jump_all_local(special.devil_tower[2][1], special.devil_tower[2][2])
   --end
   when devil_stone3.kill begin
--d.jump_all_local(special.devil_tower[3][1], special.devil_tower[3][2])
--d.set_exit_all_at_eliminate(6)
--d.set_warp_at_eliminate(6, d.get_map_index(), 100, 100)
--d.set_warp_at_eliminate(4, 65, 5376+532, 512+596+4)
d.set_warp_at_eliminate(4,
 d.get_map_index(), special.devil_tower[3][1], 
special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
d.check_eliminated()
--d.exit_all()
   end
   function get_4floor_stone_pos()
local positions = {
{368, 629},
{419, 630},
{428, 653},
{422, 679},
{395, 689},
{369, 679},
{361, 658},
}
for i = 1, 6 do
local j = number(i, 7)
if i != j then
local t = positions;
positions = positions[j];
positions[j] = t;
end
end
--for i = 1, 7 do
   --   positions[1] = positions[1] * 100
   --   positions[2] = positions[2] * 100
-- end
return positions
   end
   when 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.setf("level", 4)
-- Reproduzieren eine gro| Anzahl von Monstern und Herstellung von wahr und falsch Steine Steine 
--d.regen_file("data/dungeon/deviltower4_regen.txt")
local positions = deviltower_zone.get_4floor_stone_pos()
for i = 1, 6 do
chat(positions[1], positions[2])
d.set_unique("fake" .. i , d.spawn_mob(8017, positions[1], positions[2]))
end
chat(positions[7][1], positions[7][2])
local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
chat(vid)
d.set_unique("real", vid)
server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

d.notice("Aici este al 4-lea etaj");
d.notice("gaseste adevarata piatra.");
d.notice("în terment de maxim 15 minute.");
   end

   when devil_stone4_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("10 minute!")
server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
end
   end

   when devil_stone4_fail2.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("5 minute!")
server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
end
   end

   when devil_stone4_fail.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Timpul a expirat!")
d.exit_all()
clear_server_timer('devil_stone4_update', get_server_timer_arg())
end
   end

   when devil_stone4_update.server_timer begin
if d.select(get_server_timer_arg()) then
if not d.is_unique_dead("real") then
for i = 1, 6 do
if d.getf("fakedead" .. i) == 0 then
if d.unique_get_hp_perc("fake" .. i) < 50 then
d.purge_unique("fake" .. i)
d.setf("fakedead" .. i, 1)
d.notice("Piatra metin falsa dispare.");
end
end
end
else
--d.clear_regen()
--d.regen_file("data/dungeon/deviltower5_regen.txt")
server_timer("devil_stone4_end", 5, get_server_timer_arg())
d.notice("Felicitari ati reusit!");
d.notice("Treceti la etajul urmator!")
clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
clear_server_timer('devil_stone4_fail', get_server_timer_arg())
end
else
server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
end
   end

   when devil_stone4_stop_timer.server_timer begin
clear_server_timer('devil_stone4_update', get_server_timer_arg())
   end

   when devil_stone4_end.server_timer begin
if d.select(get_server_timer_arg()) then
d.setf("level", 5)
d.setf("stone_count", 5)
d.notice("Etajul 5!")
d.notice("Omoara toti monstrii, iar de la acestia pica niste chei!")
d.notice("Gaseste cheia cea buna pentru a trece la nivelul urmator!")
d.notice("Cu ajutorul acestor chei vei putea ajunge la nivelul 6!(ai 20 de minute)")
d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
clear_server_timer('devil_stone4_update', get_server_timer_arg())

-- 5. Stock, weiter zu reproduzieren 
d.set_regen_file("data/dungeon/deviltower5_regen.txt")

-- 5. Stock, Seal Stone Reproduktion 
d.spawn_mob(20073, 421, 452)
d.spawn_mob(20073, 380, 460)
d.spawn_mob(20073, 428, 414)
d.spawn_mob(20073, 398, 392)
d.spawn_mob(20073, 359, 426)
end
   end
   when devil_stone5_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("15 minute!")
server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
end
   end

   when devil_stone5_fail2.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("10 minute!")
server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
end
   end

   when devil_stone5_fail3.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("5 minute!")
server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
end
   end

   when devil_stone5_fail.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Timpul a expirat!")
d.exit_all()
end
   end

   --when devil_stone4.kill begin
--d.setf("level", 5)
--d.setf("stone_count", 4)
--d.clear_regen()
--d.regen_file("data/dungeon/deviltower5_regen.txt")
--d.jump_all_local(special.devil_tower[4][1], special.devil_tower[4][2])
   --end

   when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
local KILL_COUNT_FOR_DROP_KEY = 50
--if is_test_server() then
--KILL_COUNT_FOR_DROP_KEY = 1
--end
local n =d.getf("count") + 1
d.setf("count", n) 
if n == KILL_COUNT_FOR_DROP_KEY then
-- Falling Tasten 
game.drop_item(50084, 1)
d.setf("count", 0)
end
   end
   when devil_stone5.take with item.vnum == 50084 begin
npc.purge()
item.remove()
d.setf("stone_count", d.getf("stone_count") - 1)
if d.getf("stone_count") <= 0 then
d.setf("level", 6)
d.clear_regen()
d.regen_file("data/dungeon/deviltower6_regen.txt")

d.notice("Felicitari!")
d.notice("Vei urca la etajul urmator.")
d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
clear_server_timer('devil_stone5_fail', get_server_timer_arg())
else
d.notice("Coloana eliminate ... mai ai"..d.getf("stone_count").."Mult noroc!")
end
   end

   when devil_stone6.kill begin
-- Geschickt, um eine Karte, wo die Verfeinerung St. 
-- Ansonsten |fnen Sie ein neues Lian Sheng 
--d.jump_all(special.devil_tower[6][1], special.devil_tower[6][2])
d.kill_all()
-- d.set_warp_at_eliminate(3*60, 65, 5376+532, 512+596+4)
d.check_eliminated()
local reward_alchemist = {20074, 20075, 20076}
d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
d.setqf("can_refine", 1)
   end

   --------------------------------------
   -- 7 D kommt man aus dem Zugriff vor dem 8. Stock 
   --------------------------------------


   when 20074.chat."Etajele superioare" with pc.in_dungeon() and 
pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
say_title(""..mob_name(20074).."")
say("Doriti sa treceti mai departe?")
say("")
say("Eu unul voi ramane aici!")
say("")
wait()
if pc.level >=75 then
say_title(""..mob_name(20075).."")
say("Sunteti cel putin suficient de mare în nivel.")
say("Dar sunteti, de asemenea, suficient de curajos?")
say("Exista o singura metoda de a afla acest lucru!")
timer("devil_jump_7", 6)
return
end
say_title(""..mob_name(20075).."")
say("Sunteti din pacate, nu înca")
say("suficient de mari. Trebuie sa mai cresti în nivel.")
say("Întoarce-te alta data.")
say("Mult noroc în calatoria voastra.")
say("")
wait()
pc.warp(590500, 110500)
return
end

   when 20075.chat."Etajele superioare" with pc.in_dungeon() and 
pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
say_title(""..mob_name(20075).."")
say("Doriti sa Treceti mai departe?")
say("")
say("Eu voi ramane aici!")
say("")
wait()
if pc.level >=75 then
say_title(""..mob_name(20075).."")
say("Sunteti cel putin suficient de mare în nivel.")
say("Dar sunteti, de asemenea, suficient de curajos?")
say("Exista o singura metoda de a afla acest lucru!")
timer("devil_jump_7", 6)
return
end
say_title(""..mob_name(20075).."")
say("Sunteti din pacate, nu înca")
say("suficient de mari. Trebuie sa mai cresti în nivel.")
say("Întoarce-te alta data.")
say("Mult noroc în calatoria voastra.")
say("")
wait()
pc.warp(590500, 110500)
return
end

   when 20076.chat."Etajele superioare .." with pc.in_dungeon() and 
pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
say_title(""..mob_name(20076).."")
say("Doriti sa Treceti mai departe?")
say("")
say("Eu voi ramane aici!")
say("")
wait()
if pc.level >=75 then
say_title(""..mob_name(20075).."")
say("Sunteti cel putin suficient de mare în nivel.")
say("Dar sunteti, de asemenea, suficient de curajos?")
say("Exista o singura metoda de a afla acest lucru!")
timer("devil_jump_7", 6)
return
end
say_title(""..mob_name(20075).."")
say("Sunteti din pacate, nu înca")
say("suficient de mari. Trebuie sa mai cresti în nivel.")
say("Întoarce-te alta data.")
say("Mult noroc în calatoria voastra.")
say("")
wait()
pc.warp(590500, 110500)
return
end

when devil_jump_7.timer begin
d.clear_regen()

d.spawn_mob(8018, 639, 658)
d.spawn_mob(8018, 611, 637)
d.spawn_mob(8018, 596, 674)
d.spawn_mob(8018, 629, 670)

d.setf("level", 7)

d.jump_all(2048+590, 6656+638)
   end
   
   when 8018.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
local cont = d.getf("7_stone_kill") + 1
d.setf("7_stone_kill", cont)

if cont >= 4 then
d.setf("7_stone_kill", 0)
d.set_regen_file("data/dungeon/deviltower7_regen.txt")
end   
   end

   when 8019.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
game.drop_item(30302, 1)
game.drop_item(30301, 1)
   end

   when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
pc.remove_item("30300", 1)

local pct = number(1,10)

if pct == 1 then
-- Fall wahr Karte
game.drop_item(30302, 1)
d.clear_regen()
else
-- Fall wahr Karte
game.drop_item(30301, 1)

end
   end

   when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
-- An der 8th Floor 
say("Vei fi teleportat în pestera Îngerului cu coasa .Mult noroc în continuare!")
pc.remove_item("30302", 1)
timer("devil_jump_8", 6)
d.clear_regen()
   end

   --------------------------------------------
   -- Von 8 F vor der Ankunft geben Sie die 9 F 
   --------------------------------------------
   when devil_jump_8.timer begin
d.setf("level", 8)
d.jump_all(2048+590, 6656+403)
d.set_regen_file("data/dungeon/deviltower8_regen.txt")
d.spawn_mob(20366, 640, 460)
local _count= pc.count_item(30302)-- True Tilgung Dead Turm 
pc.remove_item(30302,_count)

   end

   when 1040.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
local pct1 = number(1, 5)
if pct1 == 1 then
local pct2 = number(1, 10)
if pct2 == 1 then
-- Fall wahre Schl|sel 
game.drop_item(30304, 1)
else
-- Keys fiel 
game.drop_item(30303, 1)
end
else
return
end
   end

   when 20366.take with item.vnum == 30304 begin
-- 9 F-Zeichen aufgehoben 
npc.purge()
item.remove()
timer("devil_jump_9", 6)
   end

   ---------------------------------------------
   -- 9 F ein Ende, indem Sie 
   ---------------------------------------------
   when devil_jump_9.timer begin
d.setf("level", 9)
d.jump_all(2048+590, 6656+155)
d.regen_file("data/dungeon/deviltower9_regen.txt")
   end

   when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.kill_all()
timer("devil_end_jump", 10)
d.notice("Felicitari!")
d.notice("Ai l-ai ucis pe Îngerul cu coasa!")
d.notice("Acum, veti ajunge la stagiul urmator, ucide demon rege!")
   end

   when devil_end_jump.timer begin
d.setf("level", 7)
d.jump_all(2048+590, 6656+638)
d.clear_regen()
d.spawn_mob(1094, 639, 658)
   end
   
   when 1094.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.notice("Felicitari!")
d.notice("Ai ucis soldatii regelui demon!")
d.notice("Acum, veti ajunge la etajul urmator, Moartea Albastra!")
d.kill_all()
timer("devil_end_jump_schmied", 10)
   end

   when devil_end_jump_schmied.timer begin
d.setf("level", 9)
d.jump_all(2048+590, 6656+155)
d.clear_regen()
d.spawn_mob(1095, 605, 178)
   end
   
   when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
notice_all("".. pc.get_name() .." Felicitari ai ucis demonul!")
notice_all("Felicitari inca odata!")
d.notice("")
d.notice("Ai ucis Moartea Albastra!")
d.notice("Ca o recompensa îti vor aparea toti cei 3 fierari din acest turn!")
d.check_eliminated()
local reward_alchemist = {20074, 20075, 20076}
d.spawn_mob(20074, 609, 179);
d.spawn_mob(20075, 609, 172);
d.spawn_mob(20076, 609, 185);
d.spawn_mob(9012, 619, 170);
d.setqf("can_refine", 1)
   end
end
end

quest turnul_demonilor begin
    state start begin
        when login begin
            if pc.get_map_index() == 66 then
                if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
                    pc.warp((5376+532)*100, (512+596+4)*100, 65)
                end
                pc.set_warp_location(65, 5376+532, 512+596+4)
            elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
                pc.set_warp_location(65, 5376+532, 512+596+4)
            end
        end

		when logout begin
			pc.remove_item(30300, pc.count_item(30300))
			pc.remove_item(30301, pc.count_item(30301))
			pc.remove_item(30302, pc.count_item(30302))
		end

		when deviltower_man.chat.locale.deviltower_man_chat begin
					if pc.get_level() < 40 then
							say_title("Gardianul Turnului:")
							say("")
							---                                                   l
							say("Acest turn este plin de demoni.")
							say("Doar cei puternici pot supravieţui.")
							say("Ce să-ţi spun..cine a intrat")
							say("nu a mai ieşit în viaţă.")
							say("Nu poţi să intri pentru că nu")
							say("ai level 40 încă.")
					else
							say_title("Gardianul Turnului:")
							say("")
							---                                                   l
							say("Acest turn este plin de demoni.")
							say("Doar cei puternici pot supravieţui.")
							say("Ce să-ţi spun..cine a intrat")
							say("nu a mai ieşit în viaţă.")
							say("Vrei să intri în Turnul Demonilor?")
							say("")
							local s = select("Da.", "Nu.")
							if s == 1 then
									pc.warp(216500,727000)
							end
				end
			end
			
			when devil_stone1.kill begin
				timer("devil_stone1_1", 6)
			end
			when devil_stone1_1.timer begin
				d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
				d.regen_file("data/dungeon/turnul_demonilor/turnul_demonilor_2_regen.txt")
				d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/turnul_demonilor/turnul_demonilor_3_regen.txt")
			end
			when devil_stone3.kill begin
				d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/turnul_demonilor/turnul_demonilor_4_regen.txt")
				d.check_eliminated()
			end
			function get_4floor_stone_pos()
			local positions = 
				{
					{368, 629}, {419, 630}, {428, 653}, {422, 679},
					{395, 689}, {369, 679}, {361, 658},
				}
				for i = 1, 6 do
					local j = number(i, 7)
					if i != j then
						local t = positions;
						positions = positions[j];
						positions[j] = t;
					end
				end
				return positions
			end
			when 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
				d.setf("level", 4)
				local positions = turnul_demonilor.get_4floor_stone_pos()
				for i = 1, 6 do
					chat(positions[1], positions[2])
					d.set_unique("fake" .. i , d.spawn_mob(8017, positions[1], positions[2]))
				end
				chat(positions[7][1], positions[7][2])
				local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
				chat(vid)
				d.set_unique("real", vid)
			server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
			server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

				d.notice("Ai ajuns la etajul 3.");
				d.notice("Multe pietre Metin false vă irită ochii şi urechile.");
				d.notice("Găseşte piatra Metin corectă şi distruge-o în 15 minute");
				d.notice("Aceasta este singura modalitate de a trece acest etaj.");
				d.notice("");
			end

			when devil_stone4_fail1.server_timer begin
				if d.select(get_server_timer_arg()) then
					d.notice("Minute rămase: 10")
			server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
				end
			end

			when devil_stone4_fail2.server_timer begin
				if d.select(get_server_timer_arg()) then
					d.notice("Minute rămase: 5")
			server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
				end
			end

			when devil_stone4_fail.server_timer begin
				if d.select(get_server_timer_arg()) then
					d.notice("Timpul a expirat.")
					d.exit_all()
			clear_server_timer('devil_stone4_update', get_server_timer_arg())
				end
			end

			when devil_stone4_update.server_timer begin
				if d.select(get_server_timer_arg()) then
					if not d.is_unique_dead("real") then
						for i = 1, 6 do
							if d.getf("fakedead" .. i) == 0 then
								if d.unique_get_hp_perc("fake" .. i) < 50 then
									d.purge_unique("fake" .. i)
									d.setf("fakedead" .. i, 1)
									d.notice("Pietrele Metin false dispar...");
								end
							end
						end
					else
						server_timer("devil_stone4_end", 5, get_server_timer_arg())
						d.notice("Ai dovedit că ai un instinct bun.");
						d.notice("Ai distrus piatra Metin corectă.")
				clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
				clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
				clear_server_timer('devil_stone4_fail', get_server_timer_arg())
					end
				else
			server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
				end
			end

			when devil_stone4_stop_timer.server_timer begin
			clear_server_timer('devil_stone4_update', get_server_timer_arg())
			end

			when devil_stone4_end.server_timer begin
				if d.select(get_server_timer_arg()) then
				clear_server_timer('devil_stone4_update', get_server_timer_arg())
				clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
				clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
				clear_server_timer('devil_stone4_fail', get_server_timer_arg())

					d.setf("level", 5)
					d.setf("stone_count", 5)
					d.notice("Ai ajuns la Poarta cu numărul 5.")
					d.notice("La acest etaj mulţi monştrii păzesc Sigilile de Piatră,")
					d.notice("ce te vor ajuta să treci la etajul 6.")
					d.notice("Unii monştrii au cheia ce te ajută")
					d.notice("să deschizi Sigiliul de Piatră.")
					d.notice("Deschide-le în cel mult 20 minute")
					d.notice("pentru a avansa la etajul 6.")
					d.notice("")
					d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
			server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
			clear_server_timer('devil_stone4_update', get_server_timer_arg())

					d.set_regen_file("data/dungeon/turnul_demonilor/turnul_demonilor_5_regen.txt")

					d.spawn_mob(20073, 421, 452)
					d.spawn_mob(20073, 380, 460)
					d.spawn_mob(20073, 428, 414)
					d.spawn_mob(20073, 398, 392)
					d.spawn_mob(20073, 359, 426)
				end
			end
			when devil_stone5_fail1.server_timer begin
				if d.select(get_server_timer_arg()) then
					d.notice("Minute rămase: 15")
			server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
				end
			end

			when devil_stone5_fail2.server_timer begin
				if d.select(get_server_timer_arg()) then
					d.notice("Minute rămase: 10")
			server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
				end
			end

			when devil_stone5_fail3.server_timer begin
				if d.select(get_server_timer_arg()) then
					d.notice("Minute rămase: 5")
			server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
				end
			end

			when devil_stone5_fail.server_timer begin
				if d.select(get_server_timer_arg()) then
					d.notice("Timpul a expirat.")
					d.exit_all()
				end
			end

			when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
				local KILL_COUNT_FOR_DROP_KEY = 50
				local n =d.getf("count") + 1
				d.setf("count", n)
				if n == KILL_COUNT_FOR_DROP_KEY then
					game.drop_item(50084, 1)
					d.setf("count", 0)
				end
			end
			when devil_stone5.take with item.vnum == 50084 begin
				npc.purge()
				item.remove()
				d.setf("stone_count", d.getf("stone_count") - 1)
				if d.getf("stone_count") <= 0 then
					d.setf("level", 6)
					d.clear_regen()
					d.regen_file("data/dungeon/turnul_demonilor/turnul_demonilor_6_regen.txt")

					d.notice("Ai deschis toate porţile.")
					d.notice("Vei fi teleportat la etajul 6.")
					d.notice("Distruge toţi monştrii din acest etaj,")
					d.notice("şi apoi pe Regele Demon.")
					d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
					clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
					clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
					clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
					clear_server_timer('devil_stone5_fail', get_server_timer_arg())
				else
					d.notice("Ai deschis Sigiliu! Mai ai încă "..d.getf("stone_count").."de deschis:")
				end
			end

			when devil_stone6.kill begin
				d.kill_all()
				d.check_eliminated()
				local reward_alchemist = {20074, 20075, 20076}
				d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
				d.setqf("can_refine", 1)
			end

			when 20074.chat."Despre ultimul etaj al Turnul Demonilor.." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
				say(""..mob_name(20074)..":")
				say("Fierari din Turnul Demonilor")
				say("Au găsit calea de a urca la etajul 7.")
				say("Este necesar un status şi o abilitate bună de a urca.")
				say("Hmmmm...")
				say("După ce am analizat starea voastră.....")
				wait()
					if pc.level >=75 then
						say(""..mob_name(20074)..":")
						say("Eşti puternic pentru a urca.")
						say("Te voi lăsa să ştii drumul..")
						timer("devil_jump_7", 6)
						npc.unlock()
						d.purge()
						return
					end
					say(""..mob_name(20074)..":")
					say("Ai nevoie de mai mult antrenament")
					say("pentru a merge acolo....")
					say("Întoarce-te când ai destulă experienţă.")
				say("")
				wait()
				pc.warp(590500, 110500)
				return
			end
			when 20075.chat."Despre ultimul etaj al Turnul Demonilor.." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
				say(""..mob_name(20075)..":")
				say("Fierari din Turnul Demonilor")
				say("Au găsit calea de a urca la etajul 7.")
				say("Este necesar un status şi o abilitate bună de a urca.")
				say("Hmmmm...")
				say("După ce am analizat starea voastră.....")
				wait()
					if pc.level >=75 then
						say(""..mob_name(20075)..":") 
						say("Eşti puternic pentru a urca.")
						say("Te voi lăsa să ştii drumul..")
						timer("devil_jump_7", 6)
						npc.unlock()
						d.purge()
						return
					end
					say(""..mob_name(20075)..":") 
					say("Ai nevoie de mai mult antrenament")
					say("pentru a merge acolo....")
					say("Întoarce-te când ai destulă experienţă.")
				say("")
				wait()
				pc.warp(590500, 110500)
				return
			end
			when 20076.chat."Despre ultimul etaj al Turnul Demonilor.." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
				say(""..mob_name(20076)..":")
				say("Fierari din Turnul Demonilor")
				say("Au găsit calea de a urca la etajul 7.")
				say("Este necesar un status şi o abilitate bună de a urca.")
				say("Hmmmm...")
				say("După ce am analizat starea voastră.....")
				wait()
				if pc.level >=75 then
					say(""..mob_name(20076)..":") 
					say("Eşti puternic pentru a urca.")
					say("Te voi lăsa să ştii drumul..")
					timer("devil_jump_7", 6)
					npc.unlock()
					d.purge()
					return
				end
					say(""..mob_name(20076)..":") 
					say("Ai nevoie de mai mult antrenament")
					say("pentru a merge acolo....")
					say("Întoarce-te când ai destulă experienţă.")
				say("")
				wait()
				pc.warp(590500, 110500)
				return
			end

		   when devil_jump_7.timer begin
				d.clear_regen()

				d.spawn_mob(8018, 639, 658)
				d.spawn_mob(8018, 611, 637)
				d.spawn_mob(8018, 596, 674)
				d.spawn_mob(8018, 629, 670)

				d.setf("level", 7)

				d.jump_all(2048+590, 6656+638)
			end
			
			when 8018.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
				local cont = d.getf("7_stone_kill") + 1
				d.setf("7_stone_kill", cont)

				if cont >= 4 then
					d.setf("7_stone_kill", 0)
					d.set_regen_file("data/dungeon/turnul_demonilor/turnul_demonilor_7_regen.txt")
				end
			end

			when 8019.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
				game.drop_item(30300, 1)
			end

			when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
				pc.remove_item("30300", 1)

				local pct = number(1,10)

				if pct == 1 then
					game.drop_item(30302, 1)
					d.clear_regen()
				else
					game.drop_item(30301, 1)
					
				end
			end

			when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

					if d.getf( "level" ) != 7 then
						pc.remove_item( "30302", 1)
						return
					end
					
				say("Cu această mapă poţi urca mai sus!")
				pc.remove_item("30302", 1)
				timer("devil_jump_8", 6)
				d.clear_regen()
			end

			when devil_jump_8.timer begin
				d.setf("level", 8)
				d.jump_all(2048+590, 6656+403)
				d.set_regen_file("data/dungeon/turnul_demonilor/turnul_demonilor_8_regen.txt")
				d.spawn_mob(20366, 640, 460)
				local _count= pc.count_item(30302)
				pc.remove_item(30302,_count)
				
			end

			when 1040.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
				local pct1 = number(1, 5)

				if pct1 == 1 and d.getf("level") == 8 then
					local pct2 = number(1, 10)
					if pct2 == 1 then
						game.drop_item(30304, 1)
					else
						game.drop_item(30303, 1)
					end
				else
					return
				end
			end

			when 20366.take with item.vnum == 30304 begin
				npc.purge()
				item.remove()
				timer("devil_jump_9", 6)
			end

			when devil_jump_9.timer begin
				d.setf("level", 9)
				d.jump_all(2048+590, 6656+155)
				d.regen_file("data/dungeon/turnul_demonilor/turnul_demonilor_9_regen.txt")
			end

			when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
				syschat("Îngerul a fost ucis")
				notice_all ( "" .. pc . get_name ( ) .. " a omorât Îngerul cu Coasă." ) 
				say_title ( "Bravo!" ) 
				say ( "Felicitări,ai ucis diavolul." ) 
				say ( "O să îţi dau o recompensă : " ) 
				say ( "Permis de trecere Catacombă" )
				pc . give_item2 ( 30319 ) 
				d . kill_all ( ) 
			end
		end
	end