Niste questuri pentru metin2.

Deconectat
Avatar utilizator
nickjack77
Utilizator interzis !
Utilizator interzis !
Mesaje: 96
Membru din: 06 Iun 2014
Status: Sunt Bine dispus
Server Metin2: Metinul Meu :>
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Niste questuri pentru metin2.

Mesajde nickjack77 » 20 Iun 2015, 19:20

Ox event ..


quest oxevent_manager begin
state start begin
when letter with pc.get_map_index()==113 begin
send_letter("Paraseste OX")
end
when button or info begin
say_title("Concursul OX")
say("Vrei sa parasesti harta OX?")
local s=select("Da", "Nu")
if s==2 then
send_letter("Paraseste OX")
return
end
local empire = pc.get_empire()
if empire== 1 then
pc.warp(469300, 964200)
elseif empire == 2 then
pc.warp(55700, 157900)
elseif empire == 3 then
pc.warp(969600, 278400)
end
end
when 20011.chat."Concursul OX" begin
say_title("Uriel")
say("Hey ,tu de acolo")
say("Da, da tu - vino pana aici!")
say("Hai sa iti arat ceva interesant")
say("Concursul OX.Eu te pot duce aici")
say("Si poti castiga premii interesante!")
wait()
if game.get_event_flag("oxevent_status") == 0 then
say_title("Uriel")
say("Cand concursul va incepe eu te voi lasa")
say("sa intrii si sa le dovedesti ce stii tu.")
say("Fii atent ....curand va incepe!")
elseif game.get_event_flag("oxevent_status") == 1 then
say_title("Uriel")
say("Vrei sa participi?")
say("Aaa eram sa uit...poti sta si ca spectator...")
local s = select("Particip", "Spectator", "Renunt")
if s == 1 then
say_title("Uriel")
say("Chiar vrei sa participi?")
say("Okay - Hai sa mergem.")
wait()
pc.warp(896500, 24600)
elseif s == 2 then
say_title("Uriel")
say("Doar Spectator?")
say("Okay - eu iti respect decizia.")
say("")
wait()
pc.warp(896300, 28900)
end
elseif game.get_event_flag("oxevent_status") == 2 then
say_title("Uriel")
say("Concursul OX a inceput deja")
say("si nu mai poti intra!")
say("Dar fii pregatit ca oricand poate")
say("sa inceapa un alt Concurs OX.")
say("Acum te pot lasa doar ca spectator!")
say("Vrei sa intrii ca spectator?")
local s = select("Spectator", "Renunt")
if s == 1 then
say_title("Uriel")
say("Hmm, Hmm, vrei sa te uiti?")
say("Bine eu te voi lasa sa te uiti!")
say("")
wait()
pc.warp(896300, 28900)
end
end
end
when 20358.chat."GM: OX-Panel" with pc.is_gm() begin
local stat = oxevent.get_status()
if stat == 0 then
say_title("Concursul OX")
say("Incepe OX?")
local s = select("Da", "Nu")
if s==2 then return end
local v = oxevent.open()
if v == 0 then
say_title("Concursul OX")
say("Nu am putut incarca oxquiz.lua .")
return
elseif v == 1 then
say_title("Concursul OX")
say("Concursul OX a inceput cu succes.")
server_timer("automatic1", 10*60, 113)
notice_all("Lume Lume a inceput Concursul OX!")
notice_all("Pentru a intra fugiti repede la Uriel")
else
say("Error1")
return
end
elseif stat == 1 then
say_title("Concursul OX")
say("Usile inca sunt deschise.")
say("Jucatori intrati: "..oxevent.get_attender().." ")
say("")
local s = select("Inchide intrarea", "Inapoi")
if s == 1 then
notice_all("Portile OX au fost inchise")
oxevent.close()
end
elseif stat == 2 then
say_title("Concursul OX")
say("Obtiuni:")
local s = select("Intrebari OX", "Premiu OX", "Inchide OX", "Anuleaza OX", "Inapoi")
if s == 1 then
local v = oxevent.quiz(1, 80)
if v == 0 then
say_title("Concursul OX")
say("Error2")
return
else
say_title("Concursul OX")
say("Intrebare adresata cu succes!")
return
end
elseif s == 2 then
say_title("Concursul OX")
say("Te rog sa pui in ID de Item.")
local item_vnum = input()
say_title("Concursul OX")
say("Introduceti numarul de articole.")
local item_count = input()
oxevent.give_item(item_vnum, item_count)
say_title("Concursul OX")
say(" "..oxevent.get_attender().." Castigatorii au primit "..item_count.."x")
say(item_name(item_vnum).." emis.")
notice_all("Avem un castigator!!!!El a castigat- "..item_count.."x "..item_name(item_vnum))
elseif s == 3 then
oxevent.end_event()
notice_all("Concursul OX s-a terminat.")
notice_all("Toti jucatorii vor fi teleportati din aceasta harta")
setskin(0)
elseif s == 4 then
say_title("Concursul OX")
say("Renuntarea la OX poate crea probleme.")
say("Sigur vrei sa faci asta?")
local s = select("Da", "Nu")
if s == 1 then
oxevent.end_event_force()
end
elseif s == 5 then
return
end
elseif stat == 3 then
say_title("Concursul OX")
say("Acum este adresata o intrebare.")
else
say_title("Concursul OX")
say("Error4")
return
end
end
end
end



