Subir

Resultados 1 al 5 de 5

Tema: Necesito macro de separar fundir mineral.

  1. #1

    Fecha de ingreso
    July-2011
    Edad
    36
    Mensajes
    6
    Reputacion: 10
    Poder de reputación
    0

    Necesito macro de separar fundir mineral.

    e probado esta pero no me funciona.


    ;-------------------------
    set %sep 50
    :--------------------------
    initevents
    set %confp 1
    chooseskill mini
    set %skillini #skill

    configurar:
    if %confp = 1
    {
    Event sysmessage Abre el cofre en el que tienes los ores a separar y manten el cursor en el.
    event sysmessage Y presiona la tecla ESC
    setuotitle Abre el contenedor que contiene los ores y luego manten el cursor en el y presiona ESC
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    setuotitle Pon el cursor donde quieras llevar el objeto a separar de tu mochila y presiona ESC
    event sysmessage Pon el cursor donde desees dejar el objeto a separar
    event sysmessage Y presiona la tecla ESC
    set %conf 2
    goto TESC
    }

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %cofre #LOBJECTID
    set %cofrex #CURSORX
    set %cofrey #CURSORY
    goto configurar
    }
    if %conf = 2
    {
    set %dejarx #CURSORX
    set %dejary #CURSORY
    set %tot 0
    set %vez 0
    set %fin 0
    goto separar
    }
    }
    goto TESC


    separar:
    set %skillinc #SKILL - %skillini
    for %vecesS 1 %sep
    {
    finditem TVJ c_ , %cofre
    if #FINDSTACK = 0
    {
    findItem GWJ C_ , %cofre
    if #FINDSTACK = 0
    {
    findItem EWJ C_ , %cofre
    if #FINDSTACK = 0
    {
    findItem DWJ C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    }
    }

    }
    }
    event drag #FINDID
    wait 10
    msg 1 $
    click %dejarx %dejary p
    wait 10
    setuotitle Accion: Separando | Cantidad: ( %vecesS / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
    }

    fundir:
    findItem TVJ C_ , #BACKPACKID
    if #FINDSTACK > 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    set %vecesF %vecesF + 1
    setuotitle Accion: Fundiendo | Cantidad: ( %vecesF / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
    wait 10
    goto fundir
    }
    if %fin = 1
    {
    set %fin 2
    }
    set %vecesF 0

    guardar:
    setuotitle Accion: Guardando | Veces: %vez | Guardado: %tot | Inicial: %skillini | Actual: #SKILL | Inc: %skillinc
    findItem RMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem NMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem XMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem TMK C_ , #BACKPACKID
    }

    }

    }
    event drag #findid
    wait 10
    KEY ENTER
    wait 10
    click %cofrex %cofrey p
    set %tot %tot + #FINDSTACK
    findItem RMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem NMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem XMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem TMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    if %fin = 2
    {
    gosub finalizar
    }
    }
    }

    }

    }
    if #FINDSTACK > 0
    {
    goto guardar
    }
    set %vez %vez + 1
    goto separar

    sub finalizar
    {
    display OK Se ha finalizado la macro!$No se ha encontrado más mineral que fundir.
    halt
    }
    __________________
    [FONT="Courier New"]Se necesita una razon para ayudar a alguien?

  2. #2

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

    Respuesta: Necesito macro de separar fundir mineral.

    ami me pasaron pro aqui por el foro 1 de separar que es una maravilla separa de 1 en 1 y funde sin ningun fallo buscala o mandame un MP y cuando llegue a casa te la paso que estoy en clases.

  3. #3
    Avatar de Berraco
    Fecha de ingreso
    November-2007
    Mensajes
    30
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Necesito macro de separar fundir mineral.

    Esta es la que yo uso, se parece a la que tienes esta no me da problema si no te funciona postea el error que te esta dando o que es lo que no te hace y tratare de ayudarte.


    macro para separar y fundir :


    ; Macro by Alex (Ultima Alianza)
    ; Para Separar ores y fundirlos.
    ; Necesitamos un cofre donde tengamos los ores a separar y poder dejar los lingotes,
    ; junto a una forja, vigilad que tengamos linea de visión con ambos.
    ; Primero tenemos que poner cuantos ores debe separar y fundir
    ; es recomendable poner de 50 a 100 para que no tengamos sobrepeso
    ; Al empezar deberemos configurar el Cofre y un punto de nuestra mochila.
    ; Los pasos se explican en el UO al darle a empezar, fijaros en la barra superior del UO.
    ; Una vez configurado la macro empezará sola a separar, fundir y guardar.
    ; Macro para funcionar en Ultima Alianza
    ; IMPORTANTE: Haced paquetes de 200 en 200 de los minerales, no superiores (dentro del baúl).
    ; Poner aquí el número de ores que irá separando y fundiendo cada vez. (10, 20, 30,...)
    ;--------------------------
    set %sep 50
    :--------------------------
    initevents
    set %confp 1
    chooseskill mini
    set %skillini #skill

    configurar:
    if %confp = 1
    {
    Event sysmessage Abre el cofre en el que tienes los ores a separar y manten el cursor en el.
    event sysmessage Y presiona la tecla ESC
    setuotitle Abre el contenedor que contiene los ores y luego manten el cursor en el y presiona ESC
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    setuotitle Pon el cursor donde quieras llevar el objeto a separar de tu mochila y presiona ESC
    event sysmessage Pon el cursor donde desees dejar el objeto a separar
    event sysmessage Y presiona la tecla ESC
    set %conf 2
    goto TESC
    }

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %cofre #LOBJECTID
    set %cofrex #CURSORX
    set %cofrey #CURSORY
    goto configurar
    }
    if %conf = 2
    {
    set %dejarx #CURSORX
    set %dejary #CURSORY
    set %tot 0
    set %vez 0
    set %fin 0
    goto separar
    }
    }
    goto TESC


    separar:
    set %skillinc #SKILL - %skillini
    for %vecesS 1 %sep
    {
    finditem TVJ c_ , %cofre
    if #FINDSTACK = 0
    {
    findItem GWJ C_ , %cofre
    if #FINDSTACK = 0
    {
    findItem EWJ C_ , %cofre
    if #FINDSTACK = 0
    {
    findItem DWJ C_ , %cofre
    if #FINDSTACK = 0
    {
    set %fin 1
    }
    }

    }
    }
    event drag #FINDID
    wait 10
    msg 1 $
    click %dejarx %dejary p
    wait 10
    setuotitle Accion: Separando | Cantidad: ( %vecesS / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
    }

    fundir:
    findItem TVJ C_ , #BACKPACKID
    if #FINDSTACK > 0
    {
    set #LOBJECTID #FINDID
    event macro 17
    set %vecesF %vecesF + 1
    setuotitle Accion: Fundiendo | Cantidad: ( %vecesF / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
    wait 10
    goto fundir
    }
    if %fin = 1
    {
    set %fin 2
    }
    set %vecesF 0

    guardar:
    setuotitle Accion: Guardando | Veces: %vez | Guardado: %tot | Inicial: %skillini | Actual: #SKILL | Inc: %skillinc
    findItem RMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem NMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem XMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem TMK C_ , #BACKPACKID
    }

    }

    }
    event drag #findid
    wait 10
    KEY ENTER
    wait 10
    click %cofrex %cofrey p
    set %tot %tot + #FINDSTACK
    findItem RMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem NMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem XMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem TMK C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    if %fin = 2
    {
    gosub finalizar
    }
    }
    }

    }

    }
    if #FINDSTACK > 0
    {
    goto guardar
    }
    set %vez %vez + 1
    goto separar

    sub finalizar
    {
    display OK Se ha finalizado la macro!$No se ha encontrado más mineral que fundir.
    halt
    }




    espero que con estas tres macros tengais un gran maestro minero como le tengo yop :P jeej


    salu2
    Si confundes talento con inteligencia, es que no eres inteligente.
    Luis Jeanny Tejeda.

  4. #4
    Avatar de m.talens
    Fecha de ingreso
    December-2011
    Mensajes
    32
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: Necesito macro de separar fundir mineral.

    Pero como ke tienes ke mantener la visión con forja i baul :s
    tan cerca no tan

  5. #5
    Avatar de Duryan
    Fecha de ingreso
    January-2012
    Ubicación
    No soy tan guapo para querer conocerme
    Clan
    Ninguno
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    32
    Reputacion: 10
    Poder de reputación
    13

    Re: Respuesta: Necesito macro de separar fundir mineral.

    Cita Iniciado por Berraco Ver mensaje

    sub finalizar
    {
    display OK Se ha finalizado la macro!$No se ha encontrado más mineral que fundir.
    halt
    }




    espero que con estas tres macros tengais un gran maestro minero como le tengo yop :P jeej


    salu2
    esta macro esta bien para hacer un solo syack ya que al final las ultimas lineas lo que hacen es finalizarla ya que el ingrediente principal lo busca en la mochila y al terminar de hacer los lingotes como es logico no queda material en vez de eso para grandes cantidades lo unico que hay que hacer es cambiar esas lineas que he citado por el comando return y listo repetira una y otra vez sin finalizarla porque no buscara el material en la mochila sino que volvera a iniciar la macro desde el baul donde tengamos el mineral. Salu2
    Prefiero morir de pie, que vivir arrodillado.

Temas similares

  1. Macros Minar/Fundir mineral/Herrero
    Por kyomusashi en el foro Macros
    Respuestas: 0
    Último mensaje: 17-Jun-2011, 18:42
  2. Fundir Mineral
    Por Wendell Borton en el foro Dudas y Preguntas
    Respuestas: 7
    Último mensaje: 23-Aug-2010, 22:48
  3. modificar para poder separar i fundir botellas
    Por Inkoknitow en el foro Macros
    Respuestas: 1
    Último mensaje: 09-Nov-2009, 10:39
  4. Macro sólo para separar mineral
    Por Freya en el foro Macros
    Respuestas: 1
    Último mensaje: 25-Aug-2007, 04:10
  5. Fundir mineral sin fallar
    Por parapipe en el foro Dudas y Preguntas
    Respuestas: 10
    Último mensaje: 04-Aug-2007, 08:33

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