[Cerere]Quest Divort.
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
Afișează semnătura
http://www.inforge.net/xi/threads/quest ... est.383408
Uite aici tutorial complet
P.S: QUEST-UL:
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 endendAfișează semnătura
de 
de 
de 
de -
- Informaţie
-
Cine este conectat
Utilizatori ce ce navighează pe acest forum: Google [Bot] și 2 vizitatori