Cevaplanmadı Syserr deviltower_zone.start Hakında destek

[boombax]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Merhaba arkadaşlar sistemde bu şekilde hata var.
çözümü nedir acaba?
aşağıda lua ve questleri ekliyorum. Yardımlarınız için teşekkürler.

[CODE title="Quest"]quest deviltower_zone begin
state start begin
function continue()
if (get_time() > pc.getqf("last_login_time")) then

say_title(string.format("%s:", mob_name(npc.get_race())))
say("[ENTER]5 dakika içinde geri giriş yapmadığın[ENTER]için kaldığın yerden artık devam edemezsin.")
say("")
say_title("Geri Dönme Sistemi Hakkında Bilgi :")
say("kuleye geri dönme sistemi (5,6,7,8) katlar için[ENTER]kullanılabilir eğer bu katlarda oyundan atma vs sorunlar[ENTER]olursa tek başınıza yeniden kuleye devam edebilirsiniz")
pc.setqf("last_login_time", 0)
pc.setqf("deviltower_continue", 0)
return
end
if (pc.getqf("level") == 4 and pc.getqf("devil_stone4_fail_timer") ~= 3) then
if party.is_party() then
if not party.is_leader() then
say_npc()
say("yalnızca grup lideri giriş talebi yapabilir.")
say("eğer grup'dan çıkarsan seni tek başına içeri alabilirim.")
say("böylece kaldıgın yerden devam edebilirsin")
else
d.new_jump_party(66, special.devil_tower[3][1], special.devil_tower[3][2])
deviltower_zone.process_floor()
pc.setqf("last_login_time", 0)
party.setqf("birkerebosmetinkes",1)
party.syschat("Grup olarak kuleye tekrar giriş yaptınız")
end
else
d.new_jump(66, special.devil_tower[3][1] * 100, special.devil_tower[3][2] * 100)
deviltower_zone.process_floor()
pc.setqf("last_login_time", 0)
end

elseif (pc.getqf("level") == 5 and pc.getqf("devil_stone5_fail_timer") ~= 4) then
if party.is_party() then
pc.setqf("bevisquestkontrol",1)
if not party.is_leader() then
say_npc()
say("yalnızca grup lideri giriş talebi yapabilir.")
say("eğer grup'dan çıkarsan seni tek başına içeri alabilirim.")
say("böylece kaldıgın yerden devam edebilirsin")
else
d.new_jump_party(66, special.devil_tower[4][1], special.devil_tower[4][2])
deviltower_zone.process_floor()
pc.setqf("last_login_time", 0)
end
else
d.new_jump(66, special.devil_tower[4][1] * 100, special.devil_tower[4][2] * 100)
deviltower_zone.process_floor()
pc.setqf("last_login_time", 0)
end

elseif (pc.getqf("level") >= 6 and pc.getqf("level") <= 9) then
if party.is_party() then
if not party.is_leader() then
say_npc()
say("yalnızca grup lideri giriş talebi yapabilir.")
say("eğer grup'dan çıkarsan seni tek başına içeri alabilirim.")
say("böylece kaldıgın yerden devam edebilirsin")
else
d.new_jump_party(66, special.devil_tower[5][1], special.devil_tower[5][2])
deviltower_zone.process_floor()
pc.setqf("last_login_time", 0)
end
else
d.new_jump(66, special.devil_tower[5][1] * 100, special.devil_tower[5][2] * 100)
deviltower_zone.process_floor()
pc.setqf("last_login_time", 0)
end
else
say("Bir hata oluştu.")
pc.setqf("deviltower_continue", 0)
end
end

function process_floor()
d.setf("level", pc.getqf("level"))
pc.setqf("deviltower_continue", 0)
if (pc.getqf("level") == 4) then
for i = 1, 6, 1 do
if (pc.getqf("fake_metin"..i.."_x") > 0 and pc.getqf("fake_metin"..i.."_y") > 0) then
d.set_unique("fake"..i, d.spawn_mob(8017, pc.getqf("fake_metin"..i.."_x"), pc.getqf("fake_metin"..i.."_y")))
end
end

