Va postez un quest 100% in ro si functional
Am vazut pe unele servere ca au bug la Femeia Batrana sau nu este tradus questul
de casatorie.
COD
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("Buna ziua!")
say("Doresti sa te casatoresti?")
return
end
if pc.level < 25 then
say("Ei bine...")
say("Pentru a putea organiza o nunta, trebuie ca ambii")
say("parteneri sa aibe nivel 25. Din pacate nu")
say("indeplinesti aceste conditii.")
say("Revino la mine cand vei fi cu adevarat pregatit!")
say("")
say_reward("Nivel necesar: 25")
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("Ei bine...")
say("Din pacate nu pot sa pornesc nunta deoarece")
say("va lipsesc Inelele de logodna.")
say_item("Ambii aveti nevoie de ", 70301, "")
say_reward("Reveniti la mine atunci cand veti avea")
say_reward("amandoi Inelele de logodna!")
say("")
npc.unlock()
return
end
local m_sex = pc.get_sex()
if not marriage_manage.is_equip_wedding_dress() then
say("Ei bine...")
say("Asadar vreti sa va casatoriti?")
say("Din pacate nu se poate deoarece nu aveti costumele")
say("de nunta pe voi...")
say("")
if m_sex==0 then
say_item("Costum de mire", marriage_manage.get_wedding_dress(pc.get_job()), "")
say_reward("Asadar...")
say_reward("Iti lipseste costumul de nunta!")
else
say_item("Rochie de mireasa", marriage_manage.get_wedding_dress(pc.get_job()), "")
say_reward("Asadar...")
say_reward("Iti lipseste costumul de nunta!")
end
say("")
npc.unlock()
return
end
local NEED_MONEY = 1000000
if pc.get_money() < NEED_MONEY then
say("Asadar...")
say("Doresti sa faci nunta dar fara sa o si platesti?")
say("Imi pare rau dar nu pot incepe o nunta in astfel")
say("de conditii. Revino la mine cand vei avea")
say("1.000.000 Yang la tine!")
say("")
say_reward(string.format("Ai nevoie de ", NEED_MONEY/10000))
say("")
npc.unlock()
return
end
say("Femeie batrana:")
say("Daca ai venit la mine inseamna ca vrei sa te casatoresti.")
say("Ai venit la locul potrivit, eu te pot ajuta sa te")
say("casatoresti cu persoana draga. Trebuie doar ca voi doi")
say("sa fiti siguri ca vreti sa faceti pasul urmator!")
say("Asadar... trebuie si eu sa stiu cum o cheama pe iubita ta.")
say("")
say_reward("Introdu numele ei aici:")
local sname = input()
if sname == "" then
say("Femeie batrana:")
say("Nu trebuie sa-ti fie frica de casatorie...")
say("Ea presupune iubirea dintre doi tineri indragostiti,")
say("dar daca te-ai razgandit inseamna ca poate nu a mers")
say("ceva bine intre voi...")
say("Revino cand veti fi siguri de ceea ce vreti sa faceti!")
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("Femeie batrana:")
say("Numele introdus nu este corect...")
say("Incearca din nou si ai grija sa numai greseti.")
say("")
say_reward(string.format("%s nume existent.", sname))
say("")
npc.unlock()
return
end
if not npc.is_near_vid(u_vid, 10) then
say("Femeie batrana:")
say("Persoana cu care doresti sa te casatoresti nu este")
say("aproape de tine. Pentru a putea organiza nunta cum")
say("trebuie, voi doi trebuie sa fiti constant impreuna.")
say("")
say_reward(string.format("%s este 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("Femeie batrana:")
say("Acesta este un nume gresit.")
say("")
say_reward("Adauga alt nume!")
say("")
npc.unlock()
return
end
if u_sex == m_sex then
say("Femeie batrana:")
say("Imi pare rau, dar eu nu pot permite casatoriile")
say(" intre persoane de acelasi sex.")
say("")
say_reward("Numai persoanele de sex diferit se pot casatori!")
say("")
npc.unlock()
return
end
if u_married then
say("Femeie batrana:")
say("Nu te grabi asa...")
say("Persoana cu care vrei sa te casatoresti,")
say("este deja luat de altcineva!")
say("")
say_reward(string.format("%s este casatorit!", sname))
say("")
npc.unlock()
return
end
if u_level < 25 then
say("Femeie batrana:")
say("Persoana cu care doresti sa te casatoresti,")
say("nu indeplineste cerintele cerute...")
say("")
say_reward("Trebuie sa aveti amandoi nivel 25 pentru")
say_reward("a va putea lasa sa va casatoriti!")
say("")
npc.unlock()
return
end
if m_level - u_level > 15 or u_level - m_level > 15 then
say("Femeie batrana:")
say("Diferenta de nivel este mult prea mare.")
say("Nu va puteti casatori deoarece trebuie sa")
say("aveti fiecare un grad de diferenta mai mic.")
say("")
say_reward("Persoanele cu mai mult de 15 nivele")
say_reward("diferenta nu se pot casatorii.")
say("")
npc.unlock()
return
end
if not u_has_ring then
if m_ring_num >= 2 then
say("Femeie batrana:")
say("Inainte de a va casatori aveti nevoie de un")
say("semn de dragoste cu voi.")
else
say("Femeie batrana:")
say("Amintestei persoanei iubite sa poarte")
say("un semn de dragoste la el!")
say("")
end
say_item("Ca un semn de iubire.", 70301, "")
say_reward("Si cealalta persoana trebuie, de asemenea,")
say_reward("sa poarte un semn de dragoste.")
say("")
npc.unlock()
return
end
if not u_wear then
say("Femeie batrana:")
say("Nu ai costumul de nunta pe tine...")
say("Ar fi cam jenant sa te casatoresti cu armura")
say("pe tine.")
say("Revino atunci cand vei avea costumul de nunta")
say("pe tine.")
say("")
if u_sex==0 then
say_item("Costum de mire", marriage_manage.get_wedding_dress(u_job), "")
say_reward("Asadar...")
say_reward("Iti lipseste costumul de nunta!")
else
say_item("Rochie de mireasa", marriage_manage.get_wedding_dress(u_job), "")
say_reward("Asadar...")
say_reward("Iti lipseste costumul de nunta!")
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("Femeie batrana:")
say("Acum suntem cu siguranta gata pentru a organiza")
say("nunta. Pentru a va putea impartasi sentimentele,")
say("veti fi trimisi la Menegerul de nunti.")
say("Eu acum nu va mai pot spune decat ca Dumnezeu")
say("sa va Binecuvanteze!")
say("")
say_reward("Va trimit acum la Menegerul de nunti!")
say("")
wait()
setskin(NOWINDOW)
marriage.engage_to(u_vid)
end
else
say("Femeie batrana:")
say("Din pacate partenerul tau numai vrea sa se")
say("casatoreasca cu tine...")
say("")
end
say("")
npc.unlock()
end
-- ?? ???? ???? ??? ??
when oldwoman.chat."Nunta" with pc.is_engaged() begin
say("Asadar...")
say("Partenerul tau se pare ca nu este din acelasi")
say("regat ca si tine. Imi pare rau dar nu pot continua!")
say("")
wait()
setskin(NOWINDOW)
marriage.warp_to_my_marriage_map()
end
when 9011.chat."Nunta" with pc.is_engaged() and marriage.in_my_wedding() begin
if not npc.lock() then
say("Asadar...")
say("Partenerul tau este deja casatorit sau face")
say("parte din alt regat...")
say("")
return
end
say("In cazul in care partenerul,")
say("face parte din alt regat, poate lua oricand")
say("Tinctura regatelor cel poate ajuta sa se")
say("mute in regatul din care faci tu parte.")
say("Sau daca este casatorit deja, el poate divorta")
say("oricand !")
local sname = input()
local u_vid = find_pc_by_name(sname)
local m_vid = pc.get_vid()
if u_vid == 0 then
say("Esti multe prea slabit pentru a te putea")
say("casatorii cu persoana dorita!")
say("")
say_reward(string.format("%s este prea slabit.", sname))
say("")
npc.unlock()
return
end
if not npc.is_near_vid(u_vid, 10) then
say("Asadar...")
say("Sexul tau trebuie sa fie diferit de persoana")
say("cu care vrei sa te casatoresti.")
say("")
say_reward(string.format("%s sa-si schimbe sexul.", sname))
say("")
npc.unlock()
return
end
if u_vid == m_vid then
say("Asadar....")
say("Sexul tau este la fel!")
say("")
say_reward("Casatoria intre doua persoane cu acelasi sex nu este permis!")
say("")
npc.unlock()
return
end
if u_vid != marriage.find_married_vid() then
say("Asadar...")
say("Partenerul tau nu este in apropierea ta.")
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("Asadar...")
say("Vrei sa te casatoresti.")
say("Asa sa fie!")
say("")
npc.unlock()
return
end
say("Cu aceasta ocazie primiti amandoi cate un")
say("inel de logodna cu care va veti putea teleporta")
say("unu la altu!")
say("")
marriage.set_to_marriage()
-- 2005.04.12.??? ?? ?? ??
-----------------------------------------------
-- say("Aici veti continua fara mine. Va urez")
-- say("mult succes!")
-- marriage_manage.give_wedding_gift()
-- old = pc.select(u_vid)
-- marriage_manage.give_wedding_gift()
-- pc.select(old)
say("")
say_reward("*Ai primit un inel de nunta!")
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
-- ??? ???? ?? ????? ?? ??
-- ?? pc.is_married() and marriage.in_my_wedding()
-- ??? ?? ??? ??? ?? ????
when 9011.chat."Muzica de nunta *PORNITA*" 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."Muzica de nunta *OPRITA*" 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."Schimbare timp zi/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."Opreste nunta" with pc.is_married() and marriage.in_my_wedding() begin
if not npc.lock() then
say_title("Planificator de nunti:")
say("Vreti sa terminati nunta acum?")
say("")
return
end
say_title("Planificator de nunti:")
say("Vreti cu adevarat sa terminati nunta?")
say("")
local s = select("Da","Nu")
if s == 1 then
local u_vid = marriage.find_married_vid()
if u_vid == 0 then
say("Pentru a putea opri nunta trebuie ca si")
say("partenerul tau sa fie de acord.")
say("")
npc.unlock()
return
end
say_title("Planificator de nunti:")
say("Pentru a putea opri nunta trebuie ca si")
say("partenerul tau sa fie de acord.")
say("Partenerul tau trebuie sa fie de acord.")
say("")
local ok_sign = confirm(u_vid, "Doresti sa opresti nunta?", 30)
if ok_sign == CONFIRM_OK then
marriage.end_wedding() -- ??? ???? ??? ??.
else
say_title("Oprire nunta:")
say("Partenerul tau nu este de acord cu oprirea nuntii.")
say("")
end
end
npc.unlock()
end
-- ??? ???? ???? ??? ??
when 11000.chat." Dosar de divort" or
11002.chat." Dosar de divort" or
11004.chat." Dosar de 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("Divortul este o treaba foarte serioasa. Daca doresti")
say("sa divortezi, aduti partenetul la Gardianul din centrul")
say("orasului. Numai el poate face asa ceva.")
say("")
return
end
say("Costul unui divort este de 500.000 Yang.")
say("De asemenea va trebuiesc si niste martori.")
say("")
say("Doriti sa divortati?")
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 verigheta.")
return;
end
if not u_have_ring then
say("De asemenea, si celalalta persoana trebuie")
say("sa aduca verigheta.")
return;
end
if not m_enough_money then
say("Nu aveti suficient Yang pentru a incepe divortul.")
say("")
say_reward(string.format("Costul unui divort este de %dvon", MONEY_NEED_FOR_ONE/10000))
say("")
return;
end
if not u_enough_money then
say("Cealalta persoana nu are suficient Yang...")
say("")
say_reward("Trebuie sa aveti amandoi cate 500.000 Yang")
say_reward("pentru a putea divorta.")
say("")
return;
end
say("Divortul este un lucru important si un lucru")
say("destul de dureros pentru unele persoane.")
say("Sper ca v-ati gandit bine la ceea ce vreti")
say("sa faceti mai departe.")
say("Doriti sa continuati?")
say("")
local c=select("Da", "Nu")
if 2 == c then
say_pc_name()
say("Asta este decizia mea daca vereau un")
say("divort sau nu.")
say("")
wait()
say("Asa sa fie...")
say("In scurt timp veti fi doua persoane libere.")
say("")
return
end
local ok_sign = confirm(u_vid, pc.name.." Doresti 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("Divortul s-a incheiat, iar acum sunteti")
say("doua persoane libere care totusi se vor")
say("putea bucura de viata lor.")
say("")
say_reward("Divortul a fost incheiat cu succes!")
say("")
marriage.remove()
else
say("A intervenit o problema. Divortul nu a")
say("putut fi finalizat. Incercati din nou.")
say("")
say_reward("Divortul nu a putut fi finalizat.")
say("")
end
else
say("Cealalta persoana nu este de acord. Daca nu")
say("vroiati sa divortati de ce ati mai venit la")
say("mine? Cu divortul nu este de gluma!")
say("")
say_reward("Divortul a fost anulat!")
say("")
end
end
end
when 11000.chat." Trimitemi verigheta" or
11002.chat." Trimitemi verigheta" or
11004.chat." Trimitemi verigheta" with
not pc.is_married() and
pc.count_item(70302)>0
begin
say("Nu va faceti griji, amintirile rele vor fi")
say("uitate in timp...")
say("")
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("Divortul unilateral costa 1.000.000 Yang.")
say("Doresti sa continui?")
say("")
local s = select("Da", "Este prea mult..")
local NEED_MONEY = 1000000
if s == 2 then
return
end
if pc.money < NEED_MONEY then
say("Nu ai suficient Yang pentru a incepe un")
say("divort unilateral. Nu este chiar asa de scump.")
say("Vino inapoi cand vei avea acesti bani...")
say("")
return
end
say("Doresti cu adevarat un divort unilateral?")
say("Gandestete bine!")
local c = select("Da,vreau!", "Nu, nu vreau!")
if c == 2 then
say("Decizia nu va apartine. Nu intotdeauna este")
say("decizia voastra... ai nevoie si de cealalta persoana.")
say_reward("Divortul a fost anulat!")
say("")
return
end
pc.removeitem(70302, 1)
pc.change_gold(-NEED_MONEY)
marriage.remove()
say("In acest moment esti divortat. Sper ca esti")
say("fericit acum.")
say("")
say_reward("Divortul a fost finalizat cu succes!")
say("")
end
-- ??? ?? ??
when oldwoman.chat."Lista de nunti" with not pc.is_engaged() begin
local t = marriage.get_wedding_list()
if table.getn(t) == 0 then
say("Momentan nu este nici o nunta in desfasurare.")
say("")
else
-- chat(table.getn(t))
local wedding_names = {}
table.foreachi(t, function(n, p) wedding_names[n] = p[3].."und "..p[4].." Hochzeit" 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("Planificator de nunti:")
say("Am venit cu totii aici pentru a celebra acest cuplu.")
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("Planificator de nunti:")
say("Aici aveti destul timp pentru a sarbatorii.")
say("Distractie placuta!")
say("")
return false
end
return true
end
-- ?? ??? ?? ???? ??? ??
-- ?? ?? : pc.is_engaged_or_married()
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
Instalare :
Cod: Selectaţi tot
cd /usr/rain/channel/share_data/locale/hongkong/quest
./qc casatorie.quest
Reboot la server sau /reload q si gata !
Acasa 
Ultimele imagini 