[HOT][REALESE]Devil catacomb[FUNTCIONAL QUEST][RO QUEST]

In jos

[HOT][REALESE]Devil catacomb[FUNTCIONAL QUEST][RO QUEST]

Mesaj Scris de laurbos la data de Vin Apr 13, 2012 11:37 pm

Salutare!După cum ştiti ,este destul de rar acest quest.El este creat fară quest creator nici nu cred că e posibil.Deasemenea este şi în limba română şi questul este funcţional,fără nici un bug!Topicul era dp. elitepvper,dar avea buguri,eu lam luat şi lam debuguit şi lam tradus!


QUEST:
-----------------------------------
-- Quest functional by geoxx,Tutorialgx.info
-----------------------------------
quest catacomb begin
state start begin
when 1093.kill with pc.get_map_index() == 66 begin
d.notice("Dute catre catacomba diavoului")
d.new_jump_all(MAPINDEX , x , y)
end

when 20092.chat."Catacomba diavoului" with pc.get_map_index() == 713 begin
say_title("Gardian")
say("")
say("Ai nevoie de nivelul 75 ca sa intri")
wait()
if pc.get_level() < 75 then
say("Imi pare rau,nu ai nivelul necesar")
end
if pc.get_level() >= 75 then
say("Ok,te voi trimite imediat")
pc.warp(307200,1203200)
end
end

when login with pc.get_map_index() == 712 begin
d.jump_all(81,58)
say_title("Catacomba diavolului Piatra 1")
say("")
say("60 Minute ai la dispozitie")
say("Dute la locul sfat si la sculptura din piatra!")
pc.give_item2("seal",1)
end

when sculpture.chat."Etajul 1" with pc.get_map_index() == 712 begin
say_title("Catacomba diavolului Piatra 1")
say("Vei fi teleporatat imediat!")
d.jump_all(544,42)
end

when login with pc.get_map_index() == 712 begin
d.notice("Gaseste statuia!")
end

when sculpture1.chat."Etajul 2" with pc.get_map_index() == 712 begin
say_title("Sculptura ******")
say("")
say("Salut,vrei sa te duci la urmatorul etaj? ")
say("")
wait()
local s = select("Da", "Nu,iesi")
if 1 == s then
d.jump_all(1380,250)
end
if 2 == s then
d.exit_all()
end
end

when login with pc.get_map_index() == 712 begin
d.notice("Scopul este sa gasesti textul corect")
end

function get_3floor_stone_pos()
local positions = {
{1249,343}
{1353,351}
{1249,250}
{1249,153}
{1349,150}
{1149,252}
{1152,148}
{1148,347}
}
for i = 1, 6 do
local j = number(i,Cool
if i != j then
local t = positions[i];
positions[i] = positions[j];
positions[j] = t;
end
end
-- for i = 1, 8 do
-- positions[i][1] = positions[i][1] * 100
-- positions[i][2] = positions[i][2] * 100
end

when 8019.kill with pc.get_map_index() == 712 begin
local positions = catacombstone.get_3floor_stone_pos()
for i = 1, 8 do
chat(positions[i][1], positions[i][2])
d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
end
chat(positions[7][1], positions[7][2])
local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
chat(vid)
d.set_unique("real", vid)
server_loop_timer('catacomb_stone3_update', 10, pc.get_map_index())
server_timer('catacomb_stone3_fail1', 5*60, pc.get_map_index())

d.notice("3. Podeaua usa.");
d.notice("Ai gasit cele mai multe pietre false");
d.notice("Gasesteo pe cea adevarata in 15 minute");
d.notice("si Distrugeo !.. ")
d.notice("Este singura cale sa treci la etajul urmator");
end
when catacomb_stone3_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("10 Minute Ramase.")
server_timer('catacomb_stone3_fail2', 5*60, get_server_timer_arg())
end
end

when catacomb_stone3_fail2.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("5 Minute Ramase.")
server_timer('catacomb_stone4_fail', 5*60, get_server_timer_arg())
end
end

when catacomb_stone3_fail.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Timp expirat.")
d.exit_all()
clear_server_timer('catacomb_stone3_update', get_server_timer_arg())
end
end

when catacomb_stone3_update.server_timer begin
if d.select(get_server_timer_arg()) then
if not d.is_unique_dead("real") then
for i = 1, 8 do
if d.getf("fakedead" .. i) == 0 then
if d.unique_get_hp_perc("fake" .. i) < 50 then
d.purge_unique("fake" .. i)
d.setf("fakedead" .. i, 1)
d.notice("");
end
end
end
else
server_timer("catacomb_stone3_end", 5, get_server_timer_arg())
d.notice("Se pare ca ai reusit! ")
d.notice("")
d.notice("Ai distrus piatra");
d.notice("Vei ajunge la etajul 4")
d.jump_all(500,717)
clear_server_timer('catacomb_stone3_fail1', get_server_timer_arg())
clear_server_timer('catacomb_stone3_fail2', get_server_timer_arg())
clear_server_timer('catacomb_stone3_fail', get_server_timer_arg())
end
else
server_timer('catacomb_stone3_stop_timer', 1, get_server_timer_arg())
end
end

when catacomb_stone3_stop_timer.server_timer begin
clear_server_timer('catacomb_stone3_update', get_server_timer_arg())
end

when login with pc.get_map_index() == 712 begin
d.notice("Omoarata toti sefi !")
d.spawn_mob(mobid , 500,787)
end

when 2526.kill with pc.get_map_index() == 712 begin
d.jump_all(846,907)
end

when login with pc.get_map_index() == 712 begin
d.notice("Aceasta este camerea sigiliilor")
d.notice("Cauta si ia sigiliul!")
end

when 2322.kill with pc.in_dungeon() begin
game.drop_item("seal",1)
end

when stone.take with item.vnum == seal and pc.get_map_index() == 712 begin
d.notice("Vei fi teleportat catre urmatorul etaj")
item.remove();
npc.purge();
d.jump_all(1300,704)
end

when login with pc.get_map_index() == 712 begin
d.notice("Omoara toti sefi")
end

when boss.kill with pc.in_dungeon() begin
say_title("Catacomba diavoululi Piatra 6")
say("")
say("Doresti sa continuii ?")
local s = select(locale.yes , locale.no)
if 1 == s then
d.jump_all(74,1158)
end
if 2 == s then
local reward_alchemist = {20074, 20075, 20076}
d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
d.setqf("can_refine", 5)
timer("catacombs_times",120)
end
end

when catacombs_times.timer with pc.get_map_index() == 712 begin
d.notice("Timp exipirat")
d.exit_all()
end

when login with pc.get_map_index() == mapindex begin
d.notice("Dr.House omoara !")
end

when 5290.kill with pc.in_dungeon() begin
wait()
say_title("Catacomba diavoululi Piatra 7")
say("")
say("Misiune Completa !")
say("")
d.exit_all()
end
end
end


si gata tutoriale de adaugat quest sunt destule


sursa: 4metin.ro
avatar
laurbos

Mesaje : 29
Data de înscriere : 08/04/2012

Sus In jos

Sus


 
Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum