Questek [SAJÁT] \\\"Komolyabb questek\\\"

[Absolon]

Ezek a Questek a Metin2Reload szerverről származnak, eredetileg ott voltak/vannak!

Sziasztok, ezt a Topikot folyamatosan szerkeszteni fogom.
Amikor nincs lezárva, akkor az azt jelenti, hogy épp szerkesztem, szóval ne írjatok bele, olyankor ... köszönöm előre is

Ezek a questek mind tesztelve lettek!  100% hogy működik mindegyik.

Ha hasznosnak tartod, bal oldalt a topikkal egy szinten nyomj egy Thank You -t =)
Quest/1

Tárgy becserélő Quest


Ez a quest arról szól, hogy elviszel egy bizonyos, tárgyat. egy NPC hez. és az add cserébe yangot. ha megvan a tárgyad.
És egyéb szép kis kérdéseket feltesz közben

Kód Kijelölés Kibont

quest danaka_fule  begin
state start begin
when 20086.chat."Danaka Füle" begin
say_title ( "Danaka Füle" )
say ( "" )
say ( "10 Darab Danaka Fülért adok neked 200 milla yangot" )
say ( "Eventen öld meg a tanakákat, és szerezz minnél több fület." )
say ( "Így néz ki a Danaka füle:" )
say_item ( "Danaka Füle" , 30202 , "" )
say(" ")
say("Beváltod a füleket?")
say(" ")
local s = select ( "Beváltom" , "Nincs fülem" )
if s == 2 then
return
end
if s == 1 then
say_title ( "Danaka Füle" )
say ( "" )
say("Biztosan megvan mind a 10 db fül?")
say ( "" )
wait()
end
if pc.countitem ( 30202 ) < 10 then
say_title ( "Danaka Füle" )
say("")
say("Sajnálom, de nincs meg a 10db fül...")
say("")
else
say_title ( "Danaka Füle" )
say("")
say("Remek, azonnal beváltom neked.")
say("")
pc.remove_item ( 30202 , 10 )
pc.change_money ( 200000000 )
end
end
end
end

ez egy alap quest,, hogy lássátok.. hogyan is fog kinézni.. kedvetekre átírhatjátok benne a dolgokat.




----------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------


Quest/2

Átváltoztató gömb quest.

ezzel a questel egy használaton kívüli átváltoztató gömbre bírjátok beletenni... a mobokat, hogy mivé változzon.

Ennél a questnél: ha rányomsz a gömbre, kiadja a lehetőségeket, hogy szabadon választhass, hogy mi szeretnél lenni.

Kód Kijelölés Kibont

quest atvgomb begin
state start begin
when 70107.use begin
say("Valaszd ki a Szornyet!")
local menu=select("Baltas Harcos","Ezerharcos","Vadkutya","Telapo","Szellem Fa Fejedelem","Tovabb","Bezar")
if menu==1 then
pc.polymorph(1402,1800)
end
if menu==2 then
pc.polymorph(1403,1800)
end
if menu==3 then
pc.polymorph(101,1800)
end
if menu==4 then
pc.polymorph(20031,1800)
end
if menu==5 then
pc.polymorph(2307,1800)
end
if menu==7 then
end
if menu==6 then
local menuk=select("Kek Halal","Pok Kiraly","Pok Kiralyno","Sotet Pok Kiralyno","Bezar")
if menuk==1 then
pc.polymorph(1095,1800)
end
if menuk==2 then
pc.polymorph(2092,1800)
end
if menuk==3 then
pc.polymorph(2091,1800)
end
if menuk==4 then
pc.polymorph(2093,1800)
end
if menuk==5 then
end
end
pc.give_item2(70106,1)
pc.removeitem(70107,1)
end
when 70106.use begin
pc.remove_polymorph()
pc.removeitem(70106,1)
end
end
end




-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------


Quest/3

Ez egy Céh váltó quest " Céh átadó"

Ennek a questnek a segítségével a céhvezér átruházhatja a vezetést egy másik céh tagra.

Kód Kijelölés Kibont

quest change_ceh begin
state start begin
function change_master( name , level_limit , time_resign_limit , time_be_other_leader , time_be_other_member , iscacheitem )
local ret = guild.change_master_with_limit( name , level_limit , time_resign_limit , time_be_other_leader , time_be_other_member, iscacheitem)
local result = false

