Cand intru in camera de cristal am reusit sa bag mobii si metinele dar imi da la etaj 1 si dragonul..
Cum schimb sa fie pe etaje ?
Camera cristal
nimeni cu un mic ajutor ??....
- FreshXL
-

- Mesaje: 200
- Membru din: 02 Feb 2014, 19:35
- Server: www.herad2.r
- Regat: Chunjo
- Aprecieri: 0
- Mulţumiri: 33
- Contact:
Acesta este questul( cand intru in camera pe sura famtoma imi apar mobii metinele si dragonul toate odata )
quest Camera_de_cristal 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("con?ina 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.."")
notice_in_map("Parola camerei alese 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() == 408 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() == 408 then
chat("")
warp_to_village()
end
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 8031.kill with pc.get_map_index() == 408 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(408, 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/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 î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/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]: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(408)
game.set_event_flag("Grotte_zugang",0)
d.setf("grotte_boss", 1)
d.exit_all()
end
when login with pc.get_map_index() != 408 or not pc.in_dungeon() begin
pc.setqf("erlaubt",0)
end
end
end
quest Camera_de_cristal 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("con?ina 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.."")
notice_in_map("Parola camerei alese 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() == 408 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() == 408 then
chat("")
warp_to_village()
end
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 8031.kill with pc.get_map_index() == 408 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(408, 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/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 î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/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]: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(408)
game.set_event_flag("Grotte_zugang",0)
d.setf("grotte_boss", 1)
d.exit_all()
end
when login with pc.get_map_index() != 408 or not pc.in_dungeon() begin
pc.setqf("erlaubt",0)
end
end
end
- FreshXL
-

- Mesaje: 200
- Membru din: 02 Feb 2014, 19:35
- Server: www.herad2.r
- Regat: Chunjo
- Aprecieri: 0
- Mulţumiri: 33
- Contact:
Modifica questul tau cu asta:
Dupa mergi in
Inlocueste fisierele tale cu astea
https://mega.co.nz/#!9ZIXQLLD!3BgkvBvkE ... AGBa9n-seg
Bafta.
Cod: Selectaţi tot
----------------------------------------------------
--Camera_de_cristal_by_demonn
----------------------------------------------------
quest Camera_de_cristal 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(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 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 ! Incepem 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 8031.kill with pc.get_map_index() == 189 begin
timer("skipia_boss_goo", 10)
notice_in_map("[Camera de cristal]:Ati spart metinul corespunzator.")
notice_in_map("[Camera de cristal]: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(189, 8432, 10669)
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]:Ati spart pana 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/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 încredere, au reusit sã 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_boss1.txt")
elseif 2 == o then
d.regen_file("data/dungeon/skia_boss2.txt")
elseif 3 == o then
d.regen_file("data/dungeon/skia_boss3.txt")
else
d.regen_file("data/dungeon/skia_boss4.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(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 Cod: Selectaţi tot
/usr/home/game/share/data/dungeonhttps://mega.co.nz/#!9ZIXQLLD!3BgkvBvkE ... AGBa9n-seg
Bafta.
Tot la fel ...nu am rezolvat. Dupa ce ma teleporteaza sura in camera gasesc acolo metinele , mobii, capitanul si dragonul toti odata....cine imi da si mie alta harta buna ?
Nimeni nu stie o rezolvare ??
Lasa si mie te rog o harta bunaFreshXL scrie:Modifica questul tau cu asta:
Dupa mergi inCod: Selectaţi tot
---------------------------------------------------- --Camera_de_cristal_by_demonn ---------------------------------------------------- quest Camera_de_cristal 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(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 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 ! Incepem 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 8031.kill with pc.get_map_index() == 189 begin timer("skipia_boss_goo", 10) notice_in_map("[Camera de cristal]:Ati spart metinul corespunzator.") notice_in_map("[Camera de cristal]: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(189, 8432, 10669) 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]:Ati spart pana 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/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 încredere, au reusit sã 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_boss1.txt") elseif 2 == o then d.regen_file("data/dungeon/skia_boss2.txt") elseif 3 == o then d.regen_file("data/dungeon/skia_boss3.txt") else d.regen_file("data/dungeon/skia_boss4.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(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
Inlocueste fisierele tale cu asteaCod: Selectaţi tot
/usr/home/game/share/data/dungeon
https://mega.co.nz/#!9ZIXQLLD!3BgkvBvkE ... AGBa9n-seg
Bafta.
- FreshXL
-

- Mesaje: 200
- Membru din: 02 Feb 2014, 19:35
- Server: www.herad2.r
- Regat: Chunjo
- Aprecieri: 0
- Mulţumiri: 33
- Contact:
-
- Informaţie
-
Cine este conectat
Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 73 vizitatori

