Cod: Selectaţi tot

quest warp_ring begin
	state start begin
		when 70058.use begin
			local x
			local y
			local t
			local e = pc.get_empire()
			
			if pc.getqf("warp_ring") == 0 then
				say_title("Inel teleportare")
				say("")
				say("Acest inel te ajuta sa te teleportezi")
				say("în aproape orice loc dorit, gratis.")
				say("Un inel poate fi folosit doar de 50 de ori")
				say("")
				pc.setqf("warp_ring",1) 
				pc.setqf("warps",50)	
				return
			end
			
			if pc.getqf("warps") <= 0 then
				say_title("Inel teleportare")
				say("")
				say("Nu mai poti folosi acest inel.")
				say("")
				pc.remove_item(item.vnum)
				pc.setqf("warp_ring",0)
				return
			end

			if pc.getqf("warp_ring") == 1 then
			say("Unde vrei sa te teleportezi?")
			say_reward("Teleportari ramase: "..pc.getqf("warps"))

			local s = select("Satul 1","Satul 2","Valea Seungryong","Desertul Yongbi","Muntele Sohan","Tara de foc","Urmatoarele","Închide")
			if s==7 then
				say("Unde vrei sa te teleportezi?")
				say_reward("Teleportari ramase: "..pc.getqf("warps"))
				local p = select("Turnul Demonilor","Kuahlo Dong","Lungsam","Padurea Rosie","Tarâmul Gigantilor","Grota Exilului","Temnita Maimutelor","Închide")
			
				if p==1 then	-- Turnul Demonilor 
					x="590400" y="110500"		
					
				elseif p==2 then	-- Kuahlo Dong (V2)   		 
					x="91900" y="525400"  
					
				elseif p==3 then	-- Lungsam
					x="289000" y="5800"   
					
				elseif p==4 then	-- Padurea Rosie
					t = select("Început","Sfârsit","Închide")				
					if t==1 then
						x="1119900" y="70800"						
					elseif t==2 then
						x="1119200" y="7000"
					elseif t==3 then		
						return
					end
					
				elseif p==5 then -- Tarâmul Gigantilor
					x="828100" y="763400"
					
				elseif p==6 then -- Grota Exilului
					x="284200" y="809600"
							
				elseif p==7 then -- Temnita Maimutelor
					t = select("Temnita Maimutelor Începator","Temnita Maimutelor Normal","Temnita Maimutelor Avansat","Închide")
					
					if t==1 then					
						local empire = pc . get_empire ( ) 
							if empire == 1 then 
						x="768000" y="435200"
							elseif empire == 2 then 
						x="844800" y="435200"
							elseif empire == 3 then 
						x="921600" y="435200"				
					end
					
					elseif t== 2then 	
						x="128000" y="640000"						
					elseif t==3 then	
						x="128000" y="716800"
					elseif t==4 then	
						return
					end
										
				elseif p==8 then
					return												
				end				
		
			elseif s==1 then -- Satul 1
				t = select("Tinutul Yongan","Tinutul Joan","Tinutul Pyungmoo","Închide")
				if t==1 then
					x="473900" y="954600"					
				elseif t==2 then
					x="63200" y="166700"					
				elseif t==3 then
					x="959600" y="269700"	
				elseif t==4 then
					return		
				end
				
			elseif s==2 then -- Satul 2
				t = select("Tinutul Yayang","Tinutul Bokjung","Tinutul Bakra","Închide")
				if t==1 then
					x="352300" y="882700"					
				elseif t==2 then
					x="145700" y="239800"					
				elseif t==3 then
					x="863800" y="246000"		
				elseif t==4 then
					return							
				end
				
			elseif s==3 then -- Valea Seungryong
				t = select("Început","Mijloc","Închide")
				if t==1 then
					if e==1 then
						x="402100" y="673900"												
					elseif e==2 then
						x="270400" y="739900"						
					elseif e==3 then
						x="321300" y="808000"		
					elseif e==4 then
						return							
					end					
				elseif t==2 then
					x="332700" y="745600"		
				elseif t==3 then
					return					
				end
				
			elseif s==4 then -- Desertul Yongbi
				t = select("Început","Mijloc","Închide")
				if t==1 then
					if e==1 then
						x="217800" y="627200"										 	
					elseif e==2 then
						x="221900" y="502700"						
					elseif e==3 then
						x="344000" y="502500"						
					end			
				elseif t==2 then
					x="296300" y="547500"	
				elseif t==3 then
					return							
				end
				
			elseif s==5 then -- Muntele Sohan
				t = select("Început","Mijloc","Închide")
				if t==1 then
					if e==1 then
						x="434200" y="290600"											
					elseif e==2 then
						x="375200" y="174900"						
					elseif e==3 then
						x="491800" y="173600"					
					end
					
				elseif t==2 then
					x="436200" y="215300"	
				elseif t==3 then
					return							
				end		
	
			elseif s==6 then -- Tara de foc
				t = select("Început","Închide")
				if t==1 then
					if e==1 then
						x="599400" y="756300"												
					elseif e==2 then
						x="597800" y="622200"					
					elseif e==3 then
						x="730700" y="689800"						
					end					
				elseif t==2 then
					return
				end
		
			elseif s==8 then
				return
			end
		end
		
			pc.warp(x,y)
			pc.setqf("warps", pc.getqf("warps") - 1)
		
		end
	end
end