Resultados 1 al 4 de 4

Tema: EasyUO: Macros.

  1. #1

    EasyUO: Macros.

    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

    Código:
    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

    Código:
    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

    Código:
    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.

  2. #2

    Re: EasyUO: Macros.

    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).

    Código:
    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.

  3. #3

    Re: EasyUO: Macros.

    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:

    Código:
    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:

    Código:
    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.

  4. #4

    Re: EasyUO: Macros.

    Macro by Alex
    Para Separar ores y fundirlos.

    Código:
    ; 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

Temas Similares

  1. Macros
    Por Marcs en el foro Warrior
    Respuestas: 42
    Último Mensaje: 30/04/2011, 22:11
  2. macros?
    Por vicluber en el foro Druid
    Respuestas: 27
    Último Mensaje: 27/07/2010, 10:09
  3. Macros
    Por alee en el foro Elwyn [C1]
    Respuestas: 8
    Último Mensaje: 02/11/2007, 01:09

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •