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.

[Lethal]

Fundir Ores: By Elcapodelsur

Instrucciones:

El macro esta pensado para que funcione en una casa, con la forja dentro de la casa y con una wooden box (la vende cualquier provisioner por unos pocos gps).

Los iron ores tienen que estar en el piso a no mas de 2 tiles del pj (sino no los pueden levantar), por suerte en la casa no hay decay de items hasta donde tengo entendido asi que no se preocupen. La forja tiene que estar al lado del pj (sino no la pueden usar creo). La wooden box tiene que estar al lado del pj y ahi es donde va a dejar los iron ingots.

Para iniciar el macro precisan unos 10/15 iron ores separados de a uno en la backpack y muchos iron ores en el piso al lado del pj (todos los que quieran fundir para subir mining).

Le tienen que dar doble click a la forja, click sobre el pj y despues play al macro.

El macro solo va a ir poniendo ores de a 1 en la backpack, va a ir guardando los lingotes y no va a parar nunca de fundir hasta que no se quede sin ores en el piso (excepto que falle y lo tengan que arrancar de vuelta).

set %iron TVJ_EWJ_DWJ_GWJ
set %ironingots RMK_CNK_BNK_ENK_DNK_YMK
set %cajita CUD_HKF
finditem %cajita G_2
set %cajitaid #findid
set %maxweight #maxweight - 40

if #weight < 250
{
finditem %iron G_2
if #FINDCNT > 0
{
Exevent Drag #findid 1
wait 7
Exevent Dropc #backpackid 1 1
wait 7
}
}


if #weight > 249
{
finditem %ironingots C_ , #backpackid
if #FINDCNT > 0
{
Exevent Drag #findid #findstack
wait 10
Exevent Dropc %cajitaid
wait 10
}
event Macro 8 7
}

if #weight > %maxweight
{
wait 30s
}

Cortesia JDP en el viejo foro.

[Lethal]

Macro de mining:

Consta de 2 partes, un rail y el macro en si.

Rail:
Le dan play y con la letra A graban donde quieren que mine, de a poco les aparece una ventana de DOS, CMD etc cada vez que el macro toma un lugar.
Una vez que terminan, le dan STOP y les guarda un archivo que se llama JOSEFA en C:

De ahi copian todo y lo pegan en el macro despues de que diga [size=x-large]asd:[/size]
Donde dice Set %cofre tienen que poner el id del suyo. en el menu de la derecha del easy uo, buscan las object, le hacen 2 click al cofre y copian el value que les aparece ahi y lo cambian en el macro.

Algo asi:

initevents
set %WeightLimit 400
set %backtrack #false
set %ignoreblocked #true
set %ore DWJ_EWJ_GWJ_TVJ_VGH_HFG_
set %cofre ENQEKMD
linesPerCycle 20

asd:
gosub Minar 1265 1251
gosub Minar 1264 1251
gosub Minar 1263 1251

Instrucciones Bis:

Una vez que hagan eso del gosub minar, tienen que fijarse que en la parte inferior del macro hay 2 cosas uno que dice "GOSUB ENTRAR" y el otro "SALIR DE LA MINA".. Bien una vez ubicados, van a ver una linea como esta:

re12:

event pathfind 1257 1229
If ( #charposX <> 1257 || #charPosY <> 1229 )
{
goto re12
}

Bueno en la parte donde dice SALIR DE LA MINA, van con .where al centro de la mina y van caminando hacia la casa y cada 3 tyles escriben .where y asi hasta pararse frente al cofre.
Esos datos del .where los van a usar para editar esas lineas, cambian los 4 numeros (los 2 del pathfind y los 2 del charposx y y).
Si les sobran lineas, las borran, si necesitan mas las agregan solo le cambian el numero del RE.
Dudas, pregunten!

Macros:
http://www.mediafire.com/download/s4...bts/Easyuo.rar


Cortesia JDP.

[Lethal]

Macro by Alex
Para Separar ores y fundirlos.

; Necesitamos un cofre donde tengamos los ores a separar y poder dejar los lingotes,
; junto a una forja, vigilad que tengamos linea de visión con ambos.
; Primero tenemos que poner cuantos ores debe separar y fundir
; es recomendable poner de 50 a 100 para que no tengamos sobrepeso
; Al empezar deberemos configurar el Cofre y un punto de nuestra mochila.
; Los pasos se explican en el UO al darle a empezar, fijaros en la barra superior del UO.
; Una vez configurado la macro empezará sola a separar, fundir y guardar.
; Macro para funcionar en Ultima Alianza
; IMPORTANTE: Haced paquetes de 200 en 200 de los minerales, no superiores (dentro del baúl).
; Poner aquÃ* el número de ores que irá separando y fundiendo cada vez. (10, 20, 30,...)
;--------------------------
set %sep 196
:--------------------------
initevents
set %confp 1
chooseskill mini
set %skillini #skill

configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los ores a separar y manten el cursor en el.
event sysmessage Y presiona la tecla ESC
setuotitle Abre el contenedor que contiene los ores y luego manten el cursor en el y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor donde quieras llevar el objeto a separar de tu mochila y presiona ESC
event sysmessage Pon el cursor donde desees dejar el objeto a separar
event sysmessage Y presiona la tecla ESC
set %conf 2
goto TESC
}

TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
set %tot 0
set %vez 0
set %fin 0
goto separar
}
}
goto TESC


separar:
set %skillinc #SKILL - %skillini
for %vecesS 1 %sep
{
finditem TVJ c_ , %cofre
if #FINDSTACK = 0
{
findItem GWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem EWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem DWJ C_ , %cofre
if #FINDSTACK = 0
{
set %fin 1
}
}

}
}
event drag #FINDID
wait 10
msg 1 $
click %dejarx %dejary p
wait 10
setuotitle Accion: Separando | Cantidad: ( %vecesS / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
}

fundir:
findItem TVJ C_ , #BACKPACKID
if #FINDSTACK > 0
{
set #LOBJECTID #FINDID
event macro 17
set %vecesF %vecesF + 1
setuotitle Accion: Fundiendo | Cantidad: ( %vecesF / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
wait 10
goto fundir
}
if %fin = 1
{
set %fin 2
}
set %vecesF 0

guardar:
setuotitle Accion: Guardando | Veces: %vez | Guardado: %tot | Inicial: %skillini | Actual: #SKILL | Inc: %skillinc
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
}

}

}
event drag #findid
wait 10
KEY ENTER
wait 10
click %cofrex %cofrey p
set %tot %tot + #FINDSTACK
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
if %fin = 2
{
gosub finalizar
}
}
}

}

}
if #FINDSTACK > 0
{
goto guardar
}
set %vez %vez + 1
goto separar

sub finalizar
{
display OK Se ha finalizado la macro!$No se ha encontrado más mineral que fundir.
halt