local vid = d.spawn_mob(8017, pc.getqf("real_metin_x"), pc.getqf("real_metin_y"))
d.set_unique("real", vid)
server_loop_timer('devil_stone4_update', 5, pc.get_map_index())
server_timer('devil_stone4_fail'..pc.getqf("devil_stone4_fail_timer"), 5 * 60, pc.get_map_index())
elseif (pc.getqf("level") == 5) then
d.set_regen_file('data/dungeon/deviltower5_regen.txt')
d.setf("stone_count", pc.getqf("stone_count"))
server_timer('devil_stone5_fail'..pc.getqf("devil_stone5_fail_timer"), 5 * 60, get_server_timer_arg())
local position_list = { {421, 452}, {380, 460}, {428, 414}, {398, 392}, {359, 426} }
for i = 1, pc.getqf("stone_count"), 1 do
d.spawn_mob(20073, position_list[1], position_list[2])
end
elseif (pc.getqf("level") == 6) then
if (pc.getqf("proud_demon_king_killed") == 0) then
d.regen_file('data/dungeon/deviltower6_regen.txt')
elseif (pc.getqf("proud_demon_king_killed") == 1 and pc.getqf("deviltower_refine") == 1 and pc.getqf("refine_used") == 0) then
d.spawn_mob(pc.getqf("reward_alchemist"), 425, 216)
end
elseif (pc.getqf("level") == 7) then
if (pc.getqf("7_stone_kill") == 0) then
local position_list = { {639, 658}, {611, 637}, {596, 674}, {629, 670} }
for i = 1, 4, 1 do
d.spawn_mob(8018, position_list[1], position_list[2])
end
else
d.set_regen_file("data/dungeon/deviltower7_regen.txt")
end
d.jump_all(2638, 7294)
elseif (pc.getqf("level") == 8) then
d.set_regen_file("data/dungeon/deviltower8_regen.txt")
d.spawn_mob(20366, 640, 460)
d.jump_all(2638, 7059)
--[[elseif (pc.getqf("level") == 9) then
bugfix0001 start
if() then

else
d.jump_all(2638, 6811)
d.regen_file("data/dungeon/deviltower9_regen.txt")--]]
--end
end
end

function deviltower_continue()
return pc.getf("deviltower_zone", "deviltower_continue") == 1
end

function clear_flags()
for i = 1, 6, 1 do
pc.setqf("fake_metin"..i.."_x", 0)
pc.setqf("fake_metin"..i.."_y", 0)
end
pc.setqf("proud_demon_king_killed", 0)
pc.setqf("stone_count", 0)
pc.setqf("7_stone_kill", 0)
pc.setqf("reward_alchemist", 0)
end


when devil_tower_start.server_timer begin
if (party.is_party()) then
party.setqf("devil_tower_go_party",1)
syschat("devil_tower_go - komutu algılandı ve gönderildi kontrol et")
syschat("Grup olarak giriş yaptın.")
deviltower_zone.process_floor()
syschat("deviltower_zone.process_floor() fonksionu içerisine gönderdim seni")
end
end

when login begin
if pc.get_map_index() == 66 then
if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
pc.warp(590500, 110500)
end
pc.set_warp_location(65, 5905, 1105)
elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
pc.set_warp_location(65, 5376+532, 512+596+4)
end
end

when logout begin
if pc.count_item(30300) >= 1 then
pc.remove_item(30300, pc.count_item(30300))
end
if pc.count_item(30302) >= 1 then
pc.remove_item(30302, pc.count_item(30302))
end

if (d.getf("level") >= 4) then
-- If the player already killed lucifer, the player has not do continue the deviltower again.
if ((d.getf("level") == 9 and pc.getqf("lucifer_killed") == 1)) then
return
end

-- If the player already killed proud demon king and used refine, we don't have to stay at that floor anymore.
-- The player will move on.
if (d.getf("level") == 6 and pc.getqf("proud_demon_king_killed") == 1 and pc.getqf("refine_used") == 1) then
-- Before the player move on, we have to check the player's level is enough for the next floor or not.
-- If it's not, the player can't continue the deviltower anymore.
if (pc.level < 75) then
return
end
d.setf("level", d.getf("level") + 1)
end

if (pc.getqf("last_login_time") == 0) then
pc.setqf("last_login_time", get_time() + (5 * 60))
end

pc.setqf("deviltower_continue", 1)
pc.setqf("level", d.getf("level"))
pc.setqf("stone_count", d.getf("stone_count"))
end
end


when 20348.chat."Şeytan Kulesi " begin
if pc.get_level() < 40 then
say_title("Şeytan Kulesi Bekçisi:")
say(locale.deviltower_man_say_you_cant)
else
say_title("Şeytan Kulesi Bekçisi:")
say(locale.deviltower_man_say)
local s = select(locale.deviltower_enter,locale.deviltower_no_enter)
if s == 1 then
pc.setqf("deviltower_continue", 0)
pc.setqf("lucifer_killed", 0)
pc.warp(216500,727000)
end
end
end


when 20348.chat."Şeytan Kulesine devam et..." with (deviltower_zone.deviltower_continue() --[[and game.get_event_flag("dt_recall") == 0--]]) begin
say_title(string.format("%s :",mob_name(npc.get_race())))
say("Şeytan Kulesine daha önceden giriş yaptın.[ENTER]Kaldığın yerden devam etmek istiyor musun?[ENTER]")
say_title("Geri Dönme Sistemi Hakkında Bilgi :")
say("kuleye geri dönme sistemi (5,6,7,8) katlar için[ENTER]kullanılabilir eğer bu katlarda oyundan atma vs sorunlar[ENTER]olursa tek başınıza yeniden kuleye devam edebilirsiniz")
say("")
if (select(locale.yes, locale.no) == 2) then return end
deviltower_zone.continue()
end

when kill with npc.get_race() == 8015 begin
timer("devil_stone1_1", 8)
end
when devil_stone1_1.timer begin
d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
d.regen_file("data/dungeon/deviltower2_regen.txt")
d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
end
when kill with npc.get_race() == 1091 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
d.check_eliminated()
end

function get_4floor_stone_pos()
local positions =
{
{368, 629}, {419, 630}, {428, 653}, {422, 679},
{395, 689}, {369, 679}, {361, 658},
}
for i = 1, 6 do
local j = number(i, 7)
if i != j then
local t = positions;
positions = positions[j];
positions[j] = t;
end
end
return positions
end

when kill with npc.get_race() == 8016 and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.setf("level", 4)
local positions = deviltower_zone.get_4floor_stone_pos()

for i = 1, 6 do
test_chat(positions[1], positions[2])
d.set_unique("fake" .. i , d.spawn_mob(8017, positions[1], positions[2]))
end

test_chat(positions[7][1], positions[7][2])

local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
test_chat(vid)
d.set_unique("real", vid)
server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

notice_multiline(gameforge.deviltower_zone._50_dNotice,d.notice)

end

when devil_stone4_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
pc.setqf("devil_stone4_fail_timer", 2)
notice_multiline(gameforge.deviltower_zone._60_dNotice,d.notice)
server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
end
end

when devil_stone4_fail2.server_timer begin
if d.select(get_server_timer_arg()) then
pc.setqf("devil_stone4_fail_timer", 3)
notice_multiline(gameforge.deviltower_zone._70_dNotice,d.notice)
server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
end
end

when devil_stone4_fail.server_timer begin
if d.select(get_server_timer_arg()) then
pc.setqf("devil_stone4_fail_timer", 1)
notice_multiline(gameforge.deviltower_zone._80_dNotice,d.notice)
d.clear_regen()
d.exit_all()
clear_server_timer('devil_stone4_update', get_server_timer_arg())
end
end

when devil_stone4_update.server_timer begin
if d.select(get_server_timer_arg()) then
if not d.is_unique_dead("real") then
for i = 1, 6 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)
notice_multiline(gameforge.deviltower_zone._90_dNotice,d.notice)
end
end
end
else
server_timer("devil_stone4_end", 5, get_server_timer_arg())
--d.kill_all()
d.purge()
notice_multiline(gameforge.deviltower_zone._100_dNotice,d.notice)
clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
clear_server_timer('devil_stone4_fail', get_server_timer_arg())
pc.setqf("devil_stone4_fail_timer", 0)
end
else
server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
end
end

when devil_stone4_stop_timer.server_timer begin
clear_server_timer('devil_stone4_update', get_server_timer_arg())
end

when devil_stone4_end.server_timer begin
if d.select(get_server_timer_arg()) then
clear_server_timer('devil_stone4_update', get_server_timer_arg())
clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
clear_server_timer('devil_stone4_fail', get_server_timer_arg())

d.clear_regen()

d.setf("level", 5)
d.setf("stone_count", 5)
notice_multiline(gameforge.deviltower_zone._110_dNotice,d.notice)
d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
clear_server_timer('devil_stone4_update', get_server_timer_arg())
pc.setqf("dt_recall", 1)
d.set_regen_file("data/dungeon/deviltower5_regen.txt")

d.spawn_mob(20073, 421, 452)
d.spawn_mob(20073, 380, 460)
d.spawn_mob(20073, 428, 414)
d.spawn_mob(20073, 398, 392)
d.spawn_mob(20073, 359, 426)
end
end
when devil_stone5_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
pc.setqf("devil_stone5_fail_timer", 1)
notice_multiline(gameforge.deviltower_zone._120_dNotice,d.notice)
server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
end
end

