PHP Code:
------------------------------------------
--NewWorld3 Quest, 17.11.2010, (c) 2010
--map_warp.quest
--By Dauni
------------------------------------------
quest map_warp begin
state start begin
when 9012.chat." الناقل " begin
-- Variablen Start
setbgimage("teport.tga")
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 = {" منطقة الأتحاد "," منطقة الأتحاد "," منطقة الأتحاد ",}
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
{
{ 608800, 634400 },
{ 600000, 755500 },
{ 730800, 689400 },
},
--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(" الناقل ")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
say("")
say_reward(" هل تريد الانتقال؟ ")
else
say_reward(" هل تريد الانتقال؟ ")
end
local s = select(" نعم "," لا ")
if s == 2 then
return
end
say_title(" الناقل ")
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
if level < 60 then
say(" حدد المنطقة التي تريد الذهاب اليها ")
say_reward(" سيكلفك ذلك " ..cost.." يانغ. ")
sub_set = select(guild_map_name, " وادي الغيلان "," صحراء يونغبي ", " جبال سوهان "," إلغاء ")
if sub_set == 5 then
return
end
else
say(" حدد المنطقة التي تود الذهاب اليها ")
say_reward(" سيكلفك ذلك " ..cost.." يانغ. ")
sub_set = select(guild_map_name, " وادي الغيلان ", " صحراء يونغبي ", " جبال سوهان "," التالي ", " إلغاء ")
if sub_set == 6 then
return
end
if sub_set == 5 then
say_title(" الناقل ")
say(" حدد المنطقة التي تود الذهاب اليها. ")
say_reward(" سيكلفك ذلك " ..cost.." يانغ. ")
if is_test_server() then
sub_set = select(" أرض النار ", " برج الشياطين "," الغابة الحمراء ", " برج العناكب ", " معبد الضلام ", " منتصف أرض النار ", " التالي ", " إلغاء ") + 4
if sub_set == 12 then
return
end
if sub_set == 11 then
say_reward(" سيكلفك ذلك " ..cost.." يانغ. ")
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
say_reward(" سيكلفك ذلك " ..cost.." يانغ. ")
sub_set = select("OX-Event","Bossrun","Spinnendungeon2","Casino","Naga","Spinnendungeon3","Abbrechen") + 17
if sub_set == 24 then
return
end
end
end
else
say_reward(" سيكلفك ذلك " ..cost.." يانغ. ")
sub_set = select(" أرض النار ", " برج الشياطين "," الغابة الحمراء ", " برج العناكب ", " معبد الضلام ", " منتصف أرض النار ", " خروج ") + 4
if sub_set == 14 then
return
end
end
end
end
if pc.get_gold() < cost then
say_title(" الناقل ")
say_reward(" ليس لديك يانغ كافي ")
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(" يونغان "," يايانغ ", " إلغاء ")
if sub_set3 == 1 then
if pc.get_gold() < cost then
say_title(" الناقل ")
say_reward(" ليس لديك يانغ كافي ")
return
end
pc.changegold(-cost)
pc.warp(474300,954800)
end
if sub_set3 == 2 then
if pc.get_gold() < cost then
say_title(" الناقل ")
say_reward(" ليس لديك يانغ كافي ")
return
end
pc.changegold(-cost)
pc.warp(353100,882900)
end
if sub_set3 == 3 then
return
end
elseif empire == 2 then
setbgimage("teport.tga")
local sub_set3 = select(" جوان "," بوكيونج ", " إلغاء ")
if sub_set3 == 1 then
if pc.get_gold() < cost then
say_title(" الناقل ")
say_reward(" ليس لديك يانغ كافي ")
return
end
pc.changegold(-cost)
pc.warp(63800,166400)
end
setbgimage("teport.tga")
if sub_set3 == 2 then
if pc.get_gold() < cost then
say_title(" الناقل ")
say_reward(" ليس لديك يانغ كافي ")
return
end
pc.changegold(-cost)
pc.warp(145500,240000)
end
if sub_set3 == 3 then
return
end
setbgimage("teport.tga")
elseif empire == 3 then
local sub_set3 = select(" بيونغمو "," باكرا ", " إلغاء ")
if sub_set3 == 1 then
if pc.get_gold() < cost then
say_title(" الناقل ")
say_reward(" ليس لديك يانغ كافي ")
return
end
pc.changegold(-cost)
pc.warp(959900,269200)
end
if sub_set3 == 2 then
if pc.get_gold() < cost then
say_title(" الناقل ")
say_reward(" ليس لديك يانغ كافي ")
return
end
pc.changegold(-cost)
pc.warp(863900,246000)
end
setbgimage("teport.tga")
if sub_set3 == 3 then
setbgimage("teport.tga")
return
end
end
end
end
end
end
![[QUEST]setbgimage Problem](https://www.elitepvpers.com/forum/iconimages/metin2-private-server/quest-setbgimage-problem_ltr.gif){kind=small}
