Bulundu Düzgün Çalışan Şeytan Kulesi ve Catacomb Aranıyor

damador demiş ki:

Ava2 filesindeki questleri kullanabilirsin geri donus grup bireysel giriside var
sourceden bikac eklenti eklemen lazim

Hepsini görmek için tıklayın...

damador demiş ki:

şeytan kulesi:

quest seytan_kulesi begin
    state start begin
        when login begin
            if pc.get_map_index() == 66 then
                if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
                    pc.warp(590500, 110500)
                end
                pc.set_warp_location(65, 5905, 1105)
            elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
                pc.set_warp_location(65, 5905, 1105)              
                seytan_kulesi.register_player(pc.get_vid())
            end
        end

    when logout begin
        if pc.count_item(30300) >= 1 then
            pc.remove_item(30300, pc.count_item(30300))
        end
        if pc.count_item(30302) >= 1 then
            pc.remove_item(30302, pc.count_item(30302))
        end              
        if pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
            seytan_kulesi.unregister_player(pc.get_vid())      
        end
    end
    when 20348.chat."Şeytan Kulesi Bekçisi " begin
        if pc.get_level() < 40 then
            say_title("Şeytan Kulesi Bekçisi:")
            say_kirmizi("Cesaretini takdir ediyorum fakat")
            say_kirmizi("kuleye girebilmek için en az")
            say_kirmizi("40.seviye olman gerekmektedir.")
            return
        end
        if not party.is_party() then
            say_title("Şeytan Kulesi Bekçisi:")
            say_kirmizi("Cesaretini takdir ediyorum fakat")
            say_kirmizi("grubun olmadan giriş talebi yapamazsın.")
            return
        end
        if not party.is_leader() then
            say_title("Şeytan Kulesi Bekçisi:")
            say_kirmizi("Cesaretini takdir ediyorum fakat")
            say_kirmizi("yalnızca grup lideri giriş talebi yapabilir.")
            return
        end
            say_title("Şeytan Kulesi Bekçisi:")
            say_yesil("Grubunla Şeytan Kulesine giriş yapacaksın.")
            say_kirmizi("Unutma; girdiğiniz alan sadece grubunuza aittir.")
            say_yesil("Şeytan kulesine şimdi girmek istiyor musun?")
            local s = select("Evet ","Hayır ")
                if s == 1 then
                    local idx = 66
                    local x = 2165
                    local y = 7270
                    d.new_jump_party(idx , x, y)
                    d.regen_file("data/dungeon/deviltower1_regen.txt")
                end
        end
        when kill with npc.get_race() == 8015 begin
            notice_in_map("Dayanıklılık metni yok edildi, 2.kata ışınlanıyorsunuz..")
            timer("devil_stone1_1", 5)
        end
        when devil_stone1_1.timer begin
            d.new_jump_party(66, special.devil_tower[1][1], special.devil_tower[1][2])
            d.regen_file("data/dungeon/deviltower2_regen.txt")
            d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
        end
        when kill with npc.get_race() == 1091 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
            d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
            d.check_eliminated()
        end
        function get_4floor_stone_pos()
        local positions =
            {
                {368, 629}, {419, 630}, {428, 653}, {422, 679},
                {395, 689}, {369, 679}, {361, 658},
            }
            for i = 1, 6 do
                local j = number(i, 7)
                if i != j then
                    local t = positions[i];
                    positions[i] = positions[j];
                    positions[j] = t;
                end
            end
            return positions
        end
         when kill with npc.get_race() == 8016 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
            d.setf("level", 4)
            local positions = seytan_kulesi.get_4floor_stone_pos()
            for i = 1, 6 do
                d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
            end
            local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
            d.set_unique("real", vid)
        server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
        server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

            notice_in_map("Gözlerini ve kulaklarını aldatacak bir çok sahte");
            notice_in_map("Metin Taşı mevcut. 15 dakika içerisinde");
            notice_in_map("gerçek Metin Taşı'nı bul ve yok et!");
            notice_in_map("Kapıdan geçmenin tek yolu budur.");
            notice_in_map("Bulunduğunuz bölge Şeytan Kulesi 4.Kat ")
        end

        when devil_stone4_fail1.server_timer begin
            if d.select(get_server_timer_arg()) then
               notice_in_map("10 dakika kaldı ")
        server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone4_fail2.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("5 dakika kaldı ")
        server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone4_fail.server_timer begin
            if d.select(get_server_timer_arg()) and d.getf("level") == 4 then
               notice_in_map("Zaman doldu! ")
                d.exit_all()
            end
        end

        when devil_stone4_update.server_timer begin
            if d.select(get_server_timer_arg()) then
                if not d.is_unique_dead("real") then
                    for i = 1, 6 do
                        if d.getf("fakedead" .. i) == 0 then
                            if d.unique_get_hp_perc("fake" .. i) < 50 then
                                d.purge_unique("fake" .. i)
                                d.setf("fakedead" .. i, 1)
                               notice_in_map("Sahte Metin taşları yok oldu...");
                            end
                        end
                    end
                else
                    server_timer("devil_stone4_end", 5, get_server_timer_arg())
                   
                    notice_in_map("Mükemmel bir duyma yeteneğine ve iyi bir");
                    notice_in_map("içgüdüye sahip olduğunu kanıtlayarak");
                    notice_in_map("gerçek Metin Taşı'nı yok ettin!");
                    notice_in_map("Şimdi 5.kata gireceksin.")
                    d.purge()
                end
            else
        server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
            end
        end

        when devil_stone4_stop_timer.server_timer begin
        clear_server_timer('devil_stone4_update', get_server_timer_arg())
        end

        when devil_stone4_end.server_timer begin
            if d.select(get_server_timer_arg()) then
            clear_server_timer('devil_stone4_update', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail', get_server_timer_arg())

                d.setf("level", 5)
                d.setf("stone_count", 5)
               
                d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
                notice_in_map("Bir sonraki kata")
                notice_in_map("çıkmak için beş Eski Mühür'ü açman gerek.")
                notice_in_map("2 Dakika arayla metin yenilenir.")
                notice_in_map("Metni yok ederek mühür elde edebilirsin.")
                notice_in_map("Süre: 20 dakika!")
                notice_in_map("Bulunduğunuz bölge Şeytan Kulesi 5.Kat ")
               
        server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
        clear_server_timer('devil_stone4_update', get_server_timer_arg())

                d.set_regen_file("data/dungeon/deviltower5_regen.txt")

                d.spawn_mob(20073, 421, 452)
                d.spawn_mob(20073, 380, 460)
                d.spawn_mob(20073, 428, 414)
                d.spawn_mob(20073, 398, 392)
                d.spawn_mob(20073, 359, 426)
            end
        end
        when devil_stone5_fail1.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("15 dakika kaldı ")
        server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone5_fail2.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("10 dakika kaldı ")
        server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone5_fail3.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("5 dakika kaldı ")
        server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone5_fail.server_timer begin
            if d.select(get_server_timer_arg()) and d.getf("level") == 5 then
        notice_in_map("Zaman doldu!")
        d.exit_all()
            end
        end

        when devil_stone5.take with item.vnum == 50084 begin
            npc.purge()
            item.remove()
            d.setf("stone_count", d.getf("stone_count") - 1)
            if d.getf("stone_count") <= 0 then
                d.clear_regen()
                d.kill_all()
                   notice_in_map("Tüm mühürleri açtın ve artık 5.kata")
                notice_in_map("girebilirsin. Bu katta Kibirli Şeytan Kralı da")
                notice_in_map("var. 6. kattaki tüm canavarları öldür.")
        clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail', get_server_timer_arg())
       
                d.setf("level", 6)
                d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
        d.regen_file("data/dungeon/deviltower6_regen.txt")
       

            else
                notice_in_map("Mührü açtın! "..d.getf("stone_count").." kaldı.")
            end
        end

        when devil_stone6.kill begin
            timer("devil_jump_7",6)
            d.kill_all()
            d.check_eliminated()
        end

 
       
   when devil_jump_7.timer begin
        d.clear_regen()

        d.spawn_mob(8018, 639, 658)
        d.spawn_mob(8018, 611, 637)
        d.spawn_mob(8018, 596, 674)
        d.spawn_mob(8018, 629, 670)

        d.setf("level", 7)

        d.jump_all(2048+590, 6656+638)
    end
   
     when kill with npc.get_race() == 8018 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        local cont = d.getf("7_stone_kill") + 1
        d.setf("7_stone_kill", cont)

        if cont >= 4 then
            d.setf("7_stone_kill", 0)
            d.set_regen_file("data/dungeon/deviltower7_regen.txt")
        end
    end

     when kill with npc.get_race() == 8019 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        game.drop_item(30300, 1)
    end

    when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        pc.remove_item("30300", 1)

        local pct = number(1,1)

        if pct == 1 then
            game.drop_item(30302, 1)
            d.clear_regen()
           
        end
    end

    when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

            if d.getf( "level" ) != 7 then
                pc.remove_item( "30302", 1)
                return
            end
           
        say_title("Bilgi:")
        say("Haritayı buldun. Üst kata geçiyorsun.")
        say("İyi şanslar.")
        pc.remove_item("30302", 1)
        timer("devil_jump_8", 6)
        d.clear_regen()
    end
                       
    when devil_jump_8.timer begin
        d.setf("level", 8)
        d.jump_all(2048+590, 6656+403)
        d.set_regen_file("data/dungeon/deviltower8_regen.txt")
        d.spawn_mob(20366, 640, 460)
        local _count = pc.count_item(30302)
        pc.remove_item(30302,_count)
       
    end

     when kill with npc.get_race() == 1040 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        if d.getf("level") < 9 then
            local pct1 = number(1, 10)
            if pct1 == 1 then
                local pct2 = number(1, 4)
                if pct2 == 1 then
                    -- ÁøÂ¥ ¿¼è µå·Ó
                    game.drop_item(30304, 1)
                else
                    -- °¡Â¥ ¿¼è µå·Ó
                    game.drop_item(30303, 1)
                end
            else
                return
            end
        end
    end

    when 20366.take with item.vnum == 30304 begin
        -- ºÀÀÎ ÇØü 9Ãş ¤¡¤¡
        npc.purge()
        item.remove()
        timer("devil_jump_9", 8)
    end

    ---------------------------------------------
    -- 9Ãş ÁøÀÔºÎÅÍ ¿Ï·á±îÁö
    ---------------------------------------------
    when devil_jump_9.timer begin
        d.setf("level", 9)
        d.jump_all(2048+590, 6656+155)
        d.regen_file("data/dungeon/deviltower9_regen.txt")
    end

     when kill with npc.get_race() == 1093 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        d.kill_all()
        timer("devil_end_jump", 30)
    end

    when devil_end_jump.timer begin
        d.exit_all()
    end
    function register_player(vid)
        local player_count = d.getf("player_count")
        player_count = player_count + 1
        d.setf("player_count", tonumber(player_count))
        d.setf(string.format("player%d", player_count), tonumber(vid))
    end  
    function unregister_player(vid)
        local player_count = d.getf("player_count")
        local found = false
        for i = 1, player_count, 1 do
            if found == true then
                d.setf(string.format("player%d", tonumber(i)), d.getf(string.format("player%d", i+1)))
            end
            p = d.getf("player"..tostring(i))
            if p == vid then
                i = i -1
                found = true
            end
        end  
        if found == true then
            d.setf("player_count", tonumber(player_count - 1))
        end
    end  
    function get_players()
        local players = {}
        local player_count = d.getf("player_count")
        for i = 1, player_count, 1 do
            players[i] = d.getf("player"..tostring(i))
        end
        return players
    end
    function give_dc_access(pindex)
        local self_checked = false
        local self = pc.select(d.getf("player"..tostring(pindex)))
        --pc.setqf("dcenter", 1)
        pc.setf("seytan_kulesi", "dcenter", 1)
        pc.select(self)
    end
end
end

catacomb:

quest seytan_katakombu begin
        state start begin
    when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        notice_in_map("Görevi başarıyla tamamladın.")
        notice_in_map("Seni Şeytan Katakombu'nda bekleyeceğim!")
        notice_in_map("Peşimden gel, öfkem felaketin olsun!")
        if pc.getqf("azraili_kestim") == 0 then
            pc.setqf("azraili_kestim",1)
        end
    end
   
    when devil_end_jump.timer begin
        d.exit_all()
    end
   
    when 20367.chat."Şeytan Katakombu'na gider" with pc.get_map_index() == 65 begin
        if pc.level < 75 then
            say_title("Katakomb Bekçisi:")
            say("75. seviyenin altında oldugun için")
            say("katakombu başaramazsın..")
            return
         end
        if pc.getqf("azraili_kestim") == 0 then
            say("Henüz Şeytan Katakombu'nu başaracak")
            say("kadar güçlü değilsin. Azraili Şeytan Kulesi'nde")
            say("yendikten sonra tekrar gel.")
            return
        end
        if pc.getqf("azraili_kestim") == 1 then
            say("Şeytanın İnine şimdi girmek istiyor musun?")
        local s = select("Evet", "Girme")
        if s == 1 then
            pc.warp(315200,1209200)
            return
            end
        end
    end
    when login with pc.get_map_index() == 216 begin
    say("Ruh Kristalı Anahtarı'nı ele geçirmek için")
    say("yaratıkları yok et. Bu")
    say("sana 2. katın kapısını açar.")
    pc.set_warp_location(65 , 5913, 995)
    end
    when 2503.kill or
            2504.kill or
            2505.kill begin
        local rka = number(1,10)
    if rka==1 then
    game.drop_item(30311, 1)
    end
    end
    when 30101.take with item.vnum == 30311 begin
    item.remove()
    say("Kapı artık açık.")
    say("Acele edin gidelim.")
        wait()
    say("Şimdi gerçek bir macera başlıyor.")
    say("2. seviyeye geçmek için sadece bir saatin var.")            
        wait()
    d.new_jump_all(216, 3622, 12079)
    d.setf("catacomb_kat2", 1)
    game.set_event_flag("Azrail_dead",0)
    end
   
    when login with pc.in_dungeon() and d.getf("catacomb_kat2") == 1 begin
    d.regen_file("data/dungeon/katakomb/catacomb_kat2.txt")
        say("3. seviyeye geçmek için kapalı kapıları yok et.")
        say("")
        say("")
        say("60 dakika kaldı!")    
    timer("catacomb_5dakika", 3300)
    timer("catacomb_10dakika", 3000)
    timer("catacomb_20dakika", 2400)
    timer("catacomb_30dakika", 1800)
    timer("catacomb_30dakika", 900)
    timer("catacomb_bitti", 3600)
    pc.set_warp_location(65 , 5913, 995)
    end
   
    when 30103.chat."Özel bölüm" with pc.count_item(30319) > 0 begin
    say("Kapalı kapıları kırdın ve buraya kadar geldin.")
        wait()
    say("Azrail'i görebilmen için Küçülen Kafa'ya ")
    say("ihtiyacın var.")
    say("")
    say("Küçülen Kafa'ya sahip değilsen mağaradan")
    say("dışarı atılacaksın.")
    pc.remove_item(30319)
    game.set_event_flag("Azrail_dead",0)
    wait()
    npc.purge()
    timer("katakomb_kat_3", 3)
    end
   
    when katakomb_kat_3.timer begin
    d.jump_all(3072+1376, 12032+250)
    d.regen_file("data/dungeon/katakomb/catacomb_kat3.txt")
    notice_in_map("Gerçek Misilleme Metinini bul ve yok et!")
    d.setf("catacomb_metin", 2)
    end

    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 2 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 3)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 3 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 4)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 4 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 5)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 5 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 6)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 6 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 7)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 7 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 8)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 8 begin
    notice_in_map("Gerçek Metin taşı yokedildi. 4. seviyeye hızlı bir şekilde devam edelim.")
        timer("catacomb_labirent", 5)
        end
       
    when catacomb_labirent.timer begin
    d.setf("level", 4)
    d.jump_all(3072+70, 12032+585)
    d.regen_file("data/dungeon/katakomb/catacomb_kat4.txt")
    notice_in_map("5. seviyeye ulaşmak için labirentte yolunuzu bulun!")
        local lab = number(1,4)
        if lab == 1 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps1.txt")
        end
        if lab == 2 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps2.txt")
        end
        if lab == 3 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps3.txt")
        end
        if lab == 4 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps4.txt")
        end
    end
   
    when 30104.chat."5. seviyeye ilerle" begin
    say("Şeytan ruhlarını hissedebiliyor musun?")
        wait()
    say("Devam etmek istiyor musun?")
    wait()
        timer("katakomb_kat_5", 6)
    end
   
    when katakomb_kat_5.timer begin
    d.setf("level", 5)
    d.jump_all(3072+846, 12032+898)
    d.regen_file("data/dungeon/katakomb/catacomb_kat5.txt")
    notice_in_map("Tartorusları yen ve altıncı seviyeye geçebilmek için Surat Totemini ele geçirin.")
        local gar = number(1,5)
        if gar == 1 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss1.txt")
        end
        if gar == 2 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss2.txt")
        end
        if gar == 3 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss3.txt")
        end
        if gar == 4 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss4.txt")
        end
        if gar == 5 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss5.txt")
        end
    end

    when 2591.kill begin
        local tar = number(1,1)
    if tar==1 then
    game.drop_item(30312, 1)
        end
    end
   
    when 30102.take with item.vnum == 30312 begin
    notice_in_map("Uzaklardan ulumaları duyuluyor. Gaddar Azrail'i uyandırdınız.")
    item.remove()
    npc.purge()
        timer("catacomb_kat_6", 6)
    end
   
    when catacomb_kat_6.timer begin
    d.setf("level", 6)
    d.jump_all(3072+1358, 12032+671)
    d.regen_file("data/dungeon/katakomb/catacomb_kat6.txt")
    notice_in_map("Kharoon ve diğer tüm düşmanları yenin!")
    end
   
    when 2597.kill begin
    d.kill_all()
    timer("catacomb_1kharoon", 2)
    end
   
    when catacomb_1kharoon.timer begin
    say("Kharoon'u öldürdün. Mağaranın en son")
    say("seviyesine ışınlanıyorsunuz.")
        timer("catacomb_kharoon", 2)
    end
   
    when catacomb_kharoon.timer begin
    d.setf("level", 7)
    d.jump_all(3072+73, 12032+1157)
    d.regen_file("data/dungeon/katakomb/catacomb_kat7.txt")
    notice_in_map("Azrail'i yenin!")
    end
   
    when 2598.kill begin
        d.kill_all()
        timer("catacomb_1azrail", 2)
    end

    when catacomb_1azrail.timer begin
    say("Azrail yenildi. Devil's Catacomb'a nihayet")
    say("huzur hakim. Şimdi yeryüzüne ışınlanacaksın.")
        timer("catacomb_azrail", 30)
    end
   
    when catacomb_5dakika.timer begin
    notice_in_map("Kalan süre: 5 dakika")
            end
   
    when catacomb_10dakika.timer begin
    notice_in_map("Kalan süre: 10 dakika")
            end
   
    when catacomb_20dakika.timer begin
    notice_in_map("Kalan süre: 20 dakika")
            end
   
    when catacomb_30dakika.timer begin
    notice_in_map("Kalan süre: 30 dakika")
            end
   
    when catacomb_45dakika.timer begin
    notice_in_map("Kalan süre: 45 dakika")
        d.exit_all()
            end
   
    when catacomb_bitti.timer begin
    game.set_event_flag("kuleazrail",0)
    notice_in_map("Süre bitti!")
        d.exit_all()
            end
   
    when catacomb_azrail.timer begin
        d.exit_all()
            end
        end
    end

