Cod: Selectaţi tot
-------------------------------
-- SERVERFILE BY HOPE v2
-------------------------------
quest warp_ring begin
state start begin
when 70007.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 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("warp_ring",1)
pc.setqf("warps",50)
return
end
if pc.getqf("warps") <= 0 then
say_title("Inel teleportare")
say("")
say("Nu mai poþi 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 sã te teleportezi?")
say_reward("Teleportãri rãmase: "..pc.getqf("warps"))
say_size(350, 350)
local s = select("Satul 1","Satul 2","Valea Seungryong","Deºertul Yongbi","Muntele Sohan","Doyyumhwan","Urmãtoarele","Închide")
if s==7 then
say("Unde vrei sã te teleportezi?")
say_reward("Teleportãri rãmase: "..pc.getqf("warps"))
say_size(350, 350)
local p = select("Turnul Demonilor","Kuahlo Dong","Lungsam","Pãdurea Roºie","Þãrâmul Giganþilor","Grota Exilului","Temniþa Maimuþelor","Î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ârºit","Î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="284200" y="809600"
elseif p==7 then -- Temniþa Maimuþelor
say_size(350, 200)
t = select("Temniþa Maimuþelor Începãtor","Temniþa Maimuþelor Normal","Temniþa Maimuþelor 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
say_size(350, 200)
t = select("Þinutul Yongan","Þinutul Joan","Þinutul 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("Þinutul Yayang","Þinutul Bokjung","Þinutul 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 -- Deºertul 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
end
pc.warp(x,y)
pc.setqf("warps", pc.getqf("warps") - 1)
end
end
end
de 
de 
de