[Pisanie] questa na katakumby

[krystian2345]

Witam szukam questa działającego na katakumby, te które znalazłem miały błędy.

Może być nawet w obcym języku.

Z góry dziękuję >

[krystian2345]

f5

[xVenatx]

-----------------------------------

-- Orginal The Devils Catacomb

-----------------------------------

quest catacomb begin

state start begin

when 1093.kill with pc.get_map_index() == 66 begin

d.notice("The Devils catacomb going")

d.new_jump_all(MAPINDEX , x , y)

end

when 20092.chat."Diabelskie Katakumby" with pc.get_map_index() == 713 begin

say_title("Guard")

say("")

say("Piekielne Katakumby są dostępne od 120 poziomu")

wait()

if pc.get_level() < 120 then

say("Twój poziom jest zbyt niski, bym")

say("mógł cię wpuścić!")

end

if pc.get_level() >= 120 then

say("Dobrze, zostaniesz przeniesiony.")

pc.warp(307200,1203200)

end

end

when login with pc.get_map_index() == 712 begin

d.jump_all(81,58)

say_title("Diabelski Kamień 1")

say("")

say("60 Minute there is careful")

say("Go to the holy place and the stone sculpture")

pc.give_item2("seal",1)

end

when sculpture.chat."1 Piętro" with pc.get_map_index() == 712 begin

say_title("Diabelski Kamień 1")

say("Wybierasz się do")

d.jump_all(544,42)

end

when login with pc.get_map_index() == 712 begin

d.notice("Znajdz statułę i porozmawiaj z nią")

end

when sculpture1.chat."2 Piętro" with pc.get_map_index() == 712 begin

say_title("Tajemniczy Posąg")

say("")

say("Witaj mogę cię przenieść na następne ")

say("piętro Diabelskich Katakumb.")

wait()

local s = select("Przenoś!", "Uciekam!!!")

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("Znajdz poprawnego metina!")

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,8)

if i != j then

local t = positions;

positions = positions[j];

positions[j] = t;

end

end

-- for i = 1, 8 do

-- positions[1] = positions[1] * 100

-- positions[2] = positions[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[1], positions[2])

d.set_unique("fake" .. i , d.spawn_mob(8017, positions[1], positions[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. Opcje Piętra.");

d.notice("Most of the fake stone text here");

d.notice("Znajdz prawdziwy w 15 minut");

d.notice("i zniszcz go!.. ")

d.notice("Ta droga prowadzi wyłącznie do frontowego portalu");

end

when catacomb_stone3_fail1.server_timer begin

if d.select(get_server_timer_arg()) then

d.notice("Zostało 10 minut.")

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 Remaining")

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("Time Expired")

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("Hearing ability and interior motives ")

d.notice("")

d.notice("Kolejny Kamień został zniszczony!");

d.notice("4. Chcę iść dalej!")

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("Boss został zabity !")

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("To jest komnata Kostucha.")

d.notice("Znajdz jego legowisko!")

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("Następne piętro")

item.remove();

npc.purge();

d.jump_all(1300,704)

end

when login with pc.get_map_index() == 712 begin

d.notice("Boss został zabity")

end

when boss.kill with pc.in_dungeon() begin

say_title("Diabelski Kamień 6")

say("")

say("Czy chcesz kontynuować ?")

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("Czas Minoł")

d.exit_all()

end

when login with pc.get_map_index() == mapindex begin

d.notice("Kostucha została zabita !")

end

when 5290.kill with pc.in_dungeon() begin

wait()

say_title("Diabelski Kamień 7")

say("")

say("Misja Zakończona !")

say("")

d.exit_all()

end

end

end