Subir

Resultados 1 al 6 de 6

Tema: Macro alquimia

  1. #1

    Fecha de ingreso
    June-2007
    Mensajes
    284
    Reputacion: 10
    Poder de reputación
    14

    Macro alquimia

    Buenas, pues mi problema es el siguiente. Estoy usando la macro q presento a continuacion que la saque de este foro y resulta q en cada save se fastidia la macro y me pone q no tengo los reg necesarios a pesar de q si q los tengo, va todo bien hasta que llega el save.
    Si alguien puede ayudarme me vendria de lujo.
    Gracias de antemano
    Saludos

    ; Macro by Charlie (Ultima Alianza) Modificada por Karmelot y Badboy.
    ; 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
    ; RECUERDA: HACER DOS CLICKS SOBRE EL PARPEDOLL.
    ; RECUERDA: MARCAR LA NIGHTSHADE EN EL PRIMER INTENTO CUANDO PREGUNTE "WHAT REAGENT YOU LIKE TO MAKE A POTION OUT OF?
    ; 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 Macro de Charly. Ultima modificacion por los nobs en easyUO karmelot y Badboy para que solo haga veneno menor.
    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
    }
    scanjournal 1
    if No_tienes_frascos in #journal
    {
    click %kegx %kegy d
    findItem %pocionblanco C_ , %mochila
    click %kegx %kegy d
    wait 3s
    set #LTARGETID #FINDID
    event macro 22 0
    }
    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
    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 1s
    msg 1
    msg $
    click %dejarx %dejary p
    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
    }

    ahí la teneis.

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

    Respuesta: Macro alquimia

    La respuesta es: Cuando ocurre el save, el juego se detiene pero el easyuo sigue funcionando (a no ser que tengas puesto que pare) con lo que para el easyuo es como si no tuvieras nada en la mochila.
    Solucion: Poner un esperar mientras haya save y luego continuar con la macro

  3. #3

    Fecha de ingreso
    June-2007
    Mensajes
    284
    Reputacion: 10
    Poder de reputación
    14

    Respuesta: Macro alquimia

    Eso estoy probando pero puff por ahora no da resultados :P

  4. #4
    Suspendido
    Fecha de ingreso
    July-2008
    Mensajes
    331
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: Macro alquimia

    Se podria poner que cuando leyera el Journal "El Mundo Se Esta Guardando" (Bueno la frase entera) le diera a Stop y cuando pusiera la ultima frase de cuando para de hacer el save siguiera.

  5. #5

    Fecha de ingreso
    August-2008
    Mensajes
    17
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: Macro alquimia

    +1 aver quien es el campeon ke puede arreglarla

  6. #6
    Avatar de El Dementor
    Fecha de ingreso
    June-2007
    Mensajes
    405
    Reputacion: 10
    Poder de reputación
    14

    Respuesta: Macro alquimia

    A mí también me hace falta. Agradeceríamos que la arreglaran aquellos que saben de EasyUO.


    Un Saludo, El Dementor.

Temas similares

  1. Macro Alquimia... ¿?
    Por Nex en el foro Macros
    Respuestas: 33
    Último mensaje: 09-Apr-2009, 19:03
  2. Fallo en macro de alquimia.
    Por Hate en el foro Macros
    Respuestas: 1
    Último mensaje: 19-Mar-2008, 12:37
  3. Fallo Macro de alquimia
    Por Esmeralda en el foro Macros
    Respuestas: 1
    Último mensaje: 20-Feb-2008, 10:52
  4. Macro de alquimia por favor...
    Por Toitolohago en el foro Macros
    Respuestas: 0
    Último mensaje: 17-Jul-2007, 08:04
  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