Subir

Página 1 de 2 12 ÚltimoÚltimo
Resultados 1 al 20 de 34

Tema: Macro Alquimia... ¿?

  1. #1
    Avatar de Nex
    Fecha de ingreso
    February-2008
    Mensajes
    1.284
    Reputacion: 10
    Poder de reputación
    15

    Macro Alquimia... ¿?

    ; Macro by Charlie (Ultima Alianza)
    ; Para hacer la pocion que queramos hasta 5 kegs
    ; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA
    ; Necesitamos un cofre/bolsa/contenedor donde tengamos los materiales (mucha cantidad de regs y morteros)
    ; En la mochila necesitamos tener un o dos morteros (cuando se acaben cogera mas morteros del cofre)
    ; Al empezar habrá que configurar el cofre/bolsa/contenedor donde se tiene los materiales dichos arriba
    ; Después donde queremos que deje los materiales en nuestra mochila, e indicar la mochila del parpedoll y kegs que usaremos
    ; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA

    ; CONFIGURACIóN :
    ;--------------------------
    ; Indica que pocion quieres hacer:
    ; 1- Veneno Menor
    ; 2- Veneno
    ; 3- Veneno Mejorado
    ; 4- Veneno Mortal
    ; 5- Curación Menor
    ; 6- Curación
    ; 7- Curación Mejorada
    ; 8- Antidoto Menor
    ; 9- Antidoto
    ; 10- Antidoto Mejorada
    ; 11- Agilidad
    ; 12- Agilidad Mejorada
    ; 13- Resistencia
    ; 14- Resistencia Mejorada
    ; 15- Fuerza
    ; 16- Fuerza Mejorada
    ; 17- Explosion Menor
    ; 18- Explosion
    ; 19- Explosion Mejorada
    ; 20- Visión Nocturna
    ; 21- Encoger
    ; 22- Mana
    ; 23- Mana Total
    ; 24- Piel de Piedra
    ; 25- Invisibilidad
    ; 26- Disipar
    ; 27- Bendecir
    ; 28- Armor Reactive
    ; 29- Sustento
    ; 30- Cambio de Sexo
    ;--------------------------
    set %pocion 1
    ;--------------------------

    ; Indica cuanta cantidad quieres hacer ( 999 son 1000 pociones, 499 son 500 pociones, etc...):
    ; Si falla una poción no contara como una vez hecha
    ;--------------------------
    set %veces 999
    ;--------------------------

    ; Indica cuantos kegs vas a usar para meter las pociones:
    ; 0- Mete las pociones en un solo keg
    ; 1- Mete las pociones en DOS kegs
    ; 2- Mete las pociones en TRES kegs
    ; 3- Mete las pociones en CUATRO kegs
    ; 4- Mete las pociones en CINCO kegs
    ; Los kegs hay que tenerlo bloqueados en el suelo de la casa
    ;--------------------------
    set %kegs 0
    ;--------------------------




    initevents
    set %confp 1
    set %conf 0
    set %confx 0

    set %menu1x 61
    set %menu1y 64
    set %menu2x 101
    set %menu2y 66
    set %menu3x 146
    set %menu3y 65

    ; ---- Pociones ----

    set %pocionblanco WUF

    ; ---- Materiales ----

    set %mortero RQF
    set %ss RZF
    set %sa SZF
    set %ns WZF
    set %mr MZF
    set %gs JZF
    set %gl KZF
    set %bm JUF
    set %bp KUF
    set %am IUF
    set %on LZF
    set %bt FUF
    set %sd QZF

    set %kegx
    set %kegy
    set %keg1x
    set %keg1y
    set %keg2x
    set %keg2y
    set %keg3x
    set %keg3y
    set %keg4x
    set %keg4y
    set %keg5x
    set %keg5y

    configurar:
    if %confp = 1
    {
    Event sysmessage Abre el cofre en el que tienes los materiales, manten el cursor sobre el.
    event sysmessage Y presiona la tecla ESC
    setuotitle Abre el contenedor que contiene los materiales y luego manten el curso en el y presiona ESC
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    Event sysmessage Pon el cursor donde desees dejar los materiales en tu mochila
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde quieras llevar los materiales en tu mochila y presiona ESC
    set %conf 2
    set %confp 3
    goto TESC
    }
    if %confp = 3
    {
    Event sysmessage Haz doble click a la mochila de tu parpedoll
    event sysmessage Y presiona la tecla ESC
    setuotitle Haz doble click a la mochila de tu parpedoll y presiona ESC
    set %conf 3
    set %confp 4
    goto TESC
    }
    if %confp = 4
    {
    Event sysmessage Pon el cursor donde tengas un keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 4
    set %confp 5
    goto TESC
    }

    if %confp = 5
    {
    if %kegs = 1
    {
    Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 5
    set %confp 6
    goto TESC
    }
    set %confp 6
    goto configurar
    }
    if %confp = 6
    {
    if %kegs = 2
    {
    if %confx = 0
    {
    Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 6
    goto TESC
    }
    if %confx = 1
    {
    Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 6
    goto TESC
    }
    if %confx = 2
    {
    goto start
    }
    }
    set %confp 7
    goto configurar
    }
    if %confp = 7
    {
    if %kegs = 3
    {
    if %confx = 0
    {
    Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 7
    goto TESC
    }
    if %confx = 1
    {
    Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 7
    goto TESC
    }
    if %confx = 2
    {
    Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 7
    goto TESC
    }
    if %confx = 3
    {
    goto start
    }
    }
    set %confp 8
    goto configurar
    }
    if %confp = 8
    {
    if %kegs = 4
    {
    if %confx = 0
    {
    Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 8
    goto TESC
    }
    if %confx = 1
    {
    Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 8
    goto TESC
    }
    if %confx = 2
    {
    Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 8
    goto TESC
    }
    if %confx = 3
    {
    Event sysmessage Pon el cursor donde tengas un quinto keg bloqueado en el suelo
    event sysmessage Y presiona la tecla ESC
    setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
    set %conf 8
    goto TESC
    }
    if %confx = 4
    {
    goto start
    }
    }
    }
    goto start

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %cofre #LOBJECTID
    goto configurar
    }
    if %conf = 2
    {
    set %dejarx #CURSORX
    set %dejary #CURSORY
    goto configurar
    }
    if %conf = 3
    {
    set %mochila #LOBJECTID
    goto configurar
    }
    if %conf = 4
    {
    set %kegx #CURSORX
    set %kegy #CURSORY
    goto configurar
    }
    if %conf = 5
    {
    set %keg1x #CURSORX
    set %keg1y #CURSORY
    goto configurar
    }
    if %conf = 6
    {
    if %confx = 0
    {
    set %keg1x #CURSORX
    set %keg1y #CURSORY
    set %confx 1
    goto configurar
    }
    if %confx = 1
    {
    set %keg2x #CURSORX
    set %keg2y #CURSORY
    set %confx 2
    goto configurar
    }
    }
    if %conf = 7
    {
    if %confx = 0
    {
    set %keg1x #CURSORX
    set %keg1y #CURSORY
    set %confx 1
    goto configurar
    }
    if %confx = 1
    {
    set %keg2x #CURSORX
    set %keg2y #CURSORY
    set %confx 2
    goto configurar
    }
    if %confx = 2
    {
    set %keg3x #CURSORX
    set %keg3y #CURSORY
    set %confx 3
    goto configurar
    }
    if %confx = 3
    {
    set %keg4x #CURSORX
    set %keg4y #CURSORY
    set %confx 4
    goto configurar
    }
    }
    if %conf = 8
    {
    if %confx = 0
    {
    set %keg1x #CURSORX
    set %keg1y #CURSORY
    set %confx 1
    goto configurar
    }
    if %confx = 1
    {
    set %keg2x #CURSORX
    set %keg2y #CURSORY
    set %confx 2
    goto configurar
    }
    if %confx = 2
    {
    set %keg3x #CURSORX
    set %keg3y #CURSORY
    set %confx 3
    goto configurar
    }
    if %confx = 3
    {
    set %keg4x #CURSORX
    set %keg4y #CURSORY
    set %confx 4
    goto configurar
    }
    if %confx = 4
    {
    set %keg5x #CURSORX
    set %keg5y #CURSORY
    set %confx 5
    goto configurar
    }
    }
    }
    goto TESC

    start:
    setuotitle Macro de Alchemy Full - UA Sphere EasyUO Project - http://uasphere-euo.ath.cx
    if %pocion = 1
    {
    goto venenomenor
    }
    if %pocion = 2
    {
    goto veneno
    }
    if %pocion = 3
    {
    goto venenomejorado
    }
    if %pocion = 4
    {
    goto venenomortal
    }
    if %pocion = 5
    {
    goto curacionmenor
    }
    if %pocion = 6
    {
    goto curacion
    }
    if %pocion = 7
    {
    goto curacionmejorada
    }
    if %pocion = 8
    {
    goto antidotomenor
    }
    if %pocion = 9
    {
    goto antidoto
    }
    if %pocion = 10
    {
    goto antidotomejorada
    }
    if %pocion = 11
    {
    goto agilidad
    }
    if %pocion = 12
    {
    goto agilidadmejorada
    }
    if %pocion = 13
    {
    goto resistencia
    }
    if %pocion = 14
    {
    goto resistenciamejorada
    }
    if %pocion = 15
    {
    goto fuerza
    }
    if %pocion = 16
    {
    goto fuerzamejorada
    }
    if %pocion = 17
    {
    goto explosionmenor
    }
    if %pocion = 18
    {
    goto explosion
    }
    if %pocion = 19
    {
    goto explosionmejorada
    }
    if %pocion = 20
    {
    goto visionnocturna
    }
    if %pocion = 21
    {
    goto encoger
    }
    if %pocion = 22
    {
    goto mana
    }
    if %pocion = 23
    {
    goto manatotal
    }
    if %pocion = 24
    {
    goto pieldepiedra
    }
    if %pocion = 25
    {
    goto invisibilidad
    }
    if %pocion = 26
    {
    goto disipar
    }
    if %pocion = 27
    {
    goto bendecir


    }
    if %pocion = 28
    {
    goto armorreactive
    }
    if %pocion = 29
    {
    goto sustento
    }
    if %pocion = 30
    {
    goto cambiosexo
    }


    venenomenor:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ns C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 3
    msg $
    click %dejarx %dejary p
    finditem %mortero c_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17
    wait 2s
    deletejournal
    scanjournal 1
    if aviso:_dentro_de in #journal
    {
    wait 120s
    }
    finditem %ns c_ , #backpackid
    set #LTARGETID #findid
    event macro 22
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    veneno:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ns C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 2
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    venenomejorado:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ns C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 4
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu3x %menu3y d
    wait 8s
    deleteJournal
    goto cargar

    venenomortal:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ns C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 8
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu4x %menu4y d
    wait 8s
    deleteJournal
    goto cargar

    curacionmenor:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %gs C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    curacion:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %gs C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 3
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    curacionmejorada:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %gs C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 7
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu3x %menu3y d
    wait 8s
    deleteJournal
    goto cargar

    antidotomenor:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %gl C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    antidoto:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %gl C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 3
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    antidotomejorada:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %gl C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 6
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu3x %menu3y d
    wait 8s
    deleteJournal
    scanjournal 1
    goto cargar

    agilidad:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %bm C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    agilidadmejorada:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %bm C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 3
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    resistencia:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %bp C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    resistenciamejorada:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %bp C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 6
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    fuerza:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %mr C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 2
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    fuerzamejorada:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %mr C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 5
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    explosionmenor:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %sa C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 3
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    explosion:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %sa C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 5
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    explosionmejorada:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %sa C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 10
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu3x %menu3y d
    wait 8s
    deleteJournal
    goto cargar

    visionnocturna:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ss C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    encoger:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %am C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 2
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    scanjournal 1
    goto cargar

    mana:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %on C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 3
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    manatotal:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %on C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 8
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu2x %menu2y d
    wait 8s
    deleteJournal
    goto cargar

    pieldepiedra:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %bt C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 4
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    invisibilidad:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %sd C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 3
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    scanjournal 1
    goto cargar

    disipar:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %sa C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %gl C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %mr C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    bendecir:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %gl C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %mr C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    armorreactive:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ss C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %sa C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %gl C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    sustento:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %bp C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %bm C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %sa C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    cambiosexo:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %bm C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %bs C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    wait 2s
    findItem %mr C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    set #LOBJECTID #FINDID
    wait 2s
    event macro 17
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    deleteJournal
    goto cargar

    keg:
    if %kegs = 0
    {
    set %fin 2
    gosub finalizar
    }
    if %kegs = 1
    set %kegx %keg1x
    set %kegy %keg1y

    set %kegs 0
    goto start
    }
    if %kegs = 2
    set kegs 1
    set %kegx %keg2x
    set %kegy %keg2y
    set %kegs 1
    goto start
    }
    if %kegs = 3
    set kegs 2
    set %kegx %keg3x
    set %kegy %keg3y
    set %kegs 2
    goto start
    }
    if %kegs = 4
    set kegs 3
    set %kegx %keg4x
    set %kegy %keg4y
    set% kegs 3
    goto start
    }
    goto start

    cargar:
    findItem %pocionblanco C_ , %mochila
    if #FINDCOL <> 0
    {
    scanjournal 1
    if You_put in #journal || Your in #journal
    {
    wait 3s
    findItem %pocionblanco C_ , %mochila
    click %kegx %kegy d
    wait 3s
    set #LTARGETID #FINDID
    event macro 22 0
    wait 3s
    goto cargar
    }
    if You_toss_the_failed in #journal
    {
    set %veces 1 + %veces
    }
    }
    goto start

    morteros:
    findItem %mortero C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event drag #FINDID
    wait 3s
    click %dejarx %dejary p
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    goto start

    sub finalizar
    {
    if %fin = 1
    {
    display OK Macro terminada!$No se han encontrado los materiales necesarios!
    }
    if %fin = 2
    {
    display OK Macro terminada!$Ya tienes hecho el keg!
    }
    halt
    return
    }






    El problema eske, cuando le doy al play, aparte de lo ke me pide dar a escape y demas, despues, me dice "no tienes los ingredientes necesarios", cuando tengo unos 400 y piko...
    la macro esta mal?? yo la configuro bien y todo eso... intentan dar con el fallo xfavor, gracias..

    salu2

  2. #2
    Avatar de karmelot
    Fecha de ingreso
    April-2008
    Edad
    34
    Mensajes
    1.303
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    Solucionaste el problema?? la macro tiene muy buena pinta si me lo permites me copio...

  3. #3
    Avatar de Nex
    Fecha de ingreso
    February-2008
    Mensajes
    1.284
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    az lo ke kieras, pero me sigue sin ir xD

  4. #4
    Avatar de Atunium
    Fecha de ingreso
    May-2007
    Mensajes
    429
    Reputacion: 10
    Poder de reputación
    14

    Re: Macro Alquimia... ¿?

    Cita Iniciado por Nex Ver mensaje
    ; Macro by Charlie (Ultima Alianza)
    ; Para hacer la pocion que queramos hasta 5 kegs
    ; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA
    ; Necesitamos un cofre/bolsa/contenedor donde tengamos los materiales (mucha cantidad de regs y morteros)
    ; En la mochila necesitamos tener un o dos morteros (cuando se acaben cogera mas morteros del cofre)
    ; Al empezar habrá que configurar el cofre/bolsa/contenedor donde se tiene los materiales dichos arriba
    ; Después donde queremos que deje los materiales en nuestra mochila, e indicar la mochila del parpedoll y kegs que usaremos
    ; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA

    u.u

    la macro esa funciona decentemente, aunq lo que mas falla es guardar las potas en el keg, pero por lo de que no tienes regs en la mochila es solo leer las instrucciones..
    GOLEMS =

  5. #5
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    14

    Re: Macro Alquimia... ¿?

    A mi no me va,al cabo del rato me dice que no se encontraron los ingredientes

  6. #6
    Avatar de Nex
    Fecha de ingreso
    February-2008
    Mensajes
    1.284
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    ami ya me funka.. el proble ke tiene eske x cada save, te pone "macro terminada, no se encontraron los ingredientes", entonces se para.. osea, de un save a otro funka, pero luego, down xD

    Salu2!

  7. #7
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    14

    Re: Macro Alquimia... ¿?

    A mi me pasa lo mismo,alguien sabe por que?

  8. #8
    Avatar de Nex
    Fecha de ingreso
    February-2008
    Mensajes
    1.284
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    pues xk aunke este en save la macro sigue mirando los regs y demas, y como esta parado, es como si no hubiera. el caso es, alguien sabe como arreglar eso? xD

    Salu2!

  9. #9

    Fecha de ingreso
    February-2008
    Edad
    35
    Mensajes
    36
    Reputacion: 15
    Poder de reputación
    12

    Re: Macro Alquimia... ¿?

    alguien sabe xq me hace todo bien, pero luego al meter la pocion en el keg no hace nada?

  10. #10
    Avatar de ConcodilloDanDic
    Fecha de ingreso
    June-2007
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    829
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    Lo de los save es tan facil como mirarse algunas macros de alex y veras un comando....

    Scanjournal ^^

  11. #11
    Avatar de Hate
    Fecha de ingreso
    November-2007
    Ubicación
    en mi casa
    Edad
    33
    Mensajes
    1.223
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    pero falla mucho al meter la botella en el keg, y ademas cuando fallas al crear la pocion se raya la macro.

  12. #12
    Avatar de Nex
    Fecha de ingreso
    February-2008
    Mensajes
    1.284
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    Cita Iniciado por ConcodilloDanDic Ver mensaje
    Lo de los save es tan facil como mirarse algunas macros de alex y veras un comando....

    Scanjournal ^^
    pero donde pongo eso xdd

  13. #13
    Avatar de ConcodilloDanDic
    Fecha de ingreso
    June-2007
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    829
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    Como bien dice hate esa macro daba algunos problemas lo mejor sera que empiezes tu una mirandote otras macros y con el manual de Tone que es de muchiisisisisisisma ayuda creeme ^^ pero sobre todo mirate otras macros.

  14. #14
    Avatar de Sand
    Fecha de ingreso
    April-2008
    Edad
    29
    Mensajes
    45
    Reputacion: 10
    Poder de reputación
    12

    Re: Macro Alquimia... ¿?

    Estube configurandola y quedo asi la parte del goto venenomenor:


    venenomenor:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila
    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ns C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    msg 1
    msg $
    click %dejarx %dejary p
    finditem %mortero c_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17
    wait 2s
    deletejournal
    scanjournal 1
    if aviso:_dentro_de in #journal
    {
    wait 120s
    }
    finditem %ns c_ , #backpackid
    set #LTARGETID #findid
    event macro 22
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    click %kegx %kegy d
    wait 2s

    ACA VIENE EL PROBLEMA, COMO HAGO PARA QUE LUEGO DE
    click %kegx %kegy d
    wait 2s
    (esto le da click al keg)
    BUSQUE EN LA MOCHILA Y META EN EL BARRIL EL VENENO MENOR
    No se mucho de easy por eso si alguien podria decirme comohacer que el easyuo encuentre y seleccione el veneno menor le estaria agradecido

  15. #15
    Avatar de karmelot
    Fecha de ingreso
    April-2008
    Edad
    34
    Mensajes
    1.303
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Alquimia... ¿?

    Sería algo así si no me ekivoco no?, la gente ke entiende bien de easyuo ke ayude!

    findItem %venenomenor _C, #BACKPACKID (Busca la pocima de veneno menor en tu mochila)
    set #LTARGETID #FINDID (Le asigna el lasttarget a esa pocima anteriormente encontrada)
    event macro 22 0 (Utiliza el lasttarget del uo, como si lo tuvieramos asignado en una tecla pero sin necesidad de pulsarla, es una orden directa(Como si fuera key xx))
    wait 10


    siendo %venenomenor definida anteriormente con la id de una pocima de venenomenor. (lógico no?)

    Pues eso.. sería CORRECTO?
    Última edición por karmelot; 16-May-2008 a las 09:18

  16. #16
    Avatar de Sand
    Fecha de ingreso
    April-2008
    Edad
    29
    Mensajes
    45
    Reputacion: 10
    Poder de reputación
    12

    Re: Macro Alquimia... ¿?

    pero la ID del veneno menor no cambia cada vez que se mete un veneno al keg y se crea un nuevo veneno?
    En la macro creo que busca los frascos en la mochila asi:
    findItem %pocionblanco C_ , %mochila
    siendo pocionblanco WUF, que es el LOBJECTTYPE del frasco con veneno pero no lo encuentra.

  17. #17
    Avatar de Sand
    Fecha de ingreso
    April-2008
    Edad
    29
    Mensajes
    45
    Reputacion: 10
    Poder de reputación
    12

    Respuesta: Macro Alquimia... ¿?

    Ya esta a punto va quedando asi el goto venenomenor:


    venenomenor:
    for %x 0 %veces
    {
    findItem %mortero C_ , %mochila

    if #FINDSTACK = 0
    {
    goto morteros
    }
    findItem %ns C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    gosub finalizar
    }
    event Drag #findID
    wait 1s
    msg 1
    msg $
    click %dejarx %dejary p
    finditem %mortero c_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17
    wait 2s
    deletejournal
    scanjournal 1
    if aviso:_dentro_de in #journal
    {
    wait 120s
    }
    finditem %ns c_ , #backpackid
    set #LTARGETID #findid
    event macro 22
    wait 2s
    click %menu1x %menu1y d
    wait 8s
    click %kegx %kegy d
    findItem %pocionblanco C_ , %mochila
    click %kegx %kegy d
    wait 3s
    set #LTARGETID #FINDID
    event macro 22 0
    deleteJournal
    goto cargar


    ACLARO QUE CUANDO PIDE QUE MARQUES LA MOCHILA ASEGURARSE QUE SEA UN DOBLE CLICK POR QUE SINO NO GURADA EL ID DE LA MOCHILA


    EL PROBLEMA ES QUE UN VEZ DE VACIAR EL VENENO EN EL BARRIL HACE LO CONTRARIO, TOMA UNA BOTELLA VACIA DEL INVENTARIO Y LA LLENA CON VENENO DEL BARRIL, CREO QUE ES POR QUE EL
    set %pocionblanco WUF (WUF es el LOBJECTTYPEID de los frascos)
    ES EL MISMO PARA LOS FRASCOS VACIOS Y LOS FRASCOS CON VENENO, ES POR ESO QUE CREO QUE EL EASY NO DIFERENCIA UNO DEL OTRO, NADIE SABE COMO PODER DIFERENCIARLOS?

  18. #18
    Avatar de karmelot
    Fecha de ingreso
    April-2008
    Edad
    34
    Mensajes
    1.303
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Macro Alquimia... ¿?

    pues eso no lo sabia voi a verlo y a ver si te puedo exar una mano tio q no ayuda mucha gente por lo ke veo.. :S

  19. #19
    Avatar de Sand
    Fecha de ingreso
    April-2008
    Edad
    29
    Mensajes
    45
    Reputacion: 10
    Poder de reputación
    12

    Respuesta: Macro Alquimia... ¿?

    UP
    Weno sigo sin poder hacer que se diferencien los frascos vacios de los frascos con veneno,
    una solucion podria ser tomar un frasco del cofre uno por uno para que luego de hacer el veneno el unico frasco que este en la mochila sea este pero la veo menos practica.
    No hay un solo experto en macro que sepa como solucionar esto??

  20. #20
    Avatar de karmelot
    Fecha de ingreso
    April-2008
    Edad
    34
    Mensajes
    1.303
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Macro Alquimia... ¿?

    Creo que si no puedes controlar el tipo de pocion que hay por el id de la misma (ya que coinciden) deberías intentar hacerlo con el journal!

    Intentas hacer la pocion y despues del proceso o justo despues de hacer el target sobre el nightshade haces un wait de 10 y escaneas el journal asi:

    scanjournal
    if No_tienes_frascos in #journal
    (Significa ke la pocion que esta actualmente en el backpack es de veneno a si que tienes que ordenarle que la vacie o que te reponga más pocimas vacias)

    No se si te habrá servido para algo pero bueno espero que te de alguna idea!!

    Suerte compañero!

Temas similares

  1. Fallo en macro de alquimia.
    Por Hate en el foro Macros
    Respuestas: 1
    Último mensaje: 19-Mar-2008, 12:37
  2. Fallo Macro de alquimia
    Por Esmeralda en el foro Macros
    Respuestas: 1
    Último mensaje: 20-Feb-2008, 10:52
  3. Macro de alquimia por favor...
    Por Toitolohago en el foro Macros
    Respuestas: 0
    Último mensaje: 17-Jul-2007, 08:04
  4. Ayuda, alguien tiene macro de alquimia!!
    Por A3H en el foro Macros
    Respuestas: 0
    Último mensaje: 17-Jun-2007, 10:15
  5. Fallo macro Alquimia
    Por toylokito en el foro Macros
    Respuestas: 2
    Último mensaje: 15-Apr-2007, 03:28

Permisos de publicación

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