sol Posted November 26, 2015 Report Share Posted November 26, 2015 holis les cuento implemente en mi file catacumbas del diablo, saque la carpeta dugeon y el mapa de un file 40k maxi con lican , que estaba en otro idioma, y encontré esta quest en Internet, la cosa es que no se que parte tengo que editar para poder que me lleve, les paso datos, el index del mapa es 216 y la cordenadas son 307200, 1203200, nose en que parte devo editar para que funcione. esta es la quest uest devilscave begin state start begin when login begin if pc.get_map_index() == 216 then pc.set_warp_location(216, 3072, 12032) end end when 20351.chat."Catatumbas del Demonio" begin if pc . get_level ( ) <= 99 then say_title ( "Guardian" ) say("") say_reward("Usted debe ser nivel 100 para poder entrar !"); return end if party . is_party ( ) then else say_reward( "Para entrar debe estar en un grupo." ) say("") return end say_title ( "Guardian" ) say("Alto alli !Soy el Guardian y lidero las Catatumbas")say("guardian de la puerta. Solo puede") say("Puedo dejarte pasar si tienes") say("El nivel 100 y esta en un grupo!") say("") local dc_login = select("Entrar!", "No, mejor no") if dc_login == 1 then pc.warp(307200, 1203200) else say_title("Guardian:") say("Vale. Entiendo.") say("Vuelve, Cuando estes listo.") return end end --Ebene 1 when login with pc.get_map_index() == 216 begin game.set_event_flag(("dcgamer"), game.get_event_flag("dcgamer")+1) game.set_event_flag(("dc_versuche"), game.get_event_flag("dc_versuche")+1) say_title("Devils Catacomb") say("Para entrar en el 2do nivel necesitas la") say_item("Llave Cristal del alma", 30311, "") say("Y ponerla en la estatua Kud!") say("") say_reward("Viel Glück!") say("") pc.setqf("sksgedroppt", 0) end when kill with not npc.is_pc() and pc.get_map_index() == 216 begin local sks = number(1,50) if sks==1 and pc.getqf("sksgedroppt")==0 then pc.setqf("sksgedroppt", 1) chat("Se le ha caído la llave de cristal del alma!") game.drop_item(30311, 1) end end --Puertas when 30101.take with item.vnum == 30311 begin if party.is_party() then item.remove() say("Ahora sera Teletrasportado a la 2 Planta") wait() say("Destruye las puerta ") wait() timer("devils_catacomb_goto_ebene3", 5) else say("No estas en un grupo.") end end when devils_catacomb_goto_ebene3.timer begin d.new_jump_all(216, 3617, 12074) say("~~Findet und Tötet Tartaros um ein Fratzen-Totem zu bekommen!~~") say("~~und zieht es dann auf den Basalt-Obelisk~~") d.regen_file("data/dungeon/dc_regen_ebene2.txt") d.regen_file("data/dungeon/dc_regen_tore_unten.txt") d.regen_file("data/dungeon/dc_regen_tore_left.txt") d.spawn_mob(30104, 741, 221) end --Ebene 2 when 30104.chat."Listo para la 3 planta" begin if party.is_leader() then else say("Solo el lider del Grupo los puede llevar al 4 Piso.") return end npc.purge() say_reward("Estatua Turtuga") say("Ahora seran llevados al 4Piso") wait() d.notice("Todos los del grupo seran teletrasportados") timer("devils_catacomb_goto_ebene8", 5) end when devils_catacomb_goto_ebene8.timer begin d.new_jump_all(216, 4427, 12284) d.setf("goto_ebene3", 0) d.notice("Detecta y destruye el derecho de represalia Metin") d.regen_file("data/dungeon/dc_regen_ebene3.txt") local metindv = number(1,4) if metindv==1 then d.spawn_mob(8028, 1264, 238) d.spawn_mob(8028, 1148, 350) d.spawn_mob(8028, 1151, 155) d.spawn_mob(8029, 1351, 149) end if metindv==2 then d.spawn_mob(8028, 1351, 348) d.spawn_mob(8028, 1148, 350) d.spawn_mob(8029, 1151, 155) d.spawn_mob(8028, 1351, 149) end if metindv==3 then d.spawn_mob(8028, 1351, 348) d.spawn_mob(8029, 1148, 350) d.spawn_mob(8028, 1151, 155) d.spawn_mob(8028, 1351, 149) end if metindv==4 then d.spawn_mob(8029, 1351, 348) d.spawn_mob(8028, 1148, 350) d.spawn_mob(8028, 1151, 155) d.spawn_mob(8028, 1351, 149) end end when 8028.kill with pc.in_dungeon() begin d.notice("Metin Falso Destruido") end when 8029.kill with pc.in_dungeon() begin d.notice("Metin Verdadero Destruido") timer("devils_catacomb_goto_ebene4", 5) end --Ebene 4 (Labyrinth) when devils_catacomb_goto_ebene4.timer begin d.new_jump_all(216, 3143, 12657) d.setf("Laberinto", 1) d.spawn_mob(30103, 500, 720) d.regen_file("data/dungeon/dc_regen_ebene4_portale.txt") d.regen_file("data/dungeon/dc_regen_ebene8.txt") d.notice("Encontrar la manera de salir del laberinto") d.notice("y luego lee la inscripción en el poste de la runa") if game.get_event_flag("dc_is_wartung") == 1 then end end when 30103.chat."La Maldicion del Infierno" with pc.in_dungeon() begin say("Ahora sera Teletrasportado a 5 planta") npc.purge() timer("devils_catacomb_goto_ebene5", 5) end --Ebene 6 (Tartaros) when devils_catacomb_goto_ebene5.timer begin d.new_jump_all(216, 3917, 12925) d.notice("Encontrar y matar a Tartarus para obtener un tótem caras") d.notice("y luego se mueve en el obelisco de basalto") d.spawn_mob(30102, 848, 739) d.regen_file("data/dungeon/dc_regen_ebene5.txt") local tartaros = number(1,5) if tartaros==1 then d.spawn_mob(2593, 991, 848) d.spawn_mob(2594, 999, 652) d.spawn_mob(2594, 848, 577) d.spawn_mob(2594, 703, 644) d.spawn_mob(2594, 692, 817) end if tartaros==2 then d.spawn_mob(2594, 991, 848) d.spawn_mob(2593, 999, 652) d.spawn_mob(2594, 848, 577) d.spawn_mob(2594, 703, 644) d.spawn_mob(2594, 692, 817) end if tartaros==3 then d.spawn_mob(2594, 991, 848) d.spawn_mob(2594, 999, 652) d.spawn_mob(2593, 848, 577) d.spawn_mob(2594, 703, 644) d.spawn_mob(2594, 692, 817) end if tartaros==4 then d.spawn_mob(2594, 991, 848) d.spawn_mob(2594, 999, 652) d.spawn_mob(2594, 848, 577) d.spawn_mob(2593, 703, 644) d.spawn_mob(2594, 692, 817) end if tartaros==5 then d.spawn_mob(2594, 991, 848) d.spawn_mob(2594, 999, 652) d.spawn_mob(2594, 848, 577) d.spawn_mob(2594, 703, 644) d.spawn_mob(2593, 692, 817) end end when 2594.kill with pc.in_dungeon() begin d.notice("Mob falso, No tiene sello") end when 2593.kill with pc.in_dungeon() begin game.set_event_flag((""..pc.get_name().."ap_send"), game.get_event_flag(""..pc.get_name().."ap_send") + 5) local Reward = 5 local Achievement = "Höllenbastard" local killcount = pc.getqf("2593") local actual_achievement_points = pc.getqf("achievement_points") pc.setqf("2593", killcount + 1) pc.setqf("achievement_points", actual_achievement_points + Reward) cmdchat("achievement ".. Achievement .."_getötet#".. killcount + 1 .."%".. actual_achievement_points + Reward .."") d.notice("Bastardo infierno fue derrotado y las gárgolas, el tótem se eliminó la licencia!") game.drop_item(30312, 1) end when 30102.take with item.vnum == 30312 begin item.remove() npc.purge() say_reward("Inscripcion") d.notice("Tú lo has conseguido!") timer("devils_catacomb_goto_ebene6", 5) end --Ebene 7 (Charon) when devils_catacomb_goto_ebene6.timer begin d.new_jump_all(216, 4411, 12736) d.notice("Vamos a matar a Caronte para volver al último nivel!") d.regen_file("data/dungeon/dc_regen_ebene6.txt") end when 2597.kill with pc.in_dungeon() begin game.set_event_flag((""..pc.get_name().."ap_send"), game.get_event_flag(""..pc.get_name().."ap_send") + 8) local Reward = 8 local Achievement = "Charon" local killcount = pc.getqf("2597") local actual_achievement_points = pc.getqf("achievement_points") pc.setqf("2597", killcount + 1) --pc.setqf("achievement_points", actual_achievement_points + Reward) cmdchat("achievement ".. Achievement .."_getötet#".. killcount + 1 .."%".. actual_achievement_points + Reward .."") pc.give_item2(30320) chat("Tienes una cabeza reducida!") d.notice("Usted lo derrotó...") d.notice("¡Prepárate para la batalla con Azrael") timer("devils_catacomb_goto_ebene7",216) end --Ebene 8 (Azrael) when devils_catacomb_goto_ebene7.timer begin d.new_jump_all(216,3072, 12032) d.notice("~~Tötet Azrael nur dann bekommt ihr eine Belohnung!~~") d.regen_file("data/dungeon/dc_regen_ebene7.txt") end when 2598.kill with pc.in_dungeon() begin d.kill_all() notice_all("Felicitaciones han matado a Azrael") timer("ebane_end_jump", 65) end when ebane_end_jump.timer begin d.new_jump_all(65, 5376+535 , 512+480) end end end muchos diran por que no le sacas la quest al serve file maxi es que ya lo e echo y no me funciona. Link to comment Share on other sites More sharing options...
Tyrael Posted November 26, 2015 Report Share Posted November 26, 2015 mmm dilong date con furia :v si me compila bien el binario hoy te ayudo sino espera a dilong e.e Link to comment Share on other sites More sharing options...
marolaloma1 Posted November 26, 2015 Report Share Posted November 26, 2015 Queres que la quest te lleve al mapa, o dentro del mapa no hace ninguna funcion? Link to comment Share on other sites More sharing options...
sol Posted November 26, 2015 Author Report Share Posted November 26, 2015 es que supuesta mente es la quest del catacumbas, que te lleva y teda las misiones de la dugeon Link to comment Share on other sites More sharing options...
Dilong Posted November 26, 2015 Report Share Posted November 26, 2015 pc.set_warp_location(216, 3072, 12032) = pc.set_warp_location(index del mapa, coordenada, coordenada) Link to comment Share on other sites More sharing options...
Recommended Posts