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

Cod: Selectaţi tot

quest NAME_Depozit begin
    state start begin
    when 9005.click begin   
    if pc.getqf("pw")==0 then
    say_title("Depozit")
    say("Buna strainule,")
    say("Eu iti vin in ajutorul tau")
    say("Pot sa te ajut prin colectionarea")
    say("Itemelor tale doar cu")
    say("500 Yang.")
    say_reward("Vrei sa platesti aceasta suma?")
    local s=select("Platesc", "Sunt Chitra")
    if s==2 then
    return
    end
    if pc.get_gold()<500 then
    say_title("Depozit")
    say("Ai prea multi Yang")
    return
    end
    say_title("Depozit")
    say("Ai creat cu succes un depozit")
    say("Acum poti sa il umplii cu iteme.")
    say_reward("Parola de la depozit este 000000")
    pc.change_gold(-500)
    game.set_safebox_level(1)
    pc.setqf("pw", 1)
    elseif pc.getqf("pw")==1 then
    say_title("Depozit")
    say("Ce pot face eu pentru tine?")
    local f = select("Deschide Depozit", "Cumpara Lingouri", "Deschide Item Shop", "Iesire")
    if f == 1 then
    game.open_safebox()
    setskin(NOWINDOW)
    elseif f == 2 then   
    npc.open_shop()
    setskin(NOWINDOW)   
    elseif f == 3 then
    game.open_mall()
    setskin(NOWINDOW)
    end
    end
    end
    end
    end

Cod: Selectaţi tot

-------------------------------------------------------------------
    ---  Quest realizat de Donici Cãtãlin @ Just4Metin.ro  ----
    -------------------------------------------------------------------
    quest depozit begin
       state start begin
          when login begin
             send_letter("Depozit Portabil")
          end
          when info or button begin
             say_title("Depozit Portabil:")
                say_verde("Vrei sã deschizi depozitul?")
                say("")
                local a= select("Da","Nu")
            if 1==a then
                game.open_safebox()
             send_letter("Depozit Portabil")
            elseif 2==a then
             send_letter("Depozit Portabil")
          end
       end
    end
    end

Cod: Selectaţi tot

quest teleporters begin
       state start begin
          when 70007.use begin
             local x
             local y
             local t
             local e = pc.get_empire()
             say_title("Teleporter:")
             say("Incotro vrei sa mergi straine?")
             local s = select("Map1", "Map2", "Valea Orcilor", "Desert", "Sohan", "Tara de foc", "Urmatoarele", "Inchide")
             if s==7 then
                say_title("Teleporter:")
                say("Incotro vrei sa mergi straine?")
                local p = select("Turnul Demonilor", "V1", "Padurea Fantomelor", "Padurea Rosie", "Tara Gigantilor", "Grota Exilului", "Inchide")
                if p==1 then
                   x="590400"
                   y="110500"
                elseif p==2 then
                   x="91900"
                   y="525400"
                elseif p==3 then
                   x="289000"
                   y="5800"
                elseif p==4 then
                   say_title("Teleporter")
                   say("Incotro vrei sa mergi straine?")
                   t = select("Inceput", "Sfarsit", "Inchide")
                   if t==1 then
                      x="1119900"
                      y="70800"
                   elseif t==2 then
                      x="1119200"
                      y="7000"
                   end
                elseif p==5 then
                   x="828100"
                   y="763400"
                elseif p==6 then
                   x="284200"
                   y="809600"
                end
             elseif s==1 then
                say_title("Teleporter")
                say("Incotro vrei sa mergi straine?")
                t = select("Regatul Rosu", "Regatul Galben", "Regatul Albastru","Inchide")
                if t==1 then
                   x="473900"
                   y="954600"
                elseif t==2 then
                   x="63200"
                   y="166700"
                elseif t==3 then
                   x="959600"
                   y="269700"
                end
             elseif s==2 then
                say_title("Teleporter:")
                say("Incotro vrei sa mergi straine?")
                t = select("Regatul Rosu", "Regatul Galben", "Regatul Albastru", "Inchide")
                if t==1 then
                   x="352300"
                   y="882700"
                elseif t==2 then
                   x="145700"
                   y="239800"
                elseif t==3 then
                   x="863800"
                   y="246000"
                end
             elseif s==3 then
                say_title("Teleporter:")
                say("Incotro vrei sa mergi straine?")
                t = select("Inceput", "Centru", "Arahani", "Inchide")
                if t==1 then
                   if e==1 then
                      x="402100"
                      y="673900"                  
                   elseif e==2 then
                      x="270400"
                      y="739900"
                   elseif e==3 then
                      x="321300"
                      y="808000"
                   end
                elseif t==2 then
                   x="332700"
                   y="745600"
                elseif t==3 then
                   x="282800"
                   y="792800"
                end
             elseif s==4 then
                say_title("Teleporter:")
                say("Incotro vrei sa mergi straine?")
                t = select("Inceput", "Sfarsit", "Inchide")
                if t==1 then
                   if e==1 then
                      x="217800"
                      y="627200"                  
                   elseif e==2 then
                      x="221900"
                      y="502700"
                   elseif e==3 then
                      x="344000"
                      y="502500"
                   end
                elseif t==2 then
                   x="296300"
                   y="547500"
                end
             elseif s==5 then
                say_title("Teleporter")
                say("Incotro vrei sa mergi straine?")
                t = select("Inceput", "Mijloc", "Inchide")
                if t==1 then
                   if e==1 then
                      x="434200"
                      y="290600"                  
                   elseif e==2 then
                      x="375200"
                      y="174900"
                   elseif e==3 then
                      x="491800"
                      y="173600"
                   end
                elseif t==2 then
                   x="436200"
                   y="215300"
                end         
             elseif s==6 then
                say_title("Teleporter:")
                say("Incotro vrei sa mergi straine?")
                t = select("Inceput", "Inchide")
                if t==1 then
                   if e==1 then
                      x="599400"
                      y="756300"                  
                   elseif e==2 then
                      x="597800"
                      y="622200"
                   elseif e==3 then
                      x="730700"
                      y="689800"
                   end
                elseif t==2 then
                   return
                end
             end         
             if s!=8 or p!= 7 then
                pc.warp(x, y)
             end
          end
       end
    end