Subir

Resultados 1 al 4 de 4

Tema: Macro Fundir Y Separar Minerales

  1. #1
    Avatar de alcatel97
    Fecha de ingreso
    September-2010
    Ubicación
    Minoc
    Clan
    ELITE
    Facción
    Alianza
    Nacimiento
    Haven
    Edad
    26
    Mensajes
    356
    Reputacion: 10
    Poder de reputación
    15

    Macro Fundir Y Separar Minerales

    Lo dicho en el titulo, si alguien es tan amable de pasarme una macro se lo agradeceria.

    Gracias de antemano

  2. #2
    Avatar de alcatel97
    Fecha de ingreso
    September-2010
    Ubicación
    Minoc
    Clan
    ELITE
    Facción
    Alianza
    Nacimiento
    Haven
    Edad
    26
    Mensajes
    356
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro Fundir Y Separar Minerales

    up

  3. #3
    Avatar de Amon Amarth
    Fecha de ingreso
    July-2015
    Facción
    Neutral
    Nacimiento
    Minoc
    Mensajes
    688
    Reputacion: 28
    Poder de reputación
    11

    Re: Macro Fundir Y Separar Minerales

    Si pones en el buscador "separar y fundir" encuentras, así encontré yo una que funciona bien.
    Veganismo = Compromiso - Respeto - Igualdad

  4. #4
    Avatar de Korihor
    Fecha de ingreso
    June-2009
    Ubicación
    Bosques de Vesper
    Clan
    Honor y Gloria
    Facción
    Alianza
    Nacimiento
    Vesper
    Mensajes
    254
    Reputacion: 7
    Poder de reputación
    0

    Re: Macro Fundir Y Separar Minerales

    ; 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.
    ; 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 1
    :--------------------------
    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 50 %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 = 5
    {
    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
    }




Temas similares

  1. Necesito macro de separar fundir mineral.
    Por Zeros en el foro Macros
    Respuestas: 4
    Último mensaje: 14-Apr-2017, 16:12
  2. Macro de separar y fundir engranajes
    Por Icorbeles en el foro Macros
    Respuestas: 5
    Último mensaje: 22-Jul-2016, 00:03
  3. modificar para poder separar i fundir botellas
    Por Inkoknitow en el foro Macros
    Respuestas: 1
    Último mensaje: 09-Nov-2009, 10:39
  4. Fundir minerales
    Por Faustino en el foro Dudas y Preguntas
    Respuestas: 13
    Último mensaje: 14-Apr-2008, 13:57
  5. Macro separar minerales enteros
    Por Nycko en el foro Macros
    Respuestas: 7
    Último mensaje: 03-Feb-2008, 06:35

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