Cod: Selectaţi tot
quest doungeon_camera_cristal begin
state start begin
when 30121.chat."Cãtre Camera de Cristal" with pc.get_map_index() == 73 begin
if get_time() > game.get_event_flag("grota_timp") then
game.set_event_flag("grota_acces",0)
end
if game.get_event_flag("grota_acces") == 0 and pc.count_item(30179) < 3 then
say_reward ( "Pentru a intra în templul lui Beran, ai nevoie de" )
say ( "" )
say_item_vnum(30179)
say_reward ( "Aceastã cheie rãsucitã cad la Cãpitanul Setaou." )
say_reward ( "Ai nevoie de trei Chei Rãsucite pentru a intra." )
say ( "" )
return
end
if game.get_event_flag("grota_acces") == 1 then
pc.setqf("grota_parola", 078954687921)
if pc.getqf("furnizeaza") == 1 then
pc.setqf("furnizeaza",0)
say ( "Ai cele trei Chei Rãsucite." )
say ( "Te voi teleporta imediat în camera de cristal." )
say ( "" )
pc.setqf ( "permis", 1 )
wait()
pc.warp(843200, 1066900)
return
end
say ( "Introdu codul ales de liderul grupului." )
say ( "" )
local parola = tonumber(input(""))
--pc.setqf("grota_parolao", parola)
if game.get_event_flag("grota_parola") == parola then
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 ( "" )
say_item_vnum(30179)
say ( "Ai nevoie de cele trei Chei Rãsucite." )
say ( "" )
return
end
say("Te voi teleporta imediat.")
say ( "" )
pc.setqf("permis",1)
wait()
if pc.can_warp() then
pc.remove_item("30179",3) end
pc.warp(843200, 1066900)
elseif passi != pc.getqf("grota_parolao") then
say_title(""..mob_name(30121).."")
say("")
return
end
end
if game.get_event_flag("grota_acces") == 0 and pc.count_item(30179) >= 3 then
say_title(""..mob_name(30121).."")
say ( "Deþin în mine, ultima suflare a zeului dragon." )
say ( "Aceastã suflare magicã te pot ajuta sã mergi în" )
say ( "Camera de cristal." )
say ( "" )
say ( "Ai nevoie de cele trei chei rãsucite." )
say ( "" )
local i = select("Da, Vreau", "Nu, Mulþumesc")
if 1 == i then
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.")
say("")
local parola = tonumber(input(""))
if parola and parola <= 999999999 and pc.count_item(30179)>=1 then
game.set_event_flag("grota_acces",1)
game.set_event_flag("grota_parola",parola)
local times = get_time() + 300
game.set_event_flag("grota_timp", times)
say_title(""..mob_name(30121).."")
pc.setqf("furnizeaza",1)
say("Parola aleasa este: "..parola.."")
pc.remove_item("30179",3)
else
say_title(""..mob_name(30121).."")
say("Nu ai scris codul corect.")
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("") return end
if pc.get_level() < 75 or pc.getqf("permis") == 0 and pc.get_map_index() == 207 then
chat("Nu puteti intra. "..pc.get_level().." "..pc.getqf("permis").." "..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 8020.kill with pc.get_map_index() == 207 begin
timer("cameracristal_sef_start", 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 cameracristal_sef_start.timer begin
game.set_event_flag("grota_acces",0)
d.new_jump_all(207, 8427, 10669)
d.setf("grota_sef", 1)
d.spawn_mob(9012, 247, 173)
end
when 8031.kill or 8024.kill with pc.in_dungeon() and d.getf("grota_sef") == 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_boss3.txt")
elseif 2 == t then
d.regen_file("data/dungeon/skia_boss3.txt")
elseif 3 == t then
d.regen_file("data/dungeon/skia_boss3.txt")
else
d.regen_file("data/dungeon/skia_boss3.txt")
end
end
end
when 2493.kill with pc.in_dungeon() and d.getf("grota_sef") == 2 begin
d.setf("grota_sef", 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("cameracristal_sef_sfarsit", 60)
d.spawn_mob(9012, 64, 142)
d.kill_all()
d.clear_regen()
end
when login with pc.in_dungeon() and d.getf("grota_sef") == 2 begin
pc.set_warp_location(73 , 1825, 12207)
end
when login with pc.in_dungeon() and d.getf("grota_sef") == 1 begin
timer("cameracristal_sef_sfarsit", 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_boss3.txt")
elseif 2 == t then
d.regen_file("data/dungeon/skia_boss3.txt")
elseif 3 == t then
d.regen_file("data/dungeon/skia_boss3.txt")
else
d.regen_file("data/dungeon/skia_boss3.txt")
end
local o = number(1,4)
if 1 == o then
d.regen_file("data/dungeon/skia_boss3.txt")
elseif 2 == o then
d.regen_file("data/dungeon/skia_boss3.txt")
elseif 3 == o then
d.regen_file("data/dungeon/skia_boss3.txt")
else
d.regen_file("data/dungeon/skia_boss3.txt")
end
d.setf("grota_sef", 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("grota_sef") == 3 begin -- begin
--pc.warp(181700, 1220600)
end
when cameracristal_sef_sfarsit.timer begin
d.exit_all()
end
when cameracristal_sef_sfarsit.timer begin
kill_all_in_map(207)
game.set_event_flag("grota_acces",0)
d.setf("grota_sef", 1)
d.exit_all()
end
when login with pc.get_map_index() != 207 or not pc.in_dungeon() begin
pc.setqf("permis",0)
end
end
end
de 
de 
de 
de