05 Feb 2022, 16:58

*Problemă/Întrebare: Nu imi arata timpul corect
Tipologie server: PVM
*Resursă folosită:[Sursa=]arhiva-resurse/camera-cristal-t3647.html[/Sursa]
*ServerFiles utilizat: propiu
*Syserr:
Poză:
*Detalii suplimentare:Am adaugat doungeon info in quest, dar nu vad unde sa fie eroarea, la Dt imi merge perfect, in rest la dragon si baroneasa imi arata timpul extrem de mare, am atasat si questul de la dragon, poate ma ajuta cineva

----------------------------------------------------
--Camera_de_cristal_by_demonn
----------------------------------------------------
quest Camera_de_cristal_by_demon 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() or pc.count_item(80041) >= 1 then
say_title(""..mob_name(30121).."")
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(30121).."")
say_reward("Pentru a intra în templul lui Beran,")
say_reward("ai nevoie de "..item_name(30179).."")
say_item_vnum(30179)
say_reward("Aceasta cheie rasucita pica la Capitanul Setaou.")
say_reward("Ai nevoie de trei Chei Rasucite pentru a intra.")
return
end
if game.get_event_flag("Grotte_zugang") == 1 then
say_title(""..mob_name(30121).."")
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 î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(30121).."")
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 Rasucite.")
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("")
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 în mine, ultima suflare a zeului dragon.")
say("Aceasta suflare magica te pot ajuta sa mergi în")
say_reward("Camera de cristal.")
say("")
say("Ai nevoie de cele trei chei rasucite.")
local i = select("Da, Vreau", "Nu, Multumesc")
if 1 == i then
say_title(""..mob_name(30121).."")
say("Ai nevoie de un cod pentru tine oi grupul tau.")
say("Codul pe care îl vei introduce, va trebui sa ")
say("contina 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(30121).."")
pc.setqf("abgabe",1)
say("Parola aleasa este: "..passwort.."")
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() == 208 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() == 208 then
chat("")
warp_to_village()
end
-- DUNGEON_MANAGER_RANKING
if pc.getf("Camera_de_cristal_by_demon", "entered") != 1 then
pc.setf("Camera_de_cristal_by_demon", "entered", 1)
pc.setf("Camera_de_cristal_by_demon", "enter_time", get_global_time())
end
-- END_OF_DUNGEON_MANAGER_RANKING
notice_in_map("[Camera de cristal]:Bun venit în camera de cristal ! Începem prima sarcina a voastra.")
notice_in_map("[Camera de cristal]:Spargeti toate metinele, si aflati care este metinul corespunzator.")
pc.set_warp_location(73 , 1825, 12207)
end
when logout begin
-- DUNGEON_MANAGER_RANKING
pc.setf("Camera_de_cristal_by_demon", "entered", 0)
pc.setf("Camera_de_cristal_by_demon", "enter_time", 0)
-- END_OF_DUNGEON_MANAGER_RANKING
end
when 8031.kill with pc.get_map_index() == 208 begin
timer("skipia_boss_goo", 10)
notice_in_map("[Camera de cristal]:Ati spart metinul corespunzator.")
notice_in_map("[Camera de cristal]:Îl veti întâlni 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(208, 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_in_map("[Camera de cristal]:Ati spart pâna 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 si mai multe metine.")
if 1 == t then
d.regen_file("data/dungeon/dragon_albastru/skia_boss1.txt")
elseif 2 == t then
d.regen_file("data/dungeon/dragon_albastru/skia_boss2.txt")
elseif 3 == t then
d.regen_file("data/dungeon/dragon_albastru/skia_boss3.txt")
else
d.regen_file("data/dungeon/dragon_albastru/skia_boss4.txt")
end
end
end
when 2493.kill with pc.in_dungeon() and d.getf("grotte_boss") == 2 begin
-- DUNGEON_MANAGER_RANKING
if party.is_party() then
local pids = {party.get_member_pids()}
for i, pid in next, pids, nil do
q.begin_other_pc_block(pid)
d.update_rank(208, (get_global_time() - pc.getf("Camera_de_cristal_by_demon", "enter_time")), pc.get_last_damage())
q.end_other_pc_block()
end
else
d.update_rank(208, (get_global_time() - pc.getf("Camera_de_cristal_by_demon", "enter_time")), pc.get_last_damage())
end
-- END_OF_DUNGEON_MANAGER_RANKING
d.setf("grotte_boss", 3)
notice_all("Cu o ultima suflare de speranta liderul "..pc.get_name().."")
notice_all("Urmat de razboinici lui de încredere, au reusit sa învinga 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/dragon_albastru/skia_boss.txt")
local t = number(1,4)
if 1 == t then
d.regen_file("data/dungeon/dragon_albastru/skia_boss1.txt")
elseif 2 == t then
d.regen_file("data/dungeon/dragon_albastru/skia_boss2.txt")
elseif 3 == t then
d.regen_file("data/dungeon/dragon_albastru/skia_boss3.txt")
else
d.regen_file("data/dungeon/dragon_albastru/skia_boss4.txt")
end
local o = number(1,4)
if 1 == o then
d.regen_file("data/dungeon/dragon_albastru/skia_boss5.txt")
elseif 2 == o then
d.regen_file("data/dungeon/dragon_albastru/skia_boss6.txt")
elseif 3 == o then
d.regen_file("data/dungeon/dragon_albastru/skia_boss7.txt")
else
d.regen_file("data/dungeon/dragon_albastru/skia_boss8.txt")
end
d.setf("grotte_boss", 2)
d.notice("[Camera de cristal]:Aveti la dispozitie 60 de minute sa îi capturati 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(208)
game.set_event_flag("Grotte_zugang",0)
d.setf("grotte_boss", 1)
d.exit_all()
-- END_OF_DUNGEON_MANAGER_RANKING

end
when login with pc.get_map_index() != 208 or not pc.in_dungeon() begin
pc.setqf("erlaubt",0)
end
end
end

• Citat

06 Feb 2022, 18:54

• Citat

08 Feb 2022, 22:00

• Citat

23 Feb 2022, 19:12

Afișează semnătura