" Вы готовы путешествовать? "

say_title ( " Телепортер: " )    
say ( " " )    
say ( " " )    
say ( " " )    
say ( " Готовы? " )    
local main_set = select ( " Да " , " Нет " )    
if main_set == 2 then    
return    
end    
if pc . get_level ( ) <= 10 then    
say_title ( " Телепортер: " )    
say ( " Вы должны быть 11 уровнем. " )    
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 ( " Телепортер: " )    
say ( " Укажите куда вас телепортировать " )    
say_reward ( string . format ( " Это вам будет стоить %d янг. " , cost ) )    
if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then    
local guild_map_names = {    
" Земля Гильдий " ,    
" Земля Гильдий " ,    
" Земля Гильдий " ,    
}    
guild_map_name = guild_map_names [ empire ]    
local empire_castle = {    
" Замок Битвы " ,    
" Замок Битвы " ,    
" Замок Битвы " ,    
}    
empire_castle = empire_castle [ empire ]    
local sub_set = 0    
if level < 60 then    
sub_set = select ( guild_map_name , " Долина Орков " , " Пустыня Йонгби " , " Гора Сохан " , empire_castle , " Далее " )    
if sub_set == 6 then    
return    
end    
else    
sub_set = select ( guild_map_name , " Долина Орков " , " Пустыня Йонгби " , " Гора Сохан " , empire_castle , " Далее " )    
if sub_set == 6 then    
say_title ( " Телепортер: " )    
say ( " Укажите куда вас телепортировать " )    
say_reward ( string . format ( " Это вам будет стоить %d янг. " , cost ) )    
sub_set = select ( " Доумхвай " , " Башня Демона " , " СД " , " Лунг Сам " , " Рыжый Лес " , " Долина Оргов " , " Назад " , " Отменить " ) + 5    
if sub_set == 13 then    
return    
end    
if sub_set == 12 then    
say_title ( " Телепортер: " )    
say ( " Укажите куда вас телепортировать " )    
say_reward ( string . format ( " Это вам будет стоить %d янг. " , cost ) )    
sub_set = select ( guild_map_name , " Долина Орков " , " Пустыня Йонгби " , " Гора Сохан " , empire_castle , " Назад " )    
if sub_set == 6 then    
say_title ( " Телепортер: " )    
say ( " Укажите куда вас телепортировать " )    
say_reward ( string . format ( " Это вам будет стоить %d янг. " , cost ) )    
sub_set = select ( " Доймхвай " , " Башня Демона " , " СД " , " Лунг Сам " , " Рыжий Лес " , " Долина Оргов " , " Отмена " ) + 5    
if sub_set == 12 then    
return    
end    
end    
end    
end    
end    
if pc . gold < cost then    
say ( " У вас не хватает денег. " )    
say_title ( " Телепортер: " )    
say ( " У вас не хватает денег. " )    
say_reward ( string . format ( " Это стоит %d янг. " , cost ) )    
return    
end    
pc . changegold ( - cost )    
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 } ,    
} ,    
{    
{ 975200 , 133000 } ,    
{ 977200 , 185000 } ,    
{ 923900 , 183600 } ,    
} ,    
{    
{ 599400 , 756300 } ,    
{ 597800 , 622200 } ,    
{ 730700 , 689800 } ,    
} ,    
{    
{ 590500 , 110500 } ,    
{ 590500 , 110500 } ,    
{ 590500 , 110500 } ,    
} ,    
{    
{ 60000 , 496000 } ,    
{ 60000 , 496000 } ,    
{ 60000 , 496000 } ,    
} ,    
{    
{ 288700 , 5700 } ,    
{ 288700 , 5700 } ,    
{ 288700 , 5700 } ,    
} ,    
{    
{ 1.1199e+06 , 70800 } ,    
{ 1.1199e+06 , 70800 } ,    
{ 1.1199e+06 , 70800 } ,    
} ,    
{    
{ 845100 , 745900 } ,    
{ 845100 , 745900 } ,    
{ 845100 , 745900 } ,    
} ,    
}    
test_chat ( warp [ sub_set ] [ empire ] [ 1 ] .. warp [ sub_set ] [ empire ] [ 2 ] )    
say_title ( " Телепортер: " )    
say ( " Через несколько секунд мы отправляемся! " )    
wait ( )    
pc . warp ( warp [ sub_set ] [ empire ] [ 1 ] , warp [ sub_set ] [ empire ] [ 2 ] )    
else    
local sub_set2 = 3    
if empire == 1 then    
sub_set2 = select ( " Йонган " , " Янг " , locale . cancel )    
elseif empire == 2 then    
sub_set2 = select ( " Жоан " , " Бокюнг " , locale . cancel )    
elseif empire == 3 then    
sub_set2 = select ( " Пуингмо " , " Бакра " , locale . cancel )    
end    
if sub_set2 ~= 3 then    
if pc . gold < cost then    
say_title ( " Телепортер: " )    
say ( " Ждем. " )    
say_reward ( string . format ( " Это стоит %d янг. " , cost ) )    
else    
if sub_set2 == 1 then    
say_title ( " Телепортер: " )    
say ( " Ждем. " )    
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 ( " Телепортер: " )    
say ( " Ждем. " )    
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