Hola tngo esta macro de minar ke no va nada mal el unico fallo es el siguiente:
cuando vuelve a casa para dejar los ores en el baul , al recalear de nuevo a la mina se keda todo el rato abriendo el runebook y recaleando a la mina y esto me gastsa muchos regs si noe stoi al loro todo el rato..aparte de ke no mina.. xD
aver si detectais el fallo, seria cojonudo..
esta es:
; Macro by Alex (Ultima Alianza)
; -------------------
set %lugar 0
; -------------------
; Ahora configura las posiciones de las runas del libro de runas:
; Pon en el valor de %runacasa el hueco donde tengas la runa que te llevara al cofre para guardar los minerales (1-16)
; Pon en el valor de %runamina el hueco donde tengas la runa que te llevara dentro de la mina (1-16)
;--------------------
set %runacasa 3
set %runamina 4
;--------------------
initevents
chooseskill mini
set %skillini #skill
set %locs LOCATIONS_PISADAS
set %borrado 0
event sysmessage Iniciando Macro
gosub lugares
configurar:
if %confp = 1 || %confp = N/A
{
event sysmessage Hola TDH Manda, Alaben Airam-Holzammer Compro lo que minas dejame barato Gracias .
event sysmessage Debes estar en el punto donde apareces cuando haces recall a tu casa, manten el cursor encima de la bolsa/contendor donde dejar los minerales y presiona ESC.
event sysmessage Y presiona la tecla ESC
setuotitle Manten el cursor encima del contenedor donde dejar los minerales y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Abre el Runebook donde tengas las runas a tu casa y a la mina y presiona ESC
event sysmessage Abre el runebook donde tengas las runas y presiona ESC
event sysmessage Y presiona la tecla ESC
set %conf 2
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofrex #CURSORX
set %cofrey #CURSORY
set %dondecasax #CHARPOSX
set %dondecasay #CHARPOSY
set %dondeminax 0
goto configurar
}
if %conf = 2
{
set %runebook #LOBJECTID
goto recallmina
}
}
goto TESC
comienzo:
findItem NPF
if #FINDSTACK = 0
{
findItem QPF
}
set #LOBJECTID #FINDID
set %cmsg #jIndex
event macro 17
wait 10
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if5 Donde_quieres_utilizar_el in #journal
{
set %seguridad 0
goto acabapicar
}
}
goto comienzo
acabapicar:
set %cmsg #jIndex
set #LTARGETX #CHARPOSX + 1
set #LTARGETY #CHARPOSY - 1
event macro 22
wait 10
set %fmsg #jIndex
for %i %cmsg %fmsg
{
scanJournal %i
if You_put in #journal || No_encuentras in #journal
{
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 || NO_PUEDES in #journal
{
gosub compruebapeso
goto moverse
}
if you_have_no_line_of_sight in #journal ||
{
gosub compruebapeso
goto moverse
}
}
gosub seguridad
goto acabapicar
moverse:
gosub metamorfosis
wait 10
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
{
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 <> %dodnecasax && #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
}
}
}
}
event drag #FINDID
wait 20
KEY ENTER
wait 10
click %cofrex %cofrey p
goto dejarminerales
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 => 385
{
goto recallcasa
}
return
}
sub metamorfosis
scanjournal
if #CHARSTATUS = H
{
wait 4s
gosub zero
}
else
{
event macro 13 21
IF you_have_been_REVEALED IN #journal
{
event macro 13 21
}
}
return
Saludos!
Citar
