Map1-ek (K)

[Minton]

Sziasztok.Valakii tud adni egy olyan teleport tekercset (questet) ami csak a biirodalmak map1-ére teleportál?? Valaki?? SEGITESETEK!!

[Extend]

Ebben is bennevan:

Kód Kijelölés Kibont

quest prempanel begin
   state start begin
      when 9010.chat."Userpanel" with pc.getqf("premium_user")==1 and not npc.is_pc() begin
         say("Willkommen zurück, ".. pc.get_name .."")
         say("")
         local s = select("Ankündigung schreiben", "Speciális-Teleporter", "Átalakítás", "NPC megnyitása", "Team Online Lista"," Megszakít")
            if s == 1 then
               local i = input
                  notice_all(input)
                  say("Posted!")
                  return
               end
            elseif s == 2 then
               say_title("Hova akarsz teleportálni?")
               local s2 = select("deine_map_1", "deine_map_2", "deine_map_3")
                  if s2 == 1 then
                     pc.warp(xxxx, xxxx)
                  elseif s2 == 2 then
                     pc.warp(xxxx, xxxx)
                  elseif s2 == 3 then
                     pc.warp(xxxx, xxxx)
                  end
               end

            elseif s == 3 then
               local s3 = select("Grim Reaper", "Vad Kutya", "Bármely mob", "visszafordul")
                  if s3 == 1 then
                     pc.polymorph(1093, 1000)
                  elseif s3 == 2 then
                     pc.polymorph(101, 1000)
                  elseif s3 == 3 then
                     pc.polymorph(xxx, 1000)
                  elseif s3 == 4 then
                     pc.polymorph(1, 1)
                  end
               end

            elseif s == 4 then
               local s4 = select("General Store", "Fegyverzetkereskedő", "Fegyverkereskedő", "ItemShop")
                  if s4 == 1 then
                     npc.open_shop(xx)
                  elseif s4 == 2 then
                     npc.open_shop(xx)
                  elseif s4 == 3 then
                     npc.open_shop(xx)
                  elseif s4 == 4 then
                     npc.open_shop(xx)
                  end
               end
           
            elseif s == 5 then
               say_title("GM Status:")
               say("")
                  if game.get_event_flag("[SA]KEroZin ")== 1 then
                     say_reward("[SA]KEroZin   online!")
                  else
                     say("[SA]KEroZin  offline!")
                  end
                  if game.get_event_flag("[SA]FuZyO")== 1 then
                     say_reward("[SA]FuZyO  online!")
                  else
                     say("[SA]FuZyO offline!")
                  end
            elseif s == 6 then
               return
            end
         end
      end
   end
end


[/b]

[<Alchemist>]

Esetleg itt egy komplett teleport tekercs (warp_quest.quest legyen a quest neve.)

Kód Kijelölés Kibont

quest warp_quest begin
    state start begin
        when login or levelup with pc.get_level() >= 1 begin
set_state(warp_quest)
        end
    end
    state warp_quest begin
        when letter begin
send_letter("Teleport")
        end

        when button or info begin
            say("Szeretnél utazni map1-re?")
button = select("Igen","Nem")
if button == 1 then
say("Válassz. ")
warp = select("Piros","Sárga", "Kék", "Mégse")
if warp == 1 then
pc.warp(474300,954800)
end
if warp == 2 then
pc.warp(63800,166400)
end
if warp == 3 then
pc.warp(959900,269200)
end
if warp == 4 then
send_letter("Teleport")
return
end
end
if button == 2 then
send_letter("Teleport")
return
end
end
    end
end 


Szerintem lefut a qc, nem szoktam tévedni quetben de ha nem írj és próbálom javítani.

[Extend]

Vagy ha netán a későbbiekben szükséged lenne erre:

Kód Kijelölés Kibont

---------------------------------------------
-- Teleport quest by P3NG3R -
---------------------------------------------
quest teleportos begin
state start begin
when login with pc.get_level()>= 15 begin
send_letter("Teleport")
end
when button or info begin
say("[WINDOW_SIZE width;300|height;440]")
say_title("Teleport")
say("Hová szeretnél utazni?")
local s = select("Piros Map1","Sárga Map1","Kék Map1","Piros Map2","Sárga Map2","Kék Map2","Seugryong-völgy","Sohan Hegység","Yongbi sivatag","Tovább","Mégse")
if s == 1 then
pc.warp(474200, 954500)
chat("Vigyázz magadra.")
elseif s == 2 then
pc.warp(63800, 166200)
chat("Vigyázz magadra.")
elseif s == 3 then
pc.warp(959600, 268800)
chat("Vigyázz magadra.")
elseif s == 4 then
pc.warp(352200, 882200)
chat("Vigyázz magadra.")
elseif s == 5 then
pc.warp(145400, 239800)
chat("Vigyázz magadra.")
elseif s == 6 then
pc.warp(864200, 245800)
chat("Vigyázz magadra.")
elseif s == 7 then
pc.warp(332000, 746600)
chat("Vigyázz magadra.")
elseif s == 8 then
pc.warp(294800, 546400)
chat("Vigyázz magadra.")
elseif s == 9 then
pc.warp(434900, 213600)
chat("Vigyázz magadra.")
elseif s == 10 then
say("[WINDOW_SIZE width;300|height;380]")
say_title("Teleport")
say("Hová szeretnél utazni?")
local s = select("Pók Kazamata1","Pók Kazamata2","Tûz Föld","Démon Torony","Vörös Erdõ ","Lélekbarlang1","Lélekbarlang2","Lélekbarlang3","Mégse") +11
if s == 12 then
pc.warp(59900, 496400)
elseif s == 13 then
pc.warp(704000, 463900)
elseif s == 14 then
pc.warp(605500, 689500)
elseif s == 15 then
pc.warp(590500, 110500)
elseif s == 16 then
pc.warp(1119900, 70800)
elseif s == 17 then
pc.warp(10000, 1207800)
elseif s == 18 then
pc.warp(241700, 1274900)
elseif s == 19 then
pc.warp(177000, 1220600)
elseif s == 20 then
return
end
elseif s == 11 then
return
end
end
end
end

Amit Alchemist adott az neked pont megfelel,mert az a jó.

[Minton]

Köszi Szépen <Alchemist> ment a +

Ez a komppett megvan nekem is csak azért kértem ezt a map1-eset mert van olyan map ami benne van abba a questbe és arra a mapra a szerveren 18tol lehet eljutni és nem akarom hogy 50-60lv-en azon a mapon öljenek. Ment a + neked is