![[DEV]AB](/data/avatars/s/2135/2135420.jpg?1657747839){kind=avatar}
eklemem gerekiyor
Kule tamamlandıktan sonra bir saat bekleme süresi
umarım yardım edebilirsin
Kule tamamlandıktan sonra bir saat bekleme süresi
umarım yardım edebilirsin
quest MeleyDungeon begin
state start begin
when 20441.chat.lc_quest("71") with pc.get_map_index() == 62 begin
local name = pc.get_name()
local npc_name = mob_name(20441)
say_title(npc_name.." - "..name)
say(lc_quest("ENTER_DUNGEON"))
local x = select(lc_quest("INDIVIDUAL"),lc_quest("PARTY"),lc_quest("CANCEL"))
if x == 1 then
say_title(npc_name.." - "..name)
say("")
say(lc_quest("12"))
local c = select(lc_quest("YES"),lc_quest("CANCEL"))
if c == 1 then
if pc.get_level() < 110 then
say_title(npc_name.." - "..name)
say("")
say(lc_quest("LEVEL_ERROR"))
return
end
if pc.getf("MeleyDungeon","cooldown") > get_global_time() then
local r_cooldown = pc.getf("MeleyDungeon","cooldown") - get_global_time()
say_title(npc_name.." - "..name)
say("")
say(lc_quest("10"))
say(r_cooldown..lc_quest("11"))
return
end
if pc.count_item(25170) < 1 then
if pc.count_item(25170) < 1 then
say_title(npc_name.." - "..name)
say("")
say(lc_quest("NO_KEY"))
say_item_vnum(25170,1)
return
else
pc.remove_item(25170,1)
d.new_jump(212, 3200*100,15299*100)
if d.select(d.get_map_index()) then
d.setf("first_regen",1)
d.setf("DungeonBlock",1)
end
end
else
pc.remove_item(25170,1)
d.new_jump(212, 3200*100,15299*100)
if d.select(d.get_map_index()) then
d.setf("first_regen",1)
d.setf("DungeonBlock",1)
end
end
else
return
end
elseif x == 2 then
say_title(npc_name.." - "..name)
say("")
say(lc_quest("GROUP"))
local c = select(lc_quest("YES"),lc_quest("CANCEL"))
if c == 1 then
if not party.is_party() then
say_title(npc_name.." - "..name)
say("")
say(lc_quest("NO_PARTY"))
return
end
if party.get_near_count() < 2 then
say_title(npc_name.." - "..name)
say("")
say(lc_quest("NO_PARTY_MEMBER"))
return
end
local user_fail_level = {}
local user_fail_ticket = {}
local user_fail_cooldown = {}
local ticketCheck = true
local LevelCheck = true
local CooldownCheck = true
local pids = {party.get_member_pids()}
for i, pid in pairs(pids) do
q.begin_other_pc_block(pid)
if pc.get_level() < 110 then
table.insert(user_fail_level, pc.get_name())
LevelCheck = false
end
if pc.count_item(25170) < 1 then
if pc.count_item(25170) < 1 then
-- if pc.count_item(71568) < 1 then
table.insert(user_fail_ticket, pc.get_name())
ticketCheck = false
end
end
if pc.getf("MeleyDungeon","cooldown") > get_global_time() then
table.insert(user_fail_cooldown, pc.get_name())
CooldownCheck = false
end
q.end_other_pc_block()
end
if ticketCheck == false then
say("Bileti olmayan üyeler: ")
local a = 1
for i, name in next, user_fail_ticket, nil do
say(string.format("%d. %s",a,name))
a = a+1
end
say("")
say_item_vnum(25170,1)
-- say_item_vnum(71568,1)
return
end
if LevelCheck == false then
say(lc_quest("LOW_LEVEL"))
local a = 1
for i, name in next, user_fail_level, nil do
say(string.format("%d. %s",a,name))
a = a+1
end
say("")
return
end
if CooldownCheck == false then
say(lc_quest("COOLDOWN"))
local a = 1
for i, name in next, user_fail_cooldown, nil do
say(string.format("%d. %s",a,name))
a = a+1
end
return
end
if ticketCheck == true and LevelCheck == true and CooldownCheck == true then
for i, pid in pairs(pids) do
q.begin_other_pc_block(pid)
if pc.count_item(25170) > 0 then
pc.remove_item(25170,1)
-- elseif pc.count_item(71568) > 0 then
-- pc.remove_item(71568,1)
end
q.end_other_pc_block()
end
d.new_jump_party(212, 3200, 15299)
if d.select(d.get_map_index()) then
d.setf("first_regen",1)
d.setf("DungeonBlock",1)
end
end
else
return
end
end
end
when login with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
if d.select(pc.get_map_index()) then
if d.getf("first_regen") == 1 then
d.mission_notice(d.get_map_index(),"1102")
d.regen_file("data/dungeon/meley/first_regen.txt")
server_timer("meley_full_timer",60*60,d.get_map_index())
d.setf("real_time",get_global_time()+60*60)
d.setf("first_regen",0)
d.setf("level",1)
end
cmdchat(string.format("RefreshDungeonTimer %d %d",d.getf("level"),d.getf("real_time")-get_global_time()))
end
end
when meley_full_timer.server_timer begin
if d.select(get_server_timer_arg()) then
d.global_warp_all_to_base(598600,657300,d.get_map_index(),0)
d.setf("DungeonBlock",0)
end
end
when logout with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
if d.select(pc.get_map_index()) then
if d.getf("DungeonBlock") == 1 then
pc.setf("MeleyDungeon","map",d.get_map_index())
pc.setf("MeleyDungeon","time",get_global_time()+5*60)
pc.setf("MeleyDungeon","channel",pc.get_channel_id())
else
pc.setf("MeleyDungeon","map",0)
pc.setf("MeleyDungeon","time",0)
pc.setf("MeleyDungeon","channel",0)
end
--pc.warp(598600,657300)
end
end
when 20440.click with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
npc.kill()
end
when 6230.attack with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local hp = npc.get_hp(1)
local level = d.getf("level")
if npc.get_protect_time(1,"IsOn") == 0 then
if level == 1 and hp <= 7000000 then
npc.set_statu_affect(1,1)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,7000000) -- 7T
server_timer("meley_1",1,d.get_map_index())
end
elseif level == 2 and hp <= 6000000 then
npc.set_statu_affect(1,1)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,6000000) -- 7T
server_timer("meley_2",1,d.get_map_index())
end
elseif level == 3 and hp <= 5000000 then
npc.set_statu_affect(1,1)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,5000000) -- 7T
server_timer("meley_3",2,d.get_map_index())
end
elseif level == 4 and hp <= 4000000 then
npc.set_statu_affect(1,1)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,4000000) -- 7T
server_timer("meley_4",2,d.get_map_index())
end
elseif level == 5 and hp <= 3000000 then
npc.set_statu_affect(1,1)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,3000000) -- 7T
server_timer("meley_1",2,d.get_map_index())
end
elseif level == 6 and hp <= 2000000 then
npc.set_statu_affect(1,1)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,2000000) -- 7T
server_timer("meley_5",1,d.get_map_index())
end
elseif level == 7 and hp <= 1000000 then
npc.set_statu_affect(1,1)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,1000000) -- 7T
server_timer("meley_1",2,d.get_map_index())
end
elseif level == 8 and hp <= 30000 then
npc.set_statu_affect(1,3)
npc.set_protect_time(1,"IsMeleyBlock",1)
npc.set_protect_time(1,"IsOn",1)
local new = d.getf("status_range")+1
d.setf("status_range",new)
if new == 4 then
npc.set_meley_hp(index,6230,1) -- 7T
server_timer("meley_6",1,d.get_map_index())
end
end
end
end
when 20444.kill with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local index = pc.get_map_index()
if d.select(index) then
local flag = d.getf("level")
local new = d.getf("stone")+1
d.setf("stone",new)
if new == 9 then
if flag == 1 then
GetMissionInfo(2,d.getf("real_time")-get_global_time())
d.setf("level",2)
npc.show_statu(index)
npc.set_meley_hp(index,6231,7000000) -- 7T
d.mission_notice(index,"1102")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
elseif flag == 5 then
GetMissionInfo(6,d.getf("real_time")-get_global_time())
d.setf("level",6)
npc.show_statu(index)
npc.set_meley_hp(index,6231,3000000) -- 7T
d.mission_notice(index,"1102")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
elseif flag == 7 then
GetMissionInfo(8,d.getf("real_time")-get_global_time())
d.setf("level",8)
npc.show_statu(index)
npc.set_meley_hp(index,6231,1) -- 7T
d.mission_notice(index,"1102")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
end
end
end
end
when meley_1.server_timer begin
local index = get_server_timer_arg()
if d.select(index) then
d.mission_notice(index,"1103")
d.regen_file("data/dungeon/meley/stone.txt")
d.regen_file("data/dungeon/meley/regen.txt")
end
end
when meley_2.server_timer begin
local index = get_server_timer_arg()
if d.select(index) then
d.mission_notice(index,"1104")
d.spawn_mob(9566, 130, 131)
d.regen_file("data/dungeon/meley/regen.txt")
end
end
when meley_3.server_timer begin
local index = get_server_timer_arg()
if d.select(index) then
d.mission_notice(index,"1104")
d.spawn_mob(9571, 130, 131)
d.regen_file("data/dungeon/meley/regen.txt")
end
end
when meley_4.server_timer begin
local index = get_server_timer_arg()
if d.select(index) then
d.mission_notice(index,"1104")
d.spawn_mob(9577, 130, 131)
d.regen_file("data/dungeon/meley/regen.txt")
end
end
when meley_5.server_timer begin
local index = get_server_timer_arg()
if d.select(index) then
d.mission_notice(index,"1104")
d.spawn_mob(9578, 130, 131)
d.regen_file("data/dungeon/meley/regen.txt")
end
end
when meley_6.server_timer begin
local index = get_server_timer_arg()
if d.select(index) then
d.mission_notice(index,"1104")
d.spawn_mob(6228, 130, 131)
d.spawn_mob(6228, 130, 131)
d.spawn_mob(6228, 130, 131)
d.spawn_mob(6228, 130, 131)
d.spawn_mob(6228, 130, 131)
d.regen_file("data/dungeon/meley/regen.txt")
end
end
when 9566.kill with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local index = pc.get_map_index()
if d.select(index) then
GetMissionInfo(3,d.getf("real_time")-get_global_time())
d.setf("level",3)
npc.show_statu(index)
npc.set_meley_hp(index,6231,6000000) -- 7T
d.mission_notice(index,"1102 ")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
end
end
when 9571.kill with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local index = pc.get_map_index()
if d.select(index) then
GetMissionInfo(4,d.getf("real_time")-get_global_time())
d.setf("level",4)
npc.show_statu(index)
npc.set_meley_hp(index,6231,5000000) -- 7T
d.mission_notice(index,"1102")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
end
end
when 9577.kill with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local index = pc.get_map_index()
if d.select(index) then
GetMissionInfo(5,d.getf("real_time")-get_global_time())
d.setf("level",5)
npc.show_statu(index)
npc.set_meley_hp(index,6231,4000000) -- 7T
d.mission_notice(index,"1102")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
end
end
when 9578.kill with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local index = pc.get_map_index()
if d.select(index) then
GetMissionInfo(7,d.getf("real_time")-get_global_time())
d.setf("level",7)
npc.show_statu(index)
npc.set_meley_hp(index,6231,2000000) -- 7T
d.mission_notice(index,"1102")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
end
end
when 6228.kill with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local index = pc.get_map_index()
if d.select(index) then
local new = d.getf("stone")+1
d.setf("stone",new)
if new == 5 then
GetMissionInfo(9,d.getf("real_time")-get_global_time())
d.setf("level",9)
npc.show_statu(index)
npc.dead_by_vnum(index,6231)
d.mission_notice(index,"1003")
npc.set_protect_flag2(index,"IsOn",0)
npc.set_protect_flag2(index,"IsMeleyBlock",0)
npc.set_statu_clear_aff(index)
d.setf("stone",0)
d.setf("status_range",0)
npc.dead_by_vnum(index,6230)
d.spawn_mob(20442, 130, 131)
end
end
end
when 20442.kill with pc.get_map_index() >= 2120000 and pc.get_map_index() <= 2129999 begin
local index = pc.get_map_index()
if d.select(index) then
d.clear_regen()
d.mission_notice(index,"1003")
do_battlepass_mission(6, 1, 212)
d.setqf2("MeleyDungeon","cooldown",get_global_time()+60*60*3)
GetMissionInfo(10,60)
if game.check_event(5, d.getf("dungeon_empire")) then --add DUNGEON_COOLDOWN_EVENT=5
d.setqf2("MeleyDungeon","cooldown",get_global_time()+3*30*60)
else
d.setqf2("MeleyDungeon","cooldown",get_global_time()+3*60*60)
end
d.track_update(20442)
clear_server_timer("meley_1",index)
clear_server_timer("meley_2",index)
clear_server_timer("meley_3",index)
clear_server_timer("meley_4",index)
clear_server_timer("meley_5",index)
clear_server_timer("meley_6",index)
clear_server_timer("meley_full_timer",index)
d.setf("level",0)
d.setf("DungeonBlock",0)
d.global_warp_all_to_base(598600,657300,index,60)
end
end
when 20441.chat.lc_quest("BACK_DUNGEON") with pc.getf("MeleyDungeon","map") >= 1 and pc.get_map_index() == 62 begin
local c = pc.getf("MeleyDungeon","map")
local z = pc.getf("MeleyDungeon","channel")
local dwLevel = d.getf_from_map_index("level",c)
if d.select(c) then
if get_global_time() > pc.getf("MeleyDungeon","time") then
say(lc_quest("CANT_BACK"))
pc.setf("MeleyDungeon","map",0)
pc.setf("MeleyDungeon","time",0)
pc.setf("MeleyDungeon","channel",0)
return
end
pc.warp(3200*100,15299*100, c)
else
say(lc_quest("NO_CH"))
say(lc_quest(string.format("NO_CH2 %d ",z)))
return
end
end
end
end
