[Cerere]Quest Divort.

Închis
Avatar utilizator
Chance
Mister Just4Metin

Mister Just4Metin
Mesaje: 1084
Membru din: 31 Dec 2014, 10:24
Server: Posibil
Regat: Jinno
Aprecieri: 5  
Mulţumiri: 35  
 Contact:
Medalii

Dati-mi si mie un quest divort am nevoie urgenta va rog
Avatar utilizator
Alexandru™
Nivel 5

Nivel 5
Mesaje: 758
Membru din: 08 Sep 2015, 15:27
Server: Metin2Nefrax
Regat: Jinno
Aprecieri: 0
Mulţumiri: 68  
Medalii

Vezi dacă merge ăsta:

Cod: Selectaţi tot

quest divort begin
    state start begin
            when 11000.chat."Divort" or
11002.chat." Divort" or
11004.chat." Divort" 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("Gardian:")
say("Divortul este o chestiune foarte grava!")
say("Daca vrei sa divortezi,")
say("Trebuie sa fie si partenerul de acord.")
say("")
return
end

say("Gardian:")
say("Divortul te va costa 500.000 Yang.")
say("")
say("")
say("Vrei sa organizezi divortul?")
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 aduci inelul de nunta.")
return;
end
if not u_have_ring then
say("Si partenerul de nunta")
say("Trebuie sa aduca inelul.")
return;
end

if not m_enough_money then
say("Gardian:")
say("Nu ai suficienti Yang pentru divort.")
say("")
say_reward(string.format("Costurile divortului %dvon", MONEY_NEED_FOR_ONE/10000))
say("")
return;
end
if not u_enough_money then
say("Gardian:")
say("Partenerul nu are suficienti Yang.")
say("")
say_reward("Pentru a putea divorta")
say_reward("Ambele persoane trebuie sa aibe 500.000 Yang.")
say("")
return;
end

say("Divortul este foarte dureros")
say("")
say("Vreti sa va distrugeti viitorul?")
say("")
say("Serios? Iti doresti cu adevarat sa divortezi?")
say("")

local c=select("Da", "Nu")
if 2 == c then
say_pc_name()
say("Vreau sa divortez pentru ca")
say("aceasta este decizia mea.")
say("")
wait()
say("Gardian:")
say("Asa sa fie...")
say("Sunteti 2 persoane care nu aveti nimic in comun")
say("")
say("")
say_reward("Voi incheia casatoria cu un divort.")
say("")
return
end

