Subir

Página 2 de 2 PrimerPrimer 12
Resultados 21 al 36 de 36

Tema: [MACRO] Minar mejorada

  1. #21
    Avatar de Driuk
    Fecha de ingreso
    September-2010
    Edad
    38
    Mensajes
    103
    Reputacion: 10
    Poder de reputación
    14

    Respuesta: [MACRO] Minar mejorada

    Tengo un problema con esta macro, se sale el pj de la mina y se pierde por los bosques intentando buscar minerales, esto pasa cuando lleva un rato intentando minar y ya se ha picado toda la mina. Alguna solucion ?
    http://ultima-alianza.com/foro/blogs/driuk

  2. #22

    Fecha de ingreso
    March-2009
    Mensajes
    422
    Reputacion: 25
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    Semi vigilala, y cuando te pase eso, vas a casa dejas los minerales, le pones k la macro recalee a una mina distinta y ale, a funcionar otro rato

  3. #23
    Avatar de Krender
    Fecha de ingreso
    January-2012
    Edad
    37
    Mensajes
    175
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: [MACRO] Minar mejorada

    Si es verdad, ImVeRsO me dijo lo mismo, pero no sabia hacerla xD

    Gracias por hacerlo tonono, intentare probarla y a ver si me funciona correctamente.

    Un saludo y gracias a los dos.

    Edito: La he probado y me lleva a la otra mina, pero cuando llega ahi, se pone hacer recall todo el rato a la misma mina, sin hacer otra cosa mas. Pongo aqui como la he modificado con lo que tu me has dicho?
    Última edición por Krender; 02-Mar-2012 a las 17:54

  4. #24

    Fecha de ingreso
    February-2007
    Edad
    41
    Mensajes
    144
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    Si ponla y lo vemos.

  5. #25
    Avatar de Krender
    Fecha de ingreso
    January-2012
    Edad
    37
    Mensajes
    175
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: [MACRO] Minar mejorada

    Asi la tengo puesta, claro que he puesto X donde las minas, ya sabeis... seguridad anti-pk xD

    Configuración:
    Set %contador 0
    ; - Hueco donde tengas la runa que te llevará al cofre para guardar los minerales (1-16)
    ;--------------------
    set %runacasa 1
    ;--------------------
    ; - Hueco donde tengas la runa que te llevará DENTRO de la mina (1-16)
    ;--------------------
    set %runamina 2
    ;--------------------
    ; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
    ; -------------------
    set %lugar x ; 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)
    ; 1- Shame (Norte de la entrada Shame (Trabajos Forzados))
    ; 2- Covetous 1 (Primera Mina a la derecha de la Dungeon Covetous)
    ; 3- Covetous 2 (Segunda Mina a la derecha de la Dungeon Covetous)
    ; 4- Covetous 3 (De las dos minas juntas en Covetous Norte, la de arriba)
    ; 5- Covetous 4 (De las dos minas juntas en Covetous Norte, la de abajo, meterse bien adentro antes de iniciar la macro)
    ; 6- Minoc Ciudad 1 (La mina que hay al Este de Minoc, pasando el puente)
    ; 7- Minoc Ciudad 2 (La mina al lado de la que hay pasando el puente de Minoc)
    ; 8- Minoc Mina 1 (De las Minas del Norte de Minoc, la primera de la izquierda abajo)
    ; 9- Minoc Mina 2 (De las Minas del Norte de Minoc, la de la izquierda donde hay dos (Haven))
    ; 10- Minoc Mina 3 (De las Minas del Norte de Minoc, la de la derecha donde hay dos (Haven))
    ; 11- Destard 1 (Un poco a la izquierda de La Dungeon Destard)
    ; 12- Destard 2 (Desde la entrada de Destard Dungeon bajando bordeando, la primera mina que encuentras)
    ; 13- Destard 3 (Desde la entrada de Destard Dungeon bajando bordeando, la segunda mina que encuentras)
    ; 14- Destard 4 (Desde la entrada de Destard Dungeon bajando bordeando, la terera mina que encuentras, en la de la parte derecha de la montaña)
    ; 15- Wrong 1 (Junto a la entrada de la Dungeon de Wrong)
    ; 16- Wrong 2 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la primera que encuentras)
    ; 17- Wrong 3 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la segunda que encuentras)
    ; 18- Hythloth 1 (Bordeando la montaña, hacia arriba desde Hythloth, la primera que encuentras)
    ; 19- Hythloth 2 (Bordeando la montaña, hacia abajo derecha de Hythloth, la primera Mina que encuentras)
    ; 20- Hythloth 3 (Bordeando la montaña, hacia abajo derecha de Hythloth, la segunda Mina que encuentras)
    ; 22- Avatar Norte 1 (De la montaña del Norte de Avatar, la primera que encuentas)
    ; 23- Avatar Norte 2 (De la montaña del Norte de Avatar, desde la primera, a la derecha bordeando, la primera que encuentras)
    ; 24- Desierto (En el cruce de caminos)
    ; 25- Shame Sur
    ; ==================================


    chooseskill mini real
    set %skillini #skill
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    set #sysmsgcol 0000
    event sysmessage Iniciando Macro...
    event sysmessage
    gosub lugares

    configurar:
    if %confp = 1 || %confp = N/A
    {
    set #sysmsgcol 1264
    setuotitle Abre el contenedor donde dejar los minerales y donde estaran los Regs
    event sysmessage ================
    event sysmessage Abre el contenedor donde dejar
    event sysmessage los Minerales
    event sysmessage y donde estaran los Regs de Recall.
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    set #sysmsgcol 1264
    setuotitle Abre el Libro de Runas donde tengas las runas a tu Casa y a la Mina y presiona ESC
    event sysmessage ================
    event sysmessage Abre el Libro de Runas donde tengas las runas de Casa y Mina.
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set #sysmsgcol 0000
    set %conf 2
    goto TESC
    }

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %idcaja #LOBJECTID
    set %dondecasax #CHARPOSX
    set %dondecasay #CHARPOSY
    set %dondeminax 0
    gosub regs
    set #sysmsgcol 1000
    event Sysmessage Desequipando manos...
    event macro 24 2
    wait 15
    goto configurar
    }
    if %conf = 2
    {
    set %runebook #LOBJECTID
    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:
    Set %contador %contador + 1
    set %posruna %runacasa
    gosub librecall
    set #LOBJECTID %runebook
    event macro 17
    wait 20
    click %runex %runey f
    event macro 13 46
    wait 10s
    event macro 13 46
    msg .resend $
    wait 10
    if #CHARPOSX = %dondecasax && #CHARPOSY = %dondecasay
    {
    gosub abrir_cofre
    gosub regs
    goto dejarminerales
    }
    else
    {
    event macro 13 46
    goto recallcasa
    }


    recallmina:
    If %contador = 1
    {
    Set %runamina x
    Set %lugar x
    }
    if %contador = 2
    {
    Set %runamina x
    Set %lugar x
    Set %contador 0
    }
    set %posruna %runamina
    gosub librecall
    set #LOBJECTID %runebook
    event macro 17
    wait 20
    click %runex %runey f
    event macro 13 46
    wait 10s
    event macro 13 46
    msg .resend $
    wait 10
    if %dondeminax = 0
    {
    if #CHARPOSX <> %dondecasax && #CHARPOSY <> %dondecasay
    {
    set %dondeminax #CHARPOSX
    set %dondeminay #CHARPOSY
    }
    }
    if #CHARPOSX = %dondeminax && #CHARPOSY = %dondeminay
    {
    event macro 13 46
    goto comienzo
    }
    else
    {
    goto recallmina
    }



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


    sub abrir_cofre
    set #LOBJECTID %idcaja
    event macro 17 0
    wait 5
    return

    sub regs
    set #sysmsgcol 1100
    event sysmessage ================
    event sysmessage Comprobando y cogiendo Regs...
    gosub mandrake
    gosub black
    gosub blood
    event sysmessage ================
    return

    sub mandrake
    finditem MZF C_ , #BACKPACKID
    event sysmessage Mandrake antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #findstack
    set %reg MZF
    gosub coger
    }
    finditem MZF C_ , #BACKPACKID
    event sysmessage Mandrake: #FINDSTACK
    return

    sub black
    finditem KUF C_ , #BACKPACKID
    event sysmessage Black Pearl antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #findstack
    set %reg KUF
    gosub coger
    }
    finditem KUF C_ , #BACKPACKID
    event sysmessage Black Pearl: #FINDSTACK
    return

    sub blood
    finditem JUF C_ , #BACKPACKID
    event sysmessage Blood Moss antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #findstack
    set %reg JUF
    gosub coger
    }
    finditem JUF C_ , #BACKPACKID
    event sysmessage Blood Moss: #FINDSTACK
    return

    sub coger
    set %debocoger 5 - %regcnt
    finditem %reg C_ , %idcaja
    exevent drag #findid %debocoger
    wait 10
    exevent dropc #backpackid
    wait 10
    return



    sub librecall
    {
    if %posruna < 9
    {
    set %runex 130
    if %posruna = 1
    {
    set %y 0
    }
    else
    {
    set %runea %posruna - 1
    set %y 15 * %runea
    }
    set %runey 70 + %y
    }
    if %posruna > 8
    {
    set %runex 290
    if %posruna = 9
    {
    set %y 0
    }
    else
    {
    set %runea %posruna - 9
    set %y 15 * %runea
    }
    set %runey 70 + %y
    }
    return
    }


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

    sub lugares
    {
    if %lugar = 1
    {
    set %lugaro 1460
    set %lugarp Y
    }
    if %lugar = 2
    {
    set %lugaro 2454
    set %lugarp X
    }

    if %lugar = 3
    {
    set %lugaro 914
    set %lugarp Y
    }
    if %lugar = 4
    {
    set %lugaro 828
    set %lugarp Y
    }
    if %lugar = 5
    {
    set %lugaro 2355
    set %lugarp X
    }
    if %lugar = 6
    {
    set %lugaro 499
    set %lugarp Y
    }
    if %lugar = 7
    {
    set %lugaro 2602
    set %lugarp X
    }
    if %lugar = 8
    {
    set %lugaro 2426
    set %lugarp X
    }
    if %lugar = 9
    {
    set %lugaro 2440
    set %lugarp X
    }
    if %lugar = 10
    {
    set %lugaro 66
    set %lugarp Y
    }
    if %lugar = 11
    {
    set %lugaro 266
    set %lugarp Y
    }
    if %lugar = 12
    {
    set %lugaro 1259
    set %lugarp X
    }
    if %lugar = 13
    {
    set %lugaro 2729
    set %lugarp Y
    }
    if %lugar = 14
    {
    set %lugaro 2895
    set %lugarp Y
    }
    if %lugar = 15
    {
    set %lugaro 1991
    set %lugarp X
    }
    if %lugar = 16
    {
    set %lugaro 1499
    set %lugarp X
    }
    if %lugar = 17
    {
    set %lugaro 1941
    set %lugarpX
    }
    if %lugar = 18
    {
    set %lugaro 1918
    set %lugarp X
    }
    if %lugar = 19
    {
    set %lugaro 3822
    set %lugarp Y
    }
    if %lugar = 20
    {
    set %lugaro 4766
    set %lugarp X
    }
    if %lugar = 21
    {
    set %lugaro 4817
    set %lugarp X
    }
    if %lugar = 22
    {
    set %lugaro 3302
    set %lugarp Y
    }
    if %lugar = 23
    {
    set %lugaro 4554
    set %lugarp X
    }
    if %lugar = 24
    {
    set %lugaro 1812
    set %lugarp X
    }
    if %lugar = 25
    {
    set %lugaro 1695
    set %lugarp Y
    }

    return
    }

    sub compruebapeso
    {
    if #WEIGHT >= #MAXWEIGHT - 15
    {
    goto recallcasa
    }
    return
    }

  6. #26

    Fecha de ingreso
    March-2009
    Mensajes
    422
    Reputacion: 25
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    Meeeeeeeeeeeeenudo cacao ajajajja
    mañana te la miro si eso, k ara le e exao una ojeada muy muy por encima, pero vaya, asi sin saber muy bn, creo k te falta arriba una variable para k puedas elegir la segunda mina a la k vas a recalear, no se si tendra algo k ver, sk no la e leido entera, mañana iwal asta la testeo jajajaja

  7. #27

    Fecha de ingreso
    February-2007
    Edad
    41
    Mensajes
    144
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    Mira voy a cambiar una cosa por que si falla el recall a casa te cuenta como 1 vez, es por ello voy a cambiar la linea azul la voy a mover a la verde, es decir la azul la borras y la pones donde esta la verde. Bueno en la ultima edicion te meto con color amarillo unas lineas para cuando cambies de mina actualizes bien todas las variales necesarias.

    Cita Iniciado por Krender Ver mensaje
    Asi la tengo puesta, claro que he puesto X donde las minas, ya sabeis... seguridad anti-pk xD

    Configuración:
    Set %contador 0
    ; - Hueco donde tengas la runa que te llevará al cofre para guardar los minerales (1-16)
    ;--------------------
    set %runacasa 1
    ;--------------------
    ; - Hueco donde tengas la runa que te llevará DENTRO de la mina (1-16)
    ;--------------------
    set %runamina 2
    ;--------------------
    ; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
    ; -------------------
    set %lugar x ; 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)
    ; 1- Shame (Norte de la entrada Shame (Trabajos Forzados))
    ; 2- Covetous 1 (Primera Mina a la derecha de la Dungeon Covetous)
    ; 3- Covetous 2 (Segunda Mina a la derecha de la Dungeon Covetous)
    ; 4- Covetous 3 (De las dos minas juntas en Covetous Norte, la de arriba)
    ; 5- Covetous 4 (De las dos minas juntas en Covetous Norte, la de abajo, meterse bien adentro antes de iniciar la macro)
    ; 6- Minoc Ciudad 1 (La mina que hay al Este de Minoc, pasando el puente)
    ; 7- Minoc Ciudad 2 (La mina al lado de la que hay pasando el puente de Minoc)
    ; 8- Minoc Mina 1 (De las Minas del Norte de Minoc, la primera de la izquierda abajo)
    ; 9- Minoc Mina 2 (De las Minas del Norte de Minoc, la de la izquierda donde hay dos (Haven))
    ; 10- Minoc Mina 3 (De las Minas del Norte de Minoc, la de la derecha donde hay dos (Haven))
    ; 11- Destard 1 (Un poco a la izquierda de La Dungeon Destard)
    ; 12- Destard 2 (Desde la entrada de Destard Dungeon bajando bordeando, la primera mina que encuentras)
    ; 13- Destard 3 (Desde la entrada de Destard Dungeon bajando bordeando, la segunda mina que encuentras)
    ; 14- Destard 4 (Desde la entrada de Destard Dungeon bajando bordeando, la terera mina que encuentras, en la de la parte derecha de la montaña)
    ; 15- Wrong 1 (Junto a la entrada de la Dungeon de Wrong)
    ; 16- Wrong 2 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la primera que encuentras)
    ; 17- Wrong 3 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la segunda que encuentras)
    ; 18- Hythloth 1 (Bordeando la montaña, hacia arriba desde Hythloth, la primera que encuentras)
    ; 19- Hythloth 2 (Bordeando la montaña, hacia abajo derecha de Hythloth, la primera Mina que encuentras)
    ; 20- Hythloth 3 (Bordeando la montaña, hacia abajo derecha de Hythloth, la segunda Mina que encuentras)
    ; 22- Avatar Norte 1 (De la montaña del Norte de Avatar, la primera que encuentas)
    ; 23- Avatar Norte 2 (De la montaña del Norte de Avatar, desde la primera, a la derecha bordeando, la primera que encuentras)
    ; 24- Desierto (En el cruce de caminos)
    ; 25- Shame Sur
    ; ==================================


    chooseskill mini real
    set %skillini #skill
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    set #sysmsgcol 0000
    event sysmessage Iniciando Macro...
    event sysmessage
    gosub lugares

    configurar:
    if %confp = 1 || %confp = N/A
    {
    set #sysmsgcol 1264
    setuotitle Abre el contenedor donde dejar los minerales y donde estaran los Regs
    event sysmessage ================
    event sysmessage Abre el contenedor donde dejar
    event sysmessage los Minerales
    event sysmessage y donde estaran los Regs de Recall.
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set %conf 1
    set %confp 2
    goto TESC
    }
    if %confp = 2
    {
    set #sysmsgcol 1264
    setuotitle Abre el Libro de Runas donde tengas las runas a tu Casa y a la Mina y presiona ESC
    event sysmessage ================
    event sysmessage Abre el Libro de Runas donde tengas las runas de Casa y Mina.
    event sysmessage Presiona la tecla ESC.
    event sysmessage ================
    set #sysmsgcol 0000
    set %conf 2
    goto TESC
    }

    TESC:
    onHotKey ESC
    {
    if %conf = 1
    {
    set %idcaja #LOBJECTID
    set %dondecasax #CHARPOSX
    set %dondecasay #CHARPOSY
    set %dondeminax 0
    gosub regs
    set #sysmsgcol 1000
    event Sysmessage Desequipando manos...
    event macro 24 2
    wait 15
    goto configurar
    }
    if %conf = 2
    {
    set %runebook #LOBJECTID
    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:
    Set %contador %contador + 1
    set %posruna %runacasa
    gosub librecall
    set #LOBJECTID %runebook
    event macro 17
    wait 20
    click %runex %runey f
    event macro 13 46
    wait 10s
    event macro 13 46
    msg .resend $
    wait 10
    if #CHARPOSX = %dondecasax && #CHARPOSY = %dondecasay
    {
    Set %contador %contador + 1
    gosub abrir_cofre
    gosub regs
    goto dejarminerales
    }
    else
    {
    event macro 13 46
    goto recallcasa
    }


    recallmina:
    If %contador = 5
    {
    Set %dondeminax 0
    Set %runamina x
    Set %lugar x
    gosub lugares
    }
    if %contador = 10
    {
    Set %dondeminax 0
    Set %runamina x
    Set %lugar x
    gosub lugares
    Set %contador 0
    }
    set %posruna %runamina
    gosub librecall
    set #LOBJECTID %runebook
    event macro 17
    wait 20
    click %runex %runey f
    event macro 13 46
    wait 10s
    event macro 13 46
    msg .resend $
    wait 10
    if %dondeminax = 0
    {
    if #CHARPOSX <> %dondecasax && #CHARPOSY <> %dondecasay
    {
    set %dondeminax #CHARPOSX
    set %dondeminay #CHARPOSY
    }
    }
    if #CHARPOSX = %dondeminax && #CHARPOSY = %dondeminay
    {
    event macro 13 46
    goto comienzo
    }
    else
    {
    goto recallmina
    }



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


    sub abrir_cofre
    set #LOBJECTID %idcaja
    event macro 17 0
    wait 5
    return

    sub regs
    set #sysmsgcol 1100
    event sysmessage ================
    event sysmessage Comprobando y cogiendo Regs...
    gosub mandrake
    gosub black
    gosub blood
    event sysmessage ================
    return

    sub mandrake
    finditem MZF C_ , #BACKPACKID
    event sysmessage Mandrake antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #findstack
    set %reg MZF
    gosub coger
    }
    finditem MZF C_ , #BACKPACKID
    event sysmessage Mandrake: #FINDSTACK
    return

    sub black
    finditem KUF C_ , #BACKPACKID
    event sysmessage Black Pearl antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #findstack
    set %reg KUF
    gosub coger
    }
    finditem KUF C_ , #BACKPACKID
    event sysmessage Black Pearl: #FINDSTACK
    return

    sub blood
    finditem JUF C_ , #BACKPACKID
    event sysmessage Blood Moss antes: #FINDSTACK
    if #FINDSTACK <= 4
    {
    set %regcnt #findstack
    set %reg JUF
    gosub coger
    }
    finditem JUF C_ , #BACKPACKID
    event sysmessage Blood Moss: #FINDSTACK
    return

    sub coger
    set %debocoger 5 - %regcnt
    finditem %reg C_ , %idcaja
    exevent drag #findid %debocoger
    wait 10
    exevent dropc #backpackid
    wait 10
    return



    sub librecall
    {
    if %posruna < 9
    {
    set %runex 130
    if %posruna = 1
    {
    set %y 0
    }
    else
    {
    set %runea %posruna - 1
    set %y 15 * %runea
    }
    set %runey 70 + %y
    }
    if %posruna > 8
    {
    set %runex 290
    if %posruna = 9
    {
    set %y 0
    }
    else
    {
    set %runea %posruna - 9
    set %y 15 * %runea
    }
    set %runey 70 + %y
    }
    return
    }


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

    sub lugares
    {
    if %lugar = 1
    {
    set %lugaro 1460
    set %lugarp Y
    }
    if %lugar = 2
    {
    set %lugaro 2454
    set %lugarp X
    }

    if %lugar = 3
    {
    set %lugaro 914
    set %lugarp Y
    }
    if %lugar = 4
    {
    set %lugaro 828
    set %lugarp Y
    }
    if %lugar = 5
    {
    set %lugaro 2355
    set %lugarp X
    }
    if %lugar = 6
    {
    set %lugaro 499
    set %lugarp Y
    }
    if %lugar = 7
    {
    set %lugaro 2602
    set %lugarp X
    }
    if %lugar = 8
    {
    set %lugaro 2426
    set %lugarp X
    }
    if %lugar = 9
    {
    set %lugaro 2440
    set %lugarp X
    }
    if %lugar = 10
    {
    set %lugaro 66
    set %lugarp Y
    }
    if %lugar = 11
    {
    set %lugaro 266
    set %lugarp Y
    }
    if %lugar = 12
    {
    set %lugaro 1259
    set %lugarp X
    }
    if %lugar = 13
    {
    set %lugaro 2729
    set %lugarp Y
    }
    if %lugar = 14
    {
    set %lugaro 2895
    set %lugarp Y
    }
    if %lugar = 15
    {
    set %lugaro 1991
    set %lugarp X
    }
    if %lugar = 16
    {
    set %lugaro 1499
    set %lugarp X
    }
    if %lugar = 17
    {
    set %lugaro 1941
    set %lugarpX
    }
    if %lugar = 18
    {
    set %lugaro 1918
    set %lugarp X
    }
    if %lugar = 19
    {
    set %lugaro 3822
    set %lugarp Y
    }
    if %lugar = 20
    {
    set %lugaro 4766
    set %lugarp X
    }
    if %lugar = 21
    {
    set %lugaro 4817
    set %lugarp X
    }
    if %lugar = 22
    {
    set %lugaro 3302
    set %lugarp Y
    }
    if %lugar = 23
    {
    set %lugaro 4554
    set %lugarp X
    }
    if %lugar = 24
    {
    set %lugaro 1812
    set %lugarp X
    }
    if %lugar = 25
    {
    set %lugaro 1695
    set %lugarp Y
    }

    return
    }

    sub compruebapeso
    {
    if #WEIGHT >= #MAXWEIGHT - 15
    {
    goto recallcasa
    }
    return
    }
    Última edición por tonono69; 03-Mar-2012 a las 22:36

  8. #28
    Avatar de Krender
    Fecha de ingreso
    January-2012
    Edad
    37
    Mensajes
    175
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: [MACRO] Minar mejorada

    Vale, he puesto eso, pero hace lo de siempre, ir siempre a una mina, no va a las dos. Donde pone Set %dondeminax 0 tengo que cambiar el 0 por algo?

  9. #29

    Fecha de ingreso
    February-2007
    Edad
    41
    Mensajes
    144
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    No no dejalo a la 0, pues deberia funcionar 5 veces en la misma mina y luego cambiar. luego la pruebo

  10. #30

    Fecha de ingreso
    February-2007
    Edad
    41
    Mensajes
    144
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    La he probado cambiando el 5 por 1 para hacer la prueba no tener que esperar 5 veces y funciona perfectamente, primero va la mina que has configurado al princpio, luego va a casa deja minerales y se va a la otra mina

  11. #31

    Fecha de ingreso
    February-2007
    Edad
    41
    Mensajes
    144
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    Ya la testeado personalmente, edito la respuesta de antes con todas las modificaciones con colorcitos para que veas los cambios.

  12. #32
    Avatar de Krender
    Fecha de ingreso
    January-2012
    Edad
    37
    Mensajes
    175
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: [MACRO] Minar mejorada

    Parece que ahora me va mejor, muchas gracias!

  13. #33

    Fecha de ingreso
    February-2007
    Edad
    41
    Mensajes
    144
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    De nada Krender yo tambien la estoy usando he puesto que mine una vez en cada mina :P . Y a la mia tambien le he cambiado una cosa para que no se vuelva tan loco y se tire horas dandose cabezazos en una esquina. Pero vamos que con los cambios que te he puesto va perfecta en 2 minas, y se podrian poner mas jeje

  14. #34
    Avatar de Krender
    Fecha de ingreso
    January-2012
    Edad
    37
    Mensajes
    175
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: [MACRO] Minar mejorada

    Para añadir mas, simplemente tendria que poner otra linea con el lugar de la mina y runa, verdad? Claro que tambien tendria que poner el contador.

  15. #35

    Fecha de ingreso
    February-2007
    Edad
    41
    Mensajes
    144
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: [MACRO] Minar mejorada

    Claro seria poner mas condiciones al contador.

  16. #36

    Fecha de ingreso
    February-2011
    Edad
    32
    Mensajes
    5
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: [MACRO] Minar mejorada

    Hola, Tonono he visto la respuesta tuya a la macro de minar en la que dices que has cambiado un par de cosas para que no se de cabezazos el minero en una esquina, pues me gustaría que me dijeras que es lo que hay que cambiar porque a mi me pasa lo mismo y en todas las minas, se me va a una esquina y de ahi no se mueve y no se que hacer porque al final no mina nada.
    Por favor ayudame que no se que hacerrr!

Temas similares

  1. Macro de minar :)
    Por Saxo VTS en el foro Macros
    Respuestas: 3
    Último mensaje: 17-Dec-2008, 19:41
  2. Macro de minar
    Por Sylver en el foro Macros
    Respuestas: 1
    Último mensaje: 28-Aug-2008, 23:42
  3. Macro de Herreria mejorada
    Por karmelot en el foro Macros
    Respuestas: 5
    Último mensaje: 27-May-2008, 05:03
  4. macro de minar.
    Por Escawen^^ en el foro Macros
    Respuestas: 2
    Último mensaje: 05-Dec-2007, 02:03
  5. Macro minar...
    Por El_Carnicero en el foro Macros
    Respuestas: 7
    Último mensaje: 30-Oct-2007, 02:11

Etiquetas para este tema

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