Cod: Selectaţi tot

quest turnul_demonilor 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((5376+532)*100, (512+596+4)*100, 65)
                end
                pc.set_warp_location(65, 5376+532, 512+596+4)
            elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
                pc.set_warp_location(65, 5376+532, 512+596+4)
            end
        end

      when logout begin
         pc.remove_item(30300, pc.count_item(30300))
         pc.remove_item(30301, pc.count_item(30301))
         pc.remove_item(30302, pc.count_item(30302))
      end
   when deviltower_man.chat. "Turnul Demonilor" begin
                if pc.get_level() < 40 then
                        say_title("Gardianul Turnului:")
                        say("")
                        ---                                                   l
                        say("Acest turn este plin de demoni.")
                        say("Doar cei puternici pot supravietui.")
                        say("Ce sa-ti spun..cine a intrat")
                        say("nu a mai iesit in viata.")
                        say("Nu poti sa intri pentru ca nu")
                        say("ai level 40 inca.")
                else
                        say_title("Gardianul Turnului:")
                        say("")
                        ---                                                   l
                        say("Acest turn este plin de demoni.")
                        say("Doar cei puternici pot supravietui.")
                        say("Ce sa-ti spun..cine a intrat")
                        say("nu a mai iesit in viata.")
                        say("Vrei sa intri in Turnul Demonilor?")
                        say("")
                        local s = select("Da.", "Nu.")
                        if s == 1 then
                                -- warp into!
                                pc.warp(216500,727000)
                        end
            end
        end
        when devil_stone1.kill begin
            timer("devil_stone1_1", 6)
        end
        when devil_stone1_1.timer begin
            d.new_jump_all(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 devil_stone3.kill 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 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
            d.setf("level", 4)
            local positions = turnul_demonilor.get_4floor_stone_pos()
            for i = 1, 6 do
                chat(positions[i][1], positions[i][2])
                d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
            end
            chat(positions[7][1], positions[7][2])
            local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
            chat(vid)
            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())

            d.notice("Ai ajuns la etajul 3.");
            d.notice("Multe pietre Metin false va irita ochii si urechile.");
            d.notice("Gaseste piatra Metin corecta si distruge-o in 15 minute");
            d.notice("Aceasta este singura modalitate de a trece acest etaj.");
            d.notice("");
        end

        when devil_stone4_fail1.server_timer begin
            if d.select(get_server_timer_arg()) then
                d.notice("Minute ramase: 10")
      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
                d.notice("Minute ramase: 5")
      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()) then
                d.notice("Timpul a expirat.")
                d.exit_all()
      clear_server_timer('devil_stone4_update', get_server_timer_arg())
            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)
                                d.notice("Pietrele Metin false dispar...");
                            end
                        end
                    end
                else
                    server_timer("devil_stone4_end", 5, get_server_timer_arg())
                    d.notice("Ai dovedit ca ai un instinct bun.");
                    d.notice("Ai distrus piatra Metin corecta.")
          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())
                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.notice("Ai ajuns la Poarta cu numarul 5.")
                d.notice("La acest etaj multi monstrii pazesc Sigilile de Piatra,")
                d.notice("ce te vor ajuta sa treci la etajul 6.")
                d.notice("Unii monstrii au cheia ce te ajuta")
                d.notice("sa deschizi Sigiliul de Piatra.")
                d.notice("Deschide-le in cel mult 20 minute")
                d.notice("pentru a avansa la etajul 6.")
                d.notice("")
                d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
      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
                d.notice("Minute ramase: 15")
      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
                d.notice("Minute ramase: 10")
      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
                d.notice("Minute ramase: 5")
      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()) then
                d.notice("Timpul a expirat.")
                d.exit_all()
            end
        end

        when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
            local KILL_COUNT_FOR_DROP_KEY = 50
            local n =d.getf("count") + 1
            d.setf("count", n)
            if n == KILL_COUNT_FOR_DROP_KEY then
                game.drop_item(50084, 1)
                d.setf("count", 0)
            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.setf("level", 6)
                d.clear_regen()
                d.regen_file("data/dungeon/deviltower6_regen.txt")

                d.notice("Ai deschis toate portile.")
                d.notice("Vei fi teleportat la etajul 6.")
                d.notice("Distruge toti monstrii din acest etaj,")
                d.notice("Si apoi Regele Demon.")
                d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
      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())
            else
                d.notice("Ai deschis Sigiliu! Mai ai inca "..d.getf("stone_count").."de deschis:")
            end
        end

        when devil_stone6.kill begin
            d.kill_all()
            d.check_eliminated()
            local reward_alchemist = {20074, 20075, 20076}
            d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
            d.setqf("can_refine", 1)
        end

   when 20074.chat."Despre ultimul etaj al Turnul Demonilor.." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
          say(""..mob_name(20074)..":")
          say("Fierari din Turnul Demonilor")
          say("Au gasit calea de a urca la etajul 7.")
          say("Este necesar un status si o abilitate buna de a urca.")
          say("Hmmmm...")
          say("Dupa ce am analizat starea voastra.....")
          wait()
          if pc.level >=75 then
          say(""..mob_name(20074)..":")
              say("Esti puternic pentru a urca.")
              say("Te voi lasa sa stii drumul..")
              timer("devil_jump_7", 6)
              npc.unlock()
              d.purge()
              return
          end
          say(""..mob_name(20074)..":")
          say("Ai nevoie de mai mult antrenament")
          say("pentru a merge acolo....")
          say("Intoarce-te cand ai destula experienta.")

      say("")
      wait()
      pc.warp(590500, 110500)
      return
       end
   when 20075.chat."Despre ultimul etaj al Turnul Demonilor.." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
         say(""..mob_name(20075)..":")
        say("Fierari din Turnul Demonilor")
          say("Au gasit calea de a urca la etajul 7.")
          say("Este necesar un status si o abilitate buna de a urca.")
          say("Hmmmm...")
          say("Dupa ce am analizat starea voastra.....")
          wait()
          if pc.level >=75 then
               say(""..mob_name(20075)..":") 
              say("Esti puternic pentru a urca.")
              say("Te voi lasa sa stii drumul..")
              timer("devil_jump_7", 6)
              npc.unlock()
              d.purge()
              return
          end
         say(""..mob_name(20075)..":") 
          say("Ai nevoie de mai mult antrenament")
          say("pentru a merge acolo....")
          say("Intoarce-te cand ai destula experienta.")
      say("")
      wait()
      pc.warp(590500, 110500)
      return
    end
   when 20076.chat."Despre ultimul etaj al Turnul Demonilor.." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
         say(""..mob_name(20076)..":")
          say("Fierari din Turnul Demonilor")
          say("Au gasit calea de a urca la etajul 7.")
          say("Este necesar un status si o abilitate buna de a urca.")
          say("Hmmmm...")
          say("Dupa ce am analizat starea voastra.....")
          wait()
          if pc.level >=75 then
               say(""..mob_name(20076)..":") 
              say("Esti puternic pentru a urca.")
              say("Te voi lasa sa stii drumul..")
              timer("devil_jump_7", 6)
              npc.unlock()
              d.purge()
              return
          end
         say(""..mob_name(20076)..":") 
          say("Ai nevoie de mai mult antrenament")
          say("pentru a merge acolo....")
          say("Intoarce-te cand ai destula experienta.")
      say("")
      wait()
      pc.warp(590500, 110500)
      return
       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 8018.kill with 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 8019.kill with 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,10)

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

   when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      -- 8ÃþÀ¸·Î ¿öÇÁ

         if d.getf( "level" ) != 7 then
            pc.remove_item( "30302", 1)
            return
         end
         
      say("Cu aceasta mapa poti urca mai sus!")
      pc.remove_item("30302", 1)
       timer("devil_jump_8", 6)
      d.clear_regen()
   end
                  
   --------------------------------------------
   -- 8Ãþ ÁøÀÔºÎÅÍ 9Ãþ ±îÁö
   --------------------------------------------
   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 1040.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      local pct1 = number(1, 5)

      if pct1 == 1 and d.getf("level") == 8 then
         local pct2 = number(1, 10)
         if pct2 == 1 then
            -- ÁøÂ¥ ¿­¼è µå·Ó
            game.drop_item(30304, 1)
         else
            -- °¡Â¥ ¿­¼è µå·Ó
            game.drop_item(30303, 1)
         end
      else
         return
      end
   end

   when 20366.take with item.vnum == 30304 begin
      -- ºÀÀÎ ÇØü 9Ãþ ¤¡¤¡
      npc.purge()
      item.remove()
      timer("devil_jump_9", 6)
   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 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      chat("Ingerul a fost ucis")
      notice_all(""..pc.get_name().." a omorat Ingerul cu Coasa.")
      say_title("Bravo!")
      say("Felicitari,ai ucis diavolul.")
      say("O sa iti dau o recompensa : ")
      say_item(30319)
      pc.give_item2(30319)
      pc.give_item2(30319)
      pc.give_item2(30319)
      pc.give_item2(30319)
      d.kill_all()
      timer("devil_end_jump", 10)
   end
   
   when devil_end_jump.timer begin
      d.setf("level", 7)
      d.jump_all(2048+590, 6656+638)
      d.clear_regen()
      d.spawn_mob(1094, 639, 658)
   end
      
   when 1094.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      d.notice("Felicitari!")
      d.notice("Ai ucis soldatii regelui demon!")
      d.notice("Acum, veti ajunge la etajul urmator, Moartea Albastra!")
      d.kill_all()
      timer("devil_end_jump_schmied", 10)
      end

   when devil_end_jump_schmied.timer begin
      d.setf("level", 9)
      d.jump_all(2048+590, 6656+155)
      d.clear_regen()
      d.spawn_mob(1095, 605, 178)
   end
      
   when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      notice_all(""..pc.get_name().." a omorat Moartea Albastra.")
      d.notice("Ai ucis Moartea Albastra!")
      d.notice("Ca o recompensa îti vor aparea toti cei 3 fierari din acest turn!")
      pc.give_item2(30320)
      pc.give_item2(30320)
      pc.give_item2(30320)
      end
   end
   end