quest deviltower_zone 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(590500, 110500)
                end
                pc.set_warp_location(65, 5905, 1105)
            elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
                pc.set_warp_location(65, 5905, 1105)
                deviltower_zone.register_player(pc.get_vid())
            end
		end

		when logout begin
			if pc.count_item(30302) >= 1 then
				pc.remove_item(30302, pc.count_item(30302))
			end
			if pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
				deviltower_zone.unregister_player(pc.get_vid())
				pc.setf("deviltower_dungeon", "duration",	get_global_time() + 3600)
			end
		end

		when deviltower_man.chat."Pãºeºte în Turnul Demonilor" begin
			say()
			say()
			say()
			say_title("Gardianul Turnului Demonilor:")
			say()
			if pc.get_level() < 40 then
				say("Acest turn este plin cu demoni înfricoºãtori.")
				say("Numai cel mai puternic poate ajunge în vârf.")
				say("Se spune cã nimeni care intrã în acest turn nu")
				say("s-a mai întors în viaşã, tu nu poşi intra încã ")
				say("deoarece nu ai nivelul 40.")
			else
				say("Acest turn este plin cu demoni înfricoºãtori.")
				say("Numai cel mai puternic poate ajunge în vârf.")
				say("Se spune cã nimeni care intrã în acest turn nu")
				say("s-a mai întors în viaşã.")
				say()
				say_reward("Încã vrei sã intri în Turnul Demonilor?")
				local s = select("Intru.", "Nu, mulşumesc.")
				if s == 1 then
					pc.warp(216500,727000)
				else
					return
				end
			end
		end

		when devil_stone1.kill begin
			timer("devil_stone1_1", 8)
		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/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_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/deviltower4_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[i];
					positions[i] = 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 = deviltower_zone.get_4floor_stone_pos()
			for i = 1, 6 do
				d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
			end
			local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
			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("Sarcinã: Distruge Piatra Metin ce te va duce spre urmãtorul etaj.");
		end

		when devil_stone4_fail1.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.notice("Turnul Demonilor: Mai ai la dispozişie 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("Turnul Demonilor: Mai ai la dispozişie 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()) and d.getf("level") == 4 then
				d.notice("Turnul Demonilor: Timpul a expirat.")
				d.exit_all()
			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)
							end
						end
					end
				else
					server_timer("devil_stone4_end", 5, get_server_timer_arg())
					d.notice("Turnul Demonilor: Sarcinã completã, veşi fi teleportaşi în câteva secunde.")
					d.purge()
				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.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
				d.notice("Sarcinã: Deschide toate Sigiliile cu ajutorul Cheilor de la monºtri.")

				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/deviltower5_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("Turnul Demonilor: Mai ai la dispozişie 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("Turnul Demonilor: Mai ai la dispozişie 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("Turnul Demonilor: Mai ai la dispozişie 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()) and d.getf("level") == 5 then
			d.notice("Turnul Demonilor: 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 = 25
			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.clear_regen()
				d.kill_all()
				d.notice("Turnul Demonilor: Sarcinã completã, veşi fi teleportaşi în câteva secunde.")

				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())

				d.setf("level", 6)
				d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
				d.regen_file("data/dungeon/deviltower6_regen.txt")

				d.notice("Sarcinã: Învinge Regele Demon.")
			else
				d.notice("Turnul Demonilor: "..d.getf("stone_count").." Sigilii rãmase.")
			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."Etajele Superioare" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
			say()
			say()
			say()
			say_title(""..mob_name(20074).."")
			say()
			say("Au gãsit o metodã prin care poşi ajunge la etajul 7")
			say("Ai nevoie de abilitãşi ºi competenşe ridicate.")
			say("Hmmmm...")
			say("Dupã ce şi-am examinat statusul am decis cã.....")
			wait()
			say()
			say()
			say()
			say_title(""..mob_name(20074).."")
			say()
			if pc.level >=70 then
				say("Îşi este permis sã mergi la etajul urmãtor.")
				say("Voi pregãti portalul pentru tine !")
				timer("devil_jump_7", 6)
				npc.unlock()
				d.purge()
				return
			end
			say("Ai nevoie de mai mult antrenament.")
			say("Vino înapoi când vei avea cel puşin Lv 70.")
			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()
			say()
			say()
			say_title(""..mob_name(20075).."")
			say()
			say("Au gãsit o metodã prin care poşi ajunge la etajul 7")
			say("Ai nevoie de abilitãşi ºi competenşe ridicate.")
			say("Hmmmm...")
			say("Dupã ce şi-am examinat statusul am decis cã.....")
			wait()
			say()
			say()
			say()
			say_title(""..mob_name(20075).."")
			say()
			if pc.level >=70 then
				say("Îşi este permis sã mergi la etajul urmãtor.")
				say("Voi pregãti portalul pentru tine !")
				timer("devil_jump_7", 6)
				npc.unlock()
				d.purge()
				return
			end
			say("Ai nevoie de mai mult antrenament.")
			say("Vino înapoi când vei avea cel puşin Lv 70.")
			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()
			say()
			say()
			say_title(""..mob_name(20076).."")
			say()
			say("Au gãsit o metodã prin care poşi ajunge la etajul 7")
			say("Ai nevoie de abilitãşi ºi competenşe ridicate.")
			say("Hmmmm...")
			say("Dupã ce şi-am examinat statusul am decis cã.....")
			wait()
			say()
			say()
			say()
			say_title(""..mob_name(20076).."")
			say()
			if pc.level >=70 then
				say("Îşi este permis sã mergi la etajul urmãtor.")
				say("Voi pregãti portalul pentru tine !")
				timer("devil_jump_7", 6)
				npc.unlock()
				d.purge()
				return
			end
			say("Ai nevoie de mai mult antrenament.")
			say("Vino înapoi când vei avea cel puşin Lv 70.")
			say()
			wait()
			pc.warp(590500, 110500)
			return
		end

		when devil_jump_7.timer begin
			d.notice("Sarcinã: Distruge Pietrele Metin pentru a obşine Harta Turnului Originalã.")
			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)
		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_title("Turnul Demonilor:")
			say()
			say("Ai gãsit Harta Turnului ! Acum poşi sã te")
			say("aventurezi mai departe.")
			say()
			say("Portalul se deschide ! Fii pregãtit !")
			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.notice("Sarcinã: Deschide Sigiliul cu ajutorul Cheii Turnului Originalã de la monºtri.")
			d.set_regen_file("data/dungeon/deviltower8_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
			if d.getf("level") < 9 then
				local pct1 = number(1, 10)
				if pct1 == 1 then
					local pct2 = number(1, 4)
					if pct2 == 1 then
						game.drop_item(30304, 1)
					else
						game.drop_item(30303, 1)
					end
				else
					return
				end
			end
		end

		when 20366.take with item.vnum == 30304 begin
			d.notice("Turnul Demonilor: Sarcinã completã, veşi fi teleportaşi în câteva secunde.")
			d.kill_all()
			d.clear_regen()
			npc.purge()
			item.remove()
			timer("devil_jump_9", 8)
		end

		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")
			d.notice("Sarcinã: Învinge Îngerul cu Coasã.")
		end

		when 1093.kill with pc.in_dungeon() begin
			d.kill_all()
			server_timer("devil_end_jump", 50, d.get_map_index())
			pc.change_alignment(500)
			d.notice("Turnul Demonilor: Sarcinã completã, aşi finalizat dungeon-ul.")

		end

		when devil_end_jump.timer begin
			if d.select (get_server_timer_arg()) then
				d.clear_regen()
				d.exit_all()
			end
		end

		function register_player(vid)
			local player_count = d.getf("player_count")
			player_count = player_count + 1
			d.setf("player_count", tonumber(player_count))
			d.setf(string.format("player%d", player_count), tonumber(vid))
		end

		function unregister_player(vid)
			local player_count = d.getf("player_count")
			local found = false
			for i = 1, player_count, 1 do
				if found == true then
					d.setf(string.format("player%d", tonumber(i)), d.getf(string.format("player%d", i+1)))
				end
				p = d.getf("player"..tostring(i))
				if p == vid then
					i = i -1
					found = true
				end
			end
			if found == true then
				d.setf("player_count", tonumber(player_count - 1))
			end
		end
	end
end