Salut,am si eu o rugaminte la voi
Cine imi poate scoate si mie regatul albastru MAP1/MAP2 de pe inelul de teleport ,multumesc !
[Sursa=]-------------------------------
-- SERVERFILE BY XKOZED --
-------------------------------
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("")
pc.setqf("warp_ring",1)
pc.setqf("warps",99999999)
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: Infinite")
say_size(350, 350)
local s = select("Satul 1","Satul 2","Valea Seungryong","Deºertul Yongbi","Muntele Sohan","Tara de Foc","Urmãtoarele","Închide")
if s==7 then
say("Unde vrei sã te teleportezi?")
say_reward("Teleportãri rãmase: Infinite")
say_size(350, 350)
local p = select("Turnul Demonilor","V2","Lungsam","Pãdurea Roºie","Þãrâmul Giganþilor","Grota Exilului","Mapa de Relaxare","Î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
x="456300" y="447400"
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)
end
end
end[/Sursa]
Problema QUest
Poftim: 
Astept THX
Astept THX
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 ajuta sa te teleportezi")
say("In aproape orice loc dorit, gratis.")
say("")
pc.setqf("warp_ring",1)
pc.setqf("warps",99999999)
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 sa te teleportezi?")
say_reward("Teleportari ramase: Infinite")
say_size(350, 350)
local s = select("Satul 1","Satul 2","Valea Seungryong","Desertul Yongbi","Muntele Sohan","Tara de Foc","Urmatoarele","Inchide")
if s==7 then
say("Unde vrei sa te teleportezi?")
say_reward("Teleportari ramase: Infinite")
say_size(350, 350)
local p = select("Turnul Demonilor","V2","Lungsam","Padurea Rosie","Tarsmul GiganĂľilor","Grota Exilului","Mapa de Relaxare","Inchide")
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
say_size(350, 180)
t = select("Inceput","Sfsrsit","Inchide")
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 -- Tarsmul Gigantilor
x="828100" y="763400"
elseif p==6 then -- Grota Exilului
x="284200" y="809600"
elseif p==7 then -- TemniĂľa MaimuĂľelor
x="456300" y="447400"
elseif p==8 then
return
end
elseif s==1 then -- Satul 1
say_size(350, 200)
t = select("Tinutul Yongan","Tinutul Joan","Inchide")
if t==1 then
x="473900" y="954600"
elseif t==2 then
x="63200" y="166700"
elseif t==3 then
return
end
elseif s==2 then -- Satul 2
say_size(350, 200)
t = select("Tinutul Yayang","Tinutul Bokjung","Inchide")
if t==1 then
x="352300" y="882700"
elseif t==2 then
x="145700" y="239800"
elseif t==3 then
return
end
elseif s==3 then -- Valea Seungryong
say_size(350, 200)
t = select("Inceput","Mijloc","Inchide")
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("Inceput","Mijloc","Inchide")
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("Inceput","Mijloc","Inchide")
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("Inceput","Inchide")
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)
end
end
end- Pentru acest mesaj, AndyOpris for the post:
- blood1234567
Mersi frumos,puteti marca ca rezolvat !
#Arhivat
de 
de 
de 
de -
- Informaţie
-
Cine este conectat
Utilizatori ce ce navighează pe acest forum: sanducatalin1 și 33 vizitatori