tot este tradus in romana de mine :D







Asa acum questuri ;dd am 100000 de questuri dar va voi posta decat 5


event drop . quest

Cod: Selectaţi tot

[spoiler]quest item_drop begin
    state start begin
        when 20020.chat."Item_Drop" with pc.is_gm() begin
            if game.get_event_flag("item_open") == 0 then
                say("Hello "..pc.get_name().." ")
                say("Metin2Freakz iti prezinta:")
                say("NPC GM pentru event drop item")
                say("Aici poti activa dropul unui item")
                say("vrei sa faci asta?")
                if select("da","nu") == 2 then return end
                say("Introdu codul itemului care doresti sa fie dropat!")
                kill_item = tonumber(input()) or 0
                if kill_item == 0 then
                    say("Datele au fost introduse gresit. Incercati din nou!")
                    return
                end   
                say("Care vrei sa fie sansa dropului?")
                kill_prozent = tonumber(input()) or 0
                if kill_prozent == 0 then
                    say("Datele au fost introduse gresit. Incercati din nou!")
                    return
                end   
                say("Cat timp vrei sa se dropeze? Minute!")
                zeit = tonumber(input()) or 0
                if zeit == 0 then
                    say("Datele au fost introduse gresit. Incercati din nou!")
                    return
                end
                game.set_event_flag("item_time", get_time()+zeit*60)
                game.set_event_flag("item_open", 1)
                notice_all("Item drop activat")
                notice_all("Itemul "..item_name(kill_item).." este dropabil la toti monstri din joc.")
                notice_all("Pentru "..zeit.." Minute")
            else
                say("Eventul item drop este deja activ")
                say("Opriti eventul?")
                if select("Da", "NU")==2 then return end
                game.set_event_flag("item_open", 0)
                kill_prozent, kill_item = nil, nil
            end
        end
        when kill with game.get_event_flag("item_open") == 1 and not npc.is_pc() begin
            if kill_prozent == nil then game.set_event_flag("item_open", 0) return end
            if game.get_event_flag("item_time") < get_time() then
                notice_all("Eventul dropului de iteme a luat sfarsit")
                notice_all("Multumim farmerilor ce sunt alatori de Metin2Freakz la evenimente!")
                game.set_event_flag("item_open", 0)
                kill_prozent, kill_item = nil, nil
                return
            end
            local s=number(1, 101-kill_prozent)
            if s==1 then
                game.drop_item_with_ownership(kill_item, 1)
            end
        end
        when login with game.get_event_flag("item_open") == 1 begin
            notice("Event item drop este activat")
            notice("Itemul "..item_name(kill_item).." este dropabil la toti monstri din joc.")
        end
    end
end[/spoiler]




banca.quest


Cod: Selectaţi tot

