HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
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
Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)
Benzer konular
