Subir

Resultados 1 al 2 de 2

Tema: Fallo en macro de alquimia.

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

    Fallo en macro de 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
    }



    No rellena mas que un soloo barril, cuando termina con un barril se ralla y no para de coger regs de la bolsa. Y tambien es un poco lenta.

  2. #2
    Suspendido
    Fecha de ingreso
    January-2008
    Edad
    36
    Mensajes
    225
    Reputacion: 10
    Poder de reputación
    0

    Re: Fallo en macro de alquimia.


Temas similares

  1. Macro Alquimia... ¿?
    Por Nex en el foro Macros
    Respuestas: 33
    Último mensaje: 09-Apr-2009, 20:03
  2. Fallo Macro de alquimia
    Por Esmeralda en el foro Macros
    Respuestas: 1
    Último mensaje: 20-Feb-2008, 11:52
  3. Macro de alquimia por favor...
    Por Toitolohago en el foro Macros
    Respuestas: 0
    Último mensaje: 17-Jul-2007, 09:04
  4. Ayuda, alguien tiene macro de alquimia!!
    Por A3H en el foro Macros
    Respuestas: 0
    Último mensaje: 17-Jun-2007, 11:15
  5. Fallo macro Alquimia
    Por toylokito en el foro Macros
    Respuestas: 2
    Último mensaje: 15-Apr-2007, 04: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