if ret == 0 then
say("Rossz nevet adtál meg")
elseif ret == 1 then
say("Csak céhvezér használhatja ezt a tárgyat.")
elseif ret == 2 then
say("Nem található ilyen nevu játékos a céhben.")
elseif ret == 3 then
say("Sikeresen átadtad a vezérséget.")
result = true
elseif ret == 4 then
say("Nem vagy céhben.")
elseif ret == 5 then
say("A célszemély nem elérheto.")
elseif ret == 6 then
say("Nem elég képzett a céhvezérségre.")
elseif ret == 7 then
say("Túl korai még, hogy vezetové váljon.")
end

return result
end

when 100009.use begin
if pc.is_guild_master() == false then
say("Csak céhvezér használhatja ezt a tárgyat.")
return
end

say("Kérlek add meg a célszemély nevét:")
say("")
local s = input()

if s == pc.name then
say("Nem adhatod át magadnak a vezetoséget.")
say("")
return
elseif s == "" then
say("Kérlek adj meg egy nevet.")
say("")
return
end

if not pc.is_near_vid( find_pc_by_name( s ) , 10 ) then
say("A célszemélynek melletted kell lennie.")
say("")
return
end

if change_guild_master.change_master( s , 40 , 0 , 0 , 0 ,true) == true then
pc.remove_item(100009)
elseif ret == 5 then
elseif ret == 6 then
say("Nem elég képzett a céhvezérségre.")
end
end
end
end


--------------------------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------------------------

Post Merge: 2012-05-12, 13:19:19
Quest/4


Név váltó quest


Sziasztok, most egy név váltó questet hoztam nektek!

Ez is működik, lekorlátoztam a megengedett karakter név hosszúságot, így nem bírnak ..hosszú karakterneveket létrehozni, se GM nevet...

Kód Kijelölés Kibont

quest change_name begin
state start begin
when 71055.use begin
say_title("Név Oldat:")
say("")
say("Ennek a tárgynak a segítségével tudsz változtatni")
say("egyszer változtathatsz,tehát jól meggondoltad?")
say("tényleg szeretnéd a nevedet megváltoztatni?")
say("")
say_reward("Valóban szeretnéd megváltoztatni a nevedet?")
say("")
local change = select("Igen", "Nem")
if change == 1 then
say_title("Név Oldat:")
say("")
say("Tehát te tényleg meg szeretnéd változtatni a nevedet!")
say("Mielott megváltoztatnád a nevedet,meg kell vizsgálnunk")
say("vajon nem foglalt-e már az ujonnan választott neved")
say("szabad.")
say("")
say_reward("Add meg az új nevedet:")
say("")
local c_name = input()
if string.len(c_name) > 8 then
    say("A megadott név túl hosszú, max 8 karakter legyen!")
    return
elseif string.len(c_name) < 3 then
    say("A megadott név túl rövid, minimum 3 karakter legyen!")
    return
end
local c_search = find_pc_by_name(c_name)
if c_search==0 then
say_title("Név Oldat:")
say("")
say("Ez a név még szabad !")
say("Biztosan ezt a nevet szeretnéd?: "..c_name.." ")
say("")
local secure = select("Igen", "Nem")
if secure == 1 then
say_title("Név Oldat:")
say("")
say("Sok szerencsét!")
say("")
say("A te meved in "..c_name.." -re változott")
say("")
say_reward("Kérlek karakter cserézz!!")
say_reward("Karakter csere után, már az új neved fog látszódni!")
say("")
pc.change_name(c_name)
pc.remove_item(71055, 1)
else
say_title("Név Oldat::")
say("")
say("Sajnos,másik nevet kell választanod")
say("de talán szeretnéd megtartani")
say("a jelenlegi neved")
say("")
end
else
say_title("Név Oldat:")
say("")
say("Ez a név sajnos foglalt,keress tovább")
say("magadnak egy olyan nevet, amire megváltoztathatod a jelenlegit!")
say("")
end
else
return
end
end
end
end
Post Merge: 2012-05-12, 13:21:49
Quest/5

Távoli raktár Quest


Ezzel a questel távolról is kibírjátok nyitni egy tárgy segítségével, az Item shop raktárt és a Sima raktárt is

Kód Kijelölés Kibont

quest itemraktar begin
state start begin
when 27999.use begin
local s = select("Raktar", "Itemshop Raktar", "Bezar")
if s == 1 then
    game.open_safebox()
return
end
if s == 2 then
    game.open_mall()
end
if s==3 then
return
end
end
end
end
Post Merge: 2012-05-12, 13:26:36
Quest/6


Ló név váltó quest ( Ló cukor)

