[APORTE] Macro de subir curación con brasero

[javiercv]

Buenas,
Os dejo el macro que me he hecho para subir curación:
(Ahora mismo está configurado para el brasero del banco del oeste de Brit)

Espero que os sea útil ^^

;==================================================
;CURAR CON BRASERO BY JAVIERCV
;==================================================
set #SYSMSGCOL 1100
event sysmessage Macro para subir Curacion con brasero
event sysmessage By JavierCV

;Para subir de 50% a 100%, se necesitan unas 1500 vendas (para ir sobrados)
;y se tarda poco menos de 96h (4 días)

;==================================================
;CONFIGURACIÓN
;==================================================
set %xInicial 1661            ;cordenada X donde empezar el macro
set %yInicial 1613            ;cordenada Y donde empezar el macro
set %xBrasero 1665            ;cordenada X del brasero
set %yBrasero 1613            ;cordenada Y del brasero
set %vida 96                  ;Limite de vida antes de salir del brasero
set %pilon UGUSNND            ;ID del pilón de agua
;==================================================
;NO TOCAR NADA A PARTIR DE AQUÍ
;==================================================
set %venda ZLF                ;ID de las vendas limpias
set %vendaSucia AMF           ;ID de las vendas sucias
set %comida YSD_QQD_FUD_HND   ;IDs de comida

;==================================================
;Hilo principal del macro
;==================================================
loop:
     if ( #HITS < %vida )
     {
        event PathFind %xInicial %yInicial
        wait 4s
        if ( #HITS < 45 )  ;SEGURIDAD: para el macro si la vida baja demasiado
        {
           halt
        }
        gosub curarse
        gosub comer
     }
     else
     {
        event PathFind %xBrasero %yBrasero
        wait 4s
     }
goto loop

;==================================================
;Curarse
;==================================================
sub curarse
    key f1
    wait 20
    scanjournal %i
    if fallas in #journal
    {
       wait 3s
       gosub curarse
    }
    else
    {
       wait 18s
    }
    ;Limpia vendas si hay más de 100 sucias
    finditem %vendaSucia C_ , #BACKPACKID
    if ( #FINDSTACK >= 100 )
    {
      set #LOBJECTID #FINDID
      event macro 17 0
      wait 10
      set #LTARGETID %pilon
      event macro 22 0
      wait 10
    }
return

;==================================================
;Comer
;==================================================
sub comer
    findItem %comida C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    wait 10
    event macro 17
return
;==================================================