when devil_stone5_fail2.server_timer begin
if d.select(get_server_timer_arg()) then
pc.setqf("devil_stone5_fail_timer", 2)
notice_multiline(gameforge.deviltower_zone._60_dNotice,d.notice)
server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
end
end

when devil_stone5_fail3.server_timer begin
if d.select(get_server_timer_arg()) then
pc.setqf("devil_stone5_fail_timer", 3)
notice_multiline(gameforge.deviltower_zone._70_dNotice,d.notice)
server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
end
end

when devil_stone5_fail.server_timer begin
if d.select(get_server_timer_arg()) then
pc.setqf("devil_stone5_fail_timer", 4)
notice_multiline(gameforge.deviltower_zone._80_dNotice,d.notice)
d.exit_all()
end
end


when kill with npc.get_race() == 8013 and d.getf("level") == 5 begin
if pc.getqf("bevisquestkontrol") == 1 then
pc.setqf("bevisquestkontrol",0)
else
game.drop_item(50084, 1)
end
end

when devil_stone5.take with item.vnum == 50084 and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
item.remove()
d.setf("stone_count", d.getf("stone_count") - 1)
if d.getf("stone_count") <= 0 then
d.setf("level", 6)
d.clear_regen()
d.regen_file("data/dungeon/deviltower6_regen.txt")

notice_multiline(gameforge.deviltower_zone._130_dNotice,d.notice)
d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
local server_arg = d.get_map_index()
clear_server_timer('devil_stone5_fail1', server_arg)
clear_server_timer('devil_stone5_fail2', server_arg)
clear_server_timer('devil_stone5_fail3', server_arg)
clear_server_timer('devil_stone5_fail', server_arg)
else
d.notice(string.format(gameforge.deviltower_zone._140_dNotice, d.getf("stone_count")))
end
end

when kill with npc.get_race() == 1092 and pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and d.getf("level") == 6 begin
d.kill_all()
notice_multiline(gameforge.deviltower_zone._150_dNotice,d.notice)
d.check_eliminated()
notice_multiline(gameforge.deviltower_zone._160_dNotice,d.notice)
local reward_alchemist = {20074, 20075, 20076}
d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
d.setqf2("deviltower_zone","deviltower_refine", 1)
end


when 20074.chat.gameforge.deviltower_zone._170_npcChat with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
say_title(mob_name(20074))
say(gameforge.deviltower_zone._190_say)
wait()
if pc.level >=75 then
say_title(mob_name(20074))

say(gameforge.deviltower_zone._200_say)
local s= select(gameforge.deviltower_zone._210_select, gameforge.locale.cancel, gameforge.deviltower_zone._220_select)
if s==3 then
pc.warp(590500, 110900)
return
end
if s==2 then
return
end

timer("devil_jump_7", 6)
npc.unlock()
d.purge()
return
end
say_title(mob_name(20074))
say(gameforge.deviltower_zone._230_say)
wait()
pc.warp(590500, 110500)
return
end

when 20075.chat.gameforge.deviltower_zone._170_npcChat with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
say_title(mob_name(20075))
say(gameforge.deviltower_zone._190_say)
wait()
if pc.level >=75 then
say_title(mob_name(20075))

say(gameforge.deviltower_zone._200_say)
local s= select(gameforge.deviltower_zone._210_select, gameforge.deviltower_zone._220_select)
if s==3 then
pc.warp(590500, 110900)
return
end
if s==2 then
return
end

timer("devil_jump_7", 6)
npc.unlock()
d.purge()
return
end
say_title(mob_name(20075))
say(gameforge.deviltower_zone._230_say)
wait()
pc.warp(590500, 110500)
return
end
when 20076.chat.gameforge.deviltower_zone._170_npcChat with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.lock() begin
say_title(mob_name(20076))
say(gameforge.deviltower_zone._190_say)
wait()
if pc.level >=75 then
say_title(mob_name(20076))

say(gameforge.deviltower_zone._200_say)
local s= select(gameforge.deviltower_zone._210_select, gameforge.deviltower_zone._220_select)
if s==3 then
pc.warp(590500, 110900)
return
end
if s==2 then
return
end

timer("devil_jump_7", 6)
npc.unlock()
d.purge()
return
end
say_title(mob_name(20076))
say(gameforge.deviltower_zone._230_say)
wait()
pc.warp(590500, 110500)
return
end
when devil_jump_7.timer begin
d.clear_regen()