Ez egy nem szokványos ló cukor quest..

Nem a ló menübe kerülnek be a dolgok ,hanem csak simán jobb klikk a ló cukorra.. és ugyan úgy mind a névváltónál .. be kell írni az új nevet.. és tádám, a lovadnak máris egyedi neve lesz

Kód Kijelölés Kibont

quest locukor begin
state start begin
when 71110.use begin
say("Üdvözöllek Kalandor!")
say("Ezzel a tárgyal elnevezheted a lovad.")
say("Szeretnéd elnevezni a lovad?")
local menu=select("Igen","Nem")
if menu== 2 then
return
end
if menu == 1 then
     local old_horse_name = horse.get_name() ;
     say_title("A ló elnevezése")
     say("Most adhatsz egy általad választott ")
     say("nevet a lovadnak.")
     say("")
     if string.len(old_horse_name) == 0 then
      say_reward("A lovad még nincs elnevezve.")
     else
      say_reward("A lovad eddigi neve "..old_horse_name..".")
     end
     say("")
     say("Válassz egy új nevet:")
     say("")
     local horse_name = input()
     if string.len(horse_name) < 2 then
      say_title("A ló elnevezése")
      say("A név túl rövid.")
      say("")
      return
     elseif string.len(horse_name) > 12 then
      say_title("A ló elnevezése")
      say("A név túl hosszú.")
      say("")
      return
     end
     local ret = horse.set_name(horse_name)
     say_title("A ló elnevezése")
     if ret == 0 then
      say_reward("Neked nincs lovad!")
      say("")
     elseif ret == 1 then
      say_reward("Ezt a nevet nem használhatod!")
      say("")
     elseif ret == 2 then
      pc.remove_item("71110")
  pc.mount_bonus(apply.DEF_GRADE_BONUS,54,100)
  timer("letelt",50)
      say("A lovadat sikeresen elnevezted!")
  end
  when letelt.timer with string.len(old_horse_name) == 1 begin
  pc.mount_bonus(apply.DEF_GRADE_BONUS,54,-100)
  string.len(old_horse_name) == 0 then
  end
end
end
end
end
Post Merge: 2012-05-12, 13:38:58
Quest/7

Ló vásárló quest!
Külön NPC nél, szinthez kötve külön jelennek meg a questek.

Ló vásárolható:

Alap ló: Lv5 től jelenik meg a nyíl az NPC fölött és vásárolható meg.
Katonai Ló: Lv50-től jelenik meg a nyíl az NPC fölött és vásárolható meg.
Profi Ló:  Lv90-től jelenik meg a nyíl az NPC fölött és vásárolható meg.

Kód Kijelölés Kibont

quest lovak begin
state start begin
when 20349.chat."Alap Lovat Venni" with horse.get_level()< 1 begin
say_title("Lovászinas:")
say("Üdvözöllek "..pc.get_name().." Kalandor!")
say("Itt szerezheted be a Kezdő lovat.")
say("1 millió yang és 5-ös szint kell.")
say("Szeretnéd megkapni?")
local menu=select("Igen","Nem")
if menu==2 then
return
end
if menu==1 then
if pc.get_level()<5 then
say_title("Lovászinas:")
say("Sajnálom!")
say("Legalább 5-ös szintűnek kell lenned.")
end
if pc.get_gold()<1000000 then
say_title("Lovászinas:")
say("Sajnálom!")
say("1 millió yang szükséges!")
say("Nincsen elég pénzed!")
say("Viszlát!")
end
say_title("Lovászinas:")
say("Megkaptad a kezdő lovat és a Lóképet!")
say("Következő lószint megszerezhető lesz 50-es szinten.")
say("Viszlát!")
horse.set_level(1)
pc.give_item2(50051,1)
pc.changemoney(-1000000)
end
end
when 20349.chat."Harci Lovat Venni" with horse.get_level()==1 begin
say_title("Lovászinas:")
say("Üdvözöllek "..pc.get_name().." Kalandor!")
say("Itt szerezheted be a Harci lovat.")
say("2 millió yang és 50-es szint kell")
say("Szeretnéd megkapni?")
local menuk=select("Igen","Nem")
if menuk==2 then
return
end
if menuk==1 then
if pc.get_level()<50 then
say_title("Lovászinas:")
say("Sajnálom!")
say("Legalább 50-es szintűnek kell lenned.")
end
if pc.get_gold()<2000000 then
say_title("Lovászinas:")
say("Sajnálom!")
say("2 millió yang szükséges!")
say("Nincsen elég pénzed!")
say("Viszlát!")
end
say_title("Lovászinas:")
say("Megkaptad a Harci lovat és a Lókönyvet!")
say("Következő lószint megszerezhető lesz 90-es szinten.")
say("Viszlát!")
horse.set_level(11)
pc.give_item2(50052,1)
pc.changemoney(-2000000)
end
end
when 20349.chat."Profi Lovat Venni" with horse.get_level()==11 begin
say_title("Lovászinas:")
say("Üdvözöllek "..pc.get_name().." Kalandor!")
say("Itt szerezheted be a Profi lovat.")
say("3 millió yang és 90-es szint kell.")
say("Szeretnéd megkapni?")
local menuk=select("Igen","Nem")
if menuk==2 then
return
end
if menuk==1 then
if pc.get_level()<90 then
say_title("Lovászinas:")
say("Sajnálom!")
say("Legalább 90-es szintűnek kell lenned.")
end
if pc.get_gold()<3000000 then
say_title("Lovászinas:")
say("Sajnálom!")
say("3 millió yang szükséges!")
say("Nincsen elég pénzed!")
say("Viszlát!")
end
say_title("Lovászinas:")
say("Megkaptad a Profi lovat és a lókönyvét!")
say("Viszlát!")
horse.set_level(21)
pc.give_item2(50053,1)
pc.changemoney(-3000000)
end
end
end
end


Post Merge: 2012-05-12, 13:50:43
Quest/8

Warp Gyűrű Quest
"Nem saját, átalakított"

Kód Kijelölés Kibont

quest warpgyuru begin
state start begin
when 70007.use begin
local port=select("Orkok","Yongbi Sivatag","Sohan Hegy","Egyeb","Bezar")
if port==1 then
if pc.get_empire()==1 then
pc.warp(402100, 673900)
return
end
if pc.get_empire()==2 then
pc.warp(270400, 739900)
return
end
if pc.get_empire()==3 then
pc.warp(321300, 808000)
return
end
end
if port==2 then
if pc.get_empire()==1 then
pc.warp(217800, 627200)
return
end
if pc.get_empire()==2 then
pc.warp(221900, 502700)
return
end
if pc.get_empire()==3 then
pc.warp(344000, 502500)
return
end
end
if port==3 then
if pc.get_empire()==1 then
pc.warp(434200, 290600)
return
end
if pc.get_empire()==2 then
pc.warp(375200, 174900)
return
end
if pc.get_empire()==3 then
pc.warp(491800, 173600)
return
end
end
if port==4 then
local portok=select("DT","Tuzfold","Voros Erdo","Hwang Templom","Pok Kazamata","Bezar")
if portok==1 then
pc.warp(590500, 110500)
return
end
if portok==2 then
if pc.get_empire()==1 then
pc.warp(599400, 756300)
return
end
if pc.get_empire()==2 then
pc.warp(597800, 622200)
return
end
if pc.get_empire()==3 then
pc.warp(730700, 689800)
return
end
end
if portok==3 then
pc.warp(1119900, 70800)
return
end
if portok==4 then
pc.warp(553600, 143600)
return
end
if portok==5 then
pc.warp(85000, 525000)
return
end
if portok==6 then
return
end
end
if port==5 then
end
end
end
end
Post Merge: 2012-05-12, 13:52:58
Quest/9

Farm Gyűrű Quest
Nem saját, átalakított

3 másodpercenként lenullázza az EXP-t.

Kód Kijelölés Kibont

quest thor begin
state start begin
when 40003.use begin
if pc.getqf("antiexp") == 0 then
        pc.setqf("antiexp", 1)
chat("Thor Gyűrűje aktiválva, minden 3. másodpercben lenullázódik az exp-d!")
        pc.give_exp2(-900000000)
        timer("torol1", 3)
      elseif pc.getqf("antiexp") == 1 then
        pc.setqf("antiexp", 0)
        chat("Thor Gyűrűje deaktiválva.Jó szórakozást!")
        end
      end   
           
      when torol1.timer with pc.getqf("antiexp") == 1 begin
        pc.give_exp2(-900000000)
        timer("torol", 3)
        pc.setqf("antiexp", 1)
      end   
       
      when torol.timer with pc.getqf("antiexp") == 1 begin
        local ep = pc.get_exp()
        pc.give_exp2(-900000000)
        timer("torol1", 3)
        pc.setqf("antiexp", 1)       
      end
    end
end