Problema quest

C.Marius · 28 Sep 2015, 17:59

Salutare !
Am si eu o pb la instalare quest si nu stiu de ce.
Eroare in putty:

marriage_manage.quest:285:syntax error : [string "startnot pc . is_engaged_or_married ( )"]:225: `)' expected near `pc'
Abort (core dumped)

Questul:

Cod: Selectaţi tot

quest marriage_manage begin
    state start begin
        when oldwoman.chat."Vreau sa ma casatoresc" with not pc.is_engaged_or_married() begin
            if not npc.lock() then
                say_title("Femeia batrana:")
                say("")
                say_rosu("Momentan are loc o alta nunta!")
                say("Asteapta sau intoarce-te mai tarziu.")
                return
            end
            if pc.level < 25 then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Esti prea tanar sa te casatoresti...")
                say("Din pacate sunteti prea tineri, si nu")
                say("sunteti suficient de responsabii pentru")
                say("a va casatori.")
                say("")
                say("")
                say_title_auriu("Informatie:")
                say("")
                say_reward_rosu("Nivelul 25 necesar pentru a te casatori!")
                say("")
                npc.unlock()
                return
            end

            local m_ring_num = pc.countitem(70301)
            local m_has_ring = m_ring_num > 0
            if not m_has_ring then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Chiar doresti sa te casatoresti?")
                say("")
                say_item("Inel de cununie ", 70302, "")
                say("Va lipteste inelele de Logodna!")
                say(" ")
                say("")
                npc.unlock()

                return
            end

            local m_sex = pc.get_sex()
            if not marriage_manage.is_equip_wedding_dress() then
                say_title_auriu("Femeia batrana:")
                say("Nunta este o zi foarte importanta,de ")
                say("aceea trebuie sa purati costume de gala.")
                say("")
                say("")
                say("")

                if m_sex==0 then
                    say_item("Smokin", marriage_manage.get_wedding_dress(pc.get_job()), "")
                    say_reward_rosu("Ai nevoie de un smokin pentru a te casatori.")
                    say_reward("")
                else
                    say_item("Rochie de mireasa", marriage_manage.get_wedding_dress(pc.get_job()), "")
                    say_reward_rosu("Ai nevoie de o rochie de mireasa pentru a te casatori.")
                    say_reward("")
                end
                say("")
                npc.unlock()
                return
            end

            local NEED_MONEY = 1000000
            if pc.get_money() < NEED_MONEY then
                say_title_auriu("Femeia batrana:")
                say("Ei...vrei sa te casatoresti,dar nu ai bani sa")
                say("platesti nunta? Cum iti vei intretine familia? ")
                say("Revin-o la mine cand ai toti banii necesari.")
                say(" ")
                say("")
                say_reward(string.format("Ai nevoie de  %d ", NEED_MONEY/10000))
                say("")
                npc.unlock()
                return
            end

            say_title_auriu("Femeia batrana:")
            say("")
            say("Acum esti suficient de matur. ")
            say("Arati bine.Vrei sa te casatoresti?")
            say("")
            say_reward("Scrie numele persoanei iubite:")

            local sname = input()
            if sname == "" then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Numele intrudus este gresit.")
                say("Incearca din nou.")
                say("")
                npc.unlock()
                return
            end

            local u_vid = find_pc_by_name(sname)
            local m_vid = pc.get_vid()
            if u_vid == 0 then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Nu stii numele persoanei cu care vrei sa te casatoresti?")
                say("Nu esti decis? ")
                say("Sigur vrei sa te casatoresti?")
                say("")
                say_reward(string.format("%s nu este online.", sname))
                say("")
                npc.unlock()
                return
            end

            if not npc.is_near_vid(u_vid, 10) then
                say_title_auriu("Femeia batrana:")
                say("Persoana cu care vrei sa te casatoresti")
                say(" nu este aproape de tine.")
                say(" ")
                say("Cheama persoana iubita langa tine. ")
                say("")
                say_reward(string.format("%s este prea departe.", sname))
                say("")
                npc.unlock()
                return
            end

            local old = pc.select(u_vid)
            local u_level = pc.get_level()
            local u_job = pc.get_job()
            local u_sex = pc.get_sex()
            local u_name = pc.name
            local u_gold = pc.get_money()
            local u_married = pc.is_married()
            local u_has_ring = pc.countitem(70301) > 0
            local u_wear = marriage_manage.is_equip_wedding_dress()
            pc.select(old)
            local m_level = pc.get_level()

            if u_vid == m_vid then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Nu scrie numele tau, ci a partenerelui tau. ")
                say("")
                say_reward("Introdu numele persoanei iubite.")
                say("")
                npc.unlock()
                return
            end

            if u_sex == m_sex then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Scuze.")
                say("")
                say("Nu te poti casatori cu o persoana de acelasi sex.")
                say("")
                npc.unlock()
                return
            end

            if u_married then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Ha? Nu stiai? Persoana cu care vrei sa")
                say("te casatoresti este deja luata.")
                say("")
                say("")
                say_reward(string.format("%s este deja casatorit(a) cu", sname))
                say("")
                npc.unlock()
                return
            end

            if u_level < 25 then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Persoana cu care vrei sa te casatoresti  ")
                say("nu are nivelul necesar.")
                say("")
                say_reward_rosu("Nivel necesar: 25")
                npc.unlock()
                return
            end

            if m_level - u_level > 15 or u_level - m_level > 15 then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Nu sunteti un cuplu compatibil.")
                say("Nu pot fi de acord cu acesta casatorie.")
                say("")
                say("")
                say("Diferenta dintre voi nu poate fi")
                say("mai mare de 15 nvele.")
                npc.unlock()
                return
            end

            if not u_has_ring then
                if m_ring_num >= 2 then
                    say_title_auriu("Femeia batrana:")
                    say("")
                    say("Acum schimbati inelele.")
                    say("")
                else
                    say("Femeia batrana:")
                    say("")
                    say("Casatoria este o chestiune foarte impotanta in")
                    say("viata.Macar atat puteai sa-i cumperi un inel")
                    say("persoanei iubite.")
                    say("")
                end

                say_item("Inel de logodna", 70302, "")
                say_title_auriu("Femeia batrana:")
                say("")
                say("Pertenereul tau trebuie sa aiba si el un inel")
                say("de logodna.")
                say("")
                npc.unlock()
                return
            end

            if not u_wear then
                say_title_auriu("Femeia batrana:")
                say("")
                say("Nu purtati costumele de nunta.")
                say("Ar fi cam jenat sa va casatoriti in armura, nu credeti?")
                say("Reveniti cand aveti costumele.")
                say("")
                if u_sex==0 then
                    say_title_auriu("Femeia batrana:")
                    say("")
                    say_item("Smokin ", marriage_manage.get_wedding_dress(u_job), "")
                    say("Sotul tau trebuie sa poarte un Smokin. ")
                    say("")
                else
                    say_title_auriu("Femeia batrana:")
                    say("")
                    say_item("Rochie de mireasa", marriage_manage.get_wedding_dress(u_job), "")
                    say("Sotia ta trebuie sa poarte o rochie de mireasa. ")
                    say("")
                end
                say("")
                npc.unlock()
                return
            end


            local ok_sign = confirm(u_vid,"Vrei sa te casatoresti cu" pc.name.."?", 30)
            if ok_sign == CONFIRM_OK then
                local m_name = pc.name
                if pc.get_gold()>=NEED_MONEY then
                    pc.change_gold(-NEED_MONEY)

                    pc.removeitem(70301, 1)
                    pc.give_item2(70302, 1)
                    local old = pc.select(u_vid)
                    pc.removeitem(70301, 1)
                    pc.give_item2(70302, 1)
                    pc.select(old)

                    say_title_auriu("Femeia batrana:")
                    say("")
                    say("Deci ... suntem gata.")
                    say("Acum putem începe. ")
                    say(" Sper sa aveti o casatorie lunga si fericita.")
                    say("Felicitari!")
                    say("")
                    say("Va voi trimite pe insula la managerul de")
                    say("nunti pentru a incheia casatoria.")
                    say("")
                    wait()
                    setskin(NOWINDOW)
                    marriage.engage_to(u_vid)
                end
            else
                say_title_auriu("Femeia batrana:")
                say("")
                say_rosu("Partenerul tau nu mai vrea sa se casatoreasca.")
                say(" ")
                say("")
            end
            say("")
            npc.unlock()
        end

        when oldwoman.chat."Inapoi in sala de nunta" with pc.is_engaged() begin
            say_title_auriu("Femeia batrana:")
            say("")
            say("De ce esti inca aici? ")
            say("Pertenerul tau te cauta. ")
            say("Prezintata imediat in fata lui. ")
            say("")
            wait()
            setskin(NOWINDOW)
            marriage.warp_to_my_marriage_map()
        end


        when 9011.chat."Permisiunea pentru casatorie" with pc.is_engaged() and marriage.in_my_wedding() begin
            if not npc.lock() then
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Vorbesc cu partenerul tau.Astepta. ")
                say("")
                return
            end
            say_title_auriu("Organizatoare de nunti:")
            say("")
            say("Introdu numele partenerului.")
            say("")
            say("")

            local sname = input()
            local u_vid = find_pc_by_name(sname)
            local m_vid = pc.get_vid()

            if u_vid == 0 then
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Nu vad pe nimeni cu acest nume in preajma. ")
                say("Esti sigur ca acesta este numele? ")
                say("")
                say_reward(string.format("%s nu este online.", sname))
                say("")
                npc.unlock()
                return
            end

            if not npc.is_near_vid(u_vid, 10) then
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Persoana cu care vrei sa te casatoresti nu ")
                say("este aproape  de tine.")
                say("")
                say("")
                say_reward(string.format("%s trebuie sa fie aproape de tine.", sname))
                say("")
                npc.unlock()
                return
            end

            if u_vid == m_vid then
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Nu introdu propriul nume. ")
                say("")
                say("Trebuie sa introduci numele partenerului tau.")
                say("")
                npc.unlock()
                return
            end

            if u_vid != marriage.find_married_vid() then
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Ceva nu este in regula.Nu este persoana potrivita.")
                say("Poti saverifici din nou?")
                say("")
                npc.unlock()
                return
            end

            local ok_sign = confirm(u_vid,"Vrei sa te casatoresti cu" pc.name.."?", 30)
            if ok_sign != CONFIRM_OK then
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Partenerul tau nu este pregatit pentru ")
                say("casatorie.")
                say("")
                npc.unlock()
                return
            end
            say_title_auriu("Organizatoare de nunti:")
            say("")
            say("Acum totul este in regula si putem incepe.")

            marriage.set_to_marriage()

            say("")
            say_verde("Sa aveti o nunta frumoasa!")
            say("")
            npc.unlock()
        end

        function give_wedding_gift()
            local male_item = {71072, 71073, 71074}
            local female_item = {71069, 71070, 71071}
            if pc.get_sex() == MALE then
                pc.give_item2(male_item[number(1, 3)], 1)
            else
                pc.give_item2(female_item[number(1, 3)], 1)
            end
        end

        when 9011.chat."Porneste muzica" with
                    (pc.is_engaged() or pc.is_married()) and
                marriage.in_my_wedding() and
                not marriage.wedding_is_playing_music() begin
            marriage.wedding_music(true, "wedding.mp3")
            setskin(NOWINDOW)
        end
        when 9011.chat."Opreste muzica" with
                    (pc.is_engaged() or pc.is_married()) and
                marriage.in_my_wedding() and
                marriage.wedding_is_playing_music() begin
            marriage.wedding_music(false, "default")
            setskin(NOWINDOW)
        end
        when 9011.chat."Noapte/Zi" with
            pc.is_married() and
            marriage.in_my_wedding() begin
            marriage.wedding_dark(true)
            setskin(NOWINDOW)
        end

        when 9011.chat."Porneste zapada" with pc.is_married() and marriage.in_my_wedding() begin
            marriage.wedding_snow(true)
            setskin(NOWINDOW)
        end

        when 9011.chat."Incheiati nunta" with pc.is_married() and marriage.in_my_wedding() begin
            if not npc.lock() then
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Vorbesc cu partenerul tau.Asteapta.")
                say("")
                return
            end

            say_title_auriu("Organizatoare de nunti:")
            say("")
            say("Vrei sa incheai nunta?")
            say("")
            local s = select("Da","Nu")
            if s == 1 then
                local u_vid = marriage.find_married_vid()
                if u_vid == 0 then
                    say_title_auriu("Organizatoare de nunti:")
                    say("")
                    say("Pertenerul tau trebuie sa fie de acord pentru")
                    say("terminarea nuntii.")
                    say("")
                    say("Nunta nu poate fi terminata deoarece partenerul")
                    say("tau nu este online.")
                    npc.unlock()
                    return
                end
                say_title_auriu("Organizatoare de nunti:")
                say("")
                say("Trebuie sa asteptam confirmarea partenerului")
                say("tau.")
                say("")
                local ok_sign = confirm(u_vid, "Vrei sa termini nunta? ", 30)
                if ok_sign == CONFIRM_OK then
                    marriage.end_wedding()
                else
                    say_title_auriu("Organizatoare de nunti:")
                    say("")
                    say_rosu("Pertenerul tau nu este de acord!")
                    say("")
                end

                npc.unlock()
            end
        end


        when         11000.chat."Divorteaza " or
                    11002.chat."Divorteaza " or
                11004.chat."Divorteaza " with pc.is_married() begin

            if not marriage_manage.check_divorce_time() then
                return
            end

            local u_vid = marriage.find_married_vid()
            if u_vid == 0 or not npc.is_near_vid(u_vid, 10) then
                say_title_auriu("Gardian:")
                say("")
                say_rosu("Nu poti divorta legal fara pertenerul tau.")
                say("")
                return
            end

            say_title_auriu("Gardian:")
            say("")
            say("Pentru a divorta ai nevoie de 500.000 Yang ")
            say("si acoordul partenerului tau.")
            say("")
            say("Sigur vrei sa divortezi? ")
            say("")

            local MONEY_NEED_FOR_ONE = 500000
            local s = select("Da", "Nu")

            if s == 1 then
                local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                local m_have_ring = pc.countitem(70302) > 0

                local old = pc.select(u_vid)
                local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                local u_have_ring = pc.countitem(70302) > 0
                pc.select(old)

                if not m_have_ring then
                    say("Trebuie sa ai inelul de nunta.")
                    return;
                end
                if not u_have_ring then
                    say("Pertenerul tau trebuie sa aiba inelul de nunta")
                    return;
                end

                if not m_enough_money then
                    say_title_auriu("Gardian:")
                    say("")
                    say_rosu("Nu aveti suficient yang pentru a divorta.")
                    say("")
                    say_reward(string.format("Ai nevoie de  %d Yang ", MONEY_NEED_FOR_ONE/10000))
                    say("")
                    return;
                end
                if not u_enough_money then
                    say_title_auriu("Gardian:")
                    say("")
                    say("Nu ai destui Yang' pentru a divorta.")
                    say("")
                    say_reward_rosu("Ai nevoie de 500.000 Yang'.")
                    say("")
                    return;
                end
                say_title_auriu("Gardian:")
                say("")
                say("Chiar vrei sa divortezi?acest lucru ar putea fi ")
                say("o mare greseala.")
                say("")
                say("Chiar vrei?")
                say("")

                local c=select("Da", "Nu")
                if 2 == c then
                    say_pc_name()
                    say("")
                    say("M-am razgandit, nu mai vreau")
                    say("sa divortez.")
                    say("")
                    wait()
                    say_title_auriu("Gardian:")
                    say("Este cea mai buna cale.")
                    say("Sper sa aveti o casnicie lunga si fericita.")
                    say("")
                    say_reward_rosu("Divortul a fost anulat.")
                    say("")
                    return
                end

                local ok_sign = confirm(u_vid, pc.name.."Sigur vrei sa divortezi?", 30)
                if ok_sign == CONFIRM_OK then

                    local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                    local m_have_ring = pc.countitem(70302) > 0

                    local old = pc.select(u_vid)
                    local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                    local u_have_ring = pc.countitem(70302) > 0
                    pc.select(old)

                    if m_have_ring and m_enough_money and u_have_ring and u_enough_money then
                        pc.removeitem(70302, 1)
                        pc.change_money(-MONEY_NEED_FOR_ONE)

                        local old = pc.select(u_vid)
                        pc.removeitem(70302, 1)
                        pc.change_money(-MONEY_NEED_FOR_ONE)
                        pc.select(old)

                        say_title_auriu("Gardian:")
                        say("")
                        say("Ai renuntat la sotia ta.Nu mai sunteti casatoriti.")
                        say("Poate ca asa e mai bine.")
                        say("Poate veti gasi fericirea in alta parte.")
                        say("")
                        say_reward_verde("Ai divortat!")
                        say("")
                        marriage.remove()
                    else
                        say_title_auriu("Gardian:")
                        say("")
                        say("Documentele nu sunt complete.")
                        say("Va rog sa veniti mai tarziu.")
                        say("")
                        say_reward_rosu("Divortul a fost anulat")
                        say("")
                    end
                else
                    say_title_auriu("Gardian:")
                    say("")
                    say("Partenerul tau nu vrea sa divorteze.")
                    say("")
                    say("")
                    say_reward_rosu("Divortul a fost anulat")
                    say("")
                end
            end
        end

        when         11000.chat."Eliminati inelul de cununie" or
                    11002.chat."Eliminati inelul de cununie" or
                11004.chat."Eliminati inelul de cununie" with
                        not pc.is_married()         and
                        pc.count_item(70302)>0
                        begin
                say_title_auriu("Gardian:")
                say("")
                say("")
                say("")
                say("")
                say_reward("Inelul de cununie a fost eliminat.")
                pc.remove_item(70302)
        end

        when         11000.chat."Divort unilateral" or
                    11002.chat."Divort unilateral" or
                11004.chat."Divort unilateral" with pc.is_married() begin

            if not marriage_manage.check_divorce_time() then
                return
            end

            say_title_auriu("Gardian:")
            say("")
            say("Ai nevoie de 1.000.000 yang pentru acest lucru.")
            say("Esti sigur ca vrei sa divortezi?")
            say("")

            local s = select("Da", "Nu")

            local NEED_MONEY = 1000000
            if s == 2 then
                return
            end

            if pc.money < NEED_MONEY then
                say_title_auriu("Gardian:")
                say("")
                say_rosu("Nu ai destui bani pentru a divorta.")
                say("")
                return
            end

            say_title_auriu("Gardian:")
            say(" ")
            say("Esti sigur ca vrei sa divortezi?")
            say("Gandestete bine.")

            local c = select("Da,vreau","Ma mai gandesc")

            if c == 2 then
                say_title_auriu("Gardian:")
                say("")
                say("Asa poate e mai bine.")
                say("")
                say("")
                return
            end

            pc.removeitem(70302, 1)
            pc.change_gold(-NEED_MONEY)

            marriage.remove()

            say_title_auriu("Gardian:")
            say("")
            say("Ei bine,bine.")
            say("Sper sa faci ce e corect.")
            say("")
            say_reward_verde("A avut loc divortul unilateral.")
            say("")
        end

        when oldwoman.chat."Lista nuntilor" with not pc.is_engaged() begin
            local t = marriage.get_wedding_list()
            if table.getn(t) == 0 then
                say_title_auriu("Femeia batrana:")
                say("")
                say_rosu("In acest moment nu are loc nici o nunta.")
                say("")
            else
                -- chat(table.getn(t))
                local wedding_names = {}
                table.foreachi(t, function(n, p) wedding_names[n] = p[3].."ile"..p[4].."evleniyor." end)
                wedding_names[table.getn(t)+1] = locale.confirm
                local s = select_table(wedding_names)

                if s != table.getn(wedding_names) then
                    marriage.join_wedding(t[s][1], t[s][2])
                end
            end
        end
        when 9011.click with not pc.is_engaged() and not pc.is_married() begin
            say_title_auriu("Organizatoare de nunti:")
            say("")
            say_verde("Distractie placuta!")
            say("")
            say("")
        end

        function check_divorce_time()

            local DIVORCE_LIMIT_TIME = 86400

            if is_test_server() then
                DIVORCE_LIMIT_TIME = 60
            end

            if marriage.get_married_time() < DIVORCE_LIMIT_TIME then
                say_title_auriu("Gardian:")
                say("")
                say("Esti proaspat casatorit!")
                say("Mai asteapta putin pentru a divorta.")
                say("")
                return false
            end

            return true
        end

        function is_equip_wedding_dress()
            local a = pc.get_armor()
            return a >= 11901 and a <= 11904
        end
        function get_wedding_dress(pc_job)
                if 0==pc_job then
                    return 11901
                elseif 1==pc_job then
                    return 11903
                elseif 2==pc_job then
                    return 11902
                elseif 3==pc_job then
                    return 11904
                else
                    return 0;
                end
        end
    end
