[Sursa=]quest enchanted_forest_zone begin
state start begin
function setting()
return
{
["map_index"] = 210,
["ticket_vnum"] = 30613,
["dungeon_entry_pos"] = {7824, 15021},
["boss1"] = 6408,
["boss2"] = 6418,
["spawn"] = {70, 941},
}
end

function make_dungeon(ld_vid, channel)
local setting = enchanted_forest_zone.setting()
local event_flag = string.format("frt_dungeon_status_%d", channel)
game.set_event_flag(event_flag, get_time() + 60 * 120)

d.new_jump_party(setting.map_index, setting.dungeon_entry_pos[1], setting.dungeon_entry_pos[2])
d.setf("frt_party_leader_pid", ld_vid)
party.setf("frt_dungeon_index", d.get_map_index())

d.spawn_mob(setting.boss1, setting.spawn[1], setting.spawn[2])
clear_server_timer("frt_2h_left_timer", get_server_timer_arg())
clear_server_timer("frt_exit_timer", get_server_timer_arg())
server_timer("frt_2h_left_timer", 60 * 120, d.get_map_index())
end

when login begin
local idx = pc.get_map_index()
local setting = enchanted_forest_zone.setting()
if idx >= (setting.map_index * 10000) and idx < (setting.map_index * 10000 + 10000) then
pc.setf("enchanted_forest", "limit_activity", 0)
if pc.getqf("dungeon_enter") > 0 then
pc.setqf("dungeon_enter", 0)
return
end

pc.warp(816700, 1505000)
end
end

when logout begin
local idx = pc.get_map_index()
local setting = enchanted_forest_zone.setting()
if idx >= (setting.map_index * 10000) and idx < (setting.map_index * 10000 + 10000) then
pc.setqf("exit_time_logout", get_global_time() + 5 * 60)
if pc.getqf("dungeon_enter") > 0 then
pc.setqf("dungeon_enter", 0)
end

pc.setf("enchanted_forest", "limit_activity", get_time() + 10 * 60)
end
end

when 6408.kill with pc.in_dungeon() begin
local setting = enchanted_forest_zone.setting()
d.spawn_mob(setting.boss2, setting.spawn[1], setting.spawn[2])
end

when 6418.kill with pc.in_dungeon() begin
local setting = enchanted_forest_zone.setting()
d.set_warp_location(202, 12779, 17347)

d.notice("felicitari,airestabilit pacea in padure!")
d.notice("vei fii teleportat imediat in Padure.")

server_timer("frt_exit_timer", 30, d.get_map_index())
end

when frt_2h_left_timer.server_timer begin
if d.select(get_server_timer_arg()) then
d.set_warp_location(302, 12779, 17347)
d.notice("The time is up.")

server_timer("frt_exit_timer", 3, get_server_timer_arg())
end
end

when frt_exit_timer.server_timer begin
if d.select(get_server_timer_arg()) then
clear_server_timer("frt_exit_timer", get_server_timer_arg())
clear_server_timer("frt_2h_left_timer", get_server_timer_arg())
d.setf("frt_party_leader_pid", 0)
d.exit_all()
end
end

when 20412.chat."Bagjanamu's Room" begin
local setting = enchanted_forest_zone.setting()

say_title(mob_name(20412))
say("")
say("Vrei sa intrii in camera lui Bagjanamu?")
local agree = select("Da", "Nu")
if agree == 1 then
say_title(mob_name(20412))
say("")
if not party.is_party() then
say("Pentru a intra in camera lui Bangjanamu")
say("ai nevoie de o grupa -5 membrii in grupa- ")
return
end

local party_check = 0
if d.find(party.getf("frt_dungeon_index")) then
party_check = (d.getf_from_map_index("frt_party_leader_pid", party.getf("frt_dungeon_index")) == party.get_leader_pid())
end

if d.find(party.getf("frt_dungeon_index")) and party_check then
if get_global_time() > pc.getqf("exit_time_logout") then
say("Ai venit prea tarziu")
say("Intoarce-te in 5 minute.")
return
end

pc.setf("enchanted_forest_zone", "dungeon_enter", 1)
say("te voi teleporta la grupa.")
say("")
wait()
pc.warp(setting.dungeon_entry_pos[1] * 100, setting.dungeon_entry_pos[2] * 100, party.getf("frt_dungeon_index"))
end

local event_flag = string.format("frt_dungeon_status_%d", pc.get_channel_id())
if game.get_event_flag(event_flag) > get_time() then
local next_time = (game.get_event_flag(event_flag) - get_time())
say("Momentan camera este ocupata.")
if next_time < 60 then
say(string.format("Incearca iar in %d secunde.", tonumber(next_time)))
else
say(string.format("Incearca iar in %d minute.", tonumber(next_time / 60)))
end

return
end

if not party.is_leader() then
say("Pentru a permite accesul trebuie sa")
say("fi liderul unei grupe.")
return
end

if party.get_near_count() < 5 then
say("Pentru a intra in camera ai nevoie de 5 membrii")
say("in grup.")
return
end

local pids = {party.get_member_pids()}
local ticketCheck = true
local notEnoughTicketMembers = {}

for i, pid in next, pids, nil do
q.begin_other_pc_block(pid)
if pc.count_item(setting.ticket_vnum) < 1 then
table.insert(notEnoughTicketMembers, pc.get_name())
ticketCheck = false
end

q.end_other_pc_block()
end

if not ticketCheck then
say("Pentru a intra in camera toti membrii")
say(string.format("grupei trebuie sa aibe %s.", item_name(setting.ticket_vnum)))
say("")
say("urmatorii membrii nu au ticketul:")
for i, name in next, notEnoughLevelMembers, nil do
say("- "..name.."")
end

return
end

for i, pid in next, pids, nil do
q.begin_other_pc_block(pid)
pc.remove_item(setting.ticket_vnum, 1)
pc.setf("enchanted_forest_zone", "dungeon_enter", 1)
q.end_other_pc_block()
end

say("dupa ce ai continuat vei fii teleportat")
say("in camera.")
wait()
enchanted_forest_zone.make_dungeon(party.get_leader_pid(), pc.get_channel_id())
end
end
end
end[/Sursa]