Cod: Selectaţi tot

quest warpring begin
   state start begin
      when 70007.use begin
         local x
         local y
         local t
         local e = pc.get_empire()
         say_title("Teleporter:")
         say("Încotro vrei sã mergi strãine?")
         local s = select("Map1", "Map2", "Valea Orcilor", "Deºert", "Sohan", "Tara de foc", "Urmãtoarele", "Închide")
         if s==7 then
            say_title("Teleporter:")
            say("Încotro vrei sã mergi strãine?")
            local p = select("Turnul Demonilor", "V1", "Pãdurea Fantomelor", "Pãdurea Roºie", "Tara Gigantilor", "Grota Exilului", "Închide")
            if p==1 then
               x="590400"
               y="110500"
            elseif p==2 then
               x="91900"
               y="525400"
            elseif p==3 then
               x="289000"
               y="5800"
            elseif p==4 then
               say_title("Teleporter")
               say("Încotro vrei sã mergi strãine?")
               t = select("Început", "Sfârºit", "Închide")
               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 then
               x="284200"
               y="809600"
            end
         elseif s==1 then
            say_title("Teleporter")
            say("Încotro vrei sã mergi strãine?")
            t = select("Regatul Roºu", "Regatul Galben", "Regatul Albastru","Închide")
            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("Încotro vrei sã mergi strãine?")
            t = select("Regatul Roºu", "Regatul Galben", "Regatul Albastru", "Închide")
            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("Încotro vrei sã mergi strãine?")
            t = select("Început", "Centru", "Arahani", "Închide")
            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("Încotro vrei sã mergi strãine?")
            t = select("Inceput", "Sfârºit", "Închide")
            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("Încotro vrei sã mergi strãine?")
            t = select("Început", "Mijloc", "Închide")
            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("Încotro vrei sã mergi strãine?")
            t = select("Început", "Închide")
            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!= 7 then
            pc.warp(x, y)
         end
      end
   end
end

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