----------------------------------------------------
----- Quest: Inel teleportare -----
----- Server: Rise of the Unknown -----
----- Author: Nica Virgil -----
----------------------------------------------------

quest inel_teleportare begin
state start begin
when 70007.use begin
local x
local y
local t
local e = pc.get_empire()

if pc.getqf ( "ring" ) == 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Acest inel te ajută să te teleportezi" )
say ( "în aproape orice loc dorit, gratis." )
say ( "Un inel poate fi folosit doar de 50 de ori" )
say ( "" )
pc.setqf ( "ring", 1 )
pc.setqf ( "teleports", 50 )
return
end

if pc.getqf ( "teleports" ) <= 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Nu mai poti folosi acest inel." )
say ( "" )
pc.remove_item(item.vnum)
pc.setqf ( "ring", 0 )
return
end

if pc.getqf ( "ring" ) == 1 then
say_reward("Unde vrei să te teleportezi?")
say_orange ( "Teleportări rămase: "..pc.getqf("teleports").."" )
say_size(350, 350)

local s = select("Satul 1", "Satul 2", "Valea Seungryong", "Desertul Yongbi", "Muntele Sohan", "Doyyumhwan", "Următoarele", "Închide")
if s==7 then
say_orange ( "Teleportări rămase: "..pc.getqf("teleports").."" )
say_size(350, 350)
local p = select("Turnul Demonilor", "Caverna Păianjenilor I", "Lungsam", "Pădurea Rosie", "Tărâmul Gigantilor", "Grota Exilului", "Temnita Maimutei", "Î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 -- Pădurea Rosie
say_size(350, 180)
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 -- Tărâmul Gigantilor
x="828100" y="763400"

elseif p==6 then -- Grota Exilului
x="181700" y="1220600"

elseif p==7 then -- Temnita Maimutelor
say_size(350, 200)
t = select ( "Temnita Maimutelor Începător", "Temnita Maimutelor Normal", "Temnita Maimutelor Avansat", "Închide" )

if t== 2then
x="128000" y="640000"
elseif t==3 then
x="128000" y="716800"
elseif t==4 then
return

elseif 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 p==8 then
return

end
end

elseif s==1 then -- Satul 1
say_size(350, 200)
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
say_size(350, 200)
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
say_size(350, 200)
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
say_size(350, 180)
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
say_size(350, 180)
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 -- Doyyumhwan
say_size(350, 150)
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

pc.warp(x, y)
pc.setqf("teleports", pc.getqf("teleports") - 1)

end
end
end
end