PHP Code:
quest deviltower_zone begin
state start begin
when login begin
if pc.get_map_index() == 66 then
-- Nicht in einer Etage, die wieder nach drau¡¼n .
-- Layer Range
-- 1F 88 577 236 737
-- 2F 91 343 238 504
-- 3F 104 107 248 269
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((5376+532)*100, (512+596+4)*100, 65)
end
pc.set_warp_location(65, 5376+532, 512+596+4)
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 20355.chat."Die oberen Etagen des Dämonenturms" with pc.getqf("Dämonenjuwel") == 0 begin
target.delete("__TARGET__")
say_gold("Hauptmann:")
say_white("")
say_white("Da bist du ja endlich, ich habe nach dir gesucht.")
say_white("Wie du sicherlich weist ist der Wächter des Dämonenturms")
say_white("mein Bruder.")
say_white("Dieser hat mich gebeten einen mutigen Helden auszuwählen.")
say_white("Nun zu dir..")
say_white("Du hast bestimmt schon gehört, dass der Dämonenturm")
say_white("einige Ebenen besitzt die du ab Lv.75 betreten kannst.")
say_white("")
say_white("In deiner dieser Ebenen lebt der Sensenmann,")
say_white("dieser besitzt ein Juwel.. Ein Dämonenjuwel.")
say_white("Bitte bring meinem Bruder dieses Juwel.")
say_white("")
say_reward("Erklimme den Dämonenturm und finde das Dämonenjuwel!")
pc.setqf("Dämonenjuwel", 0)
end
when 20348.chat."Das Dämonenjuwel" begin
if pc.count_item(50183) >= 1 and pc.getqf("Dämonenjuwel") == 1 then
say_gold("Wächter des Dämonenturms:")
say_white("")
say_white("Du hast es endlich gefunden!")
say_white("")
say_white("Ich habe so lange danach gesucht,")
say_white("nun halte ich es endlich in Händen.")
say_white("Ich werde es sofort untersuchen!")
say_white("")
wait()
say_gold("Wächter des Dämonenturms:")
say_white("")
say_white("Das ist es!")
say_white("Es ist das Juwel von dem der Kaiser einst sprach!")
say_white("")
say_white("Bitte, nimm dies als Belohnung.")
say_white("")
say_reward("Du hast Wunderstein erhalten.")
pc.remove_item("50183", 1)
pc.give_item2(9995, 1)
pc.setqf("Dämonenjuwel", 2)
elseif pc.count_item(50184) >= 1 and pc.getqf("Dämonenjuwel") == 2 then
say_gold("Wächter des Dämonenturms:")
say_white("")
say_white("Blau")
elseif pc.count_item(50185) >= 1 and pc.getqf("Dämonenjuwel") == 2 then
say_gold("Wächter des Dämonenturms:")
say_white("")
say_white("Rot")
elseif pc.count_item(50186) >= 1 and pc.getqf("Dämonenjuwel") == 2 then
say_gold("Wächter des Dämonenturms:")
say_white("Grün")
else
say_gold("Wächter des Dämonenturms:")
say_white("")
say_white("Du hast es noch nicht gefunden?")
say_white("Bitte begib dich auf die Ebene des Sensenmannes")
say_white("und besorge mir dieses Juwel.")
end
end
when 20348.chat."In den Dämonenturm..." begin
if pc.get_level() < 40 then
say_gold("Wächter des Dämonenturms:")
say_white("")
say_white("Du bist noch zu schwach, um dich dem zu stellen")
say_white("was dich dort erwarten würde.")
say_white("Kehre zurück wenn du Lv.40 erreicht hast.")
else
say_gold("Wächter des Dämonenturms:")
say_white("")
say_white("In diesem Turm wimmmelt es von Dämonen. Nur die")
say_white("stärksten Kämpfer können daher seine Spitze")
say_white("erreichen. Es heißt jedoch, dass niemand, der den")
say_white("Turm betritt, ihn lebend wieder verlässt.")
say_white("Möchtest du den Dämonenturm noch immer")
say_white("betreten?")
local s = select("Betreten..","Nicht betreten..")
if s == 1 then
-- warp into!
pc.warp(216500,727000)
end
end
end
when devil_stone1.kill begin
timer("devil_stone1_1", 6)
end
when devil_stone1_1.timer begin
local mapto7= pc.count_item(30302) -- Ich weiß nicht, das wahre Tilgung der die Existenz der Seele des Turms
pc.remove_item(30302,mapto7)
local boxto7= pc.count_item(30300) -- Beseitigung des unbekannten weiß nicht, ob es sich um ein Feld
pc.remove_item(30300,boxto7)
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 devil_stone2.kill begin
--d.jump_all_local(special.devil_tower[2][1], special.devil_tower[2][2])
--end
when devil_stone3.kill begin
--d.jump_all_local(special.devil_tower[3][1], special.devil_tower[3][2])
--d.set_exit_all_at_eliminate(6)
--d.set_warp_at_eliminate(6, d.get_map_index(), 100, 100)
--d.set_warp_at_eliminate(4, 65, 5376+532, 512+596+4)
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()
--d.exit_all()
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[i];
positions[i] = positions[j];
positions[j] = t;
end
end
--for i = 1, 7 do
-- positions[i][1] = positions[i][1] * 100
-- positions[i][2] = positions[i][2] * 100
-- end
return positions
end
when 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.setf("level", 4)
-- Reproduzieren eine gro¡¼ Anzahl von Monstern und Herstellung von wahr und falsch Steine Steine
--d.regen_file("data/dungeon/deviltower4_regen.txt")
local positions = deviltower_zone.get_4floor_stone_pos()
for i = 1, 6 do
chat(positions[i][1], positions[i][2])
d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][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('devil_stone4_update', 10, pc.get_map_index())
server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())
d.notice("Das ist die 4. Etage,");
d.notice("findet den Echten Metinstein");
d.notice("innerhalb von 15 Minuten,");
d.notice("Sonst werdet ihr vor die Tür gesetzt.");
end
when devil_stone4_fail1.server_timer begin
if d.select(get_server_timer_arg()) then
d.notice("Noch 10 Minuten!")
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("Noch 5 Minuten!")
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
d.notice("Die Zeit ist abgelaufen...")
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)
d.notice("Ein Falscher Metinstein verschwindet.");
end
end
end
else
--d.clear_regen()
--d.regen_file("data/dungeon/deviltower5_regen.txt")
server_timer("devil_stone4_end", 5, get_server_timer_arg())
d.notice("Glückwunsch euch ist es geglückt den echten Metinstein");
d.notice("zu finden... Auf in die nächste Etage!")
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())
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
d.setf("level", 5)
d.setf("stone_count", 5)
d.notice("Willkommen auf der 5.ten Etage")
d.notice("Tötet alle Monster denn manche tragen den Schlüssel")
d.notice("für die nächste Etage mit sich.")
d.notice("Öffnet alle Säulen mit hilfe der Schlüsselsteine (Ihr habt 20 Minuten Zeit)")
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())
-- 5. Stock, weiter zu reproduzieren
d.set_regen_file("data/dungeon/deviltower5_regen.txt")
-- 5. Stock, Seal Stone Reproduktion
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("Noch 15 Minuten.")
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("Noch 10 Minuten.")
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("Noch 5 Minuten.")
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
d.notice("Die Zeit ist abgelaufen...")
d.exit_all()
end
end
--when devil_stone4.kill begin
--d.setf("level", 5)
--d.setf("stone_count", 4)
--d.clear_regen()
--d.regen_file("data/dungeon/deviltower5_regen.txt")
--d.jump_all_local(special.devil_tower[4][1], special.devil_tower[4][2])
--end
when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
local KILL_COUNT_FOR_DROP_KEY = 50
--if is_test_server() then
--KILL_COUNT_FOR_DROP_KEY = 1
--end
local n =d.getf("count") + 1
d.setf("count", n)
if n == KILL_COUNT_FOR_DROP_KEY then
-- Falling Tasten
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.setf("level", 6)
d.clear_regen()
d.regen_file("data/dungeon/deviltower6_regen.txt")
d.notice("Glückwunsch ihr habt alle Säulen geöffnet!")
d.notice("Ihr werdet in die nächste Etage aufsteigen.")
d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
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())
else
d.notice("Säule entfernt... noch "..d.getf("stone_count").." Viel Glück")
end
end
when devil_stone6.kill begin
-- Geschickt, um eine Karte, wo die Verfeinerung St.
-- Ansonsten ¡¼fnen Sie ein neues Lian Sheng
--d.jump_all(special.devil_tower[6][1], special.devil_tower[6][2])
-- d.set_warp_at_eliminate(3*60, 65, 5376+532, 512+596+4)
d.check_eliminated()
d.setqf("can_refine", 1)
local schmieddv = number(1,3)
if schmieddv==1 then
d.kill_all()
d.spawn_mob(20074, 425, 216)
elseif schmieddv==2 then
d.kill_all()
d.spawn_mob(20075, 425, 216)
elseif schmieddv==3 then
d.kill_all()
d.spawn_mob(20076, 425, 216)
end
end
when 1092.kill begin
d.notice("Glückwunsch, ihr habt den Stolzen Dämonenkönig besiegt.")
d.notice("Zur Belohnung, wird euch nun der Schmied des Dämononenturmes,")
d.notice("die Möglichkeit geben, ein Item zu verbessern!")
end
--------------------------------------
-- 7 D kommt man aus dem Zugriff vor dem 8. Stock
--------------------------------------
when 20074.chat."Die oberen Stockwerke" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
say_gold(""..mob_name(20074).."")
say_white("")
say_white("Möchtet ihr weiter herrauf")
say_white("und euer können weiterhin unter Beweiss stellen?")
say_white("Ich jedenfalls bleibe hier.")
say_white("")
wait()
if pc.level >=75 then
say_gold(""..mob_name(20074).."")
say_white("")
say_white("Ihr seid zumindest stark genug.")
say_white("Doch seit ihr auch Tapfer genug? ")
say_white("Es gibt nur eine möglichkeit das festzustellen...")
timer("devil_jump_7", 6)
return
end
say_gold(""..mob_name(20074).."")
say_white("")
say_white("Ihr seid leider noch nicht")
say_white("stark genug um weiter aufzusteigen")
say_white("Kommt mit Lv.75 wieder.")
say_white("Viel Glück auf eurer Reise.")
say_white("")
wait()
pc.warp(590500, 110500)
return
end
when 20075.chat."Die oberen Stockwerke" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
say_gold(""..mob_name(20075).."")
say_white("")
say_white("Möchtet ihr weiter herrauf")
say_white("und euer können weiterhin unter Beweiss stellen?")
say_white("Ich jedenfalls bleibe hier.")
say_white("")
wait()
if pc.level >=75 then
say_gold(""..mob_name(20075).."")
say_white("")
say_white("Ihr seid zumindest stark genug.")
say_white("Doch seit ihr auch Tapfer genug? ")
say_white("Es gibt nur eine möglichkeit das festzustellen...")
timer("devil_jump_7", 6)
return
end
say_gold(""..mob_name(20075).."")
say_white("")
say_white("Ihr seid leider noch nicht")
say_white("stark genug um weiter aufzusteigen")
say_white("Kommt mit Lv.75 wieder.")
say_white("Viel Glück auf eurer Reise.")
say_white("")
wait()
pc.warp(590500, 110500)
return
end
when 20076.chat."Die oberen Stockwerke" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
say_gold(""..mob_name(20075).."")
say_white("")
say_white("Möchtet ihr weiter herrauf")
say_white("und euer können weiterhin unter Beweiss stellen?")
say_white("Ich jedenfalls bleibe hier.")
say_white("")
wait()
if pc.level >=75 then
say_gold(""..mob_name(20075).."")
say_white("")
say_white("Ihr seid zumindest stark genug.")
say_white("Doch seit ihr auch Tapfer genug? ")
say_white("Es gibt nur eine möglichkeit das festzustellen...")
timer("devil_jump_7", 6)
return
end
say_gold(""..mob_name(20075).."")
say_white("")
say_white("Ihr seid leider noch nicht")
say_white("stark genug um weiter aufzusteigen")
say_white("Kommt mit Lv.75 wieder.")
say_white("Viel Glück auf eurer Reise.")
say_white("")
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)
d.jump_all(2048+590, 6656+638)
end
when 8018.kill with pc.in_dungeon() 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 8019.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 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,6)
if pct == 1 then
-- Fall wahr Karte
game.drop_item(30302, 1)
d.clear_regen()
else
-- Fall wahr Karte
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
-- An der 8th Floor
say_gold("Karte Zin-Grotte:")
say_white("")
say_white("Du wirst in die Zin-Grotte teleportiert. Viel Glück.")
pc.remove_item("30302", 1)
timer("devil_jump_8", 6)
d.clear_regen()
end
--------------------------------------------
-- Von 8 F vor der Ankunft geben Sie die 9 F
--------------------------------------------
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)-- True Tilgung Dead Turm
pc.remove_item(30302,_count)
end
when 1040.kill with pc.in_dungeon() 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
-- Fall wahre Schl¡¼sel
game.drop_item(30304, 1)
else
-- Keys fiel
game.drop_item(30303, 1)
end
else
return
end
end
when 20366.take with item.vnum == 30304 begin
-- 9 F-Zeichen aufgehoben
npc.purge()
item.remove()
d.clear_regen()
timer("devil_jump_9", 6)
end
---------------------------------------------
-- 9 F ein Ende, indem Sie
---------------------------------------------
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 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.kill_all()
timer("devil_end_jump", 30)
d.notice("Hört sich an als hätte sich ein Tor geöffnet...")
d.notice("Was sich wohl auf der nächsten Etage befindet?")
game.drop_item(30122, 1)
game.drop_item(30122, 1)
local giftdv = number(1,2)
if giftdv==1 then
pc.give_item2(51001,2 )
elseif giftdv==2 then
pc.give_item2(51003,3 )
end
end
when 1093.kill begin
if pc.getqf("Dämonenjuwel") == 0 then
game.drop_item_with_ownership(50183, 1)
pc.setqf("Dämonenjuwel", 1)
else
local juweldv = number(1,3)
if juweldv==1 then
game.drop_item_with_ownership(50184, 1)
elseif juweldv==2 then
game.drop_item_with_ownership(50185, 1)
elseif juweldv==3 then
game.drop_item_with_ownership(50186, 1)
end
end
end
when devil_end_jump.timer begin
d.clear_regen()
d.jump_all(2048+590, 6656+403)
d.spawn_mob(1095, 629, 424)
d.notice("Ihr habt die letzte Etage des Dämonenturms erreicht..")
d.notice("Besiegt den Blauen Tod und werdet zur Legenden!")
end
when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
d.kill_all()
timer("devil_end_warp", 40)
timer("devil_end_jump_schmied", 1)
d.notice("Ihr hat den Blauen Tod bezwungen und somit die letzte Etage gemeistert!")
d.notice("In 40 Sek. werdet Ihr hinaus teleportiert!")
local giftdv1 = number(1,2)
if giftdv1==1 then
pc.give_item2(51001,5 )
elseif giftdv1==2 then
pc.give_item2(51003,8 )
end
end
when devil_end_jump_schmied.timer begin
d.clear_regen()
notice_all("".. pc.get_name() .." hat den Blauen Tod bezwungen.")
notice_all("Nun ist ".. pc.get_name() .." ein richtig toller Held!")
end
when devil_end_warp.timer begin
d.clear_regen()
warp_to_village()
end
end
end
