Subir

Resultados 1 al 5 de 5

Tema: Duda con macro Artesania

  1. #1
    Avatar de kyomusashi
    Fecha de ingreso
    July-2010
    Ubicación
    Cercanías de Britains
    Clan
    Distrito III
    Nacimiento
    Valle de las Canciones
    Mensajes
    521
    Reputacion: 34
    Poder de reputación
    15

    Duda con macro Artesania

    Hola:
    Tengo esta macro de Artesanía y a ver si alguien me puede decir.
    ¿en que parte de la macro cambio el número de lingotes que quiero que coja?



    ;////////////////////////////////////////
    ;////////// MACRO ARTESANIA by SIRMANIAK
    ;////////////////////////////////////////
    set %comida YSD_QQD ;Peras, Manzanas
    set %lingotes RMK
    set %item RCG
    set %herramienta GTL
    set %menu_x1 110
    set %menu_x2 110
    set %confp 1


    configurar:
    if %confp = 1
    {
    Event sysmessage Abre el contenedor donde tienes los lingotes.
    event sysmessage Y presiona la tecla ESC.
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    event sysmessage Abre el contenedor donde se encuentran las herramientas.
    event sysmessage Y presiona la tecla ESC
    set %conf 2
    set %confp 3
    goto TESC
    }

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %cofre #LOBJECTID
    goto configurar
    }
    if %conf = 2
    {
    set %bolsa #LOBJECTID
    goto inicio
    }
    }
    goto TESC

    inicio:
    ;//////////////////////////////////////////////////////// reponemos herramientas
    findItem %herramienta C_ , #BACKPACKID
    if #findcnt < 1
    {
    GoSub cogerherramienta
    }

    ;//////////////////////////////////////////////////////// comemoms
    findItem %comida C_ , #BACKPACKID
    if #findcnt > 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    }

    ;//////////////////////////////////////////////////////// dejamos los engranajes o el objeto que sea
    findItem %item C_ , #BACKPACKID
    if #findcnt > 3 || #findstack > 40
    {
    GoSub dejarItems
    }
    ;//////////////////////////////////////////////////////// cogemos los lingotes
    findItem %lingotes C_ , #BACKPACKID
    if #findstack < 5
    {
    GoSub cogerlingotes
    }

    ;//////////////////////////////////////////////////////// hacemos los engranajes o el objeto que sea
    findItem %herramienta C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    wait 20
    click 172 60 d
    wait 20
    click 100 55 d
    wait 5s
    GoTo inicio:

    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************

    Sub cogerherramienta
    finditem %herramienta c_ , %bolsa
    if #findcnt < 1
    {
    msg Faltan herramientas
    wait 10
    msg $
    halt
    }
    exevent drag #FINDID 1
    wait 20
    exevent dropc #BACKPACKID
    wait 20
    return
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    Sub CogerLingotes
    finditem %lingotes c_ , %cofre
    if #findkind = -1
    {
    ignoreitem reset
    HALT
    }

    exevent drag #findid 90
    exevent dropc #backpackid
    return
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    Sub dejarItems
    finditem %item c_ , #BACKPACKID
    if #findstack > 40
    {
    exevent drag #findid #findstack
    wait 10
    exevent dropc %cofre
    }
    return

    -----------------------------------------------------------------------------------------------------

    Salu2

  2. #2

    Fecha de ingreso
    February-2007
    Mensajes
    126
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Duda con macro Artesania

    Cita Iniciado por kyomusashi Ver mensaje
    Hola:
    Tengo esta macro de Artesanía y a ver si alguien me puede decir.
    ¿en que parte de la macro cambio el número de lingotes que quiero que coja?



    ;////////////////////////////////////////
    ;////////// MACRO ARTESANIA by SIRMANIAK
    ;////////////////////////////////////////
    set %comida YSD_QQD ;Peras, Manzanas
    set %lingotes RMK
    set %item RCG
    set %herramienta GTL
    set %menu_x1 110
    set %menu_x2 110
    set %confp 1


    configurar:
    if %confp = 1
    {
    Event sysmessage Abre el contenedor donde tienes los lingotes.
    event sysmessage Y presiona la tecla ESC.
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    event sysmessage Abre el contenedor donde se encuentran las herramientas.
    event sysmessage Y presiona la tecla ESC
    set %conf 2
    set %confp 3
    goto TESC
    }

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %cofre #LOBJECTID
    goto configurar
    }
    if %conf = 2
    {
    set %bolsa #LOBJECTID
    goto inicio
    }
    }
    goto TESC

    inicio:
    ;//////////////////////////////////////////////////////// reponemos herramientas
    findItem %herramienta C_ , #BACKPACKID
    if #findcnt < 1
    {
    GoSub cogerherramienta
    }

    ;//////////////////////////////////////////////////////// comemoms
    findItem %comida C_ , #BACKPACKID
    if #findcnt > 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    }

    ;//////////////////////////////////////////////////////// dejamos los engranajes o el objeto que sea
    findItem %item C_ , #BACKPACKID
    if #findcnt > 3 || #findstack > 40
    {
    GoSub dejarItems
    }
    ;//////////////////////////////////////////////////////// cogemos los lingotes
    findItem %lingotes C_ , #BACKPACKID
    if #findstack < 5
    {
    GoSub cogerlingotes
    }

    ;//////////////////////////////////////////////////////// hacemos los engranajes o el objeto que sea
    findItem %herramienta C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    wait 20
    click 172 60 d
    wait 20
    click 100 55 d
    wait 5s
    GoTo inicio:

    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************

    Sub cogerherramienta
    finditem %herramienta c_ , %bolsa
    if #findcnt < 1
    {
    msg Faltan herramientas
    wait 10
    msg $
    halt
    }
    exevent drag #FINDID 1
    wait 20
    exevent dropc #BACKPACKID
    wait 20
    return
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    Sub CogerLingotes
    finditem %lingotes c_ , %cofre
    if #findkind = -1
    {
    ignoreitem reset
    HALT
    }

    exevent drag #findid 90
    exevent dropc #backpackid
    return
    ;//////////////////////////////////////////////////////// PROCEDIMIENTOS *************************************************************************************************
    Sub dejarItems
    finditem %item c_ , #BACKPACKID
    if #findstack > 40
    {
    exevent drag #findid #findstack
    wait 10
    exevent dropc %cofre
    }
    return

    -----------------------------------------------------------------------------------------------------

    Salu2
    Donde está en negrita.

  3. #3
    Avatar de kyomusashi
    Fecha de ingreso
    July-2010
    Ubicación
    Cercanías de Britains
    Clan
    Distrito III
    Nacimiento
    Valle de las Canciones
    Mensajes
    521
    Reputacion: 34
    Poder de reputación
    15

    Respuesta: Duda con macro Artesania

    Cita Iniciado por NeTBuSII Ver mensaje
    Donde está en negrita.
    Muchísimas gracias ckack!!

    Salu2

  4. #4

    Fecha de ingreso
    May-2010
    Edad
    37
    Mensajes
    55
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Duda con macro Artesania

    no me coje el hierro esta macro , me poriais decir pork ?

    Salu2

  5. #5

    Fecha de ingreso
    September-2009
    Mensajes
    314
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Duda con macro Artesania

    Abre el cofre antes de dar al play, no la he probado pero seguro que es eso.

    Un saludo
    "Un mago nunca llega tarde, ni pronto, llega exactamente cuando se lo propone"

    ////// Servicio de Veterinario //////

Temas similares

  1. macro artesania
    Por athanpsique en el foro Macros
    Respuestas: 0
    Último mensaje: 16-Sep-2011, 21:05
  2. macro de artesania
    Por altair en el foro Macros
    Respuestas: 1
    Último mensaje: 11-Jun-2011, 17:10
  3. Macro artesania
    Por KraTezZ en el foro Macros
    Respuestas: 2
    Último mensaje: 17-Nov-2009, 21:16
  4. Macro de artesania
    Por Rina Exwild en el foro Macros
    Respuestas: 3
    Último mensaje: 30-Jul-2009, 15:30
  5. Macro artesania
    Por Nightcrash en el foro Macros
    Respuestas: 1
    Último mensaje: 14-Mar-2007, 00:02

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