quest marriage_manage begin
state start begin
when oldwoman.chat."Evlenmek istiyorum" with not pc.is_engaged_or_married() begin
if not npc.lock() then
say_title("Yaşlı Kadın:")
say("")
say("Şu anda başka bir düğün var!")
say("Biraz bekle ya da sonra tekrar gel!")
return
end
if pc.level < 25 then
say_title("Yaşlı Kadın:")
say("")
say("Evlenmek için çok gençsin...")
say("Yeterli sorumluluğu kazanmalısın ve henüz")
say("hazır değilsin. Genç insanlar çabuk ayrılırlar.")
say("Bunu tasvip etmiyorum. Git ve")
say("biraz daha tecrübe kazan.")
say("")
say_title("Bilgi:")
say("")
say_reward("25.seviyeden sonra evlenebilirsin. ")
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_title("Yaşlı Kadın:")
say("")
say("Nikah yüzüğü olmadan mı evlenmek istiyorsun?")
say("")
say_item("Nikah yüzüğü ", 70302, "")
say("Önce, söz yüzüğü almalısın. Ancak ondan")
say("sonra evlenebilirsin. ")
say("")
npc.unlock()
return
end
local m_sex = pc.get_sex()
if not marriage_manage.is_equip_wedding_dress() then
say_title("Yaşlı Kadın:")
say("")
say("Bu sekilde evlenmek istediğine gerçekten")
say("emin misin? Hayatta sadece bir kere")
say("evleniyorsun, en azından buna uygun giyinmelisin.")
say("")
if m_sex==0 then
say_item("Smokin", marriage_manage.get_wedding_dress(pc.get_job()), "")
say_reward("Eğer evlenmek istiyorsan bir smokin ")
say_reward("giymelisin.")
else
say_item("Gelinlik", marriage_manage.get_wedding_dress(pc.get_job()), "")
say_reward("Eğer evlenmek istiyorsan gelinlik")
say_reward("giymelisin.")
end
say("")
npc.unlock()
return
end
local NEED_MONEY = 1000000
if pc.get_money() < NEED_MONEY then
say_title("Yaşlı Kadın:")
say("")
say("Biraz Yang'a ihtiyacın var. ")
say("Yeterli Yang'ın yok mu? Daha fazla Yang")
say("kazan, en az 1 Milyon. ")
say("")
say_reward(string.format(" %d Yang'a ihtiyacın var.", NEED_MONEY/10000))
say("")
npc.unlock()
return
end
say_title("Yaşlı Kadın:")
say("")
say("Şimdi yeterince olgunsun. ")
say("İyi görünüyorsun. Kiminle evlenmek istiyorsun?")
say("")
say_reward("Kişinin adını yaz. ")
local sname = input()
if sname == "" then
say_title("Yaşlı Kadın:")
say("")
say("Heyecanlı mısın ismi ")
say("yazamadın? Tekrar dene.")
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_title("Yaşlı Kadın:")
say("")
say("Adını bilmiyor musun?")
say("Hala kararlı mısın? ")
say("Evlenmek istediğine emin misin?")
say("")
say_reward(string.format("%s online değil.", sname))
say("")
npc.unlock()
return
end
if not npc.is_near_vid(u_vid, 10) then
say_title("Yaşlı Kadın:")
say("")
say("Eşin yakında olmak zorunda , isteğini ")
say("ancak o zaman kabul edebilirim. ")
say("Eşini buraya getir. ")
say("")
say_reward(string.format("%s çok uzakta.", 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_title("Yaşlı Kadın:")
say("")
say("Senin adın değil, eşinin adı. ")
say("")
say_reward("Eşinin adını yaz.")
say("")
npc.unlock()
return
end
if u_sex == m_sex then
say_title("Yaşlı Kadın:")
say("")
say("Özür dilerim.")
say("")
say("Aynı cinsteki bir insanla evlenemezsin.")
say("")
npc.unlock()
return
end
if u_married then
say_title("Yaşlı Kadın:")
say("")
say("Evlenmek istedigin kişi zaten evli ,")
say("bunu biliyor muydun?")
say("Yalnız birini bul.")
say("")
say_reward(string.format("%s evli.", sname))
say("")
npc.unlock()
return
end
if u_level < 25 then
say_title("Yaşlı Kadın:")
say("")
say("Kişi yeterince olgun değil. ")
say("Eşin de en az 25.seviyede olmalı.")
say("")
npc.unlock()
return
end
if m_level - u_level > 15 or u_level - m_level > 15 then
say_title("Yaşlı Kadın:")
say("")
say("Siz uyumlu bir çift değilsiniz.")
say("Bu evliliği onaylayamam.")
say("")
say("Seviye farkı 15'den fazla olmamalı,")
say("bu yüzden evlenemiyorsunuz.")
say("")
npc.unlock()
return
end
if not u_has_ring then
if m_ring_num >= 2 then
say_title("Yaşlı Kadın:")
say("")
say("şimdi yüzükleri değiştirin.")
say("")
else
say("Yaşlı Kadın:")
say("")
say("Evlilik hayatınızdaki en önemli karardır.")
say("En azından eşine nikah yüzüğü ")
say("getirmiş olmalısın.")
say("")
end
say_item("Nikah yüzüğü ", 70302, "")
say_title("Yaşlı Kadın:")
say("")
say("Eşinin de nikah yüzüğü olmalı.")
say("hazır mı?")
say("")
npc.unlock()
return
end
if not u_wear then
say_title("Yaşlı Kadın:")
say("")
say("Eşin evlilik kıyafetı giymemiş.")
say("Onunla burda durmaktan sıkılmıyor musun?")
say("Hmm?")
say("")
if u_sex==0 then
say_title("Yaşlı Kadın:")
say("")
say_item("Smokin ", marriage_manage.get_wedding_dress(u_job), "")
say("Eşinin Smokin giymesi")
say("gerekiyor.")
else
say_title("Yaşlı Kadın:")
say("")
say_item("Gelinlik", marriage_manage.get_wedding_dress(u_job), "")
say("Eşinin Gelinlik giymesi ")
say("gerekiyor.")
end
say("")
npc.unlock()
return
end
local ok_sign = confirm(u_vid, pc.name.."Evlenmek istiyor musun?", 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("Yaşlı Kadın:")
say("")
say("Peki...biz hazırız.")
say("Şimdi başlayabiliriz. Sizi Aşıklar")
say("Adasına göndereceğim. Umarım uzun ve")
say("mutlu bir evliliğiniz olur. Tebrikler..")
say("")
say("Daha sonra otomatik olarak Aşıklar Adası'na")
say("gönderileceksiniz.")
say("")
wait()
setskin(NOWINDOW)
marriage.engage_to(u_vid)
end
else
say_title("Yaşlı Kadın:")
say("")
say("Eşin seninle evlenmek istemiyor.")
say("Öncelikle bunu açıklığa kavuşturun. ")
say("")
end
say("")
npc.unlock()
end
when oldwoman.chat."Nikah salonuna geri dön." with pc.is_engaged() begin
say_title("Yaşlı Kadın:")
say("")
say("Neden hala burdasın? ")
say("Eşin seni ariyor. ")
say("Seni oraya göndereceğim. ")
say("")
wait()
setskin(NOWINDOW)
marriage.warp_to_my_marriage_map()
end
when 9011.chat."Evlilik için izin" with pc.is_engaged() and marriage.in_my_wedding() begin
if not npc.lock() then
say_title("Nikah Memuru:")
say("")
say("Eşinle konuşuyorum. Biraz bekle. ")
say("")
return
end
say_title("Nikah Memuru:")
say("")
say("Ben bir evlilik asistanıyım.")
say("ilk olarak eşinin ismini")
say("yaz.")
local sname = input()
local u_vid = find_pc_by_name(sname)
local m_vid = pc.get_vid()
if u_vid == 0 then
say_title("Nikah Memuru:")
say("")
say("Böyle bir isim kayıtlı değil, ")
say("Yazdığını tekrar gözden geçir. ")
say("")
say_reward(string.format("%s online değil.", sname))
say("")
npc.unlock()
return
end
if not npc.is_near_vid(u_vid, 10) then
say_title("Nikah Memuru:")
say("")
say("Özür dilerim. Eşini buraya getir,")
say("Onu bilgilendirmeli ve")
say("incelemeliyim.")
say("")
say_reward(string.format("%s burada olmalı.", sname))
say("")
npc.unlock()
return
end
if u_vid == m_vid then
say_title("Nikah Memuru:")
say("")
say("Lütfen kendi adını yazma. ")
say("")
say("Eşinin adını yazmalısın.")
say("")
npc.unlock()
return
end
if u_vid != marriage.find_married_vid() then
say_title("Nikah Memuru:")
say("")
say("Bir şeyler yanlış. Bu doğru insan değil.")
say("Kontrol ettin mi?")
say("")
npc.unlock()
return
end
local ok_sign = confirm(u_vid, pc.name.."Evlenmek istiyor musun?", 30)
if ok_sign != CONFIRM_OK then
say_title("Nikah Memuru:")
say("")
say("Eşin evlilik için hazır değil.")
say("Birbirinizle konuşun.")
say("")
npc.unlock()
return
end
say_title("Nikah Memuru:")
say("")
say("Şimdi her şey uygun, başlayabiliriz.")
marriage.set_to_marriage()
say("")
say("Güzel bir düğündü.")
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
when 9011.chat."Düğün marşını çal" 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."Düğünü marşını durdur" 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."Gece efekti" with
pc.is_married() and
marriage.in_my_wedding() begin
marriage.wedding_dark(true)
setskin(NOWINDOW)
end
when 9011.chat."Kar yağdır" with pc.is_married() and marriage.in_my_wedding() begin
marriage.wedding_snow(true)
setskin(NOWINDOW)
end
when 9011.chat."Düğünü bitir" with pc.is_married() and marriage.in_my_wedding() begin
if not npc.lock() then
say_title("Nikah Memuru:")
say("")
say("Biraz bekle, Eşinle konuşuyorum.")
say("")
return
end
say_title("Nikah Memuru:")
say("")
say("Düğünü bitirmek istiyor musun?")
say("")
local s = select("Evet","Hayır")
if s == 1 then
local u_vid = marriage.find_married_vid()
if u_vid == 0 then
say_title("Nikah Memuru:")
say("")
say("Eşinin düğüne devam etmeyi kabul etmesi gerekli.")
say("")
say("düğün devam edemiyor çünkü eşin")
say("online değil.")
say("")
npc.unlock()
return
end
say_title("Nikah Memuru:")
say("")
say("Eşinin onayı için beklemeliyiz.")
say("Henüz cevabı almadık.")
say("")
local ok_sign = confirm(u_vid, "düğüne devam etmek istiyor musun? ", 30)
if ok_sign == CONFIRM_OK then
marriage.end_wedding()
else
say_title("Nikah Memuru:")
say("")
say("Eşin onaylamadı!")
say("")
end
npc.unlock()
end
end
when 11000.chat."Bosanma " or
11002.chat."Bosanma " or
11004.chat."Bosanma " 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("Köy Gardiyanı:")
say("")
say("Bir eşin olmadan boşanamazsın.")
say("")
return
end
say_title("Köy Gardiyanı:")
say("")
say("Yasal bir ayrılık için")
say("500.000 Yang ve eşinin")
say("onayı gerekli.")
say("Gerçekten boşanmak istiyor musun? ")
say("")
local MONEY_NEED_FOR_ONE = 500000
local s = select("Evet", "Hayır")
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("Nikah yüzüğünü getir.")
return;
end
if not u_have_ring then
say("Eşinin nikah yüzüğü yanında değil.")
return;
end
if not m_enough_money then
say_title("Köy Gardiyanı:")
say("")
say("Bosanmak için yeterli Yang'a sahip değilsin.")
say("")
say_reward(string.format("Boşanmak için %d Yang gerekli.", MONEY_NEED_FOR_ONE/10000))
say("")
return;
end
if not u_enough_money then
say_title("Köy Gardiyanı:")
say("")
say("Boşanmak için yeterli Yang'a sahip değilsin.")
say("")
say_reward("Boşanmak için 500.000 Yang'a ihtiyacın var.")
say("")
return;
end
say_title("Köy Gardiyanı:")
say("")
say("Gerçekten bosanmak istiyor musun? Bu çok büyük")
say("bir hata olabilir.")
say("")
say("Gerçekten istiyor musun?")
say("")
local c=select("Evet", "Hayır")
if 2 == c then
say_pc_name()
say("")
say("Fikrimi değiştirdim.")
say("Bosanmak istemiyorum.")
say("")
wait()
say_title("Köy Gardiyanı:")
say("")
say("Umarım huzurlu ve uzun bir evliliğiniz olur.")
say("")
say_reward("Boşanma gerçekleşmedi.")
say("")
return
end
local ok_sign = confirm(u_vid, pc.name.."Boşanmak istediğine emin misin?", 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("Köy Gardiyanı:")
say("")
say("Eşinden ayrıldın. Artık evli değilsin.")
say("Belki de doğru olan budur. Belki de")
say("mutluluğu böyle bulursun.")
say("")
say_reward("Boşanma gerçekleşti.")
say("")
marriage.remove()
else
say_title("Köy Gardiyanı:")
say("")
say("Evraklarınız tam değil.")
say("Lütfen sonra tekrar gelin.")
say("")
say_reward("Boşanma iptal edildi.")
say("")
end
else
say_title("Köy Gardiyanı:")
say("")
say("Eşiniz bosanmak istemiyor.")
say("Önce anlaşma sağlayın.")
say("")
say_reward("Boşanma iptal edildi.")
say("")
end
end
end
when 11000.chat."Nikah Yüzüğü Silindi" or
11002.chat."Nikah Yüzüğü Silindi" or
11004.chat."Nikah Yüzüğü Silindi" with
not pc.is_married() and
pc.count_item(70302)>0
begin
say_title("Köy Gardiyanı:")
say("")
say("Kötü hatıraları bir an önce ")
say("unutmalısın.")
say("")
say_reward("Nikah yüzüğü silindi.")
pc.remove_item(70302)
end
when 11000.chat."Tek taraflı boşanma" or
11002.chat."Tek taraflı boşanma" or
11004.chat."Tek taraflı boşanma" with pc.is_married() begin
if not marriage_manage.check_divorce_time() then
return
end
say_title("Köy Gardiyanı:")
say("")
say("Tek taraflı boşanma için 1 milyona ihtiyacın var.")
say("Boşanmak istiyor musun?")
say("")
local s = select("Evet", "Hayır")
local NEED_MONEY = 1000000
if s == 2 then
return
end
if pc.money < NEED_MONEY then
say_title("Köy Gardiyanı:")
say("")
say("Boşanmak için yeterli Yang yok.")
say("")
return
end
say_title("Köy Gardiyanı:")
say("Bir yuva kurmak kolay değildir. Gerçekten emin")
say("olmadan böyle büyük bir karar vermemelisin.")
say("Gerçekten boşanmak istiyor musun?")
local c = select("Evet ,istiyorum.","Tekrar düşünmeliyim.")
if c == 2 then
say_title("Köy Gardiyanı:")
say("")
say("Bu daha iyi.")
say("Eğer bunu gerçekten istersen, sonra tekrar gel.")
say("")
return
end
pc.removeitem(70302, 1)
pc.change_gold(-NEED_MONEY)
marriage.remove()
say_title("Köy Gardiyanı:")
say("")
say("Peki tamam.")
say("Umarım doğru olanı yapıyorsundur!")
say("")
say_reward("Tek taraflı boşanma gerçekleşti.")
say("")
end
when oldwoman.chat."Evlilik töreni listesi" with not pc.is_engaged() begin
local t = marriage.get_wedding_list()
if table.getn(t) == 0 then
say_title("Yaşlı Kadın:")
say("")
say("Şu an devam eden nikah töreni yok.")
say("")
else
-- chat(table.getn(t))
local wedding_names = {}
table.foreachi(t, function(n, p) wedding_names[n] = p[3].."ile"..p[4].."evleniyor." 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("Nikah Memuru:")
say("")
say("Bu sizin düğününüz!")
say("iyi eğlenceler.")
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("Köy Gardiyanı:")
say("")
say("Daha imzandaki mürekkep yeterince kurumadı!")
say("Kendine biraz zaman ver.")
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
end
end
![[DEV]AB](/data/avatars/s/2135/2135420.jpg?1657747839){kind=avatar}