end

Ms anticipat

Pietonu' · 28 Sep 2015, 18:01

pc.is_engaged_or_married() begin
if not npc.lock() then pentru ca nu poate citii asta,probabil nu e compatibil sau nu ai comenzile alea in quest_function

C.Marius · 28 Sep 2015, 18:06

pai si ce trb pus in quest_function ca ma uit de ceva timp si numi pot da seama ce are?

Dragoş Florin · 28 Sep 2015, 18:34

incearca sa bagi chestia asta

Cod: Selectaţi tot

pc.is_engaged

C.Marius · 28 Sep 2015, 19:05

Am adaugat acel lucru si tot nu merge.
Eu cred ca e adaugat undeva din greseala " sau altceva

mortalandy11 · 29 Sep 2015, 13:38

nu stiu

Dragoş Florin · 29 Sep 2015, 16:30

Este ceva greșit un quest , atunci .

DaRealPain · 29 Sep 2015, 16:34

Nu are nimic de a face cu quest_function.
Daca ar avea ceva de a face cu quest_function atunci ar scrie acolo.

Ai pus comanda gresit sau ceva de genul.
Ma uit peste cand sunt acasa.

[ Mesaj scris via Android ] Imagine

29 Sep 2015, 16:38

Folosește acest quest.

Cod: Selectaţi tot

