Para mi llorona favorita <3

;==============================================================================================================================
;=== Macro de Minar por railes by BoXeR =======================================================================================
;==============================================================================================================================
; Configura los siguientes parametros:
;
; - Hueco donde tengas la runa que te llevará al cofre para guardar los minerales (1-16)
;--------------------
set %runacasa 2
;--------------------
; - Hueco donde tengas la runa que te llevará DENTRO de la mina (1-16)
;--------------------
set %runamina 3
;--------------------
; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
; -------------------
;set %lugar 17 ; Mina en la que actuará la macro
set %lugar 0 ; Mina en la que actuará la macro

; SONSONETE PRO

set %rutilla 2
set %crutilla 2

; -------------------
; 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)
;
;--- CONFIGURAR coordenadas menu resucitar: -----------------------------------------------------------------------------------
set %AyudaX 1040 ;Boton menu ayuda X
set %AyudaY 85 ;Boton menu ayuda Y
set %botonsayudaX 181 ;Boton sala ayuda X
set %botonsayudaY 245 ;Boton sala ayuda X
set %BotonConfirmarAyudaX 666 ;Boton confirmar sala ayuda X
set %BotonConfirmarAyudaY 487 ;Boton confirmar sala ayuda Y
set %ContinueX 856 ;Boton continuar X
set %ContinueY 556 ;Boton continuar X
; ==================================
set %MineralesGuardarTYPE TVJ_GWJ_EWJ_DWJ
set %CruzType WWNRJMD

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:
if G in #charStatus
{
 event macro 6 0
}

if #CHARGHOST = yes
   {
   event exmsg #CHARID 3 30 Comenzando resucitar 15s
   wait 10s
   event exmsg #CHARID 3 30 faltan 5s
   gosub Resucitar:
   }
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 in #journal || No_encuentras in #journal || Tus_manos_espectrales 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 || You_cannot_mine_so in #journal || No_puedes_ver_bien in #journal || You_can't_see_the_target 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
wait 25
gosub librecall
wait 25
set #LOBJECTID %runebook
event macro 17
wait 20
click %runex %runey f
wait 25
event macro 13 46
wait 12s
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 12s
event macro 13 46
msg .resend $


;test

if %rutilla = 1 && %crutilla >= 3
{

    set %crutilla 0
    set %rutilla 2

}

if %rutilla = 2 && %crutilla >= 3
{

    set %crutilla 0
    set %rutilla 3

}

if %rutilla = 3 && %crutilla >= 3
{

    set %crutilla 0
    set %rutilla 1

}



if %rutilla = 1 && %crutilla < 3
{

    set #sysmsgcol 0000
    event sysmessage Iniciando camino a ruta 1 :D

    set %crutilla %crutilla + 1

    move 1746 662 a
    move 1746 653 a
    move 1736 653 a
    move 1736 654 a
    move 1736 655 a
    move 1732 655 a
    move 1732 663 a
    move 1727 663 a

}


if %rutilla = 2 && %crutilla < 3
{

    set #sysmsgcol 0000
    event sysmessage Iniciando camino a ruta 2 :D

    set %crutilla %crutilla + 1

    move 1744 662 a
    move 1744 649 a
    move 1737 649 a


}


if %rutilla = 3 && %crutilla < 3
{

    set #sysmsgcol 0000
    event sysmessage Iniciando camino a ruta 3 :D

    set %crutilla %crutilla + 1

    move 1743 662 a
    move 1743 667 a
    move 1738 667 a
    move 1738 672 a
    move 1737 672 a
    move 1737 680 a


}

wait 10
finditem NPF C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10

click (#CHARPOSX + 4) (#CHARPOSY + 4)

wait 10

wait 10
finditem NPF C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10

click (#CHARPOSX - 4) (#CHARPOSY - 4)

wait 10

wait 10
finditem NPF C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10

click (#CHARPOSX + 2) (#CHARPOSY + 2)

wait 10

wait 10
finditem NPF C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10

click (#CHARPOSX - 2) (#CHARPOSY - 2)

wait 10

;test

wait 10
event macro 13 46
gosub rutasminar: ;----------------------------------------------------------- Subrutina para minar
goto comienzo


dejarminerales:
set %v1 %v1 + 1
if %v1 > 12
   {
   set %v1 0
   goto recallmina
   }
wait 25
event exmsg #CHARID 3 60 Actualizando Mochila
event macro 8 7 ;Actualiza la mochila.
wait 12
event exmsg #CHARID 3 30 Vaciando Minerales
for %i 1 10 ;Repite 10 veces la accion de guardar minerales.
   {
   finditem %MineralesGuardarTYPE c_ , #BACKPACKID
   exevent drag #FINDID #FINDSTACK
   wait 20
   exevent dropc %idcaja
   wait 1s
   }
wait 1s
goto recallmina

sub abrir_cofre
set #LOBJECTID %idcaja
event macro 17 0
wait 5
return

sub Resucitar:
   {
   event exmsg #CHARID 3 30 Abriendo menus
   wait 10
   click %AyudaX %AyudaY
   wait 1s
   event exmsg #CHARID 3 30 Boton sala
   click %botonsayudaX %botonsayudaY
   wait 1s
   event exmsg #CHARID 3 30 Confirma sala
   click %BotonConfirmarAyudaX %BotonConfirmarAyudaY
   wait 1s
   event exmsg #CHARID 3 30 Continuar
   click %ContinueX %ContinueY
   wait 50s
   event exmsg #CHARID 3 30 Ir a resucitar
   event pathfind 5604 306 0 ;Ank Sala de ayuda.
   wait 8s
   finditem %CruzType g_ , 5
   set #LOBJECTID #FINDID
   event macro 17 0
   event exmsg #CHARID 3 30 Faltan 170s
   wait 110s
   event exmsg #CHARID 3 30 Faltan 80s
   wait 60s
   event exmsg #CHARID 3 30 Faltan 35s
   wait 25s
   event exmsg #CHARID 3 30 Faltan 10s
   wait 10s
   event exmsg #CHARID 3 30 Salir a ciudad
   event pathfind 5197 3831 0 ;Salir a ciudad 1
   wait 4s
   event pathfind 5197 3824 0 ;Salir a ciudad 2
   wait 3s
   event pathfind 5189 3819 0 ;Salir a ciudad 3
   wait 6s
   event exmsg #CHARID 3 30 Recall a Casa
   goto recallcasa:
   ;return
   }

sub regs
set #sysmsgcol 1100
event sysmessage ================
event sysmessage Comprobando y cogiendo Regs...
wait 25
gosub mandrake
wait 25
gosub black
wait 25
gosub blood
wait 25
event sysmessage ================
gosub mandrake
wait 25
gosub black
wait 25
gosub blood
wait 25
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 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
      }
   if %lugar = 28 ;sonsonete
      {
      set %lugaro 1760
      set %lugarp 662
      }
   return
   }

sub compruebapeso
   {
   if #WEIGHT >= #MAXWEIGHT - 40
      {
      goto recallcasa
      }
   return
   }

;-------------------------------------
sub rutasminar:
   {
   return
   }