------------------------------------------
--NewWorld3 Quest, 17.11.2010, (c) 2010
--map_warp.quest
--By Dauni
------------------------------------------
quest map_warp begin
state start begin
when 9012.chat."Teleportieren" begin
-- Variablen Start
local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()
local cost = math.floor(level / 5) * 1000
local guild_map_names = {"Jungrang","Waryong","Imha",}
guild_map_name = guild_map_names[empire]
local empire_castle={"Rote Burg","Gelbe Burg","Blaue Burg",}
empire_castle = empire_castle[empire]
local warp = {
-- guild_map
{
{ 128500, 1000 },
{ 179500, 1000 },
{ 271800, 13000 },
},
-- 64 map_n_threeway
{
{ 402100, 673900 },
{ 270400, 739900 },
{ 321300, 808000 },
},
-- 63 metin2_map_n_desert_01
{
{ 217800, 627200 },
{ 221900, 502700 },
{ 344000, 502500 },
},
-- 61 map_n_snowm_01
{
{ 434200, 290600 },
{ 375200, 174900 },
{ 491800, 173600 },
},
--empire_castle
--{
-- { 975200, 133000 },
-- { 977200, 185000 },
-- { 923900, 183600 },
--} ,
-- 62 metin2_map_n_flame_01
{
{ 599400, 756300 },
{ 597800, 622200 },
{ 730700, 689800 },
},
-- devil_tower
{
{ 590500, 110500 },
{ 590500, 110500 },
{ 590500, 110500 },
},
-- red_forest
{
{ 1119900, 70800 },
{ 1119900, 70800 },
{ 1119900, 70800 },
},
-- spider
{
{ 85000, 525000 },
{ 85000, 525000 },
{ 85000, 525000 },
},
--tempel
{
{ 553600, 143600 },
{ 553600, 143600 },
{ 553600, 143600 },
},
--tal des todes
{
{ 480800, 1069600 },
{ 480800, 1069600 },
{ 480800, 1069600 },
},
--deviltower2
{
{ 5555500, 5555500 },
{ 5555500, 5555500 },
{ 5555500, 5555500 },
},
--skypia01
{
{ 10000, 1675000 },
{ 10000, 1675000 },
{ 10000, 1675000 },
},
--skypia02
{
{ 153600, 1203200 },
{ 153600, 1203200 },
{ 153600, 1203200 },
},
--skypiaboss
{
{ 819200, 1049600 },
{ 819200, 1049600 },
{ 819200, 1049600 },
},
--timeattack01
{
{ 777700, 777700 },
{ 777700, 777700 },
{ 777700, 777700 },
},
--timeattack02
{
{ 888800, 888800 },
{ 888800, 888800 },
{ 888800, 888800 },
},
--timeattack03
{
{ 999900, 999900 },
{ 999900, 999900 },
{ 999900, 999900 },
},
--ox
{
{ 870400, 0 },
{ 870400, 0 },
{ 870400, 0 },
},
--bossrun
{
{ 911100, 911100 },
{ 911100, 911100 },
{ 911100, 911100 },
},
--sd2
{
{ 665600, 435200 },
{ 665600, 435200 },
{ 665600, 435200 },
},
--casino
{
{ 444400, 444400 },
{ 444400, 444400 },
{ 444400, 444400 },
},
--naga
{
{ 555500, 555500 },
{ 555500, 555500 },
{ 555500, 555500 },
},
--sd3
{
{ 123456700, 123456700 },
{ 123456700, 123456700 },
{ 123456700, 123456700 },
},
}
local sub_set = 0
--Veriablen End
say_title("Teleportieren")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
say("Hier gibt es keine Starken Monster..")
say("Jedoch gibt es viele andere Regionen,")
say("in denen es viele, neue und starke")
say("Monster gibt..")
say("")
say_reward("Nungut, soll ich dich teleportieren?")
else
say("Anscheinend sind die Monster zustark")
say("für dich..")
say("Oder du möchtest dir einfach neue Tränke kaufen..")
say("")
say_reward("Nungut, möchtest du zurück in die Stadt?")
end
local s = select("Teleportieren","Schließen")
if s == 2 then
return
end
say_title("Teleportieren")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
if level < 60 then
say("Da dein Level noch sehr niedrig ist,")
say("kannst du erst in einige Gebiete Reisen..")
sub_set = select(guild_map_name, "Orktal","Wüste", "Eisland","Abbrechen")
if sub_set == 5 then
return
end
else
say("Da dein Level schon recht hoch ist,")
say("kann ich dich auch auf neue Regionen")
say("Teleportieren..")
sub_set = select(guild_map_name, "Orktal", "Wüste", "Eisland","Weiter", "Abbrechen")
if sub_set == 6 then
return
end
if sub_set == 5 then
say_title("Teleportieren")
say("Dies sind die schweren Regionen..")
if is_test_server() then
sub_set = select("Feuerland", "Dämonenturm","Roter Wald", "Spinnendungeon", "Tempel", "Tal des Todes", "Weiter", "Abbrechen") + 4
if sub_set == 12 then
return
end
if sub_set == 11 then
sub_set = select("Dämonenturm2","Skypia01","Skypia02","Skypia Boss","Timeattack01","Timeattack02","Timeattack03","Weiter","Abbrechen") + 10
if sub_set == 19 then
return
end
if sub_set == 18 then
sub_set = select("OX-Event","Bossrun","Spinnendungeon2","Casino","Naga","Spinnendungeon3","Abbrechen") + 17
if sub_set == 24 then
return
end
end
end
else
sub_set = select("Feuerland", "Dämonenturm","Roter Wald", "Spinnendungeon", "Tempel", "Tal des Todes", "Abbrechen") + 4
if sub_set == 14 then
return
end
end
end
end
if pc.get_gold() < cost then
say_title("Teleportieren")
say("Es tut mir Leid dir das sagen zu müssen...")
say_reward("Aber du hast zu wenig Yang!")
say_reward("Du besitzt "..pc.get_gold().." Yang, jedoch")
say_reward("das Reisen kostet "..cost.." Yang!")
return
end
pc.changegold(-cost)
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])
else
if empire== 1 then
sub_set3 = select("Yongan","Jayang", "Abbrechen")
if sub_set3 == 1 then
if pc.get_gold() < cost then
say_title("Teleportieren")
say("Es tut mir Leid dir das sagen zu müssen...")
say_reward("Aber du hast zu wenig Yang!")
say_reward("Du besitzt "..pc.get_gold().." Yang, jedoch")
say_reward("das Reisen kostet "..cost.." Yang!")
return
end
pc.changegold(-cost)
pc.warp(474300,954800)
end
if sub_set3 == 2 then
if pc.get_gold() < cost then
say_title("Teleportieren")
say("Es tut mir Leid dir das sagen zu müssen...")
say_reward("Aber du hast zu wenig Yang!")
say_reward("Du besitzt "..pc.get_gold().." Yang, jedoch")
say_reward("das Reisen kostet "..cost.." Yang!")
return
end
pc.changegold(-cost)
pc.warp(353100,882900)
end
if sub_set3 == 3 then
return
end
elseif empire == 2 then
local sub_set3 = select("Joan","Bokjung", "Abbrechen")
if sub_set3 == 1 then
if pc.get_gold() < cost then
say_title("Teleportieren")
say("Es tut mir Leid dir das sagen zu müssen...")
say_reward("Aber du hast zu wenig Yang!")
say_reward("Du besitzt "..pc.get_gold().." Yang, jedoch")
say_reward("das Reisen kostet "..cost.." Yang!")
return
end
pc.changegold(-cost)
pc.warp(63800,166400)
end
if sub_set3 == 2 then
if pc.get_gold() < cost then
say_title("Teleportieren")
say("Es tut mir Leid dir das sagen zu müssen...")
say_reward("Aber du hast zu wenig Yang!")
say_reward("Du besitzt "..pc.get_gold().." Yang, jedoch")
say_reward("das Reisen kostet "..cost.." Yang!")
return
end
pc.changegold(-cost)
pc.warp(145500,240000)
end
if sub_set3 == 3 then
return
end
elseif empire == 3 then
local sub_set3 = select("Pyungmoo","Bakra", "Abbrechen")
if sub_set3 == 1 then
if pc.get_gold() < cost then
say_title("Teleportieren")
say("Es tut mir Leid dir das sagen zu müssen...")
say_reward("Aber du hast zu wenig Yang!")
say_reward("Du besitzt "..pc.get_gold().." Yang, jedoch")
say_reward("das Reisen kostet "..cost.." Yang!")
return
end
pc.changegold(-cost)
pc.warp(959900,269200)
end
if sub_set3 == 2 then
if pc.get_gold() < cost then
say_title("Teleportieren")
say("Es tut mir Leid dir das sagen zu müssen...")
say_reward("Aber du hast zu wenig Yang!")
say_reward("Du besitzt "..pc.get_gold().." Yang, jedoch")
say_reward("das Reisen kostet "..cost.." Yang!")
return
end
pc.changegold(-cost)
pc.warp(863900,246000)
end
if sub_set3 == 3 then
return
end
end
end
end
end
end
