Cod: Selectaţi tot

quest deviltower_zone begin
    state start begin
   when login begin
       if pc.get_map_index() == 66 then
      -- ¨Ã«D¦b1¼Ó®É, °eªð¥~­±.
      -- ¼h¼Æ ½d³ò
      -- 1¼Ó  88  577  236 737
      -- 2¼Ó  91  343  238 504
      -- 3¼Ó 104  107  248 269
      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 deviltower_man.chat.locale.deviltower_man_chat begin
if pc . get_level ( ) < 40 then 
say ( "Nu ai inca destula experienta.Vino inapoi cand vrei avea cel putin Level 40!" ) 
else 
say ( "Doresti sa mergi in DT?" ) 
local s = select ( "Intra" , "Teleport Shinsoo" , "Teleport Chunjo" , "Teleport Jinno" , "Renunta" )
if s == 1 then 
pc . warp ( 216500 , 727000 ) 
end 
if s == 5 then 
end 
if s == 2 then 
say ( "Vei fi teleportat in taramul Shinsoo!" )
local s = select ( "OK" )
pc . warp ( 469300 , 964200 )
end
if s == 3 then 
say ( "Vei fi teleportat in taramul Chunjo!" )
local s = select ( "OK" )
pc . warp ( 55700 , 157900 ) 
end 
if s == 4 then 
say ( "Vei fi teleportat in taramul Jinno!" )
local s = select ( "OK" )
pc . warp ( 969600 , 278400 ) 
end
end 
   end
   when devil_stone1.kill begin
       timer("devil_stone1_1", 6)
   end
   when devil_stone1_1.timer begin
      local mapto7= pc.count_item(30302)  -- ®ø·À¤£ª¾¬O§_¦s¦bªº¯u¤`ÆF¶ð
      pc.remove_item(30302,mapto7)

      local boxto7= pc.count_item(30300)  -- ®ø·À¤£ª¾¬O§_¦s¦bªº¤£ª¾¦Wªº½c¤l
      pc.remove_item(30300,boxto7)

       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_stone2.kill begin
   --d.jump_all_local(special.devil_tower[2][1], special.devil_tower[2][2])
   --end
   when devil_stone3.kill begin
       --d.jump_all_local(special.devil_tower[3][1], special.devil_tower[3][2])
       --d.set_exit_all_at_eliminate(6)
       --d.set_warp_at_eliminate(6, d.get_map_index(), 100, 100)
       --d.set_warp_at_eliminate(4, 65, 5376+532, 512+596+4)
       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()
       --d.exit_all()
   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
       --for i = 1, 7 do
   --   positions[i][1] = positions[i][1] * 100
   --   positions[i][2] = positions[i][2] * 100
    --   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)
       -- ¦A²{¤j¶q©Çª«¤Î»s³y¯u¥ÛÀY©M°²¥ÛÀY
       --d.regen_file("data/dungeon/deviltower4_regen.txt")
       local positions = deviltower_zone.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("Gaseste Piatra Metin adevarata");
       d.notice("Pentru a trece mai departe");
       d.notice("Doar o piatra metin este buna!");
       d.notice("Ai la dispozitie 15 minute!");

   end

   when devil_stone4_fail1.server_timer begin
       if d.select(get_server_timer_arg()) then
      d.notice("Timp ramas: 10 Minute")
      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("Timp ramas: 5 Minute")
      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.notice("Vei fi teleportat in exterior!")
      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
          --d.clear_regen()
          --d.regen_file("data/dungeon/deviltower5_regen.txt")
          server_timer("devil_stone4_end", 5, get_server_timer_arg())
         d.notice("Ati distrus Piatra Metin adevarata")
         d.notice("Acum veti fi teleportat")
         d.notice("La etajul superior")
          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
      d.setf("level", 5)
      d.setf("stone_count", 5)
      d.notice("Acum sunteti la Nivelul 5")
      d.notice("Trebuie sa desfaci toate sigiliile.")
      d.notice("Ai la dispozitie 20 minute.")
      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())

      -- 5¼ÓÄ~Äò¦A²{
      d.set_regen_file("data/dungeon/deviltower5_regen.txt")

      -- 5¼Ó«Ê¦L¥Û¦A²{
      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("Timp ramas: 15 Minute")
      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("Timp ramas: 10 Minute")
      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("Timp ramas: 5 Minute")
      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.notice("Veti fi teleportati in exterior")
      d.exit_all()
       end
   end

   --when devil_stone4.kill begin
       --d.setf("level", 5)
       --d.setf("stone_count", 4)
       --d.clear_regen()
       --d.regen_file("data/dungeon/deviltower5_regen.txt")
       --d.jump_all_local(special.devil_tower[4][1], special.devil_tower[4][2])
   --end

   when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
       local KILL_COUNT_FOR_DROP_KEY = 50
       --if is_test_server() then
      --KILL_COUNT_FOR_DROP_KEY = 1
       --end
       local n =d.getf("count") + 1
       d.setf("count", n) 
       if n == KILL_COUNT_FOR_DROP_KEY then
      -- ±¼¤UÂê°Í
      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 sigiliile!")
      d.notice("Acum veti fi teleportati la Nivelul 6.")
      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("Au mai ramas "..d.getf("stone_count").." Sigilii")
       end
   end

   when devil_stone6.kill begin
       -- ¶Ç°e¨ì·Ò¸t©Ò¦bªº¦a¹Ï
       -- §_«h¡A¶}³]¤@­Ó·s·Ò¸t
       --d.jump_all(special.devil_tower[6][1], special.devil_tower[6][2])
       d.kill_all()
      -- d.set_warp_at_eliminate(3*60, 65, 5376+532, 512+596+4)
       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

   --------------------------------------
   -- ¥Ñ¶i¤J7¼Ó¦Ü¨ì¹F8¼Ó¤§«e
   --------------------------------------

   when 20074.chat."Etajul urmator." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      say_title(""..mob_name(20074).."")
      say("Vrei sa mergi la etajul 7?")
      say("Poate esti norocos azi si te voi lasa sa treci!")
      say("")
      say("Dar mai intai lasa-ma sa verific un lucru..")
      say("")
      wait()
      if pc.level >=75 then
         say("Te las sa treci mai departe!")
         say("Iti doresc mult noroc!!")
         timer("devil_jump_7", 6)
         return
      end
      say_reward("Trecerea nu este permisa!")
      say("")
      say("Tu nu esti destul de mare!")
      say("Vino aici cand vei avea minim Level 75,")
        say("Pana atunci eu nu te pot trece")
      say("")
      say("")
      wait()
      pc.warp(590500, 110500)
      return
    end
   when 20075.chat."Etajul urmator." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      say_title(""..mob_name(20075).."")
      say("Vrei sa mergi la etajul 7?")
      say("Poate esti norocos azi si te voi lasa sa treci!")
      say("")
      say("Dar mai intai lasa-ma sa verific un lucru..")
      say("")
      wait()
      if pc.level >=75 then
         say("Te las sa treci mai departe!")
         say("Iti doresc mult noroc!!")
         timer("devil_jump_7", 6)
         return
      end
      say_reward("Trecerea nu este permisa!")
      say("")
      say("Tu nu esti destul de mare!")
      say("Vino aici cand vei avea minim Level 75,")
        say("Pana atunci eu nu te pot trece")
      say("")
      say("")
      wait()
      pc.warp(590500, 110500)
      return
    end
   when 20076.chat."Etajul urmator." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
      say_title(""..mob_name(20076).."")
      say("Vrei sa mergi la etajul 7?")
      say("Poate esti norocos azi si te voi lasa sa treci!")
      say("")
      say("Dar mai intai lasa-ma sa verific un lucru..")
      say("")
      wait()
      if pc.level >=75 then
         say("Te las sa treci mai departe!")
         say("Iti doresc mult noroc!!")
         timer("devil_jump_7", 6)
         return
      end
      say_reward("Trecerea nu este permisa!")
      say("")
      say("Tu nu esti destul de mare!")
      say("Vino aici cand vei avea minim Level 75,")
        say("Pana atunci eu nu te pot trece")
      say("")
      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
         -- ±¼¤U¯u¦a¹Ï
         game.drop_item(30302, 1)
         d.clear_regen()
      else
         -- ±¼¤U°²¦a¹Ï
         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
      -- ¶Ç°e¨ì8¼Ó
      say("Ai gasit harta cea buna pentru")
      say("Nivelul urmator.")
      pc.remove_item("30302", 1)
       timer("devil_jump_8", 6)
      d.clear_regen()
   end
                  
   --------------------------------------------
   -- ¥Ñ¶i¤J8¼Ó¦Ü¨ì¹F9¼Ó¤§«e
   --------------------------------------------
   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)-- ®ø·À¯u¤`ÆF¶ð
      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 then
         local pct2 = number(1, 10)
         if pct2 == 1 then
            -- ±¼¤U¯uÂê°Í
            game.drop_item(30304, 1)
         else
            -- ±¼¤U°²Âê°Í
            game.drop_item(30303, 1)
         end
      else
         return
      end
   end

   when 20366.take with item.vnum == 30304 begin
      -- 9¼Ó«Ê¦L¸Ñ°£
      npc.purge()
      item.remove()
      timer("devil_jump_9", 6)
   end

   ---------------------------------------------
   -- ¥Ñ¶i¤J9¼Ó¦Üµ²§ô
   ---------------------------------------------
   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
      d.kill_all()
      timer("devil_end_jump", 10)
      d.notice("Felicitari!!!")
      d.notice("L-ati omorat pe Ingerul cu Coasa!!!")
      d.notice("Acum veti trece la etajul urmator!!!")
   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("L-ati omorat pe Regele Demonilor Albastru!!!")
      d.notice("Acum veti trece la etajul urmator!!!")
      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
      d.check_eliminated()
      d.spawn_mob(9012, 619, 170);
      d.setqf("can_refine", 1)
   end
end
end