Cod: Selectaţi tot

quest Tempel_of_dragon begin
   state start begin
      when 30121.chat."Templul Dragonului" with pc.get_map_index() == 73 begin
         if get_time() > game.get_event_flag("Grotte_time") then
            game.set_event_flag("Grotte_zugang",0)
         end

         if pc.is_gm() then
            say_title(""..mob_name(30121).."")
            say("")
            say("Salut, "..pc.get_name().."")
			say("Tu esti GM, frati-miu, logic ca")
			say("te las sa intrii fara cheie.")
            wait()
               pc.warp(843200, 1066900)
         return
              end
         if pc.count_item("80041") >= 1 then
         say_title(""..mob_name(30121).."")
         say("")
         say("Tu n-ai nevoie de item, poti intra.")
         wait() 
         return 
      end

      if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
         say_title(""..mob_name(30121).."")
         say("")
         say("Tu n-ai "..item_name(30179).."")
         say_item_vnum(30179)
         say("Ai nevoie de aceste chei pentru a putea intra.")
         return
      end

      if game.get_event_flag("Grotte_zugang") == 1 then
         say_title(""..mob_name(30121).."")
         say("")
         pc.setqf("grotte_passworto", 078954687921)
      if pc.getqf("abgabe") == 1 then
      pc.setqf("abgabe",0)
      say("Tu ai trimis deja 3 chei.")
      say("Te voi lasa sa intrii")
      pc.setqf("erlaubt",1)
      wait()
      pc.warp(843200, 1066900)
      return
      end
      say("Imi pare rau, cineva este in templu.")
      say("Exista deja o cheie de acces setata,")
      say("daca o stii, o poti scrie mai jos:")
      local passwort = tonumber(input(""))
      --pc.setqf("grotte_passworto", passwort) 
      if game.get_event_flag("Grotte_passwort") == passwort then
      say_title(""..mob_name(30121).."")
      say("")
      say("Codul este acelas.")
      if pc.count_item(30179) < 3 then
      say("Tu n-ai acces ...iti lipsesc cheile")
      say("acestea "..item_name(30179).."")
      say_item_vnum(30179)
      say("Revin-o cand ai 3 chei.")
      return
      end
      pc.remove_item("30179",3)
      say("Puteti intra ....")
      pc.setqf("erlaubt",1)
      wait()
      pc.warp(843200, 1066900)
      elseif passi != pc.getqf("grotte_passworto") then
      say_title(""..mob_name(30121).."")
      say("")
      say("Parola introdusa nu este corecta.")
      return
      end
      end
      if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
      say_title(""..mob_name(30121).."")
      say("Detin in mine ultima suflare a zeului dragon.")
      say("Aceasta suflare magica te poate ajuta sa mergi în")
      say_reward("Camera de Cristal.")
      local i = select("Vreau sa intru.", "Nu vreau sa intru.")
      if 1 == i then
      say_title(""..mob_name(30121).."")
      say("Seteaza cheia de acces.")
      local passwort = tonumber(input(""))
      if passwort and passwort <= 999999999 and pc.count_item(30179)>=1 then
      game.set_event_flag("Grotte_zugang",1)
      game.set_event_flag("Grotte_passwort",passwort)
      local times = get_time() + 300 --Wartezeit
      game.set_event_flag("Grotte_time", times)
      say_title(""..mob_name(30121).."")
      pc.setqf("abgabe",1)
      say("")
      say("Cheia de acces este:")
      chat("Cheia de acces pentru camera dragonului este: "..passwort.."")
      say_reward(""..passwort.."")
      say("Le poti da si colegilor tai cheia de la camera.")
      pc.remove_item("30179",3)
      else 
      say_title(""..mob_name(30121).."")
      say("")
      say("Accest cod nu este corect, incearca din nou.")
      say("Cheia trebuie sa fie alcatuita din cifre.")
      end
      end
      end
      end
   when login with pc.get_map_index() == 207 and not pc.is_gm() begin
      if pc.count_item("80041") >= 1 then chat("Templul Dragonului: Tu esti gm, controlul va fi blocat.") return end
      if pc.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 207 then
       chat("Nu iti este permis sa intrii in aceasta harta! "..pc.get_level().." "..pc.getqf("erlaubt").." "..pc.get_map_index().." ")
         warp_to_village()
       end
		d.setf("skipia_boss_goo, 2)
      d.notice("Bine ai venit!.")
	  d.notice("Pentru a putea ajunge la dragon trebuie sa distrugi metinul corespunzator.")
      d.setf("count", 0)
      end
   when 8023.kill with pc.get_map_index() == 207 begin
	  timer("skipia_boss_goo", 2)
      notice_in_map("Felicitari!Ai distrus piatra metin corecta.")
	  notice_in_map("Acum te voi teleporta in camera dragonului. Ai mare grija!")
      end
   when 8020.kill with pc.get_map_index() == 207 begin
      notice_in_map("Aceasta nu este piatra metin potrivita.")
	  notice_in_map("Te rog sa mai incerci.")
      end
   when 8021.kill with pc.get_map_index() == 207 begin
      notice_in_map("Aceasta nu este piatra metin potrivita.")
	  notice_in_map("Te rog sa mai incerci.")
      end
   when 8022.kill with pc.get_map_index() == 207 begin
      notice_in_map("Aceasta nu este piatra metin potrivita.")
	  notice_in_map("Te rog sa mai incerci.")
      end
   when skipia_boss_goo.timer begin
      game.set_event_flag("Grotte_zugang",0)
      d.new_jump_all(207, 8436, 10669)
      d.setf("grotte_boss", 1)
      d.spawn_mob(9012, 239, 173)
      end
   when 8031.kill or 8032.kill or 8033.kill or 8034.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
   local n =d.getf("count") + 1
   d.setf("count", n) 
   --notice_all("Metin killed "..n.."")
   if n > 2 then
   local t = number(1,4)
   --notice_all("Spawn Metin")
   if 1 == t then
   d.regen_file("data/dungeon/skia_boss1.txt")
   elseif 2 == t then
   d.regen_file("data/dungeon/skia_boss2.txt")
   elseif 3 == t then
   d.regen_file("data/dungeon/skia_boss3.txt")
   else
   d.regen_file("data/dungeon/skia_boss4.txt")
   end
   end
   end
   when 2493.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
      d.setf("grotte_boss", 3)
      notice_all("Grupul lui "..pc.get_name().." a reusit sa ucida Dragonul Albastru.")
      timer("skipia_boss_end", 60)
      d.kill_all()
      d.spawn_mob(9012, 239, 173)
      d.clear_regen()
      end

   when login with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
   pc.set_warp_location(73 , 1825, 12207)
   end
   when login with pc.in_dungeon() and d.getf("grotte_boss") == 1 begin
      timer("skipia_boss_end", 3600)   
      d.set_regen_file("data/dungeon/skia_boss.txt")
      local t = number(1,4)
      if 1 == t then
         d.regen_file("data/dungeon/skia_boss1.txt")
         elseif 2 == t then
         d.regen_file("data/dungeon/skia_boss2.txt")
         elseif 3 == t then
         d.regen_file("data/dungeon/skia_boss3.txt")
         else
         d.regen_file("data/dungeon/skia_boss4.txt")
      end
      local o = number(1,4)
      if 1 == o then
         d.regen_file("data/dungeon/skia_boss1.txt")
         elseif 2 == o then
         d.regen_file("data/dungeon/skia_boss2.txt")
         elseif 3 == o then
         d.regen_file("data/dungeon/skia_boss3.txt")
         else
         d.regen_file("data/dungeon/skia_boss4.txt")
         end   
      d.setf("grotte_boss", 2)
      d.notice("Aceasta este camera de cristal.")
	  d.notice("Aveti la dispozitie 60 de minute pentru a ucide dragonul.Succes!")
      d.setf("count", 0)
      pc.set_warp_location(73 , 1825, 12207)
      end

   when login with pc.in_dungeon() and d.getf("grotte_boss") == 3 begin -- begin
   --pc.warp(181700, 1220600)
   end
   
   when skipia_boss_end.timer begin
      d.exit_all()
      end
   when skipia_boss_ende.timer begin
      kill_all_in_map(207)
      game.set_event_flag("Grotte_zugang",0)
      d.setf("grotte_boss", 1)
      d.exit_all()
   end
   when login with pc.get_map_index() != 207 or not pc.in_dungeon() begin
   pc.setqf("erlaubt",0)
   end
   end
end