Cod: Selectaţi tot

---------------------------Ork Labyrinth Coded by Tao---------------------------------
quest ork_maze begin
	state start begin
		function ClearDungeon()
			local idx = d.get_356()
			clear_server_timer("check_monster_count",idx)
			clear_server_timer("-cenzurat-_time_1",idx)
			clear_server_timer("-cenzurat-_time_2",idx)
			clear_server_timer("-cenzurat-_time_3",idx)
			clear_server_timer("-cenzurat-_time_4",idx)
			clear_server_timer("bossroom",idx)
			clear_server_timer("end_timer",idx)
			d.setf("portal",0)
			d.clear_regen()
			d.setf("onlineg", 0)
			d.kill_all()
			end
		function set_next_portal()
			if d.getf("portal") == 4 then
				d.regen_file("data/dungeon/orkmaze/e"..d.getf("portal")..".txt")
				d.set_unique("ork_seal", d.spawn_mob(691,54,1383))
				clear_server_timer("check_monster_count",d.get_356())
			end
			if d.getf("portal") == 2 then d.set_unique("s2", d.spawn_mob(695,715,1341)) 
			elseif d.getf("portal") == 3 and d.getf("onlineg") == 3 then d.set_unique("s3", d.spawn_mob(695,483,1376)) end
			
			if d.getf("portal") < 4 then 
				d.regen_file("data/dungeon/orkmaze/e"..d.getf("portal")..".txt")
				d.setf("portal",d.getf("portal")+1)
			end
			d.notice(gameforge[LC()][566]) --Die Portale wurden geöffnet.
		end
		function CheckParty()
			local pids = {party.get_member_pids()}
			if not party.is_party() then say(gameforge[LC()][548]) return false
			elseif not party.is_leader() then say(gameforge[LC()][547]) return false -- Nur der Gruppenleiter kann euch zum Labyrinth Teleportieren.
			elseif pc.get_level() < 30 then say(string.format(gameforge[LC()][545],30)) return false -- Dein Level ist niedrig komm wieder wenn du %u bist.
			elseif pc.get_level() > 60 then say(string.format(gameforge[LC()][546],30,60)) return false -- Dein Level ist zu hoch, dieser Run ist nur von Level %u bis %u erlaubt.
			elseif table.getn(pids) > 3 then say(gameforge[LC()][567]) return false --Deine Gruppe ist zu groß, es sind maximal 3 erlaubt.
			elseif table.getn(pids) <= 1 then say(gameforge[LC()][568]) return false -- Deine Gruppe ist unvollständig. Mindestens ein Gruppen Mitglied muss Online sein.
			elseif ork_maze.CheckPartyLevel() then return true
			end
		end
		function CheckPartyLevel()
			local pids = {party.get_member_pids()}
			local user_fail_level = {}
				for i=1, table.getn(pids), 1 do 
					q.begin_other_pc_block(pids[i])
					pc.setqf("orksiegel", 0)
					if pc.get_level() < 30 or pc.get_level() > 60 then
						table.insert(user_fail_level, table.getn(user_fail_level) +1, pc.get_name())
					end
					q.end_other_pc_block(pids[i])
				end
				for x = 1, table.getn(user_fail_level), 1 do
					say(user_fail_level[x])
			end
			if table.getn(user_fail_level) >= 1 then
				say_title("Das Ork Labyrinth")
				say(gameforge[LC()][549])
				for x = 1, table.getn(user_fail_level), 1 do
					say(user_fail_level[x])
				end
			else return true
			end
		end
		when 30002.chat."Das Ork Labyrinth" begin -- Das Ork Labyrinth
			if ork_maze.CheckParty() then
				say("Willst du das Labyrinth mit deiner Gruppe betreten?") --Willst du das Labyrinth mit deiner Gruppe betreten?(Bearbeiten)
				if select(gameforge[LC()][5], gameforge[LC()][6]) == 2 then return end
				timer("warp_delay", 2)
			end
		end
		when warp_delay.timer begin
			d.new_jump_party(356,12137,7274)
			ork_maze.ClearDungeon()
			local pids = {party.get_member_pids()}
			d.setf("onlineg", table.getn(pids))
			server_loop_timer("check_monster_count",10, d.get_356())
			server_timer("-cenzurat-_time_1", 60*10, d.get_356())
			server_timer("notice1", 3, d.get_356())
			if 0 == 1 then d.regen_file("data/dungeon/orkmaze/e_start.txt") end
		end
		when notice1.server_timer begin
			if d.select(get_server_timer_arg()) then
				notice_multiline(gameforge[LC()][552],d.notice) -- Ihr habt 30 Minuten Zeit den richtigen weg zu finden und den Oberork zu töten. Um die Portale der jeweiligen Ebenen zu Öffnen müsst ihr alle Monster töten.
				if 0 == 0 then
					d.set_unique("s1", d.spawn_mob(695,585,886))
					d.regen_file("data/dungeon/orkmaze/e"..d.getf("portal")..".txt")
					d.setf("portal",d.getf("portal")+1)
				end
			end
		end
		when -cenzurat-_time_1.server_timer begin
			if d.select(get_server_timer_arg()) and d.getf("finish_portal") == 0 then
				d.notice(gameforge[LC()][553]) -- Ihr habt noch 20 Minuten Zeit!
				server_timer("-cenzurat-_time_2", 60*10, d.get_356())
			end
		end
		when -cenzurat-_time_2.server_timer begin
			if d.select(get_server_timer_arg()) and d.getf("finish_portal") == 0 then
				d.notice(gameforge[LC()][554]) -- Ihr habt noch 10 Minuten Zeit!
				server_timer("-cenzurat-_time_3", 60*5, d.get_356())
			end
		end
		when -cenzurat-_time_3.server_timer begin
			if d.select(get_server_timer_arg()) and d.getf("finish_portal") == 0 then
				d.notice(gameforge[LC()][555]) -- Ihr habt noch 5 Minuten Zeit!
				server_timer("-cenzurat-_time_4", 60*5, d.get_356())
			end
		end
		when -cenzurat-_time_4.server_timer begin
			if d.select(get_server_timer_arg()) and d.getf("finish_portal") == 0 then
				d.notice(gameforge[LC()][556]) -- Ihr habt es leider nicht geschaft.
				server_timer("end_timer", 10, d.get_356())
			end
		end
		when end_timer.server_timer begin
			if d.select(get_server_timer_arg()) then
				ork_maze.ClearDungeon()
				d.exit_all_to_start_position()
			end
		end
		when check_monster_count.server_timer begin
			if d.select(get_server_timer_arg()) then
				if d.count_monster() <= 0 and d.getf("portal") < 5 then
					ork_maze.set_next_portal()
				end
			end
		end
		when 691.kill with d.get_unique_vid("ork_seal") begin
			d.setf("finish_portal", 1)
			notice_multiline(gameforge[LC()][557],d.notice) -- Herzlichen Glückwunsch, ihr habt den Oberork getötet. Zieht nun eure Schlüssel auf die Siegel.
			local tab = 
					{
						[1] = {57, 1396},
						[2] = {53, 1396},
						[3] = {49, 1396},
					}
			local pids = {party.get_member_pids()}
			local a = table.getn(pids)
			for i = 1,a do
				d.spawn_mob(20100, tab[i][1],tab[i][2])
			end
		end
		when 695.kill with npc.get_vid() == d.get_unique_vid("s1") or npc.get_vid() == d.get_unique_vid("s2") or npc.get_vid() == d.get_unique_vid("s3") begin
			game.drop_item(30107,1)
		end
		when 693.kill with d.get_unique_vid("ork_verfl") begin
			notice_multiline(gameforge[LC()][558],d.notice) -- Ihr habt den Verfl. Oberork getötet und werdet in 60 Sekunden in den Boss Raum Teleportiert.
			server_timer("bossroom", 60, d.get_356())
			d.kill_all()
		end
		when bossroom.server_timer begin
			if d.select(get_server_timer_arg()) then
				d.jump_all(12170,8100) -- zum boss raum
				d.spawn_mob(694,136,894)
				d.regen_file("data/dungeon/orkmaze/bossroom.txt")
			end
		end
		when 694.kill with pc.in_dungeon() begin
			d.notice(gameforge[LC()][559]) -- Ihr werdet in 60 Sekunden raus Teleportiert.
			server_timer("end_timer", 60, d.get_356())
			d.kill_all()
		end
		-- when login begin
			-- chat(pc.getqf("orksiegel"))
		-- end
		when 30121.chat.gameforge[LC()][560] begin -- Nächste Runde
				say_title(gameforge[LC()][565])
				if not party.is_leader() then say_reward(gameforge[LC()][564]) return end
				say(gameforge[LC()][563])
				if select(gameforge[LC()][562],locale.cancel) == 2 then return end
				d.jump_all(12150,7562) -- stehen geblieben bei neuer jump posi, siegel dropp fehlt
				d.set_unique("ork_verfl", d.spawn_mob(693,400,200))
				d.regen_file("data/dungeon/orkmaze/last.txt")
				d.notice(gameforge[LC()][561]) -- Findet den Verfl. Oberork und tötet ihn.
		end
		when 20100.take with item.get_vnum() == 30107 begin
			-- chat(pc.getqf("orksiegel"))
			if pc.getqf("orksiegel") == 1 then say("Du hast bereits ein Siegel abgeben.") return end -- Du hast bereits ein Siegel abgeben.
			npc.purge()
			item.remove()
			d.setf("seal",d.getf("seal")+1)
			pc.setqf("orksiegel", 1)
			local pids = {party.get_member_pids()}
			if d.getf("seal") == table.getn(pids) then 
				d.purge()
				d.spawn_mob(30121,54,1383)
			end
		end
	--
	end
end