Código:
; ------------------------------------------------------
; Macro de Minar para UA-Sphere (Sphere 0.56b-Nightly)
; Creado por: Alex
; Ultima edición: 08/04/2010 por darksplit
; Modificaciones de: DaviD JoneS, darksplit.
; ------------------------------------------------------
;
; 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.
;
; Explicación:
; Esta macro ha sido creada para Minar dejando el mineral en casa con la ayuda de Runas.
; Al comienzo y cada vez que vuelva a casa, se comprobará el número de regs del personaje,
; y se cogerán los necesarios para volver a tener 5 de cada para evitar pérdidas en el caso de una
; matanza de un PK en la mina.
; Se meditará antes y después de recalear para subir el maná para acelerar el proceso,
; aún así, no es realmente necesaria la skill de Meditar.
; Minará por toda la mina, de manera aleatoria, pero evitando volver a minar allí dónde ya lo hiciste.
;
;
;
; IMPORTANTE:
; - Debes estar, al dar Play, en el lugar donde te deja la runa que te devuelve a casa.
; - Las runas de las minas deben estar marcadas DENTRO de ellas.
; - No se funde el material, macro de separar/fundir disponible en el foro
; - Sólo se podrá utilizar la macro en las minas preestablecidas, mostradas a continuación.
; - No es necesario tener regs de recall encima al iniciar la Macro, lo comprueba y coge automáticamente.
; - Regs y Mineral deberan estar en el MISMO CONTENEDOR.
; - Esta macro mina únicamente en una mina de tu elección.
; - Skill de Magia a 30 para poder recalear.
;
;
; Configuración:
; - Hueco donde tengas la runa que te llevará al cofre para guardar los minerales (1-16)
;--------------------
set %runacasa 1
;--------------------
; - Hueco donde tengas la runa que te llevará DENTRO de la mina (1-16)
;--------------------
set %runamina 5
;--------------------
; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
; -------------------
set %lugar 1 ; 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)
; 1- Shame (Norte de la entrada Shame (Trabajos Forzados))
; 2- Covetous 1 (Primera Mina a la derecha de la Dungeon Covetous)
; 3- Covetous 2 (Segunda Mina a la derecha de la Dungeon Covetous)
; 4- Covetous 3 (De las dos minas juntas en Covetous Norte, la de arriba)
; 5- Covetous 4 (De las dos minas juntas en Covetous Norte, la de abajo, meterse bien adentro antes de iniciar la macro)
; 6- Minoc Ciudad 1 (La mina que hay al Este de Minoc, pasando el puente)
; 7- Minoc Ciudad 2 (La mina al lado de la que hay pasando el puente de Minoc)
; 8- Minoc Mina 1 (De las Minas del Norte de Minoc, la primera de la izquierda abajo)
; 9- Minoc Mina 2 (De las Minas del Norte de Minoc, la de la izquierda donde hay dos (Haven))
; 10- Minoc Mina 3 (De las Minas del Norte de Minoc, la de la derecha donde hay dos (Haven))
; 11- Destard 1 (Un poco a la izquierda de La Dungeon Destard)
; 12- Destard 2 (Desde la entrada de Destard Dungeon bajando bordeando, la primera mina que encuentras)
; 13- Destard 3 (Desde la entrada de Destard Dungeon bajando bordeando, la segunda mina que encuentras)
; 14- Destard 4 (Desde la entrada de Destard Dungeon bajando bordeando, la terera mina que encuentras, en la de la parte derecha de la montaña)
; 15- Wrong 1 (Junto a la entrada de la Dungeon de Wrong)
; 16- Wrong 2 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la primera que encuentras)
; 17- Wrong 3 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la segunda que encuentras)
; 18- Hythloth 1 (Bordeando la montaña, hacia arriba desde Hythloth, la primera que encuentras)
; 19- Hythloth 2 (Bordeando la montaña, hacia abajo derecha de Hythloth, la primera Mina que encuentras)
; 20- Hythloth 3 (Bordeando la montaña, hacia abajo derecha de Hythloth, la segunda Mina que encuentras)
; 22- Avatar Norte 1 (De la montaña del Norte de Avatar, la primera que encuentas)
; 23- Avatar Norte 2 (De la montaña del Norte de Avatar, desde la primera, a la derecha bordeando, la primera que encuentras)
; 24- Desierto (En el cruce de caminos)
; 25- Shame Sur
; ==================================
chooseskill mini real
set %skillini #skill
set %locs LOCATIONS_PISADAS
set %borrado 0
set #sysmsgcol 0000
event sysmessage Iniciando Macro...
event sysmessage
gosub lugares
configurar:
if %confp = 1 || %confp = N/A
{
set #sysmsgcol 1264
setuotitle Abre el contenedor donde dejar los minerales y donde estaran los Regs
event sysmessage ================
event sysmessage Abre el contenedor donde dejar
event sysmessage los Minerales
event sysmessage y donde estaran los Regs de Recall.
event sysmessage Presiona la tecla ESC.
event sysmessage ================
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
set #sysmsgcol 1264
setuotitle Abre el Libro de Runas donde tengas las runas a tu Casa y a la Mina y presiona ESC
event sysmessage ================
event sysmessage Abre el Libro de Runas donde tengas las runas de Casa y Mina.
event sysmessage Presiona la tecla ESC.
event sysmessage ================
set #sysmsgcol 0000
set %conf 2
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %idcaja #LOBJECTID
set %dondecasax #CHARPOSX
set %dondecasay #CHARPOSY
set %dondeminax 0
gosub regs
set #sysmsgcol 1000
event Sysmessage Desequipando manos...
event macro 24 2
wait 15
goto configurar
}
if %conf = 2
{
set %runebook #LOBJECTID
goto recallmina
}
}
goto TESC
comienzo:
findItem QQD_YSD C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
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:
set %posruna %runacasa
gosub librecall
set #LOBJECTID %runebook
event macro 17
wait 20
click %runex %runey f
event macro 13 46
wait 10s
event macro 13 46
msg .resend $
wait 10
if #CHARPOSX = %dondecasax && #CHARPOSY = %dondecasay
{
gosub abrir_cofre
gosub regs
goto dejarminerales
}
else
{
event macro 13 46
goto recallcasa
}
recallmina:
set %posruna %runamina
gosub librecall
set #LOBJECTID %runebook
event macro 17
wait 20
click %runex %runey f
event macro 13 46
wait 10s
event macro 13 46
msg .resend $
wait 10
if %dondeminax = 0
{
if #CHARPOSX <> %dondecasax && #CHARPOSY <> %dondecasay
{
set %dondeminax #CHARPOSX
set %dondeminay #CHARPOSY
}
}
if #CHARPOSX = %dondeminax && #CHARPOSY = %dondeminay
{
event macro 13 46
goto comienzo
}
else
{
goto recallmina
}
dejarminerales:
set %v1 %v1 + 1
if %v1 > 12
{
set %v1 0
goto recallmina
}
finditem TVJ c_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem GWJ C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem EWJ C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem DWJ C_ , #BACKPACKID
if #FINDSTACK = 0
{
goto recallmina
}
}
}
}
exevent drag #FINDID #FINDSTACK
wait 20
exevent dropc %idcaja
wait 20
goto dejarminerales
sub abrir_cofre
set #LOBJECTID %idcaja
event macro 17 0
wait 5
return
sub regs
set #sysmsgcol 1100
event sysmessage ================
event sysmessage Comprobando y cogiendo Regs...
gosub mandrake
gosub black
gosub blood
gosub comida
event sysmessage ================
return
sub mandrake
finditem MZF C_ , #BACKPACKID
event sysmessage Mandrake antes: #FINDSTACK
if #FINDSTACK <= 4
{
set %regcnt #findstack
set %reg MZF
gosub coger
}
finditem MZF C_ , #BACKPACKID
event sysmessage Mandrake: #FINDSTACK
return
sub black
finditem KUF C_ , #BACKPACKID
event sysmessage Black Pearl antes: #FINDSTACK
if #FINDSTACK <= 4
{
set %regcnt #findstack
set %reg KUF
gosub coger
}
finditem KUF C_ , #BACKPACKID
event sysmessage Black Pearl: #FINDSTACK
return
sub blood
finditem JUF C_ , #BACKPACKID
event sysmessage Blood Moss antes: #FINDSTACK
if #FINDSTACK <= 4
{
set %regcnt #findstack
set %reg JUF
gosub coger
}
finditem JUF C_ , #BACKPACKID
event sysmessage Blood Moss: #FINDSTACK
return
sub comida
finditem QQD_YSD C_ , #BACKPACKID
event sysmessage Comida antes: #FINDSTACK
if #FINDSTACK <= 4
{
set %regcnt #findstack
set %reg QQD_YSD
gosub coger
}
finditem QQD_YSD C_ , #BACKPACKID
event sysmessage Comida: #FINDSTACK
return
sub coger
set %debocoger 5 - %regcnt
finditem %reg C_ , %idcaja
exevent drag #findid %debocoger
wait 10
exevent dropc #backpackid
wait 10
return
sub librecall
{
if %posruna < 9
{
set %runex 130
if %posruna = 1
{
set %y 0
}
else
{
set %runea %posruna - 1
set %y 15 * %runea
}
set %runey 70 + %y
}
if %posruna > 8
{
set %runex 290
if %posruna = 9
{
set %y 0
}
else
{
set %runea %posruna - 9
set %y 15 * %runea
}
set %runey 70 + %y
}
return
}
sub seguridad
{
set %seguridad %seguridad + 1
if %seguridad > 15
{
set %seguridad 0
goto comienzo
}
return
}
sub lugares
{
if %lugar = 1
{
set %lugaro 1460
set %lugarp Y
}
if %lugar = 2
{
set %lugaro 2454
set %lugarp X
}
if %lugar = 3
{
set %lugaro 914
set %lugarp Y
}
if %lugar = 4
{
set %lugaro 828
set %lugarp Y
}
if %lugar = 5
{
set %lugaro 2355
set %lugarp X
}
if %lugar = 6
{
set %lugaro 499
set %lugarp Y
}
if %lugar = 7
{
set %lugaro 2602
set %lugarp X
}
if %lugar = 8
{
set %lugaro 2426
set %lugarp X
}
if %lugar = 9
{
set %lugaro 2440
set %lugarp X
}
if %lugar = 10
{
set %lugaro 66
set %lugarp Y
}
if %lugar = 11
{
set %lugaro 266
set %lugarp Y
}
if %lugar = 12
{
set %lugaro 1259
set %lugarp X
}
if %lugar = 13
{
set %lugaro 2729
set %lugarp Y
}
if %lugar = 14
{
set %lugaro 2895
set %lugarp Y
}
if %lugar = 15
{
set %lugaro 1991
set %lugarp X
}
if %lugar = 16
{
set %lugaro 1499
set %lugarp X
}
if %lugar = 17
{
set %lugaro 1941
set %lugarpX
}
if %lugar = 18
{
set %lugaro 1918
set %lugarp X
}
if %lugar = 19
{
set %lugaro 3822
set %lugarp Y
}
if %lugar = 20
{
set %lugaro 4766
set %lugarp X
}
if %lugar = 21
{
set %lugaro 4817
set %lugarp X
}
if %lugar = 22
{
set %lugaro 3302
set %lugarp Y
}
if %lugar = 23
{
set %lugaro 4554
set %lugarp X
}
if %lugar = 24
{
set %lugaro 1812
set %lugarp X
}
if %lugar = 25
{
set %lugaro 1695
set %lugarp Y
}
return
}
sub compruebapeso
{
if #WEIGHT >= #MAXWEIGHT - 15
{
goto recallcasa
}
return
}
Citar
Iniciado por axel123
