Questul se adauga in : /usr/game/share/locale/romania/quest , dupa adaugare ii dati permisiuni 777.
Acum intrati in PuTTY , va conectati si scrieti : cd /usr/game/share/locale/romania/quest
In loc de "numequest" puneti numele pe care i l-ati pus voi la quest.
Intrati in joc si dati /reload q .
Acum cand dati war cu o breasla veti avea un quest care va duce in arena de lupta.
Code:
quest marriage_manage begin
state start begin
when 9006.chat."Vreau sa ma casatoresc" with not pc.is_engaged_or_married() begin
if not npc.lock() then
say("No Seara")
say("Chiar vrei sa te casatoresti??")
return
end
if pc.level < 25 then
say("Ei bine...")
say("Imi pare rau...dar am sa iti dau..")
say("O veste proasta,")
say("Daca nu ai experienta")
say("necesare nu prea ")
say("te poti casatori.")
say("")
say_reward("Trebuie sa ai minim Level 25 ca sa te casatoresti.")
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 iti...")
say("Lipseste un lucru..")
say("")
say_item("Inel de logodna", 70301, "")
say_reward("Fara acesta nu te poti casatori.")
say("")
npc.unlock()
return
end
local m_sex = pc.get_sex()
if not marriage_manage.is_equip_wedding_dress() then
say("Ei bine....")
say("Nu crezi ca iti lipseste ceva?")
say("Nu prea aveti costume de nunta!")
say("")
say("")
if m_sex==0 then
say_item("Imbracaminte", marriage_manage.get_wedding_dress(pc.get_job()), "")
say_reward("")
say_reward("Nu ai costumatia potrivita!")
else
say_item("Imbracaminte", marriage_manage.get_wedding_dress(pc.get_job()), "")
say_reward("")
say_reward("Nu ai costumatia potrivita !")
end
say("")
npc.unlock()
return
end
local NEED_MONEY = 1000000
if pc.get_money() < NEED_MONEY then
say("Ei bine...")
say("Ca sa te poti casatori iti mai..")
say("Trebuie si ceva banisori")
say("")
say("In jur de 1.000.000 Yang .")
say("")
say_reward(string.format("????B?O????*n %d?U??", NEED_MONEY/10000))
say("")
npc.unlock()
return
end
say("Babuta:")
say("Ei bine acum ")
say("poate va pot casatori.")
say("Cu cine vrei sa te casatoresti?")
say("")
say_reward("Te rog sa introduci numele:")
local sname = input()
if sname == "" then
say("Babuta:")
say("Ca sa te casatoresti")
say("Trebuie sa fiti amandoi")
say("De acord..veniti la mine")
say("cand o sa fiti de acord amandoi.")
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("Babuta:")
say("Tu ii stii numele?")
say("Ei bine vina inapoi")
say("atunci cand ii vei sti numele bine.")
say("")
say_reward(string.format("%s nume asemanator", sname))
say("")
npc.unlock()
return
end
if not npc.is_near_vid(u_vid, 10) then
say("Babuta:")
say("Persoana cu care te vei casatori")
say("Trebuei sa fie langa tine.")
say("Du-te si cauta persoana")
say("aceea si vina inapoi.")
say("")
say_reward(string.format("%s este la distanta", 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("Babuta:")
say("ASta este numele tau.")
say("")
say_reward("Nu te poti casatori cutine insuti.")
say("")
npc.unlock()
return
end
if u_married then
say("Babuta:")
say("Apropo tu nu stiai ca")
say("Aceasta persoana este casatorita?")
say("Nu prea te intereseaza nu?.")
say("")
say_reward(string.format("%s este casatorit/a.", sname))
say("")
npc.unlock()
return
end
if u_level < 25 then
say("Babuta:")
say("Persoana este prea tanara.")
say("")
say("")
say("")
say_reward("Persoana respectiva trebui sa aibe")
say_reward("minim level 25 ca sa te poti casatori.")
say("")
npc.unlock()
return
end
if m_level - u_level > 15 or u_level - m_level > 15 then
say("Babuta:")
say("DIferenta de Level este prea mare.")
say("")
say("Nu pot permite asa ceva.")
say("")
say_reward("Caracterele cu 15 level diferenta ")
say_reward("Intre ei nu se pot casatori.")
say("")
npc.unlock()
return
end
if not u_has_ring then
if m_ring_num >= 2 then
say("Babuta:")
say("Pentru a va putea casatori")
say("Trebuie sa va iubiti.")
say("")
say("")
else
say("Babuta:")
say("")
say("Iubiti-va si apoi casatorti-va")
say("")
end
say_item("Ca semn al dragostei voastre.", 70301, "")
say_reward("Si cealalta persoana trebuie")
say_reward("sa poate un semn al iubirii voastre.")
say("")
npc.unlock()
return
end
if not u_wear then
say("Babuta:")
say("Tu nu ai costum de nunta.")
say("Ar fi jenant sa te casatoresti")
say("cu o armura.")
say("Vino inapoi la mine")
say("cand vei avea un costum.")
say("")
if u_sex==0 then
say_item("Imbracaminte", marriage_manage.get_wedding_dress(u_job), "")
say_reward("Trebuie sa ai imbracamintea necesara")
say_reward("")
else
say_item("Imbracaminte", marriage_manage.get_wedding_dress(u_job), "")
say_reward("Trebuie sa ai imbracamintea necesara")
say_reward("")
end
say("")
npc.unlock()
return
end
local ok_sign = confirm( u_vid, "Doresti sa se casatoreasca"..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("Babuta:")
say("Acum sunteti gata de nunta")
say("Nunta va avea loc pe")
say("")
say(" INSULA DRAGOSTEI")
say("")
say("")
say("")
say_reward("Veti fi teleportati acum")
say_reward("Pe Insula Iubirii.")
say("")
wait()
setskin(NOWINDOW)
marriage.engage_to(u_vid)
end
else
say("Babuta:")
say("Partenerul tau vrea sa se casatoreasca cu tine.")
say("O conversatie o sa va ajute")
say("cu adevarat.")
say("")
say_reward("Partenerul tau a refuzat,")
say_reward("sa se casatoreasca.")
end
say("")
npc.unlock()
end
-- ?? ???? ???? ??? ??
when 9006.chat."Nunta" with pc.is_engaged() begin
say("Ei bine.")
say("Sotul nu este")
say("in taramul tau!!!")
say("")
wait()
setskin(NOWINDOW)
marriage.warp_to_my_marriage_map()
end
when 9011.chat."Recunoasterea Casatoriei" with pc.is_engaged() and marriage.in_my_wedding() begin
if not npc.lock() then
say("Ei bine..")
say("Partenerul tau este fie casatorit")
say("sau este pe alt taram!")
say("")
return
end
say("Pentru a va putea casatori")
say("El trebuie sa isi mute regatul")
say("Exact unde esti tu.")
say("Acest lucru se poate face cu:")
say("Tinctura Regatelor.")
local sname = input()
local u_vid = find_pc_by_name(sname)
local m_vid = pc.get_vid()
if u_vid == 0 then
say("Esti prea")
say("mic ca sa te poti casatori")
say("cu partenerul tau...")
say("")
say_reward(string.format("%s Paralel cu", sname))
say("")
npc.unlock()
return
end
if not npc.is_near_vid(u_vid, 10) then
say("Ei bine..")
say("O casatorie intre aceleasi")
say("sexe nu este posibil.")
say("")
say("")
say_reward(string.format("%s trebuie sa se schimbe", sname))
say("")
npc.unlock()
return
end
if u_vid != marriage.find_married_vid() then
say("Ei bine...")
say("Sotul tau nu este")
say("Aproape de tine!")
say("")
npc.unlock()
return
end
local ok_sign = confirm(u_vid, "Doresti sa te casatoresti cu "..pc.name.. "??", 30)
if ok_sign != CONFIRM_OK then
say("Ei bine...")
say("Vrei sa te casatoresti...")
say("Asa sa fie!")
say("")
npc.unlock()
return
end
say("Aveti")
say("acest inel de casatorie!")
say("")
marriage.set_to_marriage()
-- 2005.04.12.??? ?? ?? ??
-----------------------------------------------
-- say("Va doresc mult succes")
-- say("")
-- 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" 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." Oprire Muzica de nunta" 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 ZI/NOAPTE" with
pc.is_married() and
marriage.in_my_wedding() begin
marriage.wedding_dark(true)
setskin(NOWINDOW)
end
when 9011.chat."Ninsoare" 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("Organizator Nunta:")
say("Vrei sa inchei nunta acum?")
say("")
return
end
say("Organizator Nunta:")
say("Doreste sa inchei nunta acum?")
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 se incheia nunta")
say("trebuie sa fie de acord si partenerul tau.")
say("")
say("")
say("")
npc.unlock()
return
end
say("Organizator Nunta:")
say("Pentru a se incheia nunta")
say("trebuie sa fie de acord si partenerul tau.")
say("Eu astept raspunsul...")
say("")
local ok_sign = confirm(u_vid, "Vrei sa incheie nunta?", 30)
if ok_sign == CONFIRM_OK then
marriage.end_wedding() -- ??? ???? ??? ??.
else
say("Organizator Nunta:")
say("Partenerul nu este de acord.")
say("")
end
end
npc.unlock()
end
-- ??? ???? ???? ??? ??
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
-- ??? ?? ??
when 9006.chat."Lista de nunti" with not pc.is_engaged() begin
local t = marriage.get_wedding_list()
if table.getn(t) == 0 then
say("In acest moment nu exista nunti.")
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("Organizator Nunta:")
say("Va aflati azi aici,")
say("pentru a va uni sufletele")
say("si a trai fericiti pana la")
say("Adanciii Batraneti.")
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 Nuntii:")
say("Astazi este sarbatoare!!!")
say("Toata lumea este aici!")
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