elite*gold: 0 
Join Date: Apr 2011
Posts: 18
Received Thanks: 0
|
this is -- Teleporter
quest map_warp begin
state start begin
when 9012.chat."Would you like to travel?" begin
say_title("Teleporter:")
say("This is a fascinating area. But")
say("going on here because sometimes a little bits")
say("extraordinary? Rather, probably not. In other")
say("parts of the country, it sometimes looks very differents.")
say("from, it is therefore a safe intressanter")
say("place where I could teleport you. As")
say("But the forces of evil once more")
say("now, were space and time into chaos")
say("overthrown.Thus it is possible that your")
say("do not always return immediately to work.")
say("Would you still be teleported?")
local main_set = select("Yes","No")
if main_set == 2 then
return
end
if pc.get_level() <= 10 then
say_title("Teleporter:")
say("Well ... are you still with your current level")
say("too weak to travel through time and space.")
say("Come back when you're higher than level 10.")
return
end
local map = pc.get_map_index()
local empire = pc.get_empire()
local level = pc.get_level()
local cost = math.floor(level / 5) * 1000
-- ?? ????
if cost < 1000 then
cost = 1000
end
say_title("Teleporter:")
say("Where do you want to be teleported?")
say_reward(string.format("This costs you %d Gold.", cost))
-- ?? ?? ???? ?? ?? (? ?? 1,2 ??)
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then
local guild_map_names = {
"Guild Zone",
"Guild Zone",
"Guild Zone",
}
guild_map_name = guild_map_names[empire]
local empire_castle={
"Castle battle",
"Castle battle",
"Castle battle",
}
empire_castle =empire_castle[empire]
local sub_set = 0
if level < 60 then -- 60?? : ?????, ???, ????, ???
sub_set = select(guild_map_name, "Nula Valley", "Waste Land", "Tangra Mountain", empire_castle,"Other Sectors")
if sub_set == 6 then -- ??
return
end
else -- 61?? : ????, ???, ????, ????
sub_set = select(guild_map_name, "Nula Valley", "Waste Land", "Tangra Mountain", empire_castle,"Other Sectors")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Where do you want to be teleported?")
say_reward(string.format("This costs you %d Gold.", cost))
sub_set = select("Valkus", "Demon Tower", "Spider Dungeon", "Wild Forest", "Red Forest", "Land of the Giants", "Back", "Cancel") + 5
if sub_set == 13 then -- ??
return
end
if sub_set == 12 then -- ??
say_title("Teleporter:")
say("Where do you want to be teleported?")
--- l
say_reward(string.format("This costs you %d Gold.", cost))
sub_set = select(guild_map_name, "Nula Valley", "Waste Land", "Tangra Mountain", empire_castle,"Other Sectors")
if sub_set == 6 then -- ??
say_title("Teleporter:")
say("Where do you want to be teleported?")
say_reward(string.format("This costs you %d Gold.", cost))
sub_set = select("Valkus", "Demon Tower", "Spider Dungeon", "Wilde Forest", "Red Forest", "Land of the Giants", "Cancel") + 5
if sub_set == 12 then -- ??
return
end
end
end
end
end
if pc.gold < cost then
say("You do not have enough money,")
say_title("Teleporter:")
say("I would teleport you for free,")
say("but I have a big family. In order to")
say("I have to make money.")
say_reward(string.format("It costst %d Gold.", cost))
return
end
pc.changegold(-cost)
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 },
},
-- 104 metin2_map_spiderdungeon
{
{ 60000, 496000 },
{ 60000, 496000 },
{ 60000, 496000 },
},
-- 67 metin2_map_trent
{
{ 288700, 5700 },
{ 288700, 5700 },
{ 288700, 5700 },
},
-- 68 metin2_map_trent02
{
{ 1119900, 70800 },
{ 1119900, 70800 },
{ 1119900, 70800 },
},
-- 70 metin2_map_nusluck01
{
{ 845100, 745900 },
{ 845100, 745900 },
{ 845100, 745900 },
},
}
test_chat(warp[sub_set][empire][1]..warp[sub_set][empire][2])
say_title("Teleporter:")
say("Caution, I teleport now. you will")
say("at a dangerous place to land, so watch out")
say("you on. Good luck!")
wait()
pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])
else -- ? ?? 1,2 ? ??? ?????? ? ?? 1,2 ? ??? ?? ??
local sub_set2 = 3
--sub_set2 = select(locale.vileage1_name[empire], locale.vileage2_name[empire], locale.cancel)
if empire==1 then
sub_set2 = select("Agros","Maadi" , locale.cancel)
elseif empire ==2 then
sub_set2 = select("Netha","Aswan" , locale.cancel)
elseif empire ==3 then
sub_set2 = select("Longdon","Corinth" , locale.cancel)
end
if sub_set2 != 3 then
if pc.gold < cost then
say_title("Teleporter:")
say("I would teleport you for nothing,")
say("but I have a big family. In order to")
say("I have to make money.")
say_reward(string.format("It costs %d Gold.", cost))
else
if sub_set2 == 1 then
say_title("Teleporter:")
say("I teleport you there.")
wait()
if empire == 1 then
pc.warp(474300,954800)
elseif empire == 2 then
pc.warp(63800,166400)
elseif empire == 3 then
pc.warp(959900,269200)
end
elseif sub_set2 == 2 then
say_title("Teleporter:")
say("I teleport you there.")
wait()
if empire == 1 then
pc.warp(353100,882900)
elseif empire == 2 then
pc.warp(145500,240000)
elseif empire == 3 then
pc.warp(863900,246000)
end
end
pc.changegold(-cost)
end
end
end
end -- end_of_chat
end -- end_of_state
end -- end_of_quest
|
