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 Batrâna:")
say("Ziua buna, doresti sa te casatoresti.")
say("Te casatoresti cu mine?")
return
end
if pc.level < 25 then
say_title("Femeia Batrâna:")
say("Esti prea mic pentru a te putea casatori.")
say("Nu te pot casatori pâna nu ajungi la nivelul")
say("necesar 25. Ai întales?")
say("Revino la mine când ajungi la nivelul 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("Femeia Batrâna:")
say("Oh, nu ai la tine intelul de logodna.")
say_item("inel de logodna.", 70301, "")
say("Ai nevoie de el pentru a te putea casatori.")
npc.unlock()

return
end

local m_sex = pc.get_sex()
if not marriage_manage.is_equip_wedding_dress() then
say_title("Femeia Batrâna:")
say("Costumul de nunta unde este?")
say("Eu nu pot continua ceremonia în acest caz.")
say("Revino când ai costumul.")

if m_sex == 0 then
say_item("Costum:", marriage_manage.get_wedding_dress(pc.get_job()), "")
say("Trebuie sa ai acest costum pentru a continua.")
else
say_item("Costum:", marriage_manage.get_wedding_dress(pc.get_job()), "")
say("Trebuie sa ai acest costum pentru a continua.")
end
npc.unlock()
return
end

local NEED_MONEY = 1000000
if pc.get_money() < NEED_MONEY then
say_title("Femeia Batrâna:")
say("Oh, era sa uit. Ai nevoie de o suma de yang")
say("pentru a continua ceremonia de casatorie.")
say(string.format("Ai nevoie de: 1.000.000 Yang.", NEED_MONEY/10000))
npc.unlock()
return
end

say_title("Femeia Batrâna:")
say("Oh, ai decis sa te casatoresti, spune-mi care")
say("este numele persoanei dragi tie.")

local sname = input()
if sname == "" then
say_title("Femeia Batrâna:")
say("Oh, era sa uit. Trebuie sa fie de fata pentru")
say("a continua aceasta ceremonie.")
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 Batrâna:")
say("Esti sigur(a) ca acesta este numele?")
say("Deoarece nu este trecu în nici un registru.")
npc.unlock()
return
end

if not npc.is_near_vid(u_vid, 10) then
say_title("Femeia Batrâna:")
say("Oh, era sa uit. Trebuie sa fie de fata pentru")
say("a continua aceasta ceremonie.")
say(string.format("%s nu este lânga tine.", sname))
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 Batrâna:")
say("Nu poti face asa ceva. Ceremonia este")
say("anulata. Revino.")
npc.unlock()
return
end

if u_sex == m_sex then
say_title("Femeia Batrâna:")
say("Oh, nu pot casatori pe cineva de acelas ")
say("sex. Revino cu persoana potrivita.")
npc.unlock()
return
end

if u_married then
say_title("Femeia Batrâna:")
say("Oh, divorteaza înainte, pentru a te putea")
say("casatori din nou.")
npc.unlock()
return
end

if u_level < 25 then
say_title("Femeia Batrâna:")
say("Oh, nu te pot casatori cu o persoana care")
say("este sub nivelul 25.")
npc.unlock()
return
end

if m_level - u_level > 15 or u_level - m_level > 15 then
say_title("Femeia Batrâna:")
say("Oh, între voi doi este o diferenta mare de")
say("nivel. Revenit când aveti acelas nivel.")
npc.unlock()
return
end

if not u_has_ring then
if m_ring_num >= 2 then
say_title("Femeia Batrâna:")
say("Trebuie sa aveti amândoi inele de logodna ")
say("pentru a continua.")
else
say_title("Femeia Batrâna:")
say("Oh, doua inele de logodna sunt suficiente")
say("pentru voi doi.")
end

say_item("inel de logodna.", 70301, "")
say("Ai nevoie de el pentru a te putea casatori.")
npc.unlock()
return
end

if not u_wear then
say_title("Femeia Batrâna:")
say("Costumul de nunta unde este?")
say("Eu nu pot continua ceremonia în acest caz.")
say("Revino când aveti costumele.")
if u_sex == 0 then
say_item("Costum:", marriage_manage.get_wedding_dress(u_job), "")
say("Trebuie sa ai acest costum pentru a continua.")
else
say_item("Costum:", marriage_manage.get_wedding_dress(u_job), "")
say("Trebuie sa ai acest costum pentru a continua.")
end
npc.unlock()
return
end


local ok_sign = confirm( u_vid, "sposa"..pc.name.. "ok?", 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 Batrâna:")
say("Oh, ati primit credinta. Sunte-ti casatoriti.")
say("Acum va voi da inelele, aveti grija cu ele.")
wait()
setskin(NOWINDOW)
marriage.engage_to(u_vid)
end
else

say_title("Femeia Batrâna:")
say("Oh, nu te poti casatori. Revino când ")
say("ai toate cele necesare.")
end
npc.unlock()
end

when oldwoman.chat."Informatii." with pc.is_engaged() begin

say("Casatoria este foarte importanta deoarece ")
say("odata cu ea vei primi un inel de teleportare.")
say("Acest inel de teleportare, te readuce lânga ")
say("persoana draga tie.")
wait()
setskin(NOWINDOW)
marriage.warp_to_my_marriage_map()
end


when 9011.chat."Începe sarbatoarea." with pc.is_engaged() and marriage.in_my_wedding() begin
if not npc.lock() then
say("Ai încheiat deja ceremonia, cum asa?")
return
end

say("Pentru a oficializa casatoria mai trebuie sa ")
say("faceti doua lucruri simple.")
say("Scrie numele persoanei iubite mai jos.")

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

if u_vid == 0 then

say("Oh, era sa uit. Trebuie sa fie de fata pentru")
say("a continua aceasta ceremonie.")
say_reward(string.format("%s nu este lânga tine.", sname))
npc.unlock()
return
end

if not npc.is_near_vid(u_vid, 10) then

say("Oh, era sa uit. Trebuie sa fie de fata pentru")
say("a continua aceasta ceremonie.")
say_reward(string.format("%s nu este lânga tine.", sname))
npc.unlock()
return
end

if u_vid == m_vid then

say("Va voi casatori. Esti pregatit(a) pentru")
say("acest pas urias.")
npc.unlock()
return
end

if u_vid != marriage.find_married_vid() then

say("Oh, era sa uit. Trebuie sa fie de fata pentru")
say("a continua aceasta ceremonie.")
npc.unlock()
return
end

local ok_sign = confirm(u_vid, "Te casatoresti cu "..pc.name.. " ?", 30)
if ok_sign != CONFIRM_OK then

say("Oh, totul este clar. Putem începe casatoria.")
say("Distractie placuta la petrecere.")
npc.unlock()
return
end

say("O noua pereche pentru noi.")
marriage.set_to_marriage()
say_reward("Ati primit credinta, felicitari.")
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."Ceremonia pe timp de noapte." with 
pc.is_married() and 
marriage.in_my_wedding() begin
marriage.wedding_dark(true)
setskin(NOWINDOW)
end

when 9011.chat."Ceremonia pe timp de iarna. " with pc.is_married() and marriage.in_my_wedding() begin
marriage.wedding_snow(true)
setskin(NOWINDOW)
end

when 9011.chat."Termina ceremonia." with pc.is_married() and marriage.in_my_wedding() begin
if not npc.lock() then
say("Dar, nu ai terminat deja ceremonia? ")
return
end


say("Vrei sa termini aceasta ceremonie? ")
local s = select("Da, Vreau. ","Ma-m razgândit. ")
if s == 1 then
local u_vid = marriage.find_married_vid()
if u_vid == 0 then
say("Oh, esti singur(a), nu pot încheia aceasta ")
say("ceremonie fara jumatatea ta. ")
npc.unlock()
return
end

say("Oh, daca doresti sa fie gata ceremonia trebuie ")
say("ca partenerul tau sa fie de acord. ")
local ok_sign = confirm(u_vid, "Terina ceremonia? ", 30)
if ok_sign == CONFIRM_OK then
marriage.end_wedding()
else

say("Partenerul nu este de acord ca ceremonia ")
say("sa ia sfârsit. ")
end

end

npc.unlock()
end
when 20355.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("Capitan: ")
say("Oh, pentru a divorta trebuie ca partenerul ")
say("tau sa fie de fata. ")
return
end

say_title("Capitan: ")
say("Pentru a putea continua acest divort vei ")
say("avea nevoie de 500.000 Yang. ")

local MONEY_NEED_FOR_ONE = 500000
local s = select("Divorteaza. ", "Ma-m razgândit. ")

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_title("Capitan: ")
say("Trebuie sa aduci inelul primit de la Baba. ")
return;
end
if not u_have_ring then
say_title("Capitan: ")
say("Trebuie sa aduci inelul primit de la Baba. ")
return;
end

if not m_enough_money then
say_title("Capitan: ")
say("Nu ai acea suma destul de importanta. ")
say_reward(string.format("Ai nevoie de %d Yang. ", MONEY_NEED_FOR_ONE/10000))
return;
end
if not u_enough_money then
say_title("Capitan: ")
say("Ambii trebuie sa aveti la voi 500.000 Yang. ")
return;
end

say_title("Capitan: ")
say("Înca mai doresti sa divortezi? ")

local c=select("Cum am spus, Da. ", "Ma-m razgândit. ")
if 2 == c then
say_pc_name()
say("Doresc divort, asta este decizia mea. ")
wait()
say_title("Capitan: ")
say("Se pare ca voi doi nu ati fost meniti sa ")
say("fiti împreuna. ")
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("Capitan:")
say("Se pare ca voi doi nu ati fost meniti sa")
say("fiti împreuna.")
say_verde("Casatoria este anulata.")
marriage.remove()
else
say_title("Capitan:")
say("Trebuie sa astepti ceva timp pentru a putea")
say("divorta.")
say_verde("Casatoria nu poate fi anulata.")
end
else
say_title("Capitan:")
say("Oh, cealalta persoana nu este de acord.")
end
end
end

when 20355.chat."Nu mai doresc inelul de logodna. " with not pc.is_married() and pc.count_item(70302)>0 begin
say_title("Capitan: ")
say("inelul de logodna a fost distrus. ")
pc.remove_item(70302)
end

when 20355.chat."Divort unilateral.(De unul singur.) " with pc.is_married() begin

if not marriage_manage.check_divorce_time() then
return
end

say_title("Capitan: ")
say("Pentru a divorta de un(a)ul singur(a) trebui e ")
say("sa platesti o suma de 1.000.000 Yang. ")

local s = select("Da, Vreau. ", "Ma-m razgândit. ")

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

if pc.money < NEED_MONEY then
say_title("Capitan:")
say("Ai nevoie de 1.000.000 Yang.")
return
end

say_title("Capitan: ")
say("Chear doresti cu adevarat sa divortezi? ")
local c = select("Doresc un divort. ", "Nu, cred ca nu. ")

if c == 2 then
say_title("Capitan: ")
say("Este alegerea ta. ")
return
end

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

marriage.remove()

say_title("Capitan: ")
say("Se pare ca voi doi nu ati fost meniti sa ")
say("fiti împreuna. ")
say_verde("Casatoria este anulata. ")
end

when oldwoman.chat."Lista nuntilor actuale. " with not pc.is_engaged() begin
local t = marriage.get_wedding_list()
if table.getn(t) == 0 then
say("Momentan nu este nici o ceremonie. ")
else
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("Ne-am adunat astazi aici pentru a putea ")
say("sarbatori lânga acest cuplu. ")
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("Capitan: ")
say("Eu vara nu dorm, vara nu dorm. ")
say("Revino. ")
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