Cod: Selectaţi tot

quest camera_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(826400, 1063800)
        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(826400, 1063800)
        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(826400, 1063800)
        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 zului 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("")
            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, 8264, 10638)
        d.setf("grotte_boss", 1)
        d.spawn_mob(9012, 64, 142)
        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