Una macro adaptada de la macro de Minar de Alex para personajes nuevos aún residentes en Haven que quieran subir MinerÃ*a de manera desatendida.
Me parece un buen aporte para la gente que esté empezando o que quiera subir un pj nuevo.
; ------------------------------------------------------
; Macro de Minar en Haven orientada a nuevos pjs para UA-Sphere (Sphere 0.56b-Nightly)
; Creado por: Alex
; Ultima edición: 11/04/2021 por KoTTa
; Modificaciones de: DaviD JoneS, darksplit.
; Adaptación a Haven+SeprarFundir+Comer de: KoTTa
; ------------------------------------------------------
;
; Modificaciones:
; 23/05/2010
; Corrección de código: cambiado el sub del peso, para que recalee en función del #maxweight de cada pj
; según su fuerza.
;
; 08/04/2010
; Corrección de bugs: variables mal escritas, añadido código de Journal para que no se quede parado.
; Añadidos: Comprobar y coger Regs automáticamente al llegar a casa para tener siempre 5 de cada,
; simplificación de algunos nuevos comandos para evitar bugs (exevent Dropc, exevent Drag),
; se ha implementado un código para desarmar la mano derecha al empezar para poder encontrar el pico.
; Creada descripción de la Macro y mejora de la explicación de su funcionamiento.
; Comentarios explicativos y mejora visual de los Sysmessage.
; Próximamente se añadirá la posibilidad de recalear al Bank en vez de a Casa.
;
; <<Desconozco más mejoras de la macro>>
;
; 11/04/2021
; Adaptación de la macro para Haven (Zona para novatos)
; Obviamente deshabilitado el sistema de runas y recogida de Regs
; Añadida alimentación automatica de MANZANAS O PERAS
; Añadido de función de Separar y Fundir el Mineral para subir de nivel ya que es una macro orientada a
; novatos.
;
; Explicación:
; Esta macro ha sido MODIFICADA para Minar dejando Lingotes en una bolsa del banco en Haven
; Al comienzo solo debes ir a la Zona minera de Haven y colocarte al sur del banco,
; (a un par de pasos de la puerta de la tienda). El resto es automático.
;
;
;
; IMPORTANTE:
; - Debes estar, al dar Play, a un par de pasos al Sur de la puerta del banco.
;
;
; Configuración:
; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
; -------------------
set %lugar 0 ; Mina en la que actuará la macro
; -------------------
; Las Minas actuales son:
; 0- Ninguna (Mina solo igual, pero si se sale de dentro de la mina no se volverá a meter, deberás moverlo tu)
chooseskill mini real
set %skillini #skill
set %locs LOCATIONS_PISADAS
set %borrado 0
set #sysmsgcol 0000
event sysmessage Iniciando Macro...
event sysmessage
move 2463 85 0
wait 1
msg bank $
wait 1s
gosub lugares
configurar:
if %confp = 1 || %confp = N/A
{
set #sysmsgcol 1264
setuotitle Abre el una bolsa del banco donde dejar los lingotes
event sysmessage ================
event sysmessage Abre UNA bolsa de tu
event sysmessage banco donde dejar
event sysmessage los Lingotes.
event sysmessage Presiona la tecla ESC.
event sysmessage ================
set %conf 1
set %confp 2
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %idcaja #LOBJECTID
set %dondecasax #CHARPOSX
set %dondecasay #CHARPOSY
set %dondeminax 0
wait 1s ------------- gosub regs ----------------------------------------------
set #sysmsgcol 1000
event Sysmessage Desequipando manos...
event macro 24 2
wait 15
goto recallmina
}
}
goto TESC
comienzo:
findItem NPF
if #FINDSTACK = 0
{
findItem QPF
}
set #LOBJECTID #FINDID
set %cmsg #jIndex
wait 5 ; añadido
event macro 17
wait 10
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if Donde_quieres_utilizar in #journal
{
set %seguridad 0
goto acabapicar
}
}
goto comienzo
acabapicar:
set %cmsg #jIndex
set #LTARGETX #CHARPOSX + 1
set #LTARGETY #CHARPOSY - 1
wait 5 ; añadido
event macro 22
wait 10
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if Pones_el in #journal || No_encuentras in #journal ; Consigue minar, y lo vuelve a hacer.
{
set %skillinc #SKILL - %skillini
setuotitle Skill de Mining | Inicial: %skillini | Actual: #SKILL | Incremento: %skillinc | Peso: #WEIGHT
gosub compruebapeso
goto comienzo
}
if Aqui_no_hay_nada_por in #journal || Prueba_a in #journal || You_cannot_mine_so in #journal || No_puedes_ver_bien in #journal ; No se puede minar, cambio de lugar.
{
gosub compruebapeso
goto moverse
}
}
gosub seguridad
goto acabapicar
moverse:
if %lugar > 0
{
if #CHARPOSX , _ , #CHARPOSY notIn %locs
{
set %borrado %borrado + 1
if %borrado > 100
{
set %locs LOCATIONS_PISADAS
set %borrado 0
}
set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
}
if %lugar = 5
{
if %lugaro > #CHARPOSX
{
for %i 1 6
{
event macro 5 3
wait 10
}
}
}
if %lugarp = X
{
if %lugaro < #CHARPOSX
{
for %i 1 6
{
event macro 5 7
wait 10
}
}
}
if %lugarp = Y
{
if %lugaro < #CHARPOSY
{
for %i 1 6
{
event macro 5 1
wait 10
}
}
}
}
set %mover #random % 7
event macro 5 %mover
wait 20
event macro 5 %mover
wait 20
if #CHARPOSX , _ , #CHARPOSY in %locs
{
goto moverse
}
goto comienzo
recallcasa:
FINDITEM QQD_YSD C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 1s
event macro 17 0
wait 1s
event macro 17 0
wait 1s
move 2424 95 0
wait 1
move 2435 96 0
wait 1
move 2444 94 0
wait 1
move 2450 88 0
wait 1s
event macro 8 7
contpos 100 100
gosub cogeOre
sub cogeOre
{
findItem GWJ C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem EWJ C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem DWJ C_ , #BACKPACKID
if #FINDSTACK = 0
{
Gosub fundeOre
}
}
}
}
event drag #FINDID
wait 10
msg 1 $
click 200 135 p
wait 10
gosub cogeOre
sub fundeOre
finditem TVJ C_ , #BACKPACKID
if #FINDSTACK > 0
{
set #LOBJECTID #findid
wait 5
event macro 17
wait 10
gosub fundeOre
}
move 2458 88 0
wait 1
move 2463 85 0
wait 1
if #CHARPOSX = %dondecasax && #CHARPOSY = %dondecasay
{
gosub abrir_cofre
goto dejarminerales
}
else
{
event macro 13 46
goto recallcasa
}
recallmina:
move 2460 90 0
wait 1
move 2444 94 0
wait 1
move 2435 96 0
wait 1
move 2424 95 0
wait 1
move 2427 109 0
wait 1
goto comienzo
dejarminerales:
set %v1 %v1 + 1
if %v1 > 12
{
set %v1 0
goto recallmina
}
finditem RMK c_ , #BACKPACKID
if #FINDSTACK = 0
{
goto recallmina
}
}
}
}
exevent drag #FINDID #FINDSTACK
wait 20
exevent dropc %idcaja
wait 20
goto dejarminerales
sub abrir_cofre
msg bank $
wait 1s
set #LOBJECTID %idcaja
event macro 17 0
wait 5
return
sub seguridad
{
set %seguridad %seguridad + 1
if %seguridad > 15
{
set %seguridad 0
goto comienzo
}
return
}
sub lugares
{
if %lugar = 0
{
set %lugaro 2430
set %lugarp Y
}
return
}
sub compruebapeso
{
if #WEIGHT >= #MAXWEIGHT - 15
{
goto recallcasa
}
return
}