Subir

Resultados 1 al 1 de 1

Tema: macrito

  1. #1

    Fecha de ingreso
    November-2007
    Mensajes
    212
    Reputacion: 17
    Poder de reputación
    15

    macrito

    ; ------------------------------------------------------
    ; Macro de Minar para UA-Sphere (Sphere 0.56b-Nightly)
    ; Creado por: Alex
    ; Ultima edición: 08/04/2010 por darksplit
    ; Modificaciones de: DaviD JoneS, darksplit.
    ; ------------------------------------------------------
    ;
    ; 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.
    ;
    ; Explicación:
    ; Esta macro ha sido creada para Minar dejando el mineral en casa con la ayuda de Runas.
    ; Al comienzo y cada vez que vuelva a casa, se comprobará el número de regs del personaje,
    ; y se cogerán los necesarios para volver a tener 5 de cada para evitar pérdidas en el caso de una
    ; matanza de un PK en la mina.
    ; Se meditará antes y después de recalear para subir el maná para acelerar el proceso,
    ; aún así, no es realmente necesaria la skill de Meditar.
    ; Minará por toda la mina, de manera aleatoria, pero evitando volver a minar allí dónde ya lo hiciste.
    ;
    ;
    ;
    ; IMPORTANTE:
    ; - Debes estar, al dar Play, en el lugar donde te deja la runa que te devuelve a casa.
    ; - Las runas de las minas deben estar marcadas DENTRO de ellas.
    ; - No se funde el material, macro de separar/fundir disponible en el foro
    ; - Sólo se podrá utilizar la macro en las minas preestablecidas, mostradas a continuación.
    ; - No es necesario tener regs de recall encima al iniciar la Macro, lo comprueba y coge automáticamente.
    ; - Regs y Mineral deberan estar en el MISMO CONTENEDOR.
    ; - Esta macro mina únicamente en una mina de tu elección.
    ; - Skill de Magia a 30 para poder recalear.
    ;
    ;
    ; Configuración:
    ; - Hueco donde tengas la runa que te llevará al cofre para guardar los minerales (1-16)
    ;--------------------
    set %runacasa 2
    ;--------------------
    ; - Hueco donde tengas la runa que te llevará DENTRO de la mina (1-16)
    ;--------------------
    set %runamina 1
    ;--------------------
    ; - Elige una mina de la lista a continuación y escribe su número en la variante siguiente:
    ; -------------------
    set %lugar 1 ; 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 %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:
    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 ilendul; 06-Dec-2017 a las 20:15

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