d.spawn_mob(8018, 639, 658)
d.spawn_mob(8018, 611, 637)
d.spawn_mob(8018, 596, 674)
d.spawn_mob(8018, 629, 670)

d.setf("level", 7)


notice_multiline(gameforge.deviltower_zone._240_dNotice,d.notice)
d.jump_all(2048+590, 6656+638)
end

when kill with npc.get_race() == 8018 and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
local cont = d.getf("7_stone_kill") + 1
d.setf("7_stone_kill", cont)

if cont >= 4 then
d.setf("7_stone_kill", 0)
d.set_regen_file("data/dungeon/deviltower7_regen.txt")
end
end

when kill with npc.get_race() == 8019 and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
game.drop_item(30300, 1)

local cont = d.getf("7_stone_kill_metin") + 1
d.setf("7_stone_kill_metin", cont)

if cont >= 200 then
d.setf("7_stone_kill_metin", 0)
notice_multiline("Metin kesme hakkiniz bitti!",d.notice)
d.clear_regen()
else
d.notice("Metin kesme hakkiniz "..200-cont.." tane kaldi.")
end
end

when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
pc.remove_item("30300", 1)

local pct = number(1,5)

if pct == 1 then
game.drop_item(30302, 1)
d.clear_regen()
else
game.drop_item(30301, 1)

end
end

when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
if d.getf( "level" ) != 7 then
pc.remove_item( "30302", 1)
return
end

say_title(gameforge.blacksmith._40_sayTitle)
say(gameforge.deviltower_zone._250_say)
pc.remove_item("30302", 1)
timer("devil_jump_8", 6)
d.setf("level", 8)
d.clear_regen()
end

when devil_jump_8.timer begin
d.setf("level", 8)

notice_multiline(gameforge.deviltower_zone._260_dNotice,d.notice)
d.jump_all(2048+590, 6656+403)
d.set_regen_file("data/dungeon/deviltower8_regen.txt")
d.spawn_mob(20366, 640, 460)
local _count = pc.count_item(30302)
pc.remove_item(30302,_count)

end

when kill with npc.get_race() == 1040 and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
local pct1 = number(1, 5)
if pct1 == 1 then
local pct2 = number(1, 10)
if pct2 == 1 then
game.drop_item(30304, 1)
else
game.drop_item(30303, 1)
end
else
return
end
end

when 20366.take with item.vnum == 30304 begin
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
npc.purge()
item.remove()
timer("devil_jump_9", 6)
end

when devil_jump_9.timer begin
-- d.setf("level", 9)


notice_multiline(gameforge.deviltower_zone._270_dNotice,d.notice)
d.jump_all(2048+590, 6656+155)
d.regen_file("data/dungeon/deviltower9_regen.txt")
end

when kill with npc.get_race() == 1093 and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.kill_all()
d.setqf2("deviltower_zone","9_done", 1)
notice_multiline(gameforge.deviltower_zone._280_dNotice,d.notice)
notice_multiline(gameforge.deviltower_zone._290_dNotice,d.notice)
pc.setqf("lucifer_killed", 1)
pc.setqf("dt_recall", 1)
server_timer("devil_end_jump", 60, d.get_map_index())
end

when devil_end_jump.server_timer begin
if d.select (get_server_timer_arg()) then
d.clear_regen()
d.exit_all()
end
end
end
end[/CODE]



Lua ise aşağıdaki gibidir.
[CODE title="Lua"]quest deviltower_zone begin
state start begin
when login begin
if pc.get_map_index() == 66 then
if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
pc.warp(590500, 110500)
end
pc.set_warp_location(65, 5905, 1105)
elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
pc.set_warp_location(65, 5905, 1105)
deviltower_zone.register_player(pc.get_vid())
end
end

