Macro Loockpick [ABRIR CERRADURAS, HECHA DESDE 0] FELIZ SAN VALENTIN

[Metapod]

Lo dicho en el titulo que puse mas arriba, he estado estos dias con mucho tiempo libre he hecho una macro para subir abrir cerraduras desde 50 (OBVIAMENTE).
Esta testeada para dungeons seguras, estan añadidas Despise, Covetous, Ice Dungeon y alguna más. Me he subido hasta 100, asi que os puedo asegurar que funciona, aunque igual hay que cambiar lineas de macro pero eso es otro asunto, gracias por leerme y aqui la macro.

; ------------------------------------------------------
; Macro de Abrir cerraduras para UA-Sphere (Sphere 0.56b-Nightly)
; Versión actualizada
; Creado por: Metapod
; Ultima edición: Febrero 2012
; Modificaciones de: En el berdul 13.
; ------------------------------------------------------
;
;
; Explicación:
; Pesca: Peces, pececillos de todo tipo, cofres y frascos con mapa. (esto editarlo)
; Objetivo: Guardar TODO en la backpacka. Evita todo tipo de monstruo marino.
; Problemas: Los npcs se pacifican con las fs, f3 y f9.
; Solución: Tener un Familiar/Mascota Leal/Golem paseando por la dungeon (no evita la solucion)
; Skill: 30-45, falla mucho y sube poco.
; 45-50, no falla tanto, empieza a subir y pescar más
; 50-100, sube rapido y abre abundante.

;
;
; Modificaciones:
; Falta probar el Type de las pensadoras
; Plantearse hacer, if skill ocultarse >= 100, que solo se oculte en el agujero.
; así se gana tiempo cada vez que se mueve el barco.
;

; Types de los objetos y bichos
set %peces FQD_GQD_EQD_DQD
set %pezespecial YDF_IEF_XDF_HEF
set %tesoro IIF
set %frasco JMF
set %bicho KI_P
set %baul ZNX_LWX_ZUX_UVX
; Variables iniciales
set %coordenadas 2
set %lado 0
set %moverse 1
set %orientacion 1
set %seguridad 0
; Variables UOMisterio (doce con mas ir linea 50)
set %kraken 0
set %infopececillos 0
set %infopeces 0
set %infopecesantiguos 0
set %infopecestotal 0
finditem %baul G_5
set %idbaul #FINDID
set #LOBJECTID %idbaul
event macro 17 0
wait 10
finditem %peces C_ , %idbaul
for #findindex 1 #findcnt
{
set %infopecesantiguos %infopecesantiguos + #findstack
}
set %infotesoros 0
set %infofrascos 0
set %infobichos 0
set %infomovimientos 0



set #sysmsgcol 1264
event sysmessage ================
event sysmessage Comienza la macro de ABRIR COFRES.
event sysmessage ================


; Comprueba si stoy Hiding al inicio, si no lo estoy, va al Sub para Ocultarse
inicio:
if #CHARSTATUS = H
{
goto comienzo
}
else
{
gosub ocultarse
}
goto inicio



; ComienzA ESTE TUTORIAL DE COMO MACREAR ABRIR CERRADURAS.
comienzo:
gosub titulo
finditem KDF_XHF C_ , #CHARID
set #LOBJECTID #FINDID
set %cmsg #jIndex
event macro 17
wait 10
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if Donde_quieres_lanzar in #journal
{
goto acabopescar
}
}
goto comienzo

; Al tener EL pico magico hace obstrucciones en as cerraduras, deficiente en norte y no en sur.
acabopescar:
set %cmsg #jIndex
if %orientacion = 1 ; Pesca perpendicular a la orientación S-N
{
set #LTARGETY #CHARPOSY
set #LTARGETX #CHARPOSX + %coordenadas
}
if %orientacion = 2 ; Pesca en perpendicular a la orientación E-O
{
set #LTARGETY #CHARPOSY + %coordenadas
set #LTARGETX #CHARPOSX
}
wait 5
event macro 22
wait 10
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
;
}
if %lado = 1
{
set %coordenadas %coordenadas - 1
if %coordenadas <= -7
{
set %lado 0
set %coordenadas 2
gosub moverse
}
}
return

; Sub de movimiento del cadillac
; Utiliza una variable, al que se le añade un punto cada vez que avanza.
; Al llegar a un número determinado, se gira el rostro. Se reinicia a 1 cuando
; vuelve al lugar de origen (en teoria, sin tener en cuenta Saves, etc).
sub moverse
if %moverse < 21 ; norte
{
set %orientacion 1
msg adelante$
wait 30
msg stop$
wait 10
set %moverse %moverse + 1
gosub ocultarse
}
if %moverse = 21 ; giro al este
{
set %orientacion 2
msg gira derecha$
wait 10
set %moverse %moverse + 1
gosub ocultarse
}
if %moverse < 32 && %moverse > 21 ; este
{
set %orientacion 2
msg adelante$
wait 30
msg stop$
wait 10
set %moverse %moverse + 1
gosub ocultarse
}
if %moverse = 32 ; giro sur
{
set %orientacion 1
msg gira derecha$
wait 10
set %moverse %moverse + 1
gosub ocultarse
}
if %moverse < 43 && %moverse > 32 ; sur
{
set %orientacion negativa en vez de calefacción, destard es runesbook, entonces bajar el panda.
msg adelante$
wait 30
msg stop$
wait 10
set %moverse %moverse + 1
gosub ocultarse
}
if %moverse = 43 ; giro oeste
{
set %orientacion 2
msg gira derecha$
wait 10
set %moverse %moverse + 1
gosub ocultarse
}
if %moverse < 54 && %moverse > 43 ; oeste
{
set %orientacion 2
msg adelante$
wait 30
msg stop$
wait 10
set %moverse %moverse + 1
gosub ocultarse
}
if %moverse = 54
{
set %moverse 1
set %orientacion negativa en sentido oscilador.
set %infomovimientos %infomovimientos + 1 es confirmación de opinion, mas 3 es reinicio de la caldera, volver linea 4
msg gira derecha y recoge tu brutalidad$
gosub ocultarse
}
return

; Cualquier duda, Mp

[ImVeRsO]

Sta muy currada la macro tio, felicidades

[Devil Shadow]

No se como lo has hecho pero funciona de lujo. He estado probandola en despise y en media hora me ha subido 0.6 puntos. El único problema es que los bichos te arrinconan y el pj se queda lloco y no se mueve. Tal vez la solucion sea meterse la skill espada e ir con eclipse/fenix. Aparte de eso, buen trabajo.

[Coolforehand]

Gran aporte! 1 saludo!

[Metapod]

Gran aporte! 1 saludo!

Gran reporte el que te llevas tu jajaja.


Me alegro que os guste, ampliare el radio de acción a dungeons mas complicadas, dejenme tiempo y disfruten de esta joya. VIVAN LOS CANDADOS

[Milower]

Pero es de abrir cerraduras? parece de pescar.

Un saludo

[Jimmy Jazz]

Pero es de abrir cerraduras? parece de pescar.

Un saludo

aqui tenemos un listillo metapod, que hago con el, lo reporto?

[Metapod]

aqui tenemos un listillo metapod, que hago con el, lo reporto?

Degalo no la abra provado

[tonono69]

Si queridos compañeros efectivamente no es un macro abrir cerradura, solo es un troleada