Çalışıyorlar

Hepsini görmek için tıklayın...

damador demiş ki:

şeytan kulesi:

quest seytan_kulesi begin
    state start begin
        when login begin
            if pc.get_map_index() == 66 then
                if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
                    pc.warp(590500, 110500)
                end
                pc.set_warp_location(65, 5905, 1105)
            elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
                pc.set_warp_location(65, 5905, 1105)              
                seytan_kulesi.register_player(pc.get_vid())
            end
        end

    when logout begin
        if pc.count_item(30300) >= 1 then
            pc.remove_item(30300, pc.count_item(30300))
        end
        if pc.count_item(30302) >= 1 then
            pc.remove_item(30302, pc.count_item(30302))
        end              
        if pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
            seytan_kulesi.unregister_player(pc.get_vid())      
        end
    end
    when 20348.chat."Şeytan Kulesi Bekçisi " begin
        if pc.get_level() < 40 then
            say_title("Şeytan Kulesi Bekçisi:")
            say_kirmizi("Cesaretini takdir ediyorum fakat")
            say_kirmizi("kuleye girebilmek için en az")
            say_kirmizi("40.seviye olman gerekmektedir.")
            return
        end
        if not party.is_party() then
            say_title("Şeytan Kulesi Bekçisi:")
            say_kirmizi("Cesaretini takdir ediyorum fakat")
            say_kirmizi("grubun olmadan giriş talebi yapamazsın.")
            return
        end
        if not party.is_leader() then
            say_title("Şeytan Kulesi Bekçisi:")
            say_kirmizi("Cesaretini takdir ediyorum fakat")
            say_kirmizi("yalnızca grup lideri giriş talebi yapabilir.")
            return
        end
            say_title("Şeytan Kulesi Bekçisi:")
            say_yesil("Grubunla Şeytan Kulesine giriş yapacaksın.")
            say_kirmizi("Unutma; girdiğiniz alan sadece grubunuza aittir.")
            say_yesil("Şeytan kulesine şimdi girmek istiyor musun?")
            local s = select("Evet ","Hayır ")
                if s == 1 then
                    local idx = 66
                    local x = 2165
                    local y = 7270
                    d.new_jump_party(idx , x, y)
                    d.regen_file("data/dungeon/deviltower1_regen.txt")
                end
        end
        when kill with npc.get_race() == 8015 begin
            notice_in_map("Dayanıklılık metni yok edildi, 2.kata ışınlanıyorsunuz..")
            timer("devil_stone1_1", 5)
        end
        when devil_stone1_1.timer begin
            d.new_jump_party(66, special.devil_tower[1][1], special.devil_tower[1][2])
            d.regen_file("data/dungeon/deviltower2_regen.txt")
            d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
        end
        when kill with npc.get_race() == 1091 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
            d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
            d.check_eliminated()
        end
        function get_4floor_stone_pos()
        local positions =
            {
                {368, 629}, {419, 630}, {428, 653}, {422, 679},
                {395, 689}, {369, 679}, {361, 658},
            }
            for i = 1, 6 do
                local j = number(i, 7)
                if i != j then
                    local t = positions[i];
                    positions[i] = positions[j];
                    positions[j] = t;
                end
            end
            return positions
        end
         when kill with npc.get_race() == 8016 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
            d.setf("level", 4)
            local positions = seytan_kulesi.get_4floor_stone_pos()
            for i = 1, 6 do
                d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
            end
            local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
            d.set_unique("real", vid)
        server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
        server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

            notice_in_map("Gözlerini ve kulaklarını aldatacak bir çok sahte");
            notice_in_map("Metin Taşı mevcut. 15 dakika içerisinde");
            notice_in_map("gerçek Metin Taşı'nı bul ve yok et!");
            notice_in_map("Kapıdan geçmenin tek yolu budur.");
            notice_in_map("Bulunduğunuz bölge Şeytan Kulesi 4.Kat ")
        end

        when devil_stone4_fail1.server_timer begin
            if d.select(get_server_timer_arg()) then
               notice_in_map("10 dakika kaldı ")
        server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone4_fail2.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("5 dakika kaldı ")
        server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone4_fail.server_timer begin
            if d.select(get_server_timer_arg()) and d.getf("level") == 4 then
               notice_in_map("Zaman doldu! ")
                d.exit_all()
            end
        end

        when devil_stone4_update.server_timer begin
            if d.select(get_server_timer_arg()) then
                if not d.is_unique_dead("real") then
                    for i = 1, 6 do
                        if d.getf("fakedead" .. i) == 0 then
                            if d.unique_get_hp_perc("fake" .. i) < 50 then
                                d.purge_unique("fake" .. i)
                                d.setf("fakedead" .. i, 1)
                               notice_in_map("Sahte Metin taşları yok oldu...");
                            end
                        end
                    end
                else
                    server_timer("devil_stone4_end", 5, get_server_timer_arg())
                   
                    notice_in_map("Mükemmel bir duyma yeteneğine ve iyi bir");
                    notice_in_map("içgüdüye sahip olduğunu kanıtlayarak");
                    notice_in_map("gerçek Metin Taşı'nı yok ettin!");
                    notice_in_map("Şimdi 5.kata gireceksin.")
                    d.purge()
                end
            else
        server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
            end
        end

        when devil_stone4_stop_timer.server_timer begin
        clear_server_timer('devil_stone4_update', get_server_timer_arg())
        end

        when devil_stone4_end.server_timer begin
            if d.select(get_server_timer_arg()) then
            clear_server_timer('devil_stone4_update', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
            clear_server_timer('devil_stone4_fail', get_server_timer_arg())

                d.setf("level", 5)
                d.setf("stone_count", 5)
               
                d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
                notice_in_map("Bir sonraki kata")
                notice_in_map("çıkmak için beş Eski Mühür'ü açman gerek.")
                notice_in_map("2 Dakika arayla metin yenilenir.")
                notice_in_map("Metni yok ederek mühür elde edebilirsin.")
                notice_in_map("Süre: 20 dakika!")
                notice_in_map("Bulunduğunuz bölge Şeytan Kulesi 5.Kat ")
               
        server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
        clear_server_timer('devil_stone4_update', get_server_timer_arg())

                d.set_regen_file("data/dungeon/deviltower5_regen.txt")

                d.spawn_mob(20073, 421, 452)
                d.spawn_mob(20073, 380, 460)
                d.spawn_mob(20073, 428, 414)
                d.spawn_mob(20073, 398, 392)
                d.spawn_mob(20073, 359, 426)
            end
        end
        when devil_stone5_fail1.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("15 dakika kaldı ")
        server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone5_fail2.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("10 dakika kaldı ")
        server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone5_fail3.server_timer begin
            if d.select(get_server_timer_arg()) then
                notice_in_map("5 dakika kaldı ")
        server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
            end
        end

        when devil_stone5_fail.server_timer begin
            if d.select(get_server_timer_arg()) and d.getf("level") == 5 then
        notice_in_map("Zaman doldu!")
        d.exit_all()
            end
        end

        when devil_stone5.take with item.vnum == 50084 begin
            npc.purge()
            item.remove()
            d.setf("stone_count", d.getf("stone_count") - 1)
            if d.getf("stone_count") <= 0 then
                d.clear_regen()
                d.kill_all()
                   notice_in_map("Tüm mühürleri açtın ve artık 5.kata")
                notice_in_map("girebilirsin. Bu katta Kibirli Şeytan Kralı da")
                notice_in_map("var. 6. kattaki tüm canavarları öldür.")
        clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
        clear_server_timer('devil_stone5_fail', get_server_timer_arg())
       
                d.setf("level", 6)
                d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
        d.regen_file("data/dungeon/deviltower6_regen.txt")
       

            else
                notice_in_map("Mührü açtın! "..d.getf("stone_count").." kaldı.")
            end
        end

        when devil_stone6.kill begin
            timer("devil_jump_7",6)
            d.kill_all()
            d.check_eliminated()
        end

 
       
   when devil_jump_7.timer begin
        d.clear_regen()

        d.spawn_mob(8018, 639, 658)
        d.spawn_mob(8018, 611, 637)
        d.spawn_mob(8018, 596, 674)
        d.spawn_mob(8018, 629, 670)

        d.setf("level", 7)

        d.jump_all(2048+590, 6656+638)
    end
   
     when kill with npc.get_race() == 8018 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        local cont = d.getf("7_stone_kill") + 1
        d.setf("7_stone_kill", cont)

        if cont >= 4 then
            d.setf("7_stone_kill", 0)
            d.set_regen_file("data/dungeon/deviltower7_regen.txt")
        end
    end

     when kill with npc.get_race() == 8019 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        game.drop_item(30300, 1)
    end

    when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        pc.remove_item("30300", 1)

        local pct = number(1,1)

        if pct == 1 then
            game.drop_item(30302, 1)
            d.clear_regen()
           
        end
    end

    when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin

            if d.getf( "level" ) != 7 then
                pc.remove_item( "30302", 1)
                return
            end
           
        say_title("Bilgi:")
        say("Haritayı buldun. Üst kata geçiyorsun.")
        say("İyi şanslar.")
        pc.remove_item("30302", 1)
        timer("devil_jump_8", 6)
        d.clear_regen()
    end
                       
    when devil_jump_8.timer begin
        d.setf("level", 8)
        d.jump_all(2048+590, 6656+403)
        d.set_regen_file("data/dungeon/deviltower8_regen.txt")
        d.spawn_mob(20366, 640, 460)
        local _count = pc.count_item(30302)
        pc.remove_item(30302,_count)
       
    end

     when kill with npc.get_race() == 1040 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        if d.getf("level") < 9 then
            local pct1 = number(1, 10)
            if pct1 == 1 then
                local pct2 = number(1, 4)
                if pct2 == 1 then
                    -- ÁøÂ¥ ¿¼è µå·Ó
                    game.drop_item(30304, 1)
                else
                    -- °¡Â¥ ¿¼è µå·Ó
                    game.drop_item(30303, 1)
                end
            else
                return
            end
        end
    end

    when 20366.take with item.vnum == 30304 begin
        -- ºÀÀÎ ÇØü 9Ãş ¤¡¤¡
        npc.purge()
        item.remove()
        timer("devil_jump_9", 8)
    end

    ---------------------------------------------
    -- 9Ãş ÁøÀÔºÎÅÍ ¿Ï·á±îÁö
    ---------------------------------------------
    when devil_jump_9.timer begin
        d.setf("level", 9)
        d.jump_all(2048+590, 6656+155)
        d.regen_file("data/dungeon/deviltower9_regen.txt")
    end

     when kill with npc.get_race() == 1093 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        d.kill_all()
        timer("devil_end_jump", 30)
    end

    when devil_end_jump.timer begin
        d.exit_all()
    end
    function register_player(vid)
        local player_count = d.getf("player_count")
        player_count = player_count + 1
        d.setf("player_count", tonumber(player_count))
        d.setf(string.format("player%d", player_count), tonumber(vid))
    end  
    function unregister_player(vid)
        local player_count = d.getf("player_count")
        local found = false
        for i = 1, player_count, 1 do
            if found == true then
                d.setf(string.format("player%d", tonumber(i)), d.getf(string.format("player%d", i+1)))
            end
            p = d.getf("player"..tostring(i))
            if p == vid then
                i = i -1
                found = true
            end
        end  
        if found == true then
            d.setf("player_count", tonumber(player_count - 1))
        end
    end  
    function get_players()
        local players = {}
        local player_count = d.getf("player_count")
        for i = 1, player_count, 1 do
            players[i] = d.getf("player"..tostring(i))
        end
        return players
    end
    function give_dc_access(pindex)
        local self_checked = false
        local self = pc.select(d.getf("player"..tostring(pindex)))
        --pc.setqf("dcenter", 1)
        pc.setf("seytan_kulesi", "dcenter", 1)
        pc.select(self)
    end
end
end

catacomb:

quest seytan_katakombu begin
        state start begin
    when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
        notice_in_map("Görevi başarıyla tamamladın.")
        notice_in_map("Seni Şeytan Katakombu'nda bekleyeceğim!")
        notice_in_map("Peşimden gel, öfkem felaketin olsun!")
        if pc.getqf("azraili_kestim") == 0 then
            pc.setqf("azraili_kestim",1)
        end
    end
   
    when devil_end_jump.timer begin
        d.exit_all()
    end
   
    when 20367.chat."Şeytan Katakombu'na gider" with pc.get_map_index() == 65 begin
        if pc.level < 75 then
            say_title("Katakomb Bekçisi:")
            say("75. seviyenin altında oldugun için")
            say("katakombu başaramazsın..")
            return
         end
        if pc.getqf("azraili_kestim") == 0 then
            say("Henüz Şeytan Katakombu'nu başaracak")
            say("kadar güçlü değilsin. Azraili Şeytan Kulesi'nde")
            say("yendikten sonra tekrar gel.")
            return
        end
        if pc.getqf("azraili_kestim") == 1 then
            say("Şeytanın İnine şimdi girmek istiyor musun?")
        local s = select("Evet", "Girme")
        if s == 1 then
            pc.warp(315200,1209200)
            return
            end
        end
    end
    when login with pc.get_map_index() == 216 begin
    say("Ruh Kristalı Anahtarı'nı ele geçirmek için")
    say("yaratıkları yok et. Bu")
    say("sana 2. katın kapısını açar.")
    pc.set_warp_location(65 , 5913, 995)
    end
    when 2503.kill or
            2504.kill or
            2505.kill begin
        local rka = number(1,10)
    if rka==1 then
    game.drop_item(30311, 1)
    end
    end
    when 30101.take with item.vnum == 30311 begin
    item.remove()
    say("Kapı artık açık.")
    say("Acele edin gidelim.")
        wait()
    say("Şimdi gerçek bir macera başlıyor.")
    say("2. seviyeye geçmek için sadece bir saatin var.")            
        wait()
    d.new_jump_all(216, 3622, 12079)
    d.setf("catacomb_kat2", 1)
    game.set_event_flag("Azrail_dead",0)
    end
   
    when login with pc.in_dungeon() and d.getf("catacomb_kat2") == 1 begin
    d.regen_file("data/dungeon/katakomb/catacomb_kat2.txt")
        say("3. seviyeye geçmek için kapalı kapıları yok et.")
        say("")
        say("")
        say("60 dakika kaldı!")    
    timer("catacomb_5dakika", 3300)
    timer("catacomb_10dakika", 3000)
    timer("catacomb_20dakika", 2400)
    timer("catacomb_30dakika", 1800)
    timer("catacomb_30dakika", 900)
    timer("catacomb_bitti", 3600)
    pc.set_warp_location(65 , 5913, 995)
    end
   
    when 30103.chat."Özel bölüm" with pc.count_item(30319) > 0 begin
    say("Kapalı kapıları kırdın ve buraya kadar geldin.")
        wait()
    say("Azrail'i görebilmen için Küçülen Kafa'ya ")
    say("ihtiyacın var.")
    say("")
    say("Küçülen Kafa'ya sahip değilsen mağaradan")
    say("dışarı atılacaksın.")
    pc.remove_item(30319)
    game.set_event_flag("Azrail_dead",0)
    wait()
    npc.purge()
    timer("katakomb_kat_3", 3)
    end
   
    when katakomb_kat_3.timer begin
    d.jump_all(3072+1376, 12032+250)
    d.regen_file("data/dungeon/katakomb/catacomb_kat3.txt")
    notice_in_map("Gerçek Misilleme Metinini bul ve yok et!")
    d.setf("catacomb_metin", 2)
    end

    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 2 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 3)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 3 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 4)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 4 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 5)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 5 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 6)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 6 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 7)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 7 begin
        notice_in_map("Bu Metin taşı sahte, gerçeğini bul.")
    d.setf("catacomb_metin", 8)
        end
   
    when 8038.kill with pc.in_dungeon() and d.getf("catacomb_metin") == 8 begin
    notice_in_map("Gerçek Metin taşı yokedildi. 4. seviyeye hızlı bir şekilde devam edelim.")
        timer("catacomb_labirent", 5)
        end
       
    when catacomb_labirent.timer begin
    d.setf("level", 4)
    d.jump_all(3072+70, 12032+585)
    d.regen_file("data/dungeon/katakomb/catacomb_kat4.txt")
    notice_in_map("5. seviyeye ulaşmak için labirentte yolunuzu bulun!")
        local lab = number(1,4)
        if lab == 1 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps1.txt")
        end
        if lab == 2 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps2.txt")
        end
        if lab == 3 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps3.txt")
        end
        if lab == 4 then
    d.regen_file("data/dungeon/katakomb/catacomb_warps4.txt")
        end
    end
   
    when 30104.chat."5. seviyeye ilerle" begin
    say("Şeytan ruhlarını hissedebiliyor musun?")
        wait()
    say("Devam etmek istiyor musun?")
    wait()
        timer("katakomb_kat_5", 6)
    end
   
    when katakomb_kat_5.timer begin
    d.setf("level", 5)
    d.jump_all(3072+846, 12032+898)
    d.regen_file("data/dungeon/katakomb/catacomb_kat5.txt")
    notice_in_map("Tartorusları yen ve altıncı seviyeye geçebilmek için Surat Totemini ele geçirin.")
        local gar = number(1,5)
        if gar == 1 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss1.txt")
        end
        if gar == 2 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss2.txt")
        end
        if gar == 3 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss3.txt")
        end
        if gar == 4 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss4.txt")
        end
        if gar == 5 then
    d.regen_file("data/dungeon/katakomb/catacomb_boss5.txt")
        end
    end

    when 2591.kill begin
        local tar = number(1,1)
    if tar==1 then
    game.drop_item(30312, 1)
        end
    end
   
    when 30102.take with item.vnum == 30312 begin
    notice_in_map("Uzaklardan ulumaları duyuluyor. Gaddar Azrail'i uyandırdınız.")
    item.remove()
    npc.purge()
        timer("catacomb_kat_6", 6)
    end
   
    when catacomb_kat_6.timer begin
    d.setf("level", 6)
    d.jump_all(3072+1358, 12032+671)
    d.regen_file("data/dungeon/katakomb/catacomb_kat6.txt")
    notice_in_map("Kharoon ve diğer tüm düşmanları yenin!")
    end
   
    when 2597.kill begin
    d.kill_all()
    timer("catacomb_1kharoon", 2)
    end
   
    when catacomb_1kharoon.timer begin
    say("Kharoon'u öldürdün. Mağaranın en son")
    say("seviyesine ışınlanıyorsunuz.")
        timer("catacomb_kharoon", 2)
    end
   
    when catacomb_kharoon.timer begin
    d.setf("level", 7)
    d.jump_all(3072+73, 12032+1157)
    d.regen_file("data/dungeon/katakomb/catacomb_kat7.txt")
    notice_in_map("Azrail'i yenin!")
    end
   
    when 2598.kill begin
        d.kill_all()
        timer("catacomb_1azrail", 2)
    end

    when catacomb_1azrail.timer begin
    say("Azrail yenildi. Devil's Catacomb'a nihayet")
    say("huzur hakim. Şimdi yeryüzüne ışınlanacaksın.")
        timer("catacomb_azrail", 30)
    end
   
    when catacomb_5dakika.timer begin
    notice_in_map("Kalan süre: 5 dakika")
            end
   
    when catacomb_10dakika.timer begin
    notice_in_map("Kalan süre: 10 dakika")
            end
   
    when catacomb_20dakika.timer begin
    notice_in_map("Kalan süre: 20 dakika")
            end
   
    when catacomb_30dakika.timer begin
    notice_in_map("Kalan süre: 30 dakika")
            end
   
    when catacomb_45dakika.timer begin
    notice_in_map("Kalan süre: 45 dakika")
        d.exit_all()
            end
   
    when catacomb_bitti.timer begin
    game.set_event_flag("kuleazrail",0)
    notice_in_map("Süre bitti!")
        d.exit_all()
            end
   
    when catacomb_azrail.timer begin
        d.exit_all()
            end
        end
    end

Çalışıyorlar

Hepsini görmek için tıklayın...