EasyUO: Macros.

[Lethal]

Instrucciones:

Se ejecutan en Orden, 1 , 2 , 3
Primero ejecutan el 1, siguen las instrucciones, una vez que les dice que estan listos, ejecutan los otros 2.

Solo tienen que tener un hacha y el resto lo hace solo el macro.

Lumber1

Event SysMessage Situate en una esquina de la casa y pulsa ENTER.
a:
OnHotKey ENTER
gosub a
goto a

b:
Event SysMessage Situate JUSTO en frente del cofre y pulsa ENTER.
b1:
OnHotKey ENTER
gosub b
goto b1

1:
Event SysMessage Targetea el cofre.
set #TARGCURS 1
0:
if #TARGCURS = 1
goto 0
set *cofre #LTARGETID

c:
Event SysMessage Situate en la otra esquina y pulsa ENTER.
c1:
OnHotKey ENTER
gosub c
goto c1

d:
Event SysMessage TODO CORRECTO. Ya puedes iniciar la macro.
HALT

sub a
set *esqsupx #CHARPOSX
set *esqy #CHARPOSY + 3
wait 10
goto b

sub b
set *cofreposx #CHARPOSX
set *cofreposy #CHARPOSY
wait 10
goto 1

sub c
set *esqinfx #CHARPOSX
if *esqsupx < *esqinfx 3
set *ax *esqinfx
set *esqinfx *esqsupx
set *esqsupx *ax
set *ax ( ( *esqsupx - *esqinfx ) / 2 )
wait 10
goto d

Lumber2

Event SysMessage Macro de Talar escrita por Nilaween, iniciando:
;Si no vas a usar zona de talado, pon 0 en los dos valores.
;X e Y del punto que marca el vértice superior izquierdo del rectangulo de la zona de talado.
set %pArrIzdaX 0
set %pArrIzdaY 0

;Si no vas a usar la zona de talado, pon 9999 en los dos valores.
;X e Y del punto que marca el vértice inferior derecho del rectangulo de la zona de talado.
set %pAbaDchaX 9999
set %pAbaDchaY 9999

;################################################# #############################################
;################################################# #############################################

set %posinitx %pArrIzdaX + ( ( %pAbaDchaX - %pArrIzdaX ) / 2 )
set %posinity %pArrIzdaY + ( ( %pAbaDchaY - %pArrIzdaY ) / 2 )

set %i *tiempo + 172800000
if %i < #SYSTIME || *tiempo > #SYSTIME
set *tiempo #SYSTIME

tile init

nuevaposicion:
set %cuadro 0

creandocuadro:
set %cuadro %cuadro + 1
if %cuadro > 100
gosub init
set %ArIx #CHARPOSX - %cuadro
set %ArIy #CHARPOSY + %cuadro
set %AbDy #CHARPOSY - %cuadro
set %AbDx #CHARPOSX + %cuadro

set %ArIy %ArIy - 1
gosub buscador %ArIy %AbDy %ArIx 0 4
set %ArIx %ArIx + 1
gosub buscador %ArIx %AbDx 0 %AbDy 3
set %ArIy %ArIy + 1
set %AbDy %AbDy + 1
gosub buscador %AbDy %ArIy %AbDx 0 4
set %ArIx %ArIx - 1
set %AbDx %AbDx - 1
gosub buscador %AbDx %ArIx 0 %ArIy 3
goto creandocuadro

sub buscador
for % . %5 %1 %2
{
tile get %3 %4 2
if ( LEAVES IN #TILENAME || TREE IN #TILENAME || NEEDLES IN #TILENAME ) && %3 , %4 notIn *desechadosp && %3 , %4 notIN *desechados0 && %3 , %4 notIN *desechados1 && %3 , %4 notIN *desechados2 && %3 , %4 notIN *desechados3 && %3 , %4 notIN *desechados4 && %3 , %4 notIN *desechados5 && %3 , %4 notIN *desechados6 && %3 , %4 notIN *desechados7 && %3 , %4 notIN *desechados8 && %3 , %4 notIN *desechados9 && %3 , %4 notIN *desechados10 && %3 , %4 notIN *desechados11 && %3 , %4 notIN *desechados12 && O'HII notIN #TILENAME && YEW notIN #TILENAME && %3 > %pArrIzdaX && %3 < %pAbaDchaX && %4 > %pArrIzdaY && %4 < %pAbaDchaY
gosub esperando %3 %4
}
return

sub esperando
set %tiempo #SYSTIME - *tiempo
while %tiempo > 46800000
set %tiempo %tiempo - 46800000
set %n %tiempo / 3600000
str left *desechados . %n 13
if #strRes < #SYSTIME || *desechados . %n = N/A
set *desechados . %n #SYSTIME + 46500000
set *desechados . %n *desechados . %n , _ , %1 , %2

if NEEDLES in #TILENAME || LEAVES in #TILENAME
tile get %1 %2 3
if #TILEZ = 0 && #TILECNT = 0 && #TILETYPE = 0 && TREE notIn #TILENAME
return

repeat
until TERMINADO_DE_TALAR In #SYSMSG

move %1 %2 1 300s
set #LTARGETX %1
set #LTARGETY %2
set #LTARGETZ #TILEZ
set #LTARGETTILE #TILETYPE
set #LTARGETKIND 3

event sysMessage RECIBIDO TALADORA
set *posx #CHARPOSX
set *posy #CHARPOSY

goto nuevaposicion

sub init
if %pArrIzdaX = 0 && %pAbaDchaX > 6000
return
set %cuadro 1
move %posinitx %posinity 4 600s
return

Lumber3

set %iracasa SI

;################################################
;################################################

set %tronco ZLK
set %peso #MAXWEIGHT - 15

inicio:
finditem *hacha C_ , #CHARID
if #FINDKIND = -1 9
finditem *hacha C_ , #BACKPACKID
if #FINDKIND = -1 7
Event SysMessage No se ha encontrado el hacha!
set #LOBJECTID YC
Event SysMessage Haz doble click sobre el hacha.
repeat
until #LOBJECTID <> YC
set *hacha *hacha , _ , #LOBJECTTYPE
goto inicio
set %hacha #FINDID

init:
set %try 0
repeat
if #SYSTIME => %time || %time = N/A 2
set %time #SYSTIME + 4500
event sysMessage TERMINADO DE TALAR
if %revision < #SYSTIME || %revision = N/A
gosub revision
if #SYSTIME >= %horacomida || %horacomida = N/A
gosub comida
until RECIBIDO_TALADORA In #SYSMSG
set %time #SYSTIME

talando:
if #WEIGHT => %peso && %iracasa <> NO
gosub pacasa
if %try > 4
goto init
set #LOBJECTID %hacha
set #TARGCURS 0

set %jEnd #JINDEX
event macro 17
target
event macro 22
set %tiempo #SYSTIME + 10000

controlando:
if #WEIGHT => %peso && %iracasa = NO
gosub dejando %tronco C_ #BACKPACKID dropg #CHARPOSX #CHARPOSY
repeat
if #SYSTIME > %tiempo 2
set %try %try + 1
goto talando
until %jEnd <> #JINDEX
set %jStart %jEnd + 1
set %jEnd #JINDEX
for %i %jStart %jEnd
{
scanjournal %i
if No_hay_mas_madera_aqui. in #JOURNAL || PARECE_QUE_ES_INMUNE in #JOURNAL || NO_LO_ALCANZAS in #JOURNAL || YOU_CANNOT_CHOP_SO in #JOURNAL
goto init
if PONES_EL_LOGS in #JOURNAL || A_TUS_PIES in #JOURNAL || PERO_NO_OBTIENES_MADERA_UTIL in #JOURNAL || YOUR_SKILL_IN in #JOURNAL || ESO_ESTA_MUY_LEJOS in #JOURNAL
goto talando
}
goto controlando

sub pacasa
if *posy <= *esqy && *posx <= *ax
move *esqinfx *esqy
if *posy <= *esqdchay && *posx > *ax
move *esqsupx *esqy
move *cofreposx *cofreposy 0

gosub dejando %tronco C_ #BACKPACKID dropc *cofre

if *posy <= *esqy && *posx <= *ax
move *esqinfx *esqy
if *posy <= *esqy && *posx > *ax
move *esqsupx *esqy
move *posx *posy 0
return

sub dejando
finditem %1 %2 , %3
exevent drag #FINDID #FINDSTACK
wait 7
exevent %4 %5 %6
wait 7
return

sub revision
set %revision #SYSTIME + 600000
for %i 0 12
{
str left *desechados . %i 13
if #strRes < #SYSTIME
set *desechados . %i N/A
}
return

Cortesia JDP en el viejo foro.