local ok_sign = confirm(u_vid, pc.name.." 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("Gardian:")
say("Divortul a fost un succes.")
say("Acum sunteti 2 persoane care nu mai aveti nimic in comun,")
say("")
say("")
say_reward("Divortul a fost finalizat cu succes!")
say("")
marriage.remove()
else
say("Gardian:")
say("A avut loc o eroare.")
say("Divortul nu a putut fi terminat.")
say("Te rog revina mai tarziu.")
say("")
say_reward("Divortul nu a reusit.")
say("")
end
else
say("Gardian:")
say("Partenerul nu este de acord.")
say("Reveniti la mine cand sunteti")
say("de acord amandoi.")
say("")
say_reward("Divortul a fost abandonat.")
say("")
end
end
end

when 11000.chat."Inel de Nunta" or
11002.chat." Inel de Nunta" or
11004.chat." Inel de Nunta" with
not pc.is_married() and
pc.count_item(70302)>0
begin
say("Gardian:")
say("Iti voi sterge amintirile rele")
say("cu partenerul.")
say("")
say_reward("Verigheta a fost eliminata cu succes.")
pc.remove_item(70302)
end

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

if not marriage_manage.check_divorce_time() then
return
end

say("Gardian:")
say("Divortul te va costa 1.000.000 Yang.")
say("Vrei sa dai suma asta?")
say("")

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

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

if pc.money < NEED_MONEY then
say("Gardian:")
say("Nu ai suficienti Yang pentru Divort.")
say("")
say("")
say("")
return
end

say("Gardian:")
say("Chiar vrei sa divortezi?")
say("Sa uiti de toate clipele fericite alaturi de partener?")
local c = select("Da!", "Nu.")

if c == 2 then
say("Gardian:")
say("Asta este decizia voastra si eu o respect")
say("")
say("Bucurati-va de viata")
say("")
say_reward("Divortul a fost anulat")
say("")
return
end

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

marriage.remove()

say("Gardian:")
say("Pentru ca nu va intelegiati bine")
say("")
say("Acum esti divortat")
say("")
say_reward("Divortul a fost reusit")
say("")
end
            end
        end
Imagine
Afișează semnătura
Avatar utilizator
Joey
Fost Moderator

Fost Moderator
Mesaje: 1340
Membru din: 09 Noi 2013, 14:58
Regat: Jinno
Aprecieri: 30  
Mulţumiri: 49  
Medalii

Baga asta intr-un npc: http://www.girlshare.ro/35156877.8 merge 100%.
Imagine
Afișează semnătura
Avatar utilizator
Chance
Mister Just4Metin

Mister Just4Metin
Mesaje: 1084
Membru din: 31 Dec 2014, 10:24
Server: Posibil
Regat: Jinno
Aprecieri: 5  
Mulţumiri: 35  
 Contact:
Medalii

Nici unul.
Avatar utilizator
Alexandru™
Nivel 5

Nivel 5
Mesaje: 758
Membru din: 08 Sep 2015, 15:27
Server: Metin2Nefrax
Regat: Jinno
Aprecieri: 0
Mulţumiri: 68  
Medalii

http://www.inforge.net/xi/threads/quest ... est.383408
Uite aici tutorial complet
P.S: QUEST-UL:

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("Batrana:")     say("")    say("Imi pare rau dar deja sunt prea multe")     say("nunti. Incearca mai tarziu!")     return    end    if pc.level < 25 then    say_title("Batrana:")    say("")     say("Esti prea tanar sa te insori.")     say("Cuplurile tinere divorteaza prea des,")     say("nu imi doresc sa trebuieasca sa suporti")     say("un divort. Intoarce-te cand vei avea mai")     say("multa experienta.")     say_reward ("Trebuie sa ai cel putin nivel 25.")     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("Batrana:")     say("")    say("Vrei sa te insori fara un inel?")     say_item("Inel de logodna", 70301, "")    say("Fa rost mai intai de un inel iar")     say("apoi mai vorbim despre nunta.")     npc.unlock()        return    end        local m_sex = pc.get_sex()    if not marriage_manage.is_equip_wedding_dress() then    say_title("Batrana:")     say("")    say("Chiar vrei sa te casatoresti?")     say("Casatoria este un moment important,")     say("nu poti sa te casatoresti imbracat asa.")         if m_sex==0 then    say_item("Smoking", marriage_manage.get_wedding_dress(pc.get_job()), "")    say_reward("Daca vrei sa te casatoresti fa rost")    say_reward("mai intai de un Smoking.")    else    say_item("Rochie de mireasa", marriage_manage.get_wedding_dress(pc.get_job()), "")    say_reward("Daca vrei sa te casatoresti fa rost")    say_reward("mai intai de o Rochie de mireasa.")    end    say("")    npc.unlock()    return    end        local NEED_MONEY = 1000000    if pc.get_money() < NEED_MONEY then    say_title("Batrana:")     say("Pregatirile pentru nunta costa foarte")     say("multe Yang. Imi pare dar nu ai suficient")     say("Yang!")     say_reward ("Nunta te costa 1.000.000 Yang.")     say_reward(string.format("??¡ÓB?O????*n %d?U??", NEED_MONEY/10000))    say("")    npc.unlock()    return    end        say_title("Batrana:")     say("Se pare ca esti hotarat,")     say("Incepem aranjamentele? Te rog sa introduci")     say("numele persoanei cu care vrei sa te")     say("casatoresti.")         local sname = input()    if sname == "" then    say_title("Batrana:")     say("Esti atat de stresat incat ai uitat numele")     say("partenerei tale? Introdu numele iar!")     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( "Batrana:")     say("Ai uitat numele partenerei tale,")     say("esti sigur ca vrei sa te insori?")     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 ("Batrana:")     say("Partenera ta trbuie sa fie langa,")     say("tine pentru a te putea casatori.")     say_reward(string.format("%s este prea departe de tine.", 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("Batrana:")    say("Introdu numele partenerei tale nu numele tau.")    say_reward("Ai introdus propriul tau nume.")    say("")    npc.unlock()    return    end        if u_married then    say_title ( "Batrana:")     say("Persoana cu care vrei sa te casatoresti")     say("este deja casatorita. Nu trebuie sa te")     say("grabesti, mai ai timp sa iti gasesti")     say("sufletul pereche.")     say_reward(string.format("%s este deja casatorit/a.", sname))    say("")    npc.unlock()    return    end        if u_level < 25 then    say_titl("Batrana:" )     say("Aceasta persoana este prea tanara. Nu")     say("este suficient de experimentata pentru")    say("a putea sa duca o relatie atat de departe.")    npc.unlock()    return    end        if m_level - u_level > 15 or u_level - m_level > 15 then    say_title("Batrana:")     say("Diferenta dintre voi doi este prea mare,")     say("asta nu ar putea sa dea prea bine in")     say("relatia voastra. Eu pur si simplu nu pot")     say("sa permit asa ceva.")    say("Puteti avea maxim 15 nivele diferenta.")    npc.unlock()    return    end        if not u_has_ring then    if m_ring_num >= 2 then    say("Batrana:")    say("")    say("Acum puteti sa va puneti inelele.")    say("")    else    say("Batrana:")    say("")    say("Casatoria este o etapa foarte importanta")    say("din viata fiecarui om. Cum ati uitat sa va")    say("aduceti inelele de logodna?")    say("")    end        say_item("Inel de Logodna", 70301, "")    say_reward("Ambii parteneri trebuie sa aiba cate")    say_reward("un inel de logodna.")    say("")    npc.unlock()    return    end        if not u_wear then    say_title ( "Batrana:" )     say ( "Partenera ta nu poarta haine de nunta," )     say ( "nu iti e putin jena sa o lasi sa se" )     say ( "imbrace asa la nunta voastra?" )     say("")    if u_sex==0 then    say_item("Smoking", marriage_manage.get_wedding_dress(u_job), "")    say_reward("Daca vrei sa te casatoresti fa rost")    say_reward("mai intai de un Smoking.")    say_reward("")    else    say_item("Rochide de mireasa", marriage_manage.get_wedding_dress(u_job), "")    say_reward("Daca vrei sa te casatoresti fa rost")    say_reward("mai intai de o Rochie de Mireasa.")    say_reward("")    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("Batrana:")     say("")    say("Se pare ca totul este in regula,")     say("urmeaza-ma catre locul in care se va")     say("desfasura nunta. Va dorescu o casnicie")     say("lunga si fericita, felicitari!")     wait()    setskin(NOWINDOW)    marriage.engage_to(u_vid)    end    else    say_title("Batrana:")     say("")    say("Partenera ta nu a acceptat cererea")     say("de casatorie. Ar trebui sa vorbiti")    say("putin pe tema asta.")     npc.unlock()    end    -- ?? ???? ???? ??? ??        when oldwoman.chat."Intoarce-te la nunta" with pc.is_engaged() begin    say_title("Batrana:")    say("")     say("De ce esti inca aici?")     say("Partenerul ta te asteapta deja,")     say("te voi duce eu la el.")    wait()    setskin(NOWINDOW)    marriage.warp_to_my_marriage_map()    end            when 9011.chat."Oficializarea casatoriei" with pc.is_engaged() and marriage.in_my_wedding() begin    if not npc.lock() then    say_title("Organizatoare de nunti:")     say("")     say("Doriti sa va casatoriti?")    say("Te rog sa astepti o secunda...")     say("")    return    end    say_title("Organizatoare de nunti:")     say("")     say("Gata! Te rog sa introduci numele")     say("partenerei tale:")     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("Organizatoare de nunti:")     say("")     say("Acest nume este invalid")     say("Esti sigur ca l-ai scris corect?")     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 nunti:")     say("")     say("Partenerul tau nu a ajuns inca.")     say("Vom incepe nunta cand partenerul tau")     say("va ajunge.")     say("")    say_reward(string.format("%s trebuie sa fie langa tine.", sname))    say("")    npc.unlock()    return    end        if u_vid != marriage.find_married_vid() then    say_title("Organizatoare de nunti:")     say("")     say("Ceva nu este bine, aceasta nu este persoana potrivita.")     say("Introdu numele alesei tale!")     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("Organizatoare de nunti:")     say ("")     say ("Partenerul tau nu este pregatit pentru casatorie,")     say ("ar trebuie sa discutati pe tema asta.")     say ("")    npc.unlock()    return    end    say_title("Organizatoare de nunti:")     say("")     say("Tot este gata, nunta poate sa inceapa.")    marriage.set_to_marriage()
    -- 2005.04.12.??? ?? ?? ??    -----------------------------------------------    -- say("Casa de piatra!")    -- say("")    -- marriage_manage.give_wedding_gift()    -- old = pc.select(u_vid)    -- marriage_manage.give_wedding_gift()    -- pc.select(old)    npc.unlock()    end
    function marriage_manage.check_divorce_time()    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        -- ??? ???? ?? ????? ?? ??    -- ?? pc.is_married() and marriage.in_my_wedding()        -- ??? ?? ??? ??? ?? ????    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."Schima de la zi la noapte" 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."Incheie nunta" with pc.is_married() and marriage.in_my_wedding() begin    if not npc.lock() then    say("Organizatoarea de nunti:")    say("")    say("Te rog sa astepti 1 secunda.")    say("")    return    end        say("Organizatoarea de nunti:")    say("")    say("Doresti sa inchei nunta?")    say("")    local s = select("Da","Nu")    if s == 1 then    local u_vid = marriage.find_married_vid()    if u_vid == 0 then    say("Organizatoarea de nunti:")    say("")    say("Pentru a putea incheia nunta ambii parteneri")    say("trebuie sa fie de acord, daca unul din voi")    say("nu este de acord nu pot incheia nunta.")    say("")    say("Nunta nu poate fi incheiata pentru ca partenerul")    say("tau nu este online.")    npc.unlock()    return    end    say("Organizatoarea de nunti:")    say("")    say("Pentru a putea incheia nunta ambii parteneri")    say("trebuie sa fie de acord, daca unul din voi")    say("nu este de acord nu pot incheia nunta.")    say("")    local ok_sign = confirm(u_vid, "Doresti ca nunta sa se incheie?", 30)    if ok_sign == CONFIRM_OK then    marriage.end_wedding() -- ??? ???? ??? ??.    else    say("Organizator Nunta:")    say("")    say("Partenerul tau nu a dorit sa incheie nunta.")    say("")    end        end        npc.unlock()    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("Gardianul orasului:")    say("Divortul este ceva foarte serios,")    say("Daca vrei sa divortezi")    say("trebuie ambii parteneri sa fie de fata.")    say("")    return    end        say_title("Gardianul Orasului:")    say("Divortul te costa 50.000.000 Yang.")    say("Dar trebuie ca ambii parteneri")    say("sa fie de acord.")    say("Vrei sa aranjezi divortul?")    say("")        local MONEY_NEED_FOR_ONE = 50000000    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("Da-mi verigheta.")    return;    end    if not u_have_ring then    say("Cealalta persoana trebuie sa aduca")    say("si ea verigheta.")    return;    end        if not m_enough_money then    say_title("Gardianul Orasului:")    say("Nu ai suficienti bani pentru a divorta")    say("")    say_reward(string.format("Divortul te costa %dvon Yang.", MONEY_NEED_FOR_ONE/10000))    say("")    return;    end    if not u_enough_money then    say_title("Gardianul Orasului:")    say("Partenerul tau nu are suficient Yang.")    say("")    say_reward("Pentru divort trebuie platit")    say_reward("50.000.000 Yang de persoana.")    say("")    return;    end        say("Divortul este un lucru dureros,")    say("gandeste-te bine ce vrei sa faci!")    say("Vreti sa va distrugeti viitorul?")    say("")    say("Chiar vrei sa divortezi?")    say("")        local c=select("Da", "Nu")    if 2 == c then    say_pc_name()    say("Vreau sa divortez,")    say("aceasta este decizia mea.")    say("")    wait()    say_title("Gardianul Orasului:")    say("Asa sa fie...")    say("Poate nu ati fost meniti sa fiti impreuna...")    say("")    say_reward("Casnicia voastra a fost incheiata cu un divort.")    say("")    return    end        local ok_sign = confirm(u_vid, pc.name.." 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("Gardianul Orasului:")    say("Divortul a fost un succes.")    say("")    say_reward("Divortul a fost finalizat cu succes!")    marriage.remove()    else    say_title("Gardianul Orasului:")    say("Au aparut niste incurcaturi,")    say("nu am reusit sa finalizez inca divortul.")    say("Revino mai tarziu!")    say("")    say_reward("Divortul nu a fost finalizat.")    say("")    end    else    say_title("Gardianul Orasului:")    say("Partenerul tau nu vrea sa divorteze.")    say("Este mai bine asa,")    say("poate veti reusi sa va rezolvati problemele.")    say("")    say_reward("Divortul a fost anulat.")    say("")    end    end    end
    when 11000.chat."Scapa-ma de verigheta!" or    11002.chat."Scapa-ma de verigheta!" or    11004.chat."Scapa-ma de verigheta!" with    not pc.is_married() and    pc.count_item(70302)>0    begin    say_title("Gardianul Orasului:")    say("Acest inel este plin de amintiri neplacute,")    say("te voi scapa eu de el.")    say("")    say_reward("Inelul de nunta a fost eliminat cu succes.")    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("Gardianul Orasului:")    say("Divortul unilateral te va costa 100.000.000 Yang.")    say("Esti sigur ca vrei sa divortezi?")    say("")        local s = select("Da", "Nu.")        local NEED_MONEY = 100000000    if s == 2 then    return    end        if pc.money < NEED_MONEY then    say_title("Gardianul Orasului:")    say("Nu ai suficienti bani pentru a divorta,")    say("adevarul este ca divortul este foarte scump.")    say("Intoarce-te cand vei face rost de bani!")    say("")    return    end        say_title("Gardianul Orasului:")    say("Chiar vrei sa divortezi?")    say("Gandeste-te bine!")    local c = select("Da!", "Nu, m-am razgandit.")        if c == 2 then    say_title("Gardianul Orasului:")    say("Aceasta este decizia corecta. Bucura'te de viata!")    say("Se mai intampla sa aveti opinii diferite.")    say("")    say_reward("Divortul a fost anulat")    say("")    return    end        pc.removeitem(70302, 1)    pc.change_gold(-NEED_MONEY)        marriage.remove()        say_title("Gardianul Orasului:")    say("Ai divortat.")    say("Sper ca iti va fi mai bine asa!")    say("")    say_reward("Divortul a fost reusit")    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("Batrana:")    say("In momentul de fata nu se desfasoara nici o nunta.")    say("")    else    -- chat(table.getn(t))    local wedding_names = {}    table.foreachi(t, function(n, p) wedding_names[n] = p[3].." si "..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("Organizatoarea de nunti:")    say("")    say("Este o nunta foarte frumoasa, nu este asa?")    say("Vo doresc distractie placuta in continuare!")    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("Gardianul Orasuliu:")    say("Nu v-ati casatorit bine si deja vreti")    say("sa divortati? Ar trebui sa discutati")    say("umpic inainte sa luati decizii pripite.")    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    endend
Imagine
Afișează semnătura
Avatar utilizator
Chance
Mister Just4Metin

Mister Just4Metin
Mesaje: 1084
Membru din: 31 Dec 2014, 10:24
Server: Posibil
Regat: Jinno
Aprecieri: 5  
Mulţumiri: 35  
 Contact:
Medalii

CNV?
Avatar utilizator
M.Seby
Utilizator interzis !

Utilizator interzis !
Mesaje: 2685
Membru din: 10 Sep 2013, 15:00
Server: Not Found
Regat: Jinno
Aprecieri: 0
Mulţumiri: 16  
 Contact:
Medalii

Arhivat!
Inactiv
Imagine
Afișează semnătura
Închis
Răspunsuri
6
Vizualizări
308
Răspunsuri
4
Vizualizări
615
Răspunsuri
7
Vizualizări
753
Răspunsuri
2
Vizualizări
240

Înapoi la “Arhivă”

  • Informaţie
  • Cine este conectat

    Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 36 vizitatori