qTupeu scrie:Uite:

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

PS: Nu l-am testat.