[spoiler]quest banker begin
   state start begin
      when 20041.chat."Banca" pc.is_gm() begin banker.bankdialog()
   end
      function bankdialog()
      say_title("Banca:")
      say("Va ofer posibilitatea de a va ")
      say("depozita yang-ul fara dobânda..")
      say("Dar puteţi adauga în cont maxim")
      say("4.611.686.016.279.904.256 yang!")
      say("")
      local action = select("Adauga în cont", "Extrage din cont", "Închide")
      if action == 1
      then say_title("Banca:")
      if pc.gold < 1 then
      say("Nu aveţi niciun yang.")
      say("")
      return
      end
      say("Deţii "..pc.gold.." Yang.")
      say("Cât de mult vrei sa adaugi în cont?")
      local yang = tonumber(input())
      if yang < 0 then
      return
      end
      if yang > pc.gold then yang = pc.gold end pc.changegold(-yang)
      local saved_rest = tonumber(pc.getqf("saved_rest"))
      local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs"))
      if
      saved_rest + yang > 2147483647 then pc.setqf("saved_signed_longs", saved_signed_longs + 1)
      pc.setqf("saved_rest", saved_rest + yang - 2147483647)
      else
      pc.setqf("saved_rest", saved_rest + yang)
      end
      say_title("Banca:")
      say("Ai adaugat în cont "..yang.." yang.")
      say("")
      return
      elseif action == 2 then
      local saved_rest = tonumber(pc.getqf("saved_rest"))
      local saved_signed_longs = tonumber(pc.getqf("saved_signed_longs"))
      local saved_yang = saved_signed_longs*2147483647+saved_rest
      say_title("Banca:")
      if saved_yang < 1 then say("Nu poþi adauga aceasta suma în cont!")
      say("")
      return
      end
      say("Va puteţi extrage yangul din cont")
      say("oricând vreţi şi aveţi posibilitatea.")
      say("")
      say_reward("Soldul contului: "..saved_yang.." Yang")
      say("")
      say("Cât yang doriţi sa extrageţi?")
      local yang = tonumber(input())
      if yang < 0 then
      return
      end
      if yang > saved_yang then yang = saved_yang end if pc.gold + yang > 1899999999 then
      yang = 1899999999 - pc.gold
      end
      if yang > saved_yang then yang = saved_yang
      end
      if saved_rest - yang < 0 then pc.setqf("saved_signed_longs", saved_signed_longs - 1)
      pc.setqf("saved_rest", 2147483647 - yang + saved_rest)
      else
      pc.setqf("saved_rest", saved_rest - yang)
      end
      pc.changegold(yang)
      say_title("Banca:")
      say("Aţi extras din cont "..yang.." yang.")
      say("Multumim!")
      say("")
      end
      end
      end
      end[/spoiler]


lup.quest


Cod: Selectaţi tot

[spoiler]quest loin begin
state start begin
when 71126.use begin
say_title("Sigililul Lupului de Lupta")
say("")
say("Puteti folosi acest element pentru 30 minute")
say("")
say_reward("Dupa folosire acesta dispare!")
say("")
say_reward("Vrei sa calaresti")
local main_set = select("Da","Nu")
if main_set == 2 then
return
end
chat("Puteti folosi acest element pentru 30 minute!")
horse.ride()
pc.mount(20116, 1800)
pc.removeitem(71126, 1)
end
end
end[/spoiler]




v3 quest

Cod: Selectaţi tot

[spoiler]--------------------------------------------------
-- Grotte der Verbannung -- Entry Quest ----30190---
-- @ Koe-Pung eintritt -- ID 20093 -- Blutstein --
----------------------------------------------------
quest gdv_entry begin
state start begin
when 20092.chat."Intrare!" begin

say_title("Hwa-Hee")
say("")
say("Hey opreste-te ma grabitule")
say("Ca sa poti trece acest portal trebuie sa")
say("Imi arati o Piatra Insangerata,")
say("Ai asa ceva?")
if pc.count_item(30190) >= 1 and pc.level >= 75 then
local s=select("Am Piatra", "Nu am Piatra")

if s==1 then
pc.remove_item(30190,1)
pc.warp(900 , 1207800)
else
return
end

else
say_reward("Poti intra aici doar cand vei avea minim Level 75!")
end
end   
end
end[/spoiler]


:-ss


report.quest


