Cod: Selectaţi tot

quest Tempel_of_dragon begin
   state start begin
      when 30121.chat."Temnita Dragonului" with pc.get_map_index() == 73 and pc.level >= 75 begin
         if get_time() > game.get_event_flag("Grotte_time") then
            game.set_event_flag("Grotte_zugang",0)
         end
         
         if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
            say_title(""..mob_name(30121).."")
            say("")
            say("Inforamtii:")
            say("")
            say_reward("Nivel minim: 75")
            say_reward("Obiecte necesare: Cheie Rasucita x3")
            say_item_vnum(30179)
            say_reward("Deocamdata detii doar "..pc.count_item(30179).." chei.")
            say_reward("Nivelul tau actual: "..pc.get_level())
            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("Ai cele trei Chei Rasucite.")
               say("Te voi teleporta imediat in camera de cristal.")
               pc.setqf("erlaubt",1)
               wait()
               pc.warp(843200, 1066900)
               return
            end
            say("Introdu codul ales de liderul grupului.")
            local passwort = tonumber(input(""))
            if game.get_event_flag("Grotte_passwort") == passwort then
               say_title(""..mob_name(30121).."")
               say("Ai introdus codul corect.")
               if pc.count_item(30179) < 3 then
                  say("Nu detii cele x3 Chei Rasucite!")
                  say("")
                  say_item_vnum(30179)
                  say("Ai nevoie de cele x3 Chei Rasucite")
                  say("pentru a putea trece mai departe...")
                  say("")
                  say_reward("Deocamdata detii "..pc.count_item(30179).." chei.")
                  say("")
                  return
               end
               say("Te voi teleporta imediat.")
               pc.setqf("erlaubt", 1)
               wait()
               if pc.can_warp() then
                  pc.remove_item("30179",3) end
                  pc.warp(843200, 1066900)
               elseif passi != pc.getqf("grotte_passworto") then
                  say_title(""..mob_name(30121).."")
                  say("")
                  say("Nu ai scris codul corect.")
                  return
               end
            end
            if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
               say_title(""..mob_name(30121).."")
               say("")
               say("Detin in mine, ultima suflare a zeului dragon.")
               say("Aceasta suflare magica te pot ajuta sa mergi in")
               say_reward("Camera de cristal.")
               say("")
               say("Ai nevoie de cele trei chei rasucite.")
               say_reward("Acum detii "..pc.count_item(30179).." chei.")
               say("")
               if (select("Da, Vreau", "Nu, Multumesc") == 1) then
                  say_title(""..mob_name(30121).."")
                  say("")
                  say("Ai nevoie de un cod pentru tine si grupul tau.")
                  say("Codul pe care il vei introduce, va trebui sa ")
                  say("contina maxim 2 cifre.")
                  local passwort = tonumber(input(""))
                  if passwort <= 1 then
                     say_title(""..mob_name(30121).."")
                     say("")
                     say("Parola trebuie sa fie formata din cel putin 2 cifre.")
                     say("")
                     return
                  end
                  if 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("Parola aleasa este: "..passwort.."")
                     chat("[Pocal Magic]:Parola camerei alese este "..passwort.." ")
                     pc.remove_item("30179",3)
                  else
                     say_title(""..mob_name(30121).."")
                     say("")
                     say("Nu ai scris codul corect.")
                  end
               -- 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("Tempel des Drachen: Du hast das GM-Item, prüfungen werden geblockt!") return end
            if pc.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 207 then
               chat("Dir ist es nicht erlaubt diese Map zu betreten. "..pc.get_level().." "..pc.getqf("erlaubt").." "..pc.get_map_index().." ")
               warp_to_village()
            end
         chat("[Crystal Room]: Bun venit in camera de cristal ! incepem prima sarcina a voastra.")
         chat("[Crystal Room]: Spargeti toate metinele, si aflati care este metinul corespunzator.")
         pc.set_warp_location(73 , 1825, 12207)
      end
      
      when 8034.kill with pc.get_map_index() == 207 begin
         timer("skipia_boss_goo", 10)
         notice_in_map("[Crystal Room]:Ati spart metinul corespunzator.")
         notice_in_map("[Crystal Room]:il veti intalni pe Beran-Setaou. Ce veti face ?")
         d.kill_all()
      end
 
      when skipia_boss_goo.timer begin
         game.set_event_flag("Grotte_zugang",0)
         d.new_jump_all(207, 8427, 10669)
         d.setf("grotte_boss", 1)
         d.spawn_mob(9012, 247, 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_in_map("[Crystal Room]: Ati spart pana acum "..n.." metine.")
         if n > 2 then
            local t = number(1,4)
            notice_in_map("[Crystal Room]: Beran-Setaou este foarte furios.")
            notice_in_map("[Crystal Room]: Cheama si mai multe metine.")
            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("Cu o ultima suflare de speranta liderul "..pc.get_name().."")
         notice_all("Urmat de razboinici lui de incredere, au reusit sa invinga Dragonul Albastru.")
         timer("skipia_boss_end", 60)
         d.spawn_mob(9012, 64, 142)
         d.kill_all()
         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_boss5.txt")
         elseif 2 == o then
            d.regen_file("data/dungeon/skia_boss6.txt")
         elseif 3 == o then
            d.regen_file("data/dungeon/skia_boss7.txt")
         else
            d.regen_file("data/dungeon/skia_boss8.txt")
         end   
         d.setf("grotte_boss", 2)
         chat("[Crystal Room]: Aveti la dispozitie 60 de minute sa ii capturati sufletul lui Beran.")
         d.setf("count", 0)
         pc.set_warp_location(73 , 1825, 12207)
      end

      when skipia_boss_end.timer begin
         d.exit_all()
      end
      
      when skipia_boss_ende.timer begin
         kill_all_in_map(2)
         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

Cod: Selectaţi tot

    quest camera_de_cristal begin
    state start begin
           
            when 30123.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() or pc.count_item(80041) >= 1 then
            say_title(""..mob_name(30123).."")
            say("Bun venit "..pc.get_name().."")
            say("Nu ai nevoie nici de chei nici de parola")
            say("esti GM poti intra cand vrei.")
            wait()
            pc.warp(843200, 1066900)
            return
            end
            if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
            say_title(""..mob_name(30123).."")
          say_reward("Pentru a intra în templul lui Beran,")
            say_reward("ai nevoie de "..item_name(30179).."")
            say_item_vnum(30179)
            say_reward("Aceastã cheie rãsucitã picã la Cãpitanul Setaou.")
          say_reward("Ai nevoie de trei Chei Rãsucite pentru a intra.")
            return
            end
            if game.get_event_flag("Grotte_zugang") == 1 then
            say_title(""..mob_name(30123).."")
            pc.setqf("grotte_passworto", 078954687921)
            if pc.getqf("abgabe") == 1 then
            pc.setqf("abgabe",0)
            say("Ai cele trei Chei Rãsucite.")
            say("Te voi teleporta imediat în camera de cristal.")
            pc.setqf("erlaubt",1)
            wait()
            pc.warp(843200, 1066900)
            return
            end
            say("Introdu codul ales de liderul grupului.")
            local passwort = tonumber(input(""))
            --pc.setqf("grotte_passworto", passwort)
            if game.get_event_flag("Grotte_passwort") == passwort then
            say_title(""..mob_name(30123).."")
            say("Ai introdus codul corect.")
            if pc.count_item(30179) < 3 then
            say("Nu te pot teleporta deoarece nu ai")
            say(""..item_name(30179).."")
            say_item_vnum(30179)
            say("Ai nevoie de cele trei Chei Rãsucite.")
            return
            end
            say("Te voi teleporta imediat.")
            pc.setqf("erlaubt",1)
            wait()
            if pc.can_warp() then   
        pc.remove_item("30179",3) end
            pc.warp(843200, 1066900)
            elseif passi != pc.getqf("grotte_passworto") then
            say_title(""..mob_name(30123).."")
            say("")
            return
            end
            end
            if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
            say_title(""..mob_name(30123).."")
            say("Deþin în mine, ultima suflare a zeului dragon.")
          say("Aceastã suflare magicã te pot ajuta sã mergi în")
          say_reward("Camera de cristal.")
          say("")
            say("Ai nevoie de cele trei chei rãsucite.")
            local i = select("Da, Vreau", "Nu, Mulþumesc")
            if 1 == i then
            say_title(""..mob_name(30123).."")
            say("Ai nevoie de un cod pentru tine ºi grupul tãu.")
          say("Codul pe care îl vei introduce, va trebui sã ")
          say("conþinã maxim 2 cifre.")
            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(30123).."")
            pc.setqf("abgabe",1)
            say("Parola aleasa este: "..passwort.."")
            notice_in_map("[Pocal Magic]:Parola camerei alese este "..passwort.." ")
            pc.remove_item("30179",3)
            else
            say_title(""..mob_name(30123).."")
            say("Nu ai scris codul corect.")
            end
            end
            end
            end
        when login with pc.get_map_index() == 189 and not pc.is_gm() begin
            if pc.count_item("80041") >= 1 then chat("") return end
            if pc.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 189 then
            chat("Dir ist es nicht erlaubt diese Map zu betreten. "..pc.get_level().." "..pc.getqf("erlaubt").." "..pc.get_map_index().." ")
                warp_to_village()
            end
            notice_in_map("[Camera de cristal]:Bun venit în camera de cristal ! Începem prima sarcinã a voastrã.")
            notice_in_map("[Camera de cristal]:Spargeþi toate metinele, si aflaþi care este metinul corespunzãtor.")
            pc.set_warp_location(73 , 1825, 12207)
            end
        when 8031.kill with pc.get_map_index() == 189 begin
            timer("skipia_boss_goo", 10)
            notice_in_map("[Camera de cristal]:Aþi spart metinul corespunzãtor.")
        notice_in_map("[Camera de cristal]:Îl veþi întâlni pe Beran-Setaou. Ce veþi face ?")
        d.kill_all()
            end
        when skipia_boss_goo.timer begin
            game.set_event_flag("Grotte_zugang",0)
            d.new_jump_all(189, 8427, 10669)
            d.setf("grotte_boss", 1)
            d.spawn_mob(9012, 247, 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_in_map("[Camera de cristal]:Aþi spart pânã acum "..n.." metine.")
        if n > 2 then
        local t = number(1,4)
        notice_in_map("[Camera de cristal]:Beran-Setaou este foarte furios.")
       notice_in_map("[Camera de cristal]:Cheama ºi mai multe metine.")
        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("Cu o ultimã suflare de speranþã liderul "..pc.get_name().."")
            notice_all("Urmat de rãzboinici lui de încredere, au reuºit sã învingã Dragonul Albastru.")
            timer("skipia_boss_end", 60)
          d.spawn_mob(9012, 64, 142)
            d.kill_all()
            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_boss5.txt")
                elseif 2 == o then
                d.regen_file("data/dungeon/skia_boss6.txt")
                elseif 3 == o then
                d.regen_file("data/dungeon/skia_boss7.txt")
                else
                d.regen_file("data/dungeon/skia_boss8.txt")
                end   
            d.setf("grotte_boss", 2)
            d.notice("[Camera de cristal]:Aveþi la dispozitie 60 de minute sã îi capturaþi sufletul lui Beran.")
            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(189)
            game.set_event_flag("Grotte_zugang",0)
            d.setf("grotte_boss", 1)
            d.exit_all()
        end
        when login with pc.get_map_index() != 189 or not pc.in_dungeon() begin
        pc.setqf("erlaubt",0)
        end
        end
    end