---------------------------
Quest editat de Helios pentru Just4Metin
---------------------------
quest marriage_manage begin
    state start begin
        when 9006.chat."Vreau să mă căsătoresc" with not pc.is_engaged_or_married() begin
            if not npc.lock() then
            say_title("Femeia Bătrână:")
                say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
                say("O altă nuntă are loc momentan.")
                say("")
                say("Aşteaptă sau întoarce-te mai târziu!")
            say("")
                return
            end
            if pc.level < 25 then
            say_title("Femeia Bătrână:")
                say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Pentru a putea organiza o nuntă, trebuie ca ambii")
            say("participanţi să aibă minim nivelul 25. Din păcate")
            say("nu îndeplineşti această condiţie.")
            say("Revin-o la mine când vei fi pregătit(ă)!")
            say("")
                npc.unlock()
                return
            end

            local m_ring_num = pc.countitem(70301)
            local m_has_ring = m_ring_num > 0
            if not m_has_ring then
            say_title("Femeia Bătrână:")
                say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Din păcate nu pot să încep nunta deoarece")
            say("vă lipsesc Inelele de Logodnă.")
            say("Revin-o la mine când vei fi pregătit(ă)!")
            say("")
                npc.unlock()
                return
            end

            local m_sex = pc.get_sex()
            if not marriage_manage.is_equip_wedding_dress() then
            say_title("Femeia Bătrână:")
                say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Din păcate nu pot să incep nunta deoarece")
            say("nu purtaţi costumele de nuntă.")
            say("")

                if m_sex==0 then
                   say("Dacă vrei să te căsătoreşti ai nevoie de:")
                       say_item("Tuxedo", 11901, "")                 
                else
                   say("If you want to get married you need to wear:")
                    say_item("Rochie de mireasă ", 11903, "")
                end
                say("")
                npc.unlock()
                return
            end

            local NEED_MONEY = 1000000
            if pc.get_money() < NEED_MONEY then
            say_title("Femeia Bătrână:")
                say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Ei ... vrei să te căsătoreşti dar nu ai bani să-ţi")
            say("plăteşti nunta? Cum iţi vei întreţine familia?")
            say("Revin-o la mine când ai toţi banii.")
            say("")
            say_reward("Cost: 1.000.000 Yang")
            say("")
                npc.unlock()
                return
            end

         say_title("Femeia Bătrână:")
         say("")
         say("Dacă ai venit la mine înseamnă că vrei să ")
         say("te căsătoreşti. Ei bine, ai venit la locul")
         say("potrivit.")
         say("")
         say_reward("Introdu numele persoanei iubite:")
         say("")

            local sname = input()
            if sname == "" then
            say_title("Femeia Bătrână:")
            say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Numele pe care l-ai introdus nu este bun.")
            say("Încearcă din nou şi ai grijă de data")
            say("asta să introduci numele corect.")
            say("" )
                npc.unlock()
                return
            end

            local u_vid = find_pc_by_name(sname)
            local m_vid = pc.get_vid()
            if u_vid == 0 then
            say_title("Femeia Bătrână:")
            say("")
                say("Nu ştii cu cine vrei să te căsătoreşti?")
                say("")
                say_reward(string.format("%s nu este online.", sname))
                say("")
                npc.unlock()
                return
            end

            if not npc.is_near_vid(u_vid, 10) then
            say_title("Femeia Bătrână:")
            say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Persoana cu care vrei să te căsătoreşti")
            say("nu este aproape tine. Pentru a vă putea")
            say("căsători cheam-o aproape tine.")
            say("")
                say_reward(string.format("%s este prea departe.", sname))
                say("")
                npc.unlock()
                return
            end

            local old = pc.select(u_vid)
            local u_level = pc.get_level()
            local u_job = pc.get_job()
            local u_sex = pc.get_sex()
            local u_name = pc.name
            local u_gold = pc.get_money()
            local u_married = pc.is_married()
            local u_has_ring = pc.countitem(70301) > 0
            local u_wear = marriage_manage.is_equip_wedding_dress()
            pc.select(old)
            local m_level = pc.get_level()

            if u_vid == m_vid then
            say_title("Femeia Bătrână:")
            say("")
                say("Introdu numele partenerului nu al tău.")
                say("")
                npc.unlock()
                return
            end

            if u_sex == m_sex then
            say_title("Femeia Bătrână:")
            say("")
            say("Îmi pare rău dar nu voi căsători două persoane")
            say("de acelaşi sex.")
            say("")
                npc.unlock()
                return
            end

            if u_married then
            say_title("Femeia Bătrână:")
            say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Ha? Nu ştiai? Persoana cu care vrei să ")
            say("te căsătoreşti este deja luată.")
                say("")
                say_reward(string.format("%s este deja căsătorit(ă).", sname))
                say("")
                npc.unlock()
                return
            end

            if u_level < 25 then
            say_title("Femeia Bătrână:")
            say("")
            say("Persoana cu care vrei să te căsătoreşti")
            say("nu are nivelul necesar.")
            say("")
            say_reward("Nivel necesar: 25")
            say("")
                npc.unlock()
                return
            end

            if m_level - u_level > 15 or u_level - m_level > 15 then
            say_title("Femeia Bătrână:")
            say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Diferenţa de nivel dintre voi doi este prea")
            say("mare. Revin-o atunci când diferenţa va fi")
            say("doar de 15 nivele.")
                say("")
                npc.unlock()
                return
            end

            if not u_has_ring then
                if m_ring_num >= 2 then
               say_title("Femeia Bătrână:")
               say("")
                    say("Acum schimbaţi inelele.")
                    say("")
                else
               say_title("Femeia Bătrână:")
               say("")
                    ----"123456789012345678901234567890123456789012345678901234567890"|
                    say("Căsătoria este o chestiune foarte importantă ")
               say("în viaţă. Macar atât puteai să-i cumperi")
                    say("un inel persoanei iubite.")
                    say("")
                end

                say_item("Inel de logodnă ", 70302, "")
            
            say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
                say("Partenerul tău trebuie să aibă si el un inel")
            say("de logodnă.")
                say("")
                npc.unlock()
                return
            end

         if not u_wear then
            say_title("Femeia Bătrână:")
            say("")
            say("Nu purtaţi costumul de nuntă. Ar fi cam jenant")
            say("să vă căsătoriţi în armură nu credeţi? Reveniţi")
            say("când aveţi costumele de nuntă.")
            say("")
         if u_sex==0 then
            say_reward("Persoanei iubite îi lipseşte costumul de nuntă.")
         else
            say_reward("Persoanei iubite îi lipseşte costumul de nuntă.")
         end
         say("")
         npc.unlock()
         return
         end

            local ok_sign = confirm(u_vid, "Vrei să te căsătoreşti cu "..pc.name.."?", 30)
            if ok_sign == CONFIRM_OK then
                local m_name = pc.name
                if pc.get_gold()>=NEED_MONEY then
                    pc.change_gold(-NEED_MONEY)

                    pc.removeitem(70301, 1)
                    pc.give_item2(70302, 1)
                    local old = pc.select(u_vid)
                    pc.removeitem(70301, 1)
                    pc.give_item2(70302, 1)
                    pc.select(old)

               say_title("Femeia Bătrână:")
               say("")
                    ----"123456789012345678901234567890123456789012345678901234567890"|
               say("Totul este gata! Cu siguranţă totul este")
               say("pregătit acum.")
               say("Acum vă voi trimite la managerul de nunţi")
               say("pentru a termina cununia.")
                    say("")
                    wait()
                    setskin(NOWINDOW)
                    marriage.engage_to(u_vid)
                end
            else
            say_title("Femeia Bătrână:")
            say("")
            say("Partenerul tău nu mai doreşte să se")
            say("căsătorească cu tine.")
            say("")
            end
            say("")
            npc.unlock()
        end

        when 9006.chat."Începe nunta" with pc.is_engaged() begin
         say_title("Femeia Bătrână:")
         say("")
            say("De ce eşti încă aici?")
            say("")
            wait()
            setskin(NOWINDOW)
            marriage.warp_to_my_marriage_map()
        end


        when 9011.chat."Permisiunea pentru căsătorie" with pc.is_engaged() and marriage.in_my_wedding() begin
            if not npc.lock() then
            say_title("Organizatoare de nunţi:")
                say("")
                say("Vorbesc cu partenerul tău. Aşteaptă.")
                say("")
                return
            end
         say_title("Organizatoare de nunţi:")
            say("")
            say("Prima dată, introdu numele partenerului.")

            local sname = input()
            local u_vid = find_pc_by_name(sname)
            local m_vid = pc.get_vid()

            if u_vid == 0 then
            say_title("Organizatoare de nunţi:")
            say("")
                say("Nu văd pe nimeni cu acest nume în preajmă.")
                say("Eşti sigur că acesta este numele? ")
                say("")
                say_reward(string.format("%s nu este online.", sname))
                say("")
                npc.unlock()
                return
            end

            if not npc.is_near_vid(u_vid, 10) then
            say_title("Organizatoare de nunţi:")
            say("")
            say("Persoana cu care vrei să te căsătoreşti")
            say("nu este aproape tine. Pentru a vă putea")
            say("căsători cheam-o aproape tine.")
                say("")
                say_reward(string.format("%s trebuie sa fie mai aproape.", sname))
                say("")
                npc.unlock()
                return
            end

            if u_vid == m_vid then
            say_title("Organizatoare de nunţi:")
            say("")
                say("Nu introdu propriul nume.")
                say("")
                say("Trebuie să introduci numele partenerului tău.")
                say("")
                npc.unlock()
                return
            end

            if u_vid != marriage.find_married_vid() then
            say_title("Organizatoare de nunţi:")
            say("")
                say("Ceva nu este în regula. Nu este persoana")
            say("potrivită.")
                say("Poţi să verifici te rog?")
                say("")
                npc.unlock()
                return
            end

            local ok_sign = confirm(u_vid, "Vrei să te căsătoreşti cu "..pc.name.."?", 30)
            if ok_sign != CONFIRM_OK then
            say_title("Organizatoare de nunţi:")
            say("")
                say("Partenerul tău nu este pregătit.")
                say("")
                npc.unlock()
                return
            end
         say_title("Organizatoare de nunţi:")
         say("")
            say("Acum totul este în ordine şi putem începe.")
            say("")

            marriage.set_to_marriage()

            say("Să aveţi o nuntă frumoasă!")
            say("")
            npc.unlock()
        end

        function give_wedding_gift()
            local male_item = {71072, 71073, 71074}
            local female_item = {71069, 71070, 71071}
            if pc.get_sex() == MALE then
                pc.give_item2(male_item[number(1, 3)], 1)
            else
                pc.give_item2(female_item[number(1, 3)], 1)
            end
        end

        when 9011.chat."Porneşte muzica" with
                    (pc.is_engaged() or pc.is_married()) and
                marriage.in_my_wedding() and
                not marriage.wedding_is_playing_music() begin
            marriage.wedding_music(true, "wedding.mp3")
            setskin(NOWINDOW)
        end
        when 9011.chat."Opreşte muzica" with
                    (pc.is_engaged() or pc.is_married()) and
                marriage.in_my_wedding() and
                marriage.wedding_is_playing_music() begin
            marriage.wedding_music(false, "default")
            setskin(NOWINDOW)
        end
        when 9011.chat."Noapte/zi" with
            pc.is_married() and
            marriage.in_my_wedding() begin
            marriage.wedding_dark(true)
            setskin(NOWINDOW)
        end

        when 9011.chat."Porneşte zăpada" with pc.is_married() and marriage.in_my_wedding() begin
            marriage.wedding_snow(true)
            setskin(NOWINDOW)
        end
        
        when 9011.chat."Anunţ " with pc.is_married() and marriage.in_my_wedding() begin
           if pc.getqf("wedding_announce_time") < get_time() then
              local old_vid = pc.get_vid()
         local u_vid = marriage.find_married_vid()
         if u_vid != 0 then
            pc.select(u_vid)
            local partner = pc.getname()
            pc.select(old_vid)
            notice_all(pc.name.." şi "..partner.." va invită la nunta lor!")
            notice_all("Du-te la femeia bătrână pentru a te alătura.")
            pc.setqf("wedding_announce_time", get_time()+60*10)
            setskin(NOWINDOW)  
         else
            say("Partenerul tău nu este online!")
            say("")
         end
      else
         local remaining = pc.getqf("wedding_announce_time") - get_time()
         say("Mai trebuie să aştepţi "..remaining.." secunde.")
         say("")
      end
   end
        when 9011.chat."Încheiaţi nunta" with pc.is_married() and marriage.in_my_wedding() begin
            if not npc.lock() then
            say_title("Organizatoare de nunţi:")
                say("")
                say("Vorbesc cu partenerul tău. Aşteaptă.")
                say("")
                return
            end

         say_title("Organizatoare de nunţi:")
         say("")
            say("Doreşti să închei nunta?")
            say("")
            local s = select("Da","Nu")
            if s == 1 then
                local u_vid = marriage.find_married_vid()
                if u_vid == 0 then
               say_title("Organizatoare de nunţi:")
               say("")
                    say("Partenerul tău trebuie să fie de acord")
               say("pentru terminarea nunţii.")
                    say("")
                    say("Nunta nu poate fi terminată deoarece")
                    say("partenerul tău nu este online.")
                    say("")
                    npc.unlock()
                    return
                end
            say_title("Organizatoare de nunţi:")
            say("")
                say("Trebuie să aşteptăm confirmarea partenerului,")
                say("tău.")
                say("")
                local ok_sign = confirm(u_vid, "Vrei să termini nunta? ", 30)
                if ok_sign == CONFIRM_OK then
                    marriage.end_wedding()
                else
               say_title("Organizatoare de nunţi:")
               say("")
                    say("Partenerul tău nu este de acord!")
                    say("")
                end

                npc.unlock()
            end
        end


        when      11000.chat."Divorţ " or
                11002.chat."Divorţ " or
                11004.chat."Divorţ " with pc.is_married() begin

            if not marriage_manage.check_divorce_time() then
                return
            end

            local u_vid = marriage.find_married_vid()
            if u_vid == 0 or not npc.is_near_vid(u_vid, 10) then
                say_title("Gardian:")
                say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
                say("Fără partenerul dumneavoastră nu puteţi obţine")
            say("divorţul în mod legal.")
                say("Revin-o cu partenerul tău!")
                say("")
                return
            end

            say_title("Gardian:")
            say("")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Pentru a divorţa aveţi nevoie de 500.000Yang")
            say("şi acordul partenerului dumneavoastră.")
            say("")
            say("Eşti sigur că vrei asta?")
            say("")

            local MONEY_NEED_FOR_ONE = 500000
            local s = select("Da.", "Nu sunt sigur încă.")

            if s == 1 then
                local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                local m_have_ring = pc.countitem(70302) > 0

                local old = pc.select(u_vid)
                local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                local u_have_ring = pc.countitem(70302) > 0
                pc.select(old)

                if not m_have_ring then
                    say("Aduceţi inelul de nuntă.")
                    return;
                end
                if not u_have_ring then
                    say("Partenerul trebuie să aibă inelul de nuntă.")
                    return;
                end

                if not m_enough_money then
               say_title("Gardian:")
               say("")
                    say("Nu ai destui bani pentru a divorţa.")
                    say("")
                    say_reward("Ai nevoie de 500.000Yang")
                    say("")
                    return;
                end
                if not u_enough_money then
               say_title("Gardian:")
               say("")
                    say("Nu ai destui bani pentru a divorţa.")
                    say("")
                    say_reward("Ai nevoie de 500.000Yang")
                    say("")
                    return;
                end
            say_title("Gardian:")
            say("")
                say("Eşti sigur că vrei să divorţezi?")
                say("")

                local c=select("Da.", "Nu. M-am răzgândit.")
                if 2 == c then
                    say_pc_name()
                    say("")
                    say("M-am răzgândit.")
                    say("Nu mai vreau sa divorţez.")
                    say("")
                    wait()
               say_title("Gardian:")
               say("")
                    say("Este cea mai bună cale.")
                    say("")
                    say_reward("Divorţul a fost anulat.")
                    say("")
                    return
                end

                local ok_sign = confirm(u_vid, pc.name.."Vrei sa divorţezi?", 30)
                if ok_sign == CONFIRM_OK then

                    local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                    local m_have_ring = pc.countitem(70302) > 0

                    local old = pc.select(u_vid)
                    local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                    local u_have_ring = pc.countitem(70302) > 0
                    pc.select(old)

                    if m_have_ring and m_enough_money and u_have_ring and u_enough_money then
                        pc.removeitem(70302, 1)
                        pc.change_money(-MONEY_NEED_FOR_ONE)

                        local old = pc.select(u_vid)
                        pc.removeitem(70302, 1)
                        pc.change_money(-MONEY_NEED_FOR_ONE)
                        pc.select(old)

                  say_title("Gardian:")
                  say("")
                        say("Ai divorţat.")
                        say("")
                        say("Nu mai poţi face nimic acum.")
                        say("")
                        marriage.remove()
                    else
                  say_title("Gardian:")
                  say("")
                        say("Documentele nu sunt complete.")
                        say("Vă rog să veniţi mai târziu din nou.")
                        say("")
                        say_reward("Divorţul a fost anulat.")
                        say("")
                    end
                else
               say_title("Gardian:")
               say("")
                    say("Partenerul tău nu vrea să divorţeze!")
               say("")
                    say_reward("Divorţul a fost anulat.")
                    say("")
                end
            end
        end

        when    11000.chat."Eliminaţi inelul de cununie" or
                11002.chat."Eliminaţi inelul de cununie" or
                11004.chat."Eliminaţi inelul de cununie" with
                        not pc.is_married()         and
                        pc.count_item(70302)>0
                        begin
            say_title("Gardian:")
            say("")
                ----"123456789012345678901234567890123456789012345678901234567890"|
                say("Inelul de cununuie a fost eliminat.")
            say("")
                pc.remove_item(70302)
        end

        when         11000.chat."Divorţ unilateral" or
                    11002.chat."Divorţ unilateral" or
                11004.chat."Divorţ unilateral" with pc.is_married() begin

            if not marriage_manage.check_divorce_time() then
                return
            end

         say_title("Gardian:")
         say("")
            say("Ai nevoie de 1.000.000Yang pentru acest lucru.")
            say("Eşti sigur că vrei să divorţezi?")
            say("")

            local s = select("Da.", "Nu... ")

            local NEED_MONEY = 1000000
            if s == 2 then
                return
            end

            if pc.money < NEED_MONEY then
            say_title("Gardian:")
            say("")
                say("Nu ai destui bani pentru a divorţa.")
                say("Ai nevoie de 1.000.000Yang.")
                say("")
                return
            end

         say_title("Gardian:")
         say("")
            say("Eşti sigur că vrei să divorţezi?")
            say("Gândeşte-te bine:")
            say("")

            local c = select("Da, vreau.","Mă mai gândesc.")

            if c == 2 then
            say_title("Gardian:")
            say("")
                say("Păi")
                say("Poate e mai bine aşa.")
                say("")
                return
            end

            pc.removeitem(70302, 1)
            pc.change_gold(-NEED_MONEY)

            marriage.remove()

         say_title("Gardian:")
         say("")
            say("Ok, dacă asta este alegerea ta.")
            say("")
        end

        when 9006.chat."Lista nunţilor" with not pc.is_engaged() begin
            local t = marriage.get_wedding_list()
            if table.getn(t) == 0 then
            say_title("Femeia Bătrână:")
                say("")
                say("În acest moment nu este nici o nuntă ")
            say("in desfăşurare.")
                say("")
            else
                -- chat(table.getn(t))
                local wedding_names = {}
                table.foreachi(t, function(n, p) wedding_names[n] = "Nunta dintre "..p[3].." şi "..p[4] end)
                wedding_names[table.getn(t)+1] = locale.confirm
                local s = select_table(wedding_names)

                if s != table.getn(wedding_names) then
                    marriage.join_wedding(t[s][1], t[s][2])
                end
            end
        end
        when 9011.click with not pc.is_engaged() and not pc.is_married() begin
         say_title("Organizatoare de nunţi:")
         say("")
            say("Distracţie plăcută!")
            say("")
        end

        function check_divorce_time()

            local DIVORCE_LIMIT_TIME = 86400

            if is_test_server() then
                DIVORCE_LIMIT_TIME = 60
            end

            if marriage.get_married_time() < DIVORCE_LIMIT_TIME then
            say_title("Gardian:")
            say("")
                say("Eşti proaspăt căsătorit!")
                say("")
                say("Deja vrei să divorţezi? Mai aşteaptă ")
                say("puţin timp.")
            say("")
                return false
            end

            return true
        end

        function is_equip_wedding_dress()
            local a = pc.get_armor()
            return a >= 11901 and a <= 11904
        end
    end
end

andreirmc1 · 29 Sep 2015, 17:24

ai compilat questul?

Problema quest

Quest-ing Problema quest

Problema quest

Problema quest.

PRoblema quest

Cine este conectat