Subir

Resultados 1 al 1 de 1

Tema: Macro Mineria Haven (Mina, separa, funde, guarda y come)

  1. #1

    Fecha de ingreso
    September-2010
    Edad
    33
    Mensajes
    13
    Reputacion: 10
    Poder de reputación
    0

    Macro Mineria Haven (Mina, separa, funde, guarda y come)

    Una macro adaptada de la macro de Minar de Alex para personajes nuevos aún residentes en Haven que quieran subir MinerÃ*a de manera desatendida.
    Me parece un buen aporte para la gente que esté empezando o que quiera subir un pj nuevo.

    ; ------------------------------------------------------
    ; Macro de Minar en Haven orientada a nuevos pjs para UA-Sphere (Sphere 0.56b-Nightly)
    ; Creado por: Alex
    ; Ultima edición: 11/04/2021 por KoTTa
    ; Modificaciones de: DaviD JoneS, darksplit.
    ; Adaptación a Haven+SeprarFundir+Comer de: KoTTa
    ; ------------------------------------------------------
    ;
    ; Modificaciones:
    ; 23/05/2010
    ; Corrección de código: cambiado el sub del peso, para que recalee en función del #maxweight de cada pj
    ; según su fuerza.
    ;
    ; 08/04/2010
    ; Corrección de bugs: variables mal escritas, añadido código de Journal para que no se quede parado.
    ; Añadidos: Comprobar y coger Regs automáticamente al llegar a casa para tener siempre 5 de cada,
    ; simplificación de algunos nuevos comandos para evitar bugs (exevent Dropc, exevent Drag),
    ; se ha implementado un código para desarmar la mano derecha al empezar para poder encontrar el pico.
    ; Creada descripción de la Macro y mejora de la explicación de su funcionamiento.
    ; Comentarios explicativos y mejora visual de los Sysmessage.
    ; Próximamente se añadirá la posibilidad de recalear al Bank en vez de a Casa.
    ;
    ; <<Desconozco más mejoras de la macro>>
    ;
    ; 11/04/2021
    ; Adaptación de la macro para Haven (Zona para novatos)
    ; Obviamente deshabilitado el sistema de runas y recogida de Regs
    ; Añadida alimentación automatica de MANZANAS O PERAS
    ; Añadido de función de Separar y Fundir el Mineral para subir de nivel ya que es una macro orientada a
    ; novatos.
    ;
    ; Explicación:
    ; Esta macro ha sido MODIFICADA para Minar dejando Lingotes en una bolsa del banco en Haven
    ; Al comienzo solo debes ir a la Zona minera de Haven y colocarte al sur del banco,
    ; (a un par de pasos de la puerta de la tienda). El resto es automático.
    ;
    ;
    ;
    ; IMPORTANTE:
    ; - Debes estar, al dar Play, a un par de pasos al Sur de la puerta del banco.
    ;
    ;
    ; Configuración:

    ; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
    ; -------------------
    set %lugar 0 ; Mina en la que actuará la macro
    ; -------------------
    ; Las Minas actuales son:
    ; 0- Ninguna (Mina solo igual, pero si se sale de dentro de la mina no se volverá a meter, deberás moverlo tu)


    chooseskill mini real
    set %skillini #skill
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    set #sysmsgcol 0000
    event sysmessage Iniciando Macro...
    event sysmessage
    move 2463 85 0
    wait 1
    msg bank $
    wait 1s
    gosub lugares

    configurar:
    if %confp = 1 || %confp = N/A
    {
    set #sysmsgcol 1264
    setuotitle Abre el una bolsa del banco donde dejar los lingotes
    event sysmessage ================
    event sysmessage Abre UNA bolsa de tu
    event sysmessage banco donde dejar
    event sysmessage los Lingotes.
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set %conf 1
    set %confp 2
    goto TESC
    }

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %idcaja #LOBJECTID
    set %dondecasax #CHARPOSX
    set %dondecasay #CHARPOSY
    set %dondeminax 0
    wait 1s ------------- gosub regs ----------------------------------------------
    set #sysmsgcol 1000
    event Sysmessage Desequipando manos...
    event macro 24 2
    wait 15
    goto recallmina
    }
    }
    goto TESC

    comienzo:
    findItem NPF
    if #FINDSTACK = 0
    {
    findItem QPF
    }
    set #LOBJECTID #FINDID
    set %cmsg #jIndex
    wait 5 ; añadido
    event macro 17
    wait 10
    set %fmsg #jIndex
    for %i %cmsg %fmsg
    {
    scanJournal %i
    if Donde_quieres_utilizar in #journal
    {
    set %seguridad 0
    goto acabapicar
    }
    }
    goto comienzo

    acabapicar:
    set %cmsg #jIndex
    set #LTARGETX #CHARPOSX + 1
    set #LTARGETY #CHARPOSY - 1
    wait 5 ; añadido
    event macro 22
    wait 10
    set %fmsg #jIndex
    for %i %cmsg %fmsg
    {
    scanJournal %i
    if Pones_el in #journal || No_encuentras in #journal ; Consigue minar, y lo vuelve a hacer.
    {
    set %skillinc #SKILL - %skillini
    setuotitle Skill de Mining | Inicial: %skillini | Actual: #SKILL | Incremento: %skillinc | Peso: #WEIGHT
    gosub compruebapeso
    goto comienzo
    }
    if Aqui_no_hay_nada_por in #journal || Prueba_a in #journal || You_cannot_mine_so in #journal || No_puedes_ver_bien in #journal ; No se puede minar, cambio de lugar.
    {
    gosub compruebapeso
    goto moverse
    }
    }
    gosub seguridad
    goto acabapicar

    moverse:
    if %lugar > 0
    {
    if #CHARPOSX , _ , #CHARPOSY notIn %locs
    {
    set %borrado %borrado + 1
    if %borrado > 100
    {
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    }
    set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY
    }
    if %lugar = 5
    {
    if %lugaro > #CHARPOSX
    {
    for %i 1 6
    {
    event macro 5 3
    wait 10
    }
    }

    }
    if %lugarp = X
    {
    if %lugaro < #CHARPOSX
    {
    for %i 1 6
    {
    event macro 5 7
    wait 10
    }
    }
    }
    if %lugarp = Y
    {
    if %lugaro < #CHARPOSY
    {
    for %i 1 6
    {
    event macro 5 1
    wait 10
    }
    }
    }
    }

    set %mover #random % 7
    event macro 5 %mover
    wait 20
    event macro 5 %mover
    wait 20
    if #CHARPOSX , _ , #CHARPOSY in %locs
    {
    goto moverse
    }
    goto comienzo

    recallcasa:
    FINDITEM QQD_YSD C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17 0
    wait 1s
    event macro 17 0
    wait 1s
    event macro 17 0
    wait 1s
    move 2424 95 0
    wait 1
    move 2435 96 0
    wait 1
    move 2444 94 0
    wait 1
    move 2450 88 0
    wait 1s
    event macro 8 7
    contpos 100 100
    gosub cogeOre

    sub cogeOre
    {
    findItem GWJ C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem EWJ C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    findItem DWJ C_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    Gosub fundeOre
    }
    }

    }
    }
    event drag #FINDID
    wait 10
    msg 1 $
    click 200 135 p
    wait 10
    gosub cogeOre

    sub fundeOre
    finditem TVJ C_ , #BACKPACKID
    if #FINDSTACK > 0
    {
    set #LOBJECTID #findid
    wait 5
    event macro 17
    wait 10
    gosub fundeOre
    }
    move 2458 88 0
    wait 1
    move 2463 85 0
    wait 1


    if #CHARPOSX = %dondecasax && #CHARPOSY = %dondecasay
    {
    gosub abrir_cofre
    goto dejarminerales
    }
    else
    {
    event macro 13 46
    goto recallcasa
    }


    recallmina:
    move 2460 90 0
    wait 1
    move 2444 94 0
    wait 1
    move 2435 96 0
    wait 1
    move 2424 95 0
    wait 1
    move 2427 109 0
    wait 1
    goto comienzo




    dejarminerales:
    set %v1 %v1 + 1
    if %v1 > 12
    {
    set %v1 0
    goto recallmina
    }
    finditem RMK c_ , #BACKPACKID
    if #FINDSTACK = 0
    {
    goto recallmina
    }
    }
    }
    }
    exevent drag #FINDID #FINDSTACK
    wait 20
    exevent dropc %idcaja
    wait 20
    goto dejarminerales


    sub abrir_cofre
    msg bank $
    wait 1s
    set #LOBJECTID %idcaja
    event macro 17 0
    wait 5
    return




    sub seguridad
    {
    set %seguridad %seguridad + 1
    if %seguridad > 15
    {
    set %seguridad 0
    goto comienzo
    }
    return
    }

    sub lugares
    {
    if %lugar = 0
    {
    set %lugaro 2430
    set %lugarp Y
    }

    return
    }

    sub compruebapeso
    {
    if #WEIGHT >= #MAXWEIGHT - 15
    {
    goto recallcasa
    }
    return
    }
    Última edición por ElKoTTa; 11-Apr-2021 a las 11:22

Temas similares

  1. Macro Mineria
    Por alcatel97 en el foro Dudas y Preguntas
    Respuestas: 4
    Último mensaje: 02-Feb-2016, 18:48
  2. macro para separa mineral
    Por undertaker en el foro Macros
    Respuestas: 4
    Último mensaje: 04-Aug-2014, 15:24
  3. Respuestas: 108
    Último mensaje: 15-Mar-2012, 20:16
  4. Macro mina y RESUCITA!!!
    Por tico en el foro Macros
    Respuestas: 0
    Último mensaje: 06-Jul-2008, 21:00
  5. Mina Haven
    Por SeTK en el foro Dudas y Preguntas
    Respuestas: 2
    Último mensaje: 27-Aug-2007, 09:27

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