Subir

Resultados 1 al 14 de 14

Tema: Ayuda macro abrir cerraduras

  1. #1

    Fecha de ingreso
    December-2007
    Ubicación
    Oviedo - Asturies
    Mensajes
    457
    Reputacion: 10
    Poder de reputación
    15

    Ayuda macro abrir cerraduras

    Como todas las macros de abrir cerraduras que encontre trabaan con llaveros y parece que aki las llaves de los cofres no pueden meterse en ellos, me decidi a hacer una yo, pero no soy capaz de que funcione correctamente. Si algun alma caritativa pudiera echarme una mano se lo agradeceria mucho. Como podreis comprobar viendo el codigo, de experto tengo muy poco, y es muy mejorable, pero mientras siga trabado ... no kiero meterme mas alla. Aki va el script comentado:


    set %llave EFG
    set %ganzua NWH
    set %caja CUD
    ; -----------------------------------------------------------------------------
    ; La idea es tener un contenedor con cajas con llave, y desde ese contenedor,
    ; coger una sola caja y llevarla a otro contenedor. En el segundo contenedor
    ; se abre la caja y se lleva la llave a la mochila. Se cierra la caja y se fuerza
    ; (las ganzuas estaran en la mochila). Cuando la caja se rompe, se trae otra caja
    ; del primer contenedor y se lleva al segundo para comemzar de nuevo
    ; ------------------------------------------------------------------------------

    ; ------------------------------------------------------------------------------
    ; el segundo contenedor esta abierto, por tanto busca la caja en este segundo
    ; si no la hubiera deberia traerla de primer contenedor
    ; -------------------------------------------------------------------------------
    Inicio:
    {
    finditem %caja
    set %cajaid #FINDID
    if #FINDCNT = 0
    goto TraeCaja
    set %xcaja #FINDX
    set %ycaja #FINDY
    ; Pongo este +20 en cada coordenada porque sino no abre la caja con cerradura
    ; desconozco el por que, pero comprobe que es asi
    set %xcaja %xcaja + 20
    set %ycaja %ycaja + 10
    ; hace doble clic en la caja con serradura y la abre dejando la llave a la vista
    click %xcaja %ycaja d

    ; esto falla casi siempre. Se trata de coger la llave y llevarla a la mochila desde
    ; la caja con cerradura
    finditem %llave
    event Drag #FINDID
    set %llaveid #FINDID
    wait 50
    ; estas son las coordenadas de la mochila en el paperdoll
    click 1150 230 p
    wait 10
    ; con esto cierro la caja con cerradura. No seria necesario porque al darle con la llave
    ; la propia caja se cierra, pero por si acaso
    click #NEXTCPOSX #NEXTCPOSY r
    }

    ; En este trozo, usa la llave para cerrar la caja con cerradura que se forzara
    Cerrar:
    {
    set #LOBJECTID %llaveid
    event macro 17
    wait 10
    set #LTARGETID %cajaid
    event macro 22
    wait 10
    }

    ; Este trozo si que funciona, busca las ganzuas y trata de forzar la caja
    Forzar:
    {
    findItem %ganzua
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    set #LOBJECTID %cajaid
    event macro 22
    wait 10
    wait 7s
    }

    scanjournal 1
    if no_logra_forzar in #journal
    Goto Forzar
    if Rompes in #journal
    Goto TraeCaja
    ; si llegamos aki, la caja no rompio y fue forzada, de modo que a cerrarla con la llave
    Goto Cerrar

    ; Este trozo tampoco va. Probe con event drag y luego click para dejar la caja en el conte
    ; nedor para forzarla, pero tururu. Con exevent drag y exevent dropc tampoco va
    TraeCaja:
    {
    click 355 255 d
    finditem %caja
    Exevent Drag #FINDID
    wait 20
    ; es el id del contenedor a que se lleva la caja a forzar
    Exevent Dropc QXAUMPD
    ;click 360 275 p
    click #NEXTCPOSX #NEXTCPOSY r
    Goto inicio
    }
    Por cierto, primero la corria en easyuo 1.4.0. Ahora tengo la 1.5 version 151
    Última edición por manolon; 09-Jul-2009 a las 13:23

  2. #2

    Fecha de ingreso
    December-2007
    Ubicación
    Oviedo - Asturies
    Mensajes
    457
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Version actaulizada ... mejora en algo pero se traba con la llave e la mochila:



    set %llave EFG
    set %ganzua NWH
    set %caja CUD
    set %cofreo QXRNNPD ;Cofre con las cajas sin cerrar
    set %cofred QXAUMPD ;Cofre con la caja a forzar

    Inicio:
    {
    finditem %caja c_ , %cofred
    set %cajaid #FINDID
    if #FINDCNT = 0
    goto TraeCaja
    set %xcaja #FINDX
    set %ycaja #FINDY
    ;Abre la caja con cerradura para sacar la llave a la mochila
    set %xcaja %xcaja + 20
    set %ycaja %ycaja + 10
    click %xcaja %ycaja d
    wait 1s
    ;Coge la llave y la deja en la mochila
    finditem %llave c_ , %cajaid
    wait 5
    event Drag #FINDID
    wait 10
    exevent dropc #backpackid
    wait 1s
    }

    ;Usa la llave para cerrar la caja con cerradura que se forzara
    Cerrar:
    {
    finditem %llave c_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    set #LTARGETID %cajaid
    event macro 22
    wait 10
    }

    ;Busca las ganzuas y trata de forzar la caja
    Forzar:
    {
    findItem %ganzua c_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    set #LOBJECTID %cajaid
    event macro 22
    wait 10
    wait 7s
    }

    scanjournal 1
    if no_logra_forzar in #journal
    Goto Forzar
    if Rompes in #journal
    Goto TraeCaja
    ; si llegamos aki, la caja no rompio y fue forzada, de modo que a cerrarla con la llave
    Goto Cerrar

    ; Este trozo ya funciona
    TraeCaja:
    {
    finditem %caja c_ , %cofreo
    Exevent Drag #FINDID
    wait 10
    Exevent Dropc %cofred 80 150
    wait 1s
    Goto inicio
    }

  3. #3

    Fecha de ingreso
    December-2007
    Ubicación
    Oviedo - Asturies
    Mensajes
    457
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Ya ta!!! ya funciona!!! MIL GRACIAS a Karmelot

  4. #4
    Avatar de PuRitOs
    Fecha de ingreso
    June-2008
    Ubicación
    ?????
    Edad
    36
    Mensajes
    490
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Pega la version final plz
    saludos

  5. #5

    Fecha de ingreso
    December-2007
    Ubicación
    Oviedo - Asturies
    Mensajes
    457
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Sin problemas:
    esto funciona de la siguiente forma: un contenedor con las cajas y otro vacio al k las lleva de una en una. los dos abiertos antes de iniciar la macro. Cofreo es el que tiene las cajas sin forzar y cofred es al que lleva una caja pa forzarla. Hay k tener las ganzuas en la mochila. Espero k os sirva. Saludos y gracias de nuevo a Karmelot.

    set %llave EFG
    set %ganzua NWH
    set %caja CUD
    set %cofreo QXRNNPD ;Cofre con las cajas sin cerrar
    set %cofred QXAUMPD ;Cofre con la caja a forzar
    set %backpackx 1150
    set %backpacky 230

    Inicio:
    {
    finditem %caja c_ , %cofred
    set %cajaid #FINDID
    if #FINDCNT = 0
    goto TraeCaja
    set %xcaja #FINDX
    set %ycaja #FINDY
    ;Abre la caja con cerradura para sacar la llave a la mochila
    set %xcaja %xcaja + 20
    set %ycaja %ycaja + 10
    click %xcaja %ycaja d
    wait 1s
    ;Coge la llave y la deja en la mochila
    finditem %llave c_ , %cajaid
    wait 5
    event Drag #FINDID
    wait 10
    click %backpackx %backpacky
    wait 1s
    }

    ;Usa la llave para cerrar la caja con cerradura que se forzara
    Cerrar:
    {
    finditem %llave c_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    set #LTARGETID %cajaid
    event macro 22
    wait 10
    }

    ;Busca las ganzuas y trata de forzar la caja
    Forzar:
    {
    findItem %ganzua c_ , #backpackid
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    set #LOBJECTID %cajaid
    event macro 22
    wait 10
    wait 7s
    }

    scanjournal 1
    if no_logra_forzar in #journal
    Goto Forzar
    if Rompes in #journal
    Goto TraeCaja
    ; si llegamos aki, la caja no rompio y fue forzada, de modo que a cerrarla con la llave
    Goto Cerrar

    ; Este trozo ya funciona
    TraeCaja:
    {
    finditem %caja c_ , %cofreo
    if #FINDCNT = 0
    halt
    Exevent Drag #FINDID
    wait 10
    Exevent Dropc %cofred 80 150
    wait 1s
    Goto inicio
    }

  6. #6

    Fecha de ingreso
    October-2008
    Ubicación
    Oviedo
    Edad
    38
    Mensajes
    417
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Hola bueno suponiendo que muchisima gente va a usar esta macro al menos deberiais darle las gracias no? Aunque fijo que la gente copiara pegara y punto. Bueno muchas gracias manolon.

  7. #7
    Avatar de BlooD_Aeris
    Fecha de ingreso
    March-2009
    Ubicación
    Minoc
    Clan
    Nothing
    Facción
    Neutral
    Nacimiento
    Moonglow
    Mensajes
    1.285
    Reputacion: 66
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    no se si la usara o no,xo d todas formas gracias

  8. #8
    Avatar de BorisGrushenko
    Fecha de ingreso
    August-2008
    Mensajes
    554
    Reputacion: 4
    Poder de reputación
    0

    Respuesta: Ayuda macro abrir cerraduras

    yyyyyyyyyyyy se la pego manolon!!!!!!!! muchas gracias tio!!!!!!!!!
    Visita mi tienda!! http://ultima-alianza.com/foro/blogs/borisgrushenko/

    Boris Grushenko, ex- consejero de comercio de Cove

  9. #9

    Fecha de ingreso
    May-2007
    Edad
    34
    Mensajes
    1.030
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    tengo un problemilla de la macro la primera caja la coje la deja en el otro cofre la abra coje la llave la deja en la moxila la intenta forzar lalalala pero cuando coje la segunda o la primera aveces se ralla y no abre la caja y saka la llave y cierra directamente se pone a forzarla :S sabeis xk?

  10. #10
    Avatar de PuRitOs
    Fecha de ingreso
    June-2008
    Ubicación
    ?????
    Edad
    36
    Mensajes
    490
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Porsupuesto que gracias!!!

  11. #11

    Fecha de ingreso
    May-2007
    Edad
    34
    Mensajes
    1.030
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    tengo otro problemilla no se si os pasa es normal o k pero cuando tengo - 10 cajas la macro se para :S y no me deja volvera a poner :S

  12. #12

    Fecha de ingreso
    December-2007
    Ubicación
    Oviedo - Asturies
    Mensajes
    457
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Raro ... pork la macro ta programada pa k se pare cuando no quede ninguna caja en el contenedor inicial (el que tiene todas las cajas al principio). Te agregue al msn ... cuando estes y si no lo solucionaste dame un toke y lo miramos.

  13. #13
    Avatar de Rina Exwild
    Fecha de ingreso
    April-2008
    Ubicación
    U.S.A.
    Mensajes
    1.086
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Ayuda macro abrir cerraduras

    Ami la macro me falla, justo al principio, no coge el cofre empieza abirendolo y cojiendo llave, alguien sabe porque?

    un saludo.

    EDITADO: Valla tonteria, era por la version del EasyUO, que la valida es la 1.5. Gracias por la macro
    Última edición por Rina Exwild; 25-Jul-2009 a las 07:52
    El silencio del envidioso está lleno de ruidos.

  14. #14

    Fecha de ingreso
    May-2011
    Edad
    43
    Mensajes
    174
    Reputacion: 22
    Poder de reputación
    13

    Re: Respuesta: Ayuda macro abrir cerraduras

    buenas buscando e visto tu macro pero a mi no me abre el cofre y saca la llave. en cambio si la llave la pongo yo en mi maleta si continua bien la macro.

Temas similares

  1. Abrir cerraduras
    Por tssefirot en el foro Dudas y Preguntas
    Respuestas: 0
    Último mensaje: 10-Mar-2009, 19:32
  2. cartografia y abrir cerraduras
    Por Ryoga en el foro Dudas y Preguntas
    Respuestas: 1
    Último mensaje: 23-Mar-2008, 00:34
  3. Abrir cerraduras de los cofres
    Por DeMoro en el foro Dudas y Preguntas
    Respuestas: 0
    Último mensaje: 18-Mar-2007, 12:36

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