Cod: Selectaţi tot

quest teleporters begin
   state start begin
      when 70007.use begin
         local x
         local y
         local t
         local e = pc.get_empire()
         say_title("Teleporter:")
         say("Incotro vrei sa mergi straine?")
         local s = select("Map1", "Map2", "Valea Orcilor", "Desert", "Sohan", "Tara de foc", "Urmatoarele", "Inchide")
         if s==7 then
            say_title("Teleporter:")
            say("Incotro vrei sa mergi straine?")
            local p = select("Turnul Demonilor", "V2", "Padurea Fantomelor", "Padurea Rosie", "Tara Gigantilor", "Grota Exilului(V4)", "Camera De Cristal", "Inchide")
            if p==1 then
               x="590400"
               y="110500"
            elseif p==2 then
               x="665600"
               y="435200"
            elseif p==3 then
               x="289000"
               y="5800"
            elseif p==4 then
               say_title("Teleporter")
               say("Incotro vrei sa mergi straine?")
               t = select("Inceput", "Sfarsit", "Inchide")
               if t==1 then
                  x="1119900"
                  y="70800"
               elseif t==2 then
                  x="1119200"
                  y="7000"
               end
            elseif p==5 then
               x="828100"
               y="763400"
            elseif p==6 and pc.level >=75 then
               x="241700"
               y="1274900"
			elseif p==6 and pc.level <75 then
			say_title("Teleporter")
			say("Nu te pot teleporta decat atunci cand vei ajunge la Nivelul 75")
			r = select("Inchide")
			elseif p==7 and pc.level >=75 then
			   x="181200"
			   y="1220700"
			elseif p==7 and pc.level <75 then
			say_title("Teleporter")
			say("Nu te pot teleporta decat atunci cand vei ajunge la Nivelul 75")
			r = select("Inchide")
            end
         elseif s==1 then
            say_title("Teleporter")
            say("Incotro vrei sa mergi straine?")
            t = select("Regatul Rosu", "Regatul Galben", "Regatul Albastru","Inchide")
            if t==1 then
               x="473900"
               y="954600"
            elseif t==2 then
               x="63200"
               y="166700"
            elseif t==3 then
               x="959600"
               y="269700"
            end
         elseif s==2 then
            say_title("Teleporter:")
            say("Incotro vrei sa mergi straine?")
            t = select("Regatul Rosu", "Regatul Galben", "Regatul Albastru", "Inchide")
            if t==1 then
               x="352300"
               y="882700"
            elseif t==2 then
               x="145700"
               y="239800"
            elseif t==3 then
               x="863800"
               y="246000"
            end
         elseif s==3 then
            say_title("Teleporter:")
            say("Incotro vrei sa mergi straine?")
            t = select("Inceput", "Centru", "Arahani", "Inchide")
            if t==1 then
               if e==1 then
                  x="402100"
                  y="673900"                  
               elseif e==2 then
                  x="270400"
                  y="739900"
               elseif e==3 then
                  x="321300"
                  y="808000"
               end
            elseif t==2 then
               x="332700"
               y="745600"
            elseif t==3 then
               x="282800"
               y="792800"
            end
         elseif s==4 then
            say_title("Teleporter:")
            say("Incotro vrei sa mergi straine?")
            t = select("Inceput", "Sfarsit", "Inchide")
            if t==1 then
               if e==1 then
                  x="217800"
                  y="627200"                  
               elseif e==2 then
                  x="221900"
                  y="502700"
               elseif e==3 then
                  x="344000"
                  y="502500"
               end
            elseif t==2 then
               x="296300"
               y="547500"
            end
         elseif s==5 then
            say_title("Teleporter")
            say("Incotro vrei sa mergi straine?")
            t = select("Inceput", "Mijloc", "Inchide")
            if t==1 then
               if e==1 then
                  x="434200"
                  y="290600"                  
               elseif e==2 then
                  x="375200"
                  y="174900"
               elseif e==3 then
                  x="491800"
                  y="173600"
               end
            elseif t==2 then
               x="436200"
               y="215300"
            end         
         elseif s==6 then
            say_title("Teleporter:")
            say("Incotro vrei sa mergi straine?")
            t = select("Inceput", "Inchide")
            if t==1 then
               if e==1 then
                  x="599400"
                  y="756300"                  
               elseif e==2 then
                  x="597800"
                  y="622200"
               elseif e==3 then
                  x="730700"
                  y="689800"
               end
            elseif t==2 then
               return
            end
         end         
         if s!=8 or p!=8 then
            pc.warp(x, y)
         end
      end
   end
end