Cod: Selectaţi tot

  [spoiler]quest reporthack begin
        state start begin
            when login begin
                set_state(report)
            end
        end
        state report begin
            when letter begin
                send_letter("Raportează player-ul")
            end
            when button or info begin
                say_title("Raportează player-ul")
                say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
                say("Cu acest sistem puteţi semnala un hacker Staffului.")
                say("Puteţi raporta playeri pentru:")
                say("Damage hack")
                say("Trade bug")
                say("Injurături")
                say("GM impertinenţi")
                say("Player impertinenţi")
                say("")
                say_reward("Eşti sigur că vrei să raportezi pe cineva?")
                local a = select("Da","Nu")
                if a == 2 then
                    return
                end
                say_title("Raportează player-ul")
                say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
                say("Care e numele playerului?")
                say("")
                say_reward("Încearcă să scrii numele corect.")
                local name = input()
                if name == "" then
                    return
                end
                local u_vid = find_pc_by_name(name)
                if u_vid == 0 then
                    say_title("Raportează player-ul")
                    say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
                    say("Acest player nu e online.")
                    return
                end
                say("Ce hack/ bug a folosit?")
                local reporter = pc.get_name()
                local b = select("Damage hack", "Trade bug", "Injurături", "GM impertinenţi", "Player impertinenţi","Exit")
                    if b == 1 then
                        char_log(1, reporter, name)                         
                    elseif b == 2 then
                        char_log(2, reporter, name)                         
                    elseif b == 3 then
                        char_log(3, reporter, name)                         
                    elseif b == 4 then
                        char_log(4, reporter, name)
                    elseif b == 5 then
                        char_log(5, reporter, name)                 
                    else
                        return
                    end
                say_title("Report player")
                say_reward("ANUNŢ: Dacă abuzaţi de acest sistem puteţi primi ban!")
                say("IMPORTANT: Numele tău a fost inregistrat.")
                say("Îţi mulţumim")
                say("Echipa va cerceta această persoana în curând.")
                say("")
                say("Vrei să raportezi alt player? Apasă 'N'")
            end
        end
    end[/spoiler]


Nu vreau sa ziceti Copy/Paste.

Doar m-am documentat de la altii .. dar nu am facut Copy/Paste...

Nu imi place ... Am vazut pe multi ca zice asa ... :ymhug: :ymhug: :ymhug: :ymhug:

:-ss :-ss :-ss :-ss :-ss i-)
Tutorial instalare quest:
1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .
2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).
3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.
4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest
5. Intraţi pe server şi scrieţi /reload q .
6. Testaţi quest-ul .
Ultima oară modificat 21 Apr 2016, 21:28 de către Yahiko, modificat de 6 ori în total.
Motiv: //# Actualizat după noile cerințe.
In Jurul meu , Toti sare , dar cand privesc , Imi aduc aminte.


Imagine

Deconectat
Avatar utilizator
Mikkelsen
Mister Just4Metin
Mister Just4Metin
Mesaje: 2425
Membru din: 06 Mar 2014
Localitate: Târgu Mureş
Reputație: :::Designer:::
:::Fost Super Ad Moderator:::
:::Fost Ad Moderator:::
:::Fost Super Moderator:::
:::Fost Lider Moderatori:::
:::Fost Lider Helperi:::
Server Metin2: ETH
Regat: Jinno
Mulțumiri acordate: 12
Mulțumiri primite: 14
Contact:

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde Mikkelsen » 20 Iun 2015, 19:23

Pune dracu questurile sub spoiler că derulăm ca tâmpiţii 5 minute să copiem questul!

Deconectat
Avatar utilizator
nickjack77
Utilizator interzis !
Utilizator interzis !
Mesaje: 96
Membru din: 06 Iun 2014
Status: Sunt Bine dispus
Server Metin2: Metinul Meu :>
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde nickjack77 » 20 Iun 2015, 19:29

pai nu stiu sa le fac sunt incepator acum :D :)
In Jurul meu , Toti sare , dar cand privesc , Imi aduc aminte.


Imagine

Deconectat
Avatar utilizator
Conne
Nivel 6
Nivel 6
Mesaje: 901
Membru din: 07 Dec 2014
Status: Busy
Regat: Jinno
Mulțumiri acordate: 3
Mulțumiri primite: 8
Contact:

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde Conne » 20 Iun 2015, 19:38

eşti dat dq de unde ai facut copy + paste :))
======================
si nu uita sa apesi butonul LIKE :D
="="==''=="=="==="=\
Trebuie să fii logat sau înregistrat pentru a vedea acest link.
======================


Imagine

Deconectat
Avatar utilizator
nickjack77
Utilizator interzis !
Utilizator interzis !
Mesaje: 96
Membru din: 06 Iun 2014
Status: Sunt Bine dispus
Server Metin2: Metinul Meu :>
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde nickjack77 » 20 Iun 2015, 19:56

Daca visezi Copy+Paste... Frate nu-mi pasa de voi cu copy+paste. m-am documentat de la unii

Macar daca la unii au mers au mers....

\Questurile sunt facute de mine


Dar macar tot le-am postat chiar daca au fost Copy+Paste Daca la unii au mers sa fie bucurosii
Te oftici ca nu ai facut tu ?
In Jurul meu , Toti sare , dar cand privesc , Imi aduc aminte.


Imagine

Deconectat
Avatar utilizator
Conne
Nivel 6
Nivel 6
Mesaje: 901
Membru din: 07 Dec 2014
Status: Busy
Regat: Jinno
Mulțumiri acordate: 3
Mulțumiri primite: 8
Contact:

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde Conne » 20 Iun 2015, 20:03

atunci pune frate questu in fisier direct e mai bine asa poti sa copiezi gresit ţie greu să faci fisiere quest ,,,

plus nu am de ce sa mă oftic rezolvarea asta pt ox o ştiam deja şi eu
======================
si nu uita sa apesi butonul LIKE :D
="="==''=="=="==="=\
Trebuie să fii logat sau înregistrat pentru a vedea acest link.
======================


Imagine

Deconectat
Avatar utilizator
nickjack77
Utilizator interzis !
Utilizator interzis !
Mesaje: 96
Membru din: 06 Iun 2014
Status: Sunt Bine dispus
Server Metin2: Metinul Meu :>
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde nickjack77 » 20 Iun 2015, 20:19

Conne nu stiu cum sa fac aia sa pun link si daia nu pun :l
In Jurul meu , Toti sare , dar cand privesc , Imi aduc aminte.


Imagine

Deconectat
Avatar utilizator
nickjack77
Utilizator interzis !
Utilizator interzis !
Mesaje: 96
Membru din: 06 Iun 2014
Status: Sunt Bine dispus
Server Metin2: Metinul Meu :>
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde nickjack77 » 20 Iun 2015, 20:32

gata uitati am pus :))
In Jurul meu , Toti sare , dar cand privesc , Imi aduc aminte.


Imagine

Deconectat
Avatar utilizator
Conne
Nivel 6
Nivel 6
Mesaje: 901
Membru din: 07 Dec 2014
Status: Busy
Regat: Jinno
Mulțumiri acordate: 3
Mulțumiri primite: 8
Contact:

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde Conne » 20 Iun 2015, 20:33

Imagine
Imagine
Imagine


cam asa ceva ar veni intalegi
======================
si nu uita sa apesi butonul LIKE :D
="="==''=="=="==="=\
Trebuie să fii logat sau înregistrat pentru a vedea acest link.
======================


Imagine

Deconectat
Avatar utilizator
nickjack77
Utilizator interzis !
Utilizator interzis !
Mesaje: 96
Membru din: 06 Iun 2014
Status: Sunt Bine dispus
Server Metin2: Metinul Meu :>
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: Niste questuri pentru metin2 sii rezolvare bug ox

Mesajde nickjack77 » 20 Iun 2015, 20:37

Sii stii cumva cum fac link de dwoanload la un fisier ??? Sau sa imi schimb poza de avatar? Sau sa imi pun semnatura ???
Ultima oară modificat 20 Iun 2015, 20:41 de către nickjack77, modificat 1 dată în total.
In Jurul meu , Toti sare , dar cand privesc , Imi aduc aminte.


Imagine


Înapoi la “Quest-uri”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: Angelic și 13 vizitatori