quest camera_de_cristal begin
state start begin
when 30123.chat."Camera de cristal" with pc.get_map_index() == 73 begin
if get_time() > game.get_event_flag("Grotte_time") then
pc.remove_item(22000, 9999)
pc.remove_item(22001, 9999)
pc.remove_item(22010, 9999)
pc.remove_item(22011, 9999)
pc.remove_item(22020, 9999)
game.set_event_flag("Grotte_zugang",0)
end
if pc.is_gm() then
say_title(""..mob_name(30123).."")
say("")
say("Salut GM, "..pc.get_name().."")
say("Te voi lasa sa treci fara")
say("cheie si fara parola...")
wait()
pc.warp(843200, 1066900)
return
end
if pc.count_item("80041") >= 1 then
say_title(""..mob_name(30123).."")
say("")
say("Ai iteme de GM")
wait()
pc.warp(843200, 1066900)
return
end
if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) < 3 then
pc.remove_item(22000, 9999)
pc.remove_item(22001, 9999)
pc.remove_item(22010, 9999)
pc.remove_item(22011, 9999)
pc.remove_item(22020, 9999)
say_title(""..mob_name(30123).."")
say("")
say("Îti lipseste "..item_name(30179).."")
say_item_vnum(30179)
say("Vino inapoi cand ai 3 bucati..")
return
end
if game.get_event_flag("Grotte_zugang") == 1 then
say_title(""..mob_name(30123).."")
say("")
pc.setqf("grotte_passworto", 078954687921)
if pc.getqf("abgabe") == 1 then
pc.setqf("abgabe",0)
say("Vad ca ai 3 chei rasucite.")
say("Te voi lasa sa treci.")
pc.setqf("erlaubt",1)
pc.remove_item(22000, 9999)
pc.remove_item(22001, 9999)
pc.remove_item(22010, 9999)
pc.remove_item(22011, 9999)
pc.remove_item(22020, 9999)
wait()
pc.warp(843200, 1066900)
return
end
say("Îmi pare rau dar camera")
say("este ocupata de alt grup.")
say("Poti intra doar daca")
say("ai o parola de acces..")
local passwort = tonumber(input(""))
pc.setqf("grotte_passworto", passwort)
if game.get_event_flag("Grotte_passwort") == passwort then
say_title(""..mob_name(30123).."")
say("")
say("Parola introdusa este corecta.")
if pc.count_item(30179) < 3 then
say("Nu va pot oferi acces.")
say("Îti lipseste "..item_name(30179).."")
say_item_vnum(30179)
say("Vino inapoi cand ai 3 bucati..")
pc.remove_item(22000, 9999)
pc.remove_item(22001, 9999)
pc.remove_item(22010, 9999)
pc.remove_item(22011, 9999)
pc.remove_item(22020, 9999)
return
end
pc.remove_item("30179",3)
say("Te voi lasa sa intri!")
pc.setqf("erlaubt",1)
wait()
pc.warp(843200, 1066900)
elseif passi != pc.getqf("grotte_passworto") then
say_title(""..mob_name(30123).."")
say("")
say("Din pacate parola introdusa este gresita.")
return
end
end
if game.get_event_flag("Grotte_zugang") == 0 and pc.count_item(30179) >= 3 then
say_title(""..mob_name(30123).."")
say("")
say("Tu esti primul la intrare!")
say("Te voi duce in camera cu conditia")
say("ca o sa ai 3 chei rasucite.")
say("Înainte sa intri in camera de cristal")
say("trebuie sa pui un numar de acces secret.")
say("Acest lucru se poate face in 5 minute!")
say("")
say("Cu puterea cheilor rasucite, vei")
say("avea la dispozitie 1 ora pentru")
say("a invinge dragonul Beran-Setaou.")
local i = select("Sunt gata!", "Nu vreau..")
if 1 == i then
say_title(""..mob_name(30123).."")
say("")
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("")
say("Indiciul pentru a intra in camera este:")
chat("Codul pentru intrare in camera este: "..passwort.."")
say_reward(""..passwort.."")
say("Introdu codul impreuna cu colegii tai.")
pc.remove_item("30179",3)
else
say_title(""..mob_name(30123).."")
say("")
say("Daca intampinati o eroare incercati din nou.")
say("Introdu doar 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("You have GM items!") return end
if pc.get_level() < 75 or pc.getqf("erlaubt") == 0 and pc.get_map_index() == 207 then
chat("You are not allowed to enter this map. "..pc.get_level().." "..pc.getqf("erlaubt").." "..pc.get_map_index().." ")
warp_to_village()
end
chat("Bine ai venit. Distruge piatra pentru a ajunge la dragon.")
chat("Grabeste-te !")
notice_all("Dragon Albastru sa trezit!")
local sekunden = game.get_event_flag("Grotte_time") - get_time()
notice_in_map("Timp ramas : "..sekunden.." secunde.")
timer("skipia_boss_ende", sekunden)
pc.set_warp_location(73 , 1825, 12207)
end
when 8020.kill or 8021.kill or 8022.kill or 8023.kill with pc.get_map_index() == 207 begin
timer("skipia_boss_goo", 2)
notice_in_map("Ai distrus piatra. Vei fi dus la nivelul urmator.")
notice_all("Grupul lui "..pc.get_name().." incearca sa omoare dragonul albastru")
game.set_event_flag("enter",0)
game.set_event_flag("block",1)
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 8020.kill or 8021.kill or 8022.kill or 8023.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
local n =d.getf("count") + 1
d.setf("count", n)
--notice_all("Metinul a fost spart "..n.."")
if n > 2 then
local t = number(1,3)
--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")
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 ucis Dragonul Albastru Beran-Setaou!")
d.notice("Impresionant ! Ai reusit sa il invingi.")
d.notice("Veti fi dusi afara in 60 de secunde.")
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,3)
if 1 == t then
d.regen_file("data/dungeon/skia_boss1.txt")
elseif 2 == t then
d.regen_file("data/dungeon/skia_boss2.txt")
else
d.regen_file("data/dungeon/skia_boss4.txt")
end
local o = number(1,3)
if 1 == o then
d.regen_file("data/dungeon/skia_boss1.txt")
elseif 2 == o then
d.regen_file("data/dungeon/skia_boss2.txt")
else
d.regen_file("data/dungeon/skia_boss4.txt")
end
d.setf("grotte_boss", 2)
d.notice("Bine ai venit in camera dragonului. Ai la dispozitie o ora sa il invingi.")
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()
game.set_event_flag("enter", 0)
game.set_event_flag("block" ,0)
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