quest teleport_menu begin
state start begin
when login begin
cmdchat("teleporter_index "..q.getcurrentquestindex())
end
when button or info begin
local x
local y
local t
local e = pc.get_empire()
say_title("Teleporter:")
say("Unde vrei sã fii teleportat?")
local s = select("Satul 1", "Satul 2", "Valea Seungryong", "Desertul Yongbi", "Muntele Sohan", "Doyyumhwan", "Urmãtoarele", "Închide")
if s==7 then
say_title("Teleporter:")
say("Unde vrei sã fii teleportat?")
local p = select("Turnul Demonilor", "Caverna Pãianjenilor I", "Lungsam", "Pãdurea Rosie", "Tãrâmul Gigantilor", "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 -- Pãdurea Rosie
say_size(350, 180)
t = select( "Început", "Închide" )
if t==1 then
x="1119900" y="70800"
elseif t==2 then
return
end
elseif p==5 then -- Tãrâmul Gigantilor
x="828100" y="763400"
elseif p==6 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==7 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)
end
end
end