teleporter

quest tp begin
 state start begin

 function warp(x, y, lv, gold)
  if pc.get_level() < lv then
   say_reward("Devi essere almeno a lv "..lv..".")
   return
  end
  if pc.get_gold() < gold then
   say_reward("Devi avere almeno "..gold.." Yang.")
   return
  end
  pc.change_gold(-gold)
  pc.warp(x,y)
 end

 when 9004.chat."Voglio Viaggiare" or 70021.use with pc.get_map_index()!=110 or pc.get_map_index()!=111 or pc.get_map_index()!=113 or pc.get_map_index()!=114 begin
  say_title("Teleporter:")
  say("Dove vuoi andare?")
  local s = select("Villaggi", "Valle", "Monte", "Torre dei Demoni", "Covo 1", "Covo 2", "Bosco Rosso", "Atlantide", "Valle degli Evocatori (Exp)", "Zona Oscura (Drop)", "Terra Indominata (Drop)", "Chiudi")
  if s == 1 then
   local s = select("Villo 1 Shinsoo", "Villo 1 Chunjo", "Villo 1 Jinno", "Villo 2 Shinsoo", "Villo 2 Chunjo", "Villo 2 Jinno", "Chiudi")
   if s == 1 then
    pc . warp ( 469300 , 964200 )
   elseif s == 2 then
    pc . warp ( 55700 , 157900 )
   elseif s == 3 then
    pc . warp ( 969600 , 278400 )
   elseif s == 4 then
    pc . warp ( 360800 , 877600 )
   elseif s == 5 then
    pc . warp ( 138500 , 234900 )
   elseif s == 6 then
    pc . warp ( 873100 , 242600 )
   end
  elseif s == 2 then
   local empire = pc.get_empire()
   if empire == 1 then
    tp.warp(334900 , 755800, 20, 2500)
   elseif empire == 2 then
    tp.warp(346400 , 733200, 20, 2500)
   elseif empire == 3 then
    tp.warp(317200 , 732200, 20, 2500)
   end
  elseif s == 3 then
   tp.warp(491700, 173600, 40, 5000)
  elseif s == 4 then
   tp.warp(590000, 111600, 40, 5000)
  elseif s == 5 then
   tp.warp(60000, 497500, 30, 5000)
  elseif s == 6 then
   if pc.count_item(71095) >= 1 then
    pc.warp(704000, 462500)
    pc.remove_item(71095, 1)
   else
    say("Devi avere il Biglietto del Passaggio!")
    say("Ritorna quando lo avrai!")
   end
  elseif s == 7 then
   tp . warp ( 1119900 , 70800 , 60, 10000)
  elseif s == 8 then
   tp.warp(241300, 1275500, 75, 20000)
  elseif s == 9 then
   tp . warp (1104600, 1790500, 100, 50000)
  elseif s == 10 then
   tp . warp (1113900, 1517100, 95, 50000)
  elseif s == 11 then
   tp . warp (1137500, 1524400, 86, 50000)
  end
 end

 end
end