hmmm quest

12/03/2011 11:26 xXxFlash#1
hallo ich möchte eine map im teleporterhinzufügen weiß ab nicht wo genau
hier die quest

die map soll heißen Farm Map und kordis sind 400 650


Code:
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 = { 
{ 
{ 128500 , 1000 } , 
{ 179500 , 1000 } , 
{ 271800 , 13000 } , 
} , 
{ 
{ 402100 , 673900 } , 
{ 270400 , 739900 } , 
{ 321300 , 808000 } , 
} , 
{ 
{ 217800 , 627200 } , 
{ 221900 , 502700 } , 
{ 344000 , 502500 } , 
} , 
{ 
{ 434200 , 290600 } , 
{ 375200 , 174900 } , 
{ 491800 , 173600 } , 
} , 
{ 
{ 599400 , 756300 } , 
{ 597800 , 622200 } , 
{ 730700 , 689800 } , 
} , 
{ 
{ 590500 , 110500 } , 
{ 590500 , 110500 } , 
{ 590500 , 110500 } , 
} , 
{ 
{ 1.1199e+06 , 70800 } , 
{ 1.1199e+06 , 70800 } , 
{ 1.1199e+06 , 70800 } , 
} , 
{ 
{ 51200 , 486400 } , 
{ 51200 , 486400 } , 
{ 51200 , 486400 } , 
} , 
{ 
{ 553600 , 143600 } , 
{ 553600 , 143600 } , 
{ 553600 , 143600 } , 
} , 
{ 
{ 480800 , 1.0696e+06 } , 
{ 480800 , 1.0696e+06 } , 
{ 480800 , 1.0696e+06 } , 
} , 
{ 
{ 5.5555e+06 , 5.5555e+06 } , 
{ 5.5555e+06 , 5.5555e+06 } , 
{ 5.5555e+06 , 5.5555e+06 } , 
} , 
{ 
{ 665600 , 435200 } , 
{ 665600 , 435200 } , 
{ 665600 , 435200 } , 
} , 
{ 
{ 1.23457e+08 , 1.23457e+08 } , 
{ 1.23457e+08 , 1.23457e+08 } , 
{ 1.23457e+08 , 1.23457e+08 } , 
} , 
} 
local sub_set = 0 
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.." ) 
say_reward ( "Eine Reise kostet" .. cost .. " yang!" ) 
sub_set = select ( guild_map_name , "Tal von Seungryong" , "Yongbi-Wüste" , "Berg Sohan" , "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.." ) 
say_reward ( "Eine Reise kostet" .. cost .. " yang!" ) 
sub_set = select ( guild_map_name , "Tal von Seungryong" , "Yongbi-Wüste" , "Berg Sohan" , "Weiter" , "Abbrechen" ) 
if sub_set == 6 then 
return 
end 
if sub_set == 5 then 
say_title ( "Teleportieren" ) 
say ( "Dies sind die schweren Regionen.." ) 
say_reward ( "Eine Reise kostet" .. cost .. " yang!" ) 
if is_test_server ( ) then 
sub_set = select ( "Feuerland" , "Dämonenturm" , "Roter Wald" , "Spinnendungeon" , "Tempel" , "Feuerland 2" , "Weiter" , "Abbrechen" ) + 4 
if sub_set == 12 then 
return 
end 
if sub_set == 11 then 
say_reward ( "Eine Reise kostet" .. cost .. " yang!" ) 
sub_set = select ( "Dämonenturm2" , "Weiter" , "Abbrechen" ) + 10 
if sub_set == 19 then 
return 
end 
if sub_set == 18 then 
say_reward ( "Eine Reise kostet" .. cost .. " yang!" ) 
sub_set = select ( "Spinnendungeon2" , "Spinnendungeon3" , "Abbrechen" ) + 17 
if sub_set == 24 then 
return 
end 
end 
end 
else 
say_reward ( "Eine Reise kostet" .. cost .. " yang!" ) 
sub_set = select ( "Feuerland" , "Dämonenturm" , "Roter Wald" , "Spinnendungeon" , "Tempel" , "Feuerland 2" , "Abbrechen" ) + 4 
if sub_set == 14 then 
return 
end 
end 
end 
end 
if pc . get_gold ( ) < cost then 
say_title ( "Teleportiern" ) 
say_reward ( "Du hast zuwenig 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 ( "Teleportiern" ) 
say_reward ( "Du hast zuwenig yang!" ) 
return 
end 
pc . changegold ( - cost ) 
pc . warp ( 474300 , 954800 ) 
end 
if sub_set3 == 2 then 
if pc . get_gold ( ) < cost then 
say_title ( "Teleportiern" ) 
say_reward ( "Du hast zuwenig 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 ( "Teleportiern" ) 
say_reward ( "Du hast zuwenig yang!" ) 
return 
end 
pc . changegold ( - cost ) 
pc . warp ( 63800 , 166400 ) 
end 
if sub_set3 == 2 then 
if pc . get_gold ( ) < cost then 
say_title ( "Teleportiern" ) 
say_reward ( "Du hast zuwenig 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 ( "Teleportiern" ) 
say_reward ( "Du hast zuwenig yang!" ) 
return 
end 
pc . changegold ( - cost ) 
pc . warp ( 959900 , 269200 ) 
end 
if sub_set3 == 2 then 
if pc . get_gold ( ) < cost then 
say_title ( "Teleportiern" ) 
say_reward ( "Du hast zuwenig yang!" ) 
return 
end 
pc . changegold ( - cost ) 
pc . warp ( 863900 , 246000 ) 
end 
if sub_set3 == 3 then 
return 
end 
end 
end
12/03/2011 11:51 mrapc#2
kannst du mir vllt ebend die ID vom Porter geben?
12/03/2011 12:07 xXxFlash#3
9012