[Quest]bakura1998 Questek[#V3 - Frissítve]

[bakura1998]

Estét.
Úgy döntöttem, publikálom pár questemet ami hasznos lehet számotokra.
A témát mindig bővítem, szóval érdemes benézni!!
Akkor kezdeném is~
1. Prémium Tárgy

Kód Kijelölés Kibont

quest premium_cucc begin
state start begin
when 71084.use begin
say_title("Prémium Cucc:")
say("")
say("Üdvözöllek kedves kalandor")
say("Látom szeretnél részt venni egy")
say("Prémium sorsoláson, ahol különleges")
say("tárgyakat nyerhetsz.")
say("A nyeremények:")
say("")
say("")
say_reward("Piros ital, 30db")
say_reward("Zöld ital, 30db")
say_reward("Lila ital, 30db")
say_reward("Kék ital, 30db")
wait()
                        pc.remove_item(71084, 1)
local r=number(1,4)
if r==1 then
pc.give_item2("itemid", 30)
elseif r==2 then
pc.give_item2("itemid", 30)
elseif r==3 then
pc.give_item2("itemid", 30)
elseif r==4 then
pc.give_item2("itemid", 30)
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

2. Egyszerű raktár (Sok féle van ez is egy egyszerű)

Kód Kijelölés Kibont

quest raktarka begin
state start begin
when 71085.use begin
say_title("Raktár:")
say("")
say("Megszeretnéd nézni a raktáradat??")
local s=select("Igen", "Mégsem")
if s==1 then
game.open_safebox()
elseif s==2 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

3. Anti EXP (Ebből is van sok)

Kód Kijelölés Kibont

quest anti_exp begin
state start begin
when TARGYID.use with pc.getqf("antiexp") == 0 begin
local s = pc.get_exp()
pc.setqf("exp", s)
pc.setqf("antiexp", 1)
timer("expido", 1)
chat("Anti EXP használatban van.")
end
when TARGYID.use with pc.getqf("antiexp") == 1 begin
pc.setqf("antiexp", 0)
chat("Anti EXP már nincs használatban.")
end
when kill with pc.getqf("antiexp") == 1 begin
local exp = pc.get_exp()
pc.give_exp2(-exp+pc.getqf("exp"))
end
when expido.timer with pc.getqf("antiexp") == 1 begin
local exp = pc.get_exp()
pc.give_exp2(-exp+pc.getqf("exp"))
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

4. Üzenet

Kód Kijelölés Kibont

quest egyebuzenet begin
state start begin
when levelup with pc.get_level() == 50 begin
notice_all(""..pc.get_name().." Gratulálunk te")
notice_all("elérted az 50-es szintet")
notice_all("További szép játékot!!")
notice_all("Látogasd meg a metin2hungary.net-et!!")
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

5. Gyilkoló NPC

Kód Kijelölés Kibont

quest gyilkos begin
state start begin
when 20094.chat."Megölök valakit" begin
say_title("A gyilkos:")
say("")
say("Üdvözöllek kedves játékos, én a")
say("gyilkos vagyok. Kedvedre bárkit")
say("megölök akit csak szeretnél!!")
say_reward("Ez csak móka...")
local s=select("Igeen", "Neem")
if s==1 then
say_title("A gyilkos:")
say("")
say("A vonalra ird a játékos nevét..")
local b=input()
if b=="" then
say_title("A gyilkos:")
say("")
say("Nem létezik ilyen nevű játékos")
else
say_title("A gyilkos:")
say("")
say("A játékos megölve...")
command("kill "..b.."")
elseif s==2 then
return
end
end
end
end
Lehet hogy hiányozni fog egy "end" akkor írjatok PM-et.
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

6. Rang növelés & csökkentés

Kód Kijelölés Kibont

quest rangcucc begin
state start begin
when 20094.chat."Rang változtatás." begin
say_title("Rang váltás:")
say("")
say("Szeretnéd a rangodat")
say("megváltoztatni??")
say("Kétféle módon is megteheted")
say("csökkented vagy növeled...")
say_reward("Válassz")
local s=select("Növelem", "Csökkentem", "Mégsem")
if s==1 then
say_title("Rang váltás:")
say("")
say("Szóval te növelni szeretnéd")
say("a rangodat.")
say("Nos, akkor nincs más tehendőd")
say("mint kiválasztani hogy mennyivel")
say("növeled a mostani rangodat")
say_reward("Válassz")
local c=select("+500", "+1000", "+2000", "Mégsem")
if c==1 then
pc.change_alignment( 500 )
return
end
elseif c==2 then
pc.change_alignment( 1000 )
return
end
elseif c==3 then
pc.change_alignment( 2000 )
return
end
elseif c==4 then
return
end
end
elseif s==2 then
say_title("Rang váltás:")
say("")
say("Szóval te csökkenteni szeretnéd")
say("a rangodat.")
say("Nos, akkor nincs más tehendőd")
say("mint kiválasztani hogy mennyivel")
say("csökkented a mostani rangodat")
say_reward("Válassz")
local a=select("-500", "-1000", "-2000", "Mégsem")
if a==1 then
pc.change_alignment( -500 )
return
end
elseif a==2 then
pc.change_alignment( -1000 )
return
end
elseif a==3 then
pc.change_alignment( -2000 )
return
end
elseif c==a then
return
end
end
elseif s==3 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

7. Opthack ellen még anno írtam (nem tudom működik-e)

Kód Kijelölés Kibont

quest optcsalo begin
state start begin
when 71084.use == true begin
say_title("Optolás")
say("")
say("Ez a rendszer azért van")
say("hogy kevesebb legyen az")
say("optcsaló a szerverünkön.")
say("Nincs semmi tehendőd, csak annyi")
say("hogy beírsz egy szót.")
say_reward("Ezt írd be: nemcsalok")
local b=input()
if b=="nemcsalok" then
say_title("Optolás")
say("")
say("Folytathatod az optolást")
return
end
elseif b==nemcsalok then
say_title("Optolás")
say("")
say("Folytathatod az optolást")
return
end
elseif b=="" then
say_title("Optolás")
say("")
say("Hahahaaa, ez nem vállt be!!")
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

8. Szörny Kill

Kód Kijelölés Kibont

quest mob begin
state start begin
when 2598.kill begin
say_title("Metin2")
say("")
say("Gratulálunk, megölted az Azraelt")
say("ezért jutalomban részesítelek")
notice_all(""..pc.get_name().." megölte az Azraelt!!")
pc.give_item2("targyid", darab)
pc.change_money(1000000)
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

9. Ingame Chatbann

Kód Kijelölés Kibont

quest chatbann begin
state start begin
when 20094.chat."Játékos Némítás" with pc.is_gm() begin
say_title("Némitás")
say("")
say("Üdvözöllek kedves "..pc.get_name().."!")
say("Miben segíthetek??")
local s=select("Chat Bann", "Semmiben")
if s==1 then
say_title("Némitás")
say("")
say("Írd be annak a játékosnak a nevét")
say("akit némítani akarsz...")
local nev=input()
say("Most pedig hogy mennyi időre")
say_reward("5 perc = 300")
say_reward("10 perc = 600")
say_reward("1 óra = 3600")
local ido=input()
command("block_chat "..nev.." "..ido.."")
notice_all(""..nev.." nevű játékos chat bannolva lett "..ido.." -re.")
elseif s==2 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

10. Több Ablakos NPC

Kód Kijelölés Kibont

quest tobbablak begin
state start begin
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
when NPCID.chat."Bolt" begin
npc.open_shop(ID)
setskin(NOWINDOW)
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

11. Szerver Információ (Ha nem megy chat-el írd át say-re)

Kód Kijelölés Kibont

quest informacio begin
state start begin
when login begin
chat(" Szerver: ")
chat(" ")
chat(" A szerver 2014.02.21-én indult el! ")
chat(" ")
chat(" Szorzók: 100% ")
chat(" ")
chat(" Weboldalunk: Metin2hungary.net ")
chat(" ")
chat(" További szép játékot! ")
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

12. Teleportos

Kód Kijelölés Kibont


quest teleport begin
state start begin
when 9012.chat."Teleportálni szeretnék" begin
say_title("Teleportos:")
say("")
say("Üdvözöllek kedves "..pc.get_name().."!")
say("Hová szeretnél utazni ebben a nagy világban?")
local koordinatak = {
{koordinata, koordinata},
{koordinata, koordinata},
{koordinata, koordinata},
{koordinata, koordinata},
}
local s=select("Pálya", "Pálya1", "Pálya2", "Pálya3", "Semerre")
if s != 4 then
say_title("Teleportos:")
say("")
say("Azonnal teleportállak...")
wait()
pc.warp(koordinata[s] [1], koordinata[s] [2])
else
return
end
end
end
end

Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

13. Ingame GM Panel (Már nem használom...)

Kód Kijelölés Kibont

quest gm_panel begin
state start begin
when 20094.chat."GM Panel" with pc.is_gm() begin
say_title("GM Panel:")
say("")
say("Üdvözöllek kedves "..pc.get_name().."!")
say("Miben segíthetek??")
local s=select("Játékoshoz Teleportálás", "Hóesés", "Tárgyak Törlése", "Tárgy Törlés", "Raktárak", "Átváltozás", "Mégsem")
if s==1 then
say_title("GM Panel:")
say("")
say("Írd be a játékos nevét...")
local neve=input()
if neve=="" then
say_title("GM Panel:")
say("")
say("Nem létezik ilyen nevű játékos")
else
pc.teleport(neve)
end
elseif s==2 then
say_title("GM Panel:")
say("")
say("Mit szeretnél a hóeséssel?")
local ho=select("Bekapcsolom", "Kikapcsolom")
if ho==1 then
game.set_event_flag("xmas_snow", 1)
else
game.set_event_flag("xmas_snow", 0)
end
elseif s==3 then
say_title("GM Panel:")
say("")
say("Törlöd az összes tárgyadat?")
local targy=select("Igen", "Mégsem")
if targy==1 then
command("ip")
else
return
end
elseif s==4 then
say_title("GM Panel:")
say("")
say("Amelyik tárgyadat akarod törölni")
say("annak írd be az ID-jét...")
local torles=input()
if torles=="" then
say("Nincs ilyen számú tárgy")
else
pc.remove_item(""..torles.."")
end
elseif s==5 then
say_title("GM Panel:")
say("")
say("Melyiket szeretnéd látni?")
local latni=select("Raktár", "ItemShop")
if latni==1 then
game.open_safebox()
setskin(NOWINDOW)
else
game.open_mall()
setskin(NOWINDOW)
end
elseif s==6 then
say_title("GM Panel:")
say("")
say("Mire szeretnél átváltozni??")
say("Írd be az ID-jét...")
local atvaltozas=input()
if atvaltozas=="" then
say("Nincs ilyen számú npc vagy szörny")
else
pc.polymorph(""..atvaltozas.."")
end
elseif s==7 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

14. Információ

Kód Kijelölés Kibont

quest informacio begin
state start begin
when 20092.chat."Információ Rólam" begin
say_title("Információ Rólad:")
say("")
say("Neved: "..pc.get_name().."")
say("Szinted: "..pc.get_level().."")
say("Yangod: "..pc.get_gold().."")
say("Lovad: "..pc.get_horse_level().."")
say("EXP: "..pc.get_exp().."")
say("Rangod: "..pc.get_alignment().."")
say("Itt vannak az információid, csodálkozz bennük!!")
local s=select("Kilépek")
if s==1 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

15. Lónév

Kód Kijelölés Kibont

quest lonev begin
state start begin
when TARGYID.use begin
say_title("Név:")
say("")
say("Üdvözöllek kedves kalandor!!")
say("Megszeretnéd változtatni a")
say("lovadnak a nevét??")
local s=select("Igen", "Mégsem")
if s==1 then
say_title("Név:")
say("")
say("Írd be a ló új nevét...")
local neve=input()
if neve=="" then
say_title("Név:")
say("")
say("Nem megfelelő a név.")
local c=select("Bezár")
if c==1 then
return
end
else
say_title("Név:")
say("")
say("A lovad új neve "..neve.."")
horse.set_name("..neve..")
pc.remove_item(TARGYID)
end
elseif s==2 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

16. EXP Adás

Kód Kijelölés Kibont

quest exp begin
state start begin
when TARGYID.use begin
say_title("EXP:")
say("")
say("Te kaptál 250 EXP-t!!")
pc.give_exp2(250)
pc.remove_item(TARGYID)
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

17. Skill Resetelő

Kód Kijelölés Kibont

quest skill_reset begin
state start begin
when 20094.chat."Skill Resetelés" with pc.get_skill_group() > 0 begin
say_title("Skill:")
say("")
say("Üdvözöllek kedves kalandor!")
say("Szeretnéd resetelni a skilljeidet??")
local s=select("Igen", "Mégsem")
if s==1 then
pc.set_skill_group(0)
elseif s==2 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.

18. Reloadok (GM)

Kód Kijelölés Kibont

quest reloadok begin
state start begin
when TARGYID.use with pc.is_gm() begin
say_title("Reload:")
say("")
say("Szeretnél reloadolni??")
local s==select("Shutdown", "Reload q", "Reload p", "Reload a", "Mégsem")
if s==1 then
command("shutdown")
elseif s==2 then
command("reload q")
elseif s==3 then
command("reload p")
elseif s==4 then
command("reload a")
elseif s==5 then
return
end
end
end
end
Berakod a quest mappába, utána a quest_listbe beleírod a questet megadod neki a kellő jogot (777) és szerver restart.


Egyenlőre ennyit hoztam nektek, a témát még bővítem~
Ha bármilyen probléma van a questekkel, PÜ!!
UI: Senki ne essen félreértésbe, aki nem tudná oda van írva hogy "TARGYID" meg stb.. Azok helyére neked be kell írni hogy te melyik tárgyra vagy npc-re szeretnéd a questet. Mert anélkül hibát fogsz kapni.
Mindenkinek sok sikert kívánok, és használjátok egészséggel!!