when logout begin
if pc.count_item(30300) >= 1 then
pc.remove_item(30300, pc.count_item(30300))
end
if pc.count_item(30302) >= 1 then
pc.remove_item(30302, pc.count_item(30302))
end
if pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
deviltower_zone.unregister_player(pc.get_vid())
end
end
when deviltower_man.chat."Şeytan Kulesine... " begin
if pc.get_level() < 40 then
say_title("Şeytan Kulesi Gardiyanı:")
say("Bu kule şeytanlar tarafından sarılmıştır.[ENTER]Sadece en güçlüler zirveye ulaşabilir.[ENTER]Bu kuleye girenlerin canlı çıkamadığı söylenir.[ENTER]Sen tırmanamazsın çünkü 40. seviyeye henüz ulaşmadın.")
else
say_title("Şeytan Kulesi Gardiyanı:")
say("Bu kule şeytanlarla dolu.[ENTER]Sadece en güçlüler onun en üstüne çıkabilir.[ENTER]Bu güne kadar bu kaleye girenlerden,[ENTER]çıkabilen oladığı söyleniyor.[ENTER]Hala Şeytan Kulesine girmek istiyor[ENTER]musun?")
local s = select("Gir ", "Girme ")
if s == 1 then
pc.warp(216500,727000)
end
end
end
when kill with npc.get_race() == 8015 begin
timer("devil_stone1_1", 8)
end
when devil_stone1_1.timer begin
d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
d.regen_file("data/dungeon/deviltower2_regen.txt")
d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
end
when kill with npc.get_race() == 1091 begin
d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
d.check_eliminated()
end
function get_4floor_stone_pos()
local positions =
{
{368, 629}, {419, 630}, {428, 653}, {422, 679},
{395, 689}, {369, 679}, {361, 658},
}
for i = 1, 6 do
local j = number(i, 7)
if i != j then
local t = positions;
positions = positions[j];
positions[j] = t;
end
end
return positions
end
when kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.get_race() == 8016 begin
d.setf("level", 4)
local positions = deviltower_zone.get_4floor_stone_pos()
for i = 1, 6 do
d.set_unique("fake" .. i , d.spawn_mob(8017, positions[1], positions[2]))
end
local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
d.set_unique("real", vid)
server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

d.notice("4. Kat Seçenek Kapısındasın.");
d.notice("Gözlerini ve kulaklarını aldatacak bir çok sahte");
d.notice("Metin Taşı mevcut. 15 dakika içerisinde");
d.notice("gerçek Metin Taşı'nı bul ve yok et!");
d.notice("Kapıdan geçmenin tek yolu budur.");
end

when devil_stone4_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("10 dakika kaldı ")
server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
end
end

when devil_stone4_fail2.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("5 dakika kaldı ")
server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
end
end

when devil_stone4_fail.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 4 then
d.notice("Zaman doldu! ")
d.exit_all()
end
end

when devil_stone4_update.server_timer begin
if d.select(get_server_timer_arg()) then
if not d.is_unique_dead("real") then
for i = 1, 6 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("Sahte Metin taşları yok oldu...");
end
end
end
else
server_timer("devil_stone4_end", 5, get_server_timer_arg())

d.notice("Mükemmel bir duyma yeteneğine ve iyi bir");
d.notice("içgüdüye sahip olduğunu kanıtlayarak");
d.notice("gerçek Metin Taşı'nı yok ettin!");
d.notice("Şimdi 5.kata gireceksin.")
d.purge()
end
else
server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
end
end

when devil_stone4_stop_timer.server_timer begin
clear_server_timer('devil_stone4_update', get_server_timer_arg())
end

when devil_stone4_end.server_timer begin
if d.select(get_server_timer_arg()) then
clear_server_timer('devil_stone4_update', get_server_timer_arg())
clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
clear_server_timer('devil_stone4_fail', get_server_timer_arg())

d.setf("level", 5)
d.setf("stone_count", 5)

d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
d.notice("5.Kattaki Mühürlü Kapı'dasın. Bir sonraki kata ")
d.notice("çıkmak için beş Eski Mühür'ü açman gerek. Bu alan ")
d.notice("sana saldırmak için bekleyen canavarlarla dolu.")
d.notice("Bazılarının üzerinde anahtar var. Yeteri kadar ")
d.notice("Kilit Açma Taşı elde eder ve tüm mühürleri ")
d.notice("açarsan 6. kata çıkabilirsin. Ama bil ki sadece ")
d.notice("20 dakikan var!")


server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
clear_server_timer('devil_stone4_update', get_server_timer_arg())

d.set_regen_file("data/dungeon/deviltower5_regen.txt")

d.spawn_mob(20073, 421, 452)
d.spawn_mob(20073, 380, 460)
d.spawn_mob(20073, 428, 414)
d.spawn_mob(20073, 398, 392)
d.spawn_mob(20073, 359, 426)
end
end
when devil_stone5_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("15 dakika kaldı ")
server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
end
end

when devil_stone5_fail2.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("10 dakika kaldı ")
server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
end
end

when devil_stone5_fail3.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("5 dakika kaldı ")
server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
end
end

when devil_stone5_fail.server_timer begin
if d.select(get_server_timer_arg()) and d.getf("level") == 5 then
d.notice("Zaman doldu!")
d.exit_all()
end
end

when kill with pc.in_dungeon() and d.getf("level") == 5 and npc.get_race() == 1062 begin
local KILL_COUNT_FOR_DROP_KEY = 50
local n =d.getf("count") + 1
d.setf("count", n)
if n == KILL_COUNT_FOR_DROP_KEY then
game.drop_item(50084, 1)
d.setf("count", 0)
end
end
when devil_stone5.take with item.vnum == 50084 begin
npc.purge()
item.remove()
d.setf("stone_count", d.getf("stone_count") - 1)
if d.getf("stone_count") <= 0 then
d.clear_regen()
d.kill_all()
d.notice("Mührü açtın. 6. Kata çıkıyorsunuz!")

clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
clear_server_timer('devil_stone5_fail', get_server_timer_arg())

d.setf("level", 6)
d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
d.regen_file("data/dungeon/deviltower6_regen.txt")

d.notice("Şeytan Krala ulaşmak için tüm ")
d.notice("şeytanları öldür!")

else
d.notice("Mührü açtın! "..d.getf("stone_count").." kaldı.")
end
end

when kill with npc.get_race() == 1092 begin
d.kill_all()
d.check_eliminated()
local reward_alchemist = {20074, 20075, 20076}
d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
d.setqf("can_refine", 1)
end


when 20074.chat."Üst katlar" or 20075.chat."Üst katlar" or 20076.chat."Üst katlar" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
if not npc.lock() then
say("")
say("Şu anda başka biriyle konuşuyorum!")
say("Biraz bekle ya da sonra tekrar gel!")
return
end
say_title(mob_name(npc.get_race()))
say("Kulenin 7. katına girmek mi istiyorsun?")
say("Bu katla mücadele etmek muhteşem beceriler ve")
say("büyük bir yazgı gerektirir.")
say("Sadece 75. seviyeye ulaştıysan")
say("seni oraya ışınlayabilirim.")
wait()
if pc.level >=75 then
say_title(mob_name(npc.get_race()))
say("Üst kata çıkmak için")
say("yeterli deneyime ve güce sahipsin.")
say("Girebilirsin!")
say("")
local gec = select("Git!","Vazgeç ","Kuleyi terket!")
if gec == 1 then
timer("devil_jump_7",6)
npc.unlock()
npc.purge()
return
elseif gec == 2 then
npc.unlock()
return
elseif gec == 3 then
npc.unlock()
pc.warp(590500, 110500)
end
else
say_title(mob_name(npc.get_race()))
say("Üzgünüm sadece")
say("75. seviyeye ulaşanları bir")
say("üst kata alabilirim.")
say("")
npc.unlock()
wait()
pc.warp(590500, 110500)
return
end
end

when devil_jump_7.timer begin
d.clear_regen()

d.spawn_mob(8018, 639, 658)
d.spawn_mob(8018, 611, 637)
d.spawn_mob(8018, 596, 674)
d.spawn_mob(8018, 629, 670)

d.setf("level", 7)

d.jump_all(2048+590, 6656+638)
end

when kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.get_race() == 8018 begin
local cont = d.getf("7_stone_kill") + 1
d.setf("7_stone_kill", cont)

if cont >= 4 then
d.setf("7_stone_kill", 0)
d.set_regen_file("data/dungeon/deviltower7_regen.txt")
end
end

when kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.get_race() == 8019 begin
game.drop_item(30300, 1)
end

when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
pc.remove_item("30300", 1)

local pct = number(1,8)

if pct == 1 then
game.drop_item(30302, 1)
d.clear_regen()
else
game.drop_item(30301, 1)

end
end

when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
-- 8ÃşÀ¸·Î ¿öÇÁ

if d.getf( "level" ) != 7 then
pc.remove_item( "30302", 1)
return
end

say("Bu haritayla bir sonraki kata çıkabilirim!")
pc.remove_item("30302", 1)
timer("devil_jump_8", 6)
d.clear_regen()
end

--------------------------------------------
-- 8Ãş ÁøÀÔºÎÅÍ 9Ãş ±îÁö
--------------------------------------------
when devil_jump_8.timer begin
d.setf("level", 8)
d.jump_all(2048+590, 6656+403)
d.set_regen_file("data/dungeon/deviltower8_regen.txt")
d.spawn_mob(20366, 640, 460)
local _count = pc.count_item(30302)
pc.remove_item(30302,_count)

end

when kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.get_race() == 1040 begin
if d.getf("level") < 9 then
local pct1 = number(1, 10)
if pct1 == 1 then
local pct2 = number(1, 4)
if pct2 == 1 then
-- ÁøÂ¥ ¿¼è µå·Ó
game.drop_item(30304, 1)
else
-- °¡Â¥ ¿¼è µå·Ó
game.drop_item(30303, 1)
end
else
return
end
end
end

when 20366.take with item.vnum == 30304 begin
-- ºÀÀÎ ÇØü 9Ãş ¤¡¤¡
npc.purge()
item.remove()
timer("devil_jump_9", 8)
end

---------------------------------------------
-- 9Ãş ÁøÀÔºÎÅÍ ¿Ï·á±îÁö
---------------------------------------------
when devil_jump_9.timer begin
d.setf("level", 9)
d.jump_all(2048+590, 6656+155)
d.regen_file("data/dungeon/deviltower9_regen.txt")
end

when kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 and npc.get_race() == 1093 begin
d.kill_all()
timer("devil_end_jump", 30)
end

when devil_end_jump.timer begin
d.exit_all()
end
function register_player(vid)
local player_count = d.getf("player_count")
player_count = player_count + 1
d.setf("player_count", tonumber(player_count))
d.setf(string.format("player%d", player_count), tonumber(vid))
end
function unregister_player(vid)
local player_count = d.getf("player_count")
local found = false
for i = 1, player_count, 1 do
if found == true then
d.setf(string.format("player%d", tonumber(i)), d.getf(string.format("player%d", i+1)))
end
p = d.getf("player"..tostring(i))
if p == vid then
i = i -1
found = true
end
end
if found == true then
d.setf("player_count", tonumber(player_count - 1))
end
end
function get_players()
local players = {}
local player_count = d.getf("player_count")
for i = 1, player_count, 1 do
players = d.getf("player"..tostring(i))
end
return players
end
function give_dc_access(pindex)
local self_checked = false
local self = pc.select(d.getf("player"..tostring(pindex)))
--pc.setqf("dcenter", 1)
pc.setf("deviltower_zone", "dcenter", 1)
pc.select(self)
end
end
end
[/CODE]

 

[AlbayGaming]

Hata görseli atarmısın veya dahada detaylandırırmısın

 

[boombax]

Hata görseli atarmısın veya dahada detaylandırırmısın

[CODE title="Syserr"]SYSERR: May 24 19:11:03.871172 :: pid_init:
Start of pid: 1270

SYSERR: May 24 19:11:03.872572 :: socket_connect: HOST localhost:11000, could not connect.
SYSERR: May 24 19:11:38.552794 :: pid_init:
Start of pid: 1305

SYSERR: May 24 19:12:26.915176 :: heart_idle: losing 46 seconds. (lag occured)
SYSERR: May 24 19:30:18.351465 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 24 19:30:18.351695 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 24 19:30:18.351848 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start click
SYSERR: May 24 19:32:21.269234 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 24 19:32:21.269277 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 24 19:32:21.269315 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start leave
SYSERR: May 24 19:39:34.13278 :: pid_init:
Start of pid: 2160

SYSERR: May 24 20:05:21.819546 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 24 20:05:21.819722 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 24 20:05:21.819774 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start click
SYSERR: May 25 00:28:32.964473 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 25 00:28:32.964517 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 25 00:28:32.964555 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start click
SYSERR: May 25 08:14:57.115420 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 25 08:14:57.115526 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 25 08:14:57.115571 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start click
SYSERR: May 25 08:19:01.255267 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 25 08:19:01.255347 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 25 08:19:01.255409 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start click
SYSERR: May 25 08:19:56.282981 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 25 08:19:56.283080 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 25 08:19:56.283143 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start click
SYSERR: May 25 08:30:54.958166 :: RunState: LUA_ERROR: locale/turkey/quest/object/state/pvp_manager:237: `for' limit must be a number WITH ERRORCODE 1
SYSERR: May 25 08:30:54.958233 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 25 08:30:54.958283 :: WriteRunningStateToSyserr: LUA_ERROR: quest pvp_manager.start click
SYSERR: May 25 08:31:55.8786 :: RunState: LUA_ERROR: [string "deviltower_zone"]:7: attempt to compare number with nil WITH ERRORCODE 1
SYSERR: May 25 08:31:55.8928 :: RunState: LUA_STATE: index 0 ref 3
SYSERR: May 25 08:31:55.8999 :: WriteRunningStateToSyserr: LUA_ERROR: quest deviltower_zone.start click
[/CODE]