Subir

Resultados 1 al 1 de 1

Tema: Macros Minar/Fundir mineral/Herrero

  1. #1
    Avatar de kyomusashi
    Fecha de ingreso
    July-2010
    Ubicación
    Cercanías de Britains
    Clan
    Distrito III
    Nacimiento
    Valle de las Canciones
    Mensajes
    521
    Reputacion: 34
    Poder de reputación
    15

    Macros Minar/Fundir mineral/Herrero

    MACROS EASYUO 1.5 versión184

    MACRO MINAR

    Esta macro es para minar en la mina de Minoc, guarda los materiales obtenidos en el bank y resucita solo en el curandero automaticamente.
    Para su mejor funcionamiento deberemos picar una vez manualmente, darle seguidamente al play y tener un pico newbie para que al resucitar seguir teniendo el pico en la mochila.
    IMPORTANTE: Para subir la skill "minar" minando subirá lentamente, cuando fundamos el mineral la skill "minar" irá subiendo y así podremos llegar a 100.0 sin problemas

    set %lugar 6
    set %pesoMax 150
    set %separo 0
    set %mina
    set %uno 1
    set %descargas
    set %muertes
    set %subidas
    set %pasos
    set %lugarmina 0
    ; ----------------------------------------------------------------------------------------------------
    initevents

    event sysmessage Iniciando Macro
    setuotitle | Mining | Descargas %descargas | Muertes %muertes |
    gosub minar
    ;------------------------------------------------------------------------------------------------------
    ;------------------------------------------------------------------------------
    sub verPeso
    {
    if #WEIGHT > %pesoMax
    {
    event sysmessage estoy por arriba del peso que puedo cargar
    gosub voyAlBanco
    }

    if #WEIGHT < %pesoMax
    {
    set %diferencia %pesoMax - #WEIGHT
    event sysmessage puedo seguir, me faltan %diferencia
    }
    return
    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub voyAlCurandero
    }
    }
    ;----------------------------------------------------------------------------
    ;------------------------------------------------------------------------------------------------------

    sub irForja
    {
    event Macro 32 0
    Move 2573 477
    Move 2576 478 a
    event Macro 5 2
    event Macro 5 2
    Move 2573 477
    Move 2575 477 a

    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub voyAlCurandero
    }
    if %separo = 0 ;si pongo separo = 1 me lo separa
    {
    gosub fundir ;habria q poner separar para q lo separe
    }

    else
    {
    gosub fundir
    }
    }
    ;------------------------------------------------------------------------------
    ;------------------------------------------------------------------------------------------------------

    ;------------------------------------------------------------------------------------------------------
    sub fundir
    {
    event sysmessage entre a fundir
    FINDITEM TVJ_GWJ_EWJ_DWJ_C_,#BACKPACKID

    If #Findkind = -1
    {
    event sysmessage no hay nada que se pueda fundir
    gosub voyAlBanco
    }
    else
    {
    event sysmessage ENCONTRE !! minerales
    scanJournal %i
    if fundirlo in #journal
    {
    set %pasos %pasos + %uno
    goto acabapicar
    if %pasos = 10
    {
    Move 2579 484
    gosub irForja
    }
    }

    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    FINDITEM TVJ_GWJ_EWJ_DWJ_C_,#BACKPACKID
    If #Findkind = -1
    {
    event sysmessage Ya acabe
    gosub voyAlBanco
    }
    else
    {
    gosub fundir
    }
    }
    }
    ;------------------------------------------------------------------------------------------------------
    sub volverbanmu
    {
    Move 2518 539
    Move 2529 539
    Move 2529 518
    Move 2527 516
    Move 2527 501
    Move 2557 501 a
    Move 2560 494
    Move 2559 499
    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub voyAlCurandero
    }
    }



    sub voyAlBanco
    {
    set %descargas %descargas + %uno
    Move 2567 481
    Move 2560 494
    Move 2557 501 a
    Move 2527 501
    Move 2527 516
    Move 2529 518
    Move 2529 539
    Move 2518 539
    Move 2509 540 ;///
    Move 2507 542 ;//
    ;Move 2512 552
    NEXTCPOS 200 200
    MSG $bank$
    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub volverbanmu
    }
    gosub guardarEnBanco

    }
    ;-----------------------------------------------------------------------------------------------------
    sub guardarEnBanco
    {
    for %variable 1 10
    {
    findItem DWJ C_ , #BACKPACKID
    if #FINDSTACK <> 0
    {
    event drag #findid
    wait 10
    KEY ENTER
    wait 10
    click 294 336 p
    wait 20
    }
    findItem EWJ C_ , #BACKPACKID
    if #FINDSTACK <> 0
    {
    event drag #findid
    wait 10
    KEY ENTER
    wait 10
    click 294 336 p
    wait 20
    }
    findItem DWJ C_ , #BACKPACKID
    if #FINDSTACK <> 0
    {
    event drag #findid
    wait 10
    KEY ENTER
    wait 10
    click 294 336 p
    wait 20
    }
    findItem TMK C_ , #BACKPACKID
    if #FINDSTACK <> 0
    {
    event drag #findid
    wait 10
    KEY ENTER
    wait 10
    click 294 336 p
    wait 20
    }
    }
    gosub volver
    }
    ;------------------------------------------------------------------------------------------------------
    sub volver
    {
    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub voyAlCurandero
    }

    set %lugarmina %lugarmina + 1

    if %lugarmina = 1
    {
    Move 2518 539
    Move 2529 539
    Move 2529 518
    Move 2527 516
    Move 2527 501
    Move 2557 501 a
    Move 2560 494
    Move 2559 499
    }

    if %lugarmina = 2
    {
    Move 2518 539
    Move 2529 539
    Move 2529 518
    Move 2527 516
    Move 2527 501
    Move 2557 501 a
    Move 2560 494
    Move 2559 499
    Move 2568 480

    }


    if %lugarmina = 3
    {
    Move 2518 539
    Move 2529 539
    Move 2529 518
    Move 2527 516
    Move 2527 501
    Move 2557 501 a
    Move 2560 494
    Move 2559 499
    Move 2575 479
    set %lugarmina 0
    }


    gosub minar
    event Macro 32 0
    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub voyAlCurandero
    }
    }
    ;------------------------------------------------------------------------------------------------------

    sub minar
    {
    gosub estoyMuerto
    chooseskill mini
    set %skillini #skill
    set %locs LOCATIONS_PISADAS
    set %borrado 0
    event sysmessage Iniciando Macro
    gosub lugares


    comienzo:
    setuotitle | Mining | Descargas %descargas | Muertes %muertes |
    if %mina = 3
    {
    event sysmessage ME TENGO Q MOVER HACIA LA OTRA MINA
    set %mina 0
    gosub volverabajo
    }


    findItem NPF
    if #FINDSTACK = 0
    {
    findItem QPF
    }
    set #LOBJECTID #FINDID
    set %cmsg #jIndex
    event macro 17
    wait 10
    gosub estoyMuerto ;/******************************************/*/*////////
    set %fmsg #jIndex
    for %i %cmsg %fmsg
    {
    scanJournal %i
    if Donde_quieres_utilizar in #journal
    {
    set %seguridad 0
    goto acabapicar
    }
    }
    goto comienzo

    acabapicar:
    gosub estoyMuerto
    set #LTARGETX #CHARPOSX + 1
    set #LTARGETY #CHARPOSY - 1
    set %cmsg #jIndex
    target
    event macro 22
    wait 80
    set %fmsg #jIndex
    for %i %cmsg %fmsg
    {
    scanJournal %i


    if Aqui_no_hay_nada_por in #journal || Prueba_a in #journal || You_have_no_line_of_sight in #journal || Pones_el__mineral_de_sombra in #journal || Pones_el__mineral_de_cobre in #journal || Pones_el__mineral_oxidado in #journal || You_cannot in #journal
    {
    set %mina 0
    gosub verPeso
    goto moverse
    }
    ;-------------------------------------------------------------------------
    if you_have_no_line_of_sight in #journal || no_puedes_ver_bien_tu_objetivo in #journal
    {
    set %mina %mina + %uno
    event sysmessage NOKIEROMAS
    gosub verPeso
    goto moverse
    }

    if Pones_el in #journal || No_encuentras in #journal
    {
    set %skillinc #SKILL - %skillini
    gosub verPeso
    goto comienzo
    set %mina 0
    }
    ;-----------------------------------------------

    ;--------------------------------------------------------------
    }
    gosub seguridad
    goto acabapicar

    moverse:
    gosub estoyMuerto
    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 %lugarp = X
    {
    if %lugaro < #CHARPOSX
    {
    for %i 1 6
    {
    event macro 5 7
    wait 10
    }
    }
    }
    if %lugar = 5
    {
    if %lugaro > #CHARPOSX
    {
    for %i 1 6
    {
    event macro 5 3
    wait 10
    }
    }

    }
    if %lugarp = Y
    {
    if %lugaro < #CHARPOSY
    {
    for %i 1 6
    {
    event macro 5 1
    wait 10
    }
    }
    }
    ;*-*-*******************************-----------si no va bien borrarlo
    event macro 13 21
    wait 2s
    ;*-*-*******************************-----------si no va bien borrarlo
    }

    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

    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 %lugarp Y
    }
    if %lugar = 4
    {

    set %lugaro 828
    set %lugarp Y
    }
    if %lugar = 5
    {

    set %lugaro 2355
    set %lugarp X
    }
    if %lugar = 6
    {
    event sysmessage Mina de Minoc
    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
    }
    goto comienzo
    }
    ;-------------------------------------------------------------------------------------------------------


    sub estoyMuerto
    {
    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub voyAlCurandero
    }
    else
    {
    return
    }
    }
    ;--------------------------------------------------------------------------------
    sub voyAlCurandero
    {
    event Macro 32 0
    Move 2567 481
    Move 2560 494
    Move 2557 501 a
    Move 2527 501
    Move 2527 516
    Move 2529 518
    Move 2529 539
    Move 2536 542
    Move 2541 561
    Move 2539 588
    Move 2517 588
    Move 2512 615
    Move 2531 622
    Move 2577 622
    Move 2577 596
    Move 2573 593
    Move 2572 592
    Move 2572 590
    gosub resucitar
    }

    sub volverabajo
    {
    if #CHARGHOST = YES
    {
    wait 30
    set %muertes %muertes + %uno
    gosub voyAlCurandero
    }
    event sysmessage ENTRO EN VOLVER
    set %subidas %subidas + %uno
    ;--------------
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    ;----------------
    MSG $.where$
    scanJournal 2
    if BrightBlade:_I_am_in_Minoc in #journal
    {
    event sysmessage LLEGUE ANTES
    gosub minar
    }
    ;--------------
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    ;----------------
    MSG $.where$
    if BrightBlade:_I_am_in_Minoc in #journal
    {
    event sysmessage LLEGUE ANTES
    gosub minar
    }
    ;-----------
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    ;----------------
    MSG $.where$
    if BrightBlade:_I_am_in_Minoc in #journal
    {
    event sysmessage LLEGUE ANTES
    gosub minar
    }
    ;--------------
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 6
    wait 2s
    event macro 5 6
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event Macro 5 5
    wait 2s
    event macro 5 5
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s
    event macro 5 4
    wait 2s

    gosub minar
    }

    ;--------------------------------------------------------------------------------
    sub resucitar
    {
    event macro 6
    wait 20
    event macro 6
    wait 20
    if #hits > 0
    {
    Move 2572 593
    Move 2575 594
    Move 2577 596
    Move 2577 622
    Move 2531 622
    Move 2512 615
    Move 2517 588
    Move 2539 588
    Move 2541 561
    Move 2536 542
    Move 2529 539
    Move 2529 518
    Move 2527 516
    Move 2527 501
    Move 2557 501 a
    Move 2560 494
    Move 2567 481
    event macro 8 7
    contpos 484 655
    event macro 6 0
    event macro 32 0
    wait 5s ;no se si esta bien pone 5s y lo cambio por 5 solo
    gosub minar
    }
    else
    {
    gosub resucitar
    }
    }




    MACRO SEPARAR Y FUNDIR MINERAL

    Tendremos que poner en el baúl Ores/paquetes de 200und de mineral para ir fundiéndolo y que la macro no de problemas.
    IMPORTANTE: No minimizar la pantalla para su funcionamiento o seguramente que pueda fallar. Recordar que así subiremos la skill "minar" y en cuanto tengamos la skill "minar" a 100.0 esta macro no hará falta y podremos fundir de golpe Ores/paquetes de mineral de 200und


    ;-------------------------
    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?






    MACRO HERRERO

    Esta macro hace dagas, lotes de dagas (15und) y lo desace en el sistema de recompensas automaticamente.
    Cuando demos al play y seleccionemos el baul, hará 4 martillos de herrero para tener con que forjar, después automaticamente se pondrá a hacer dagas.
    Si falla alguna vez en desacer el lote en el sistema de recompensas, SIN parar la macro desacerlo en cuanto salga el puntero para desacer e irá en adelante sin ningún tipo de problemas



    ;------------------------------------------
    ; Quieres hacer tiquets el lote de dagas? escribe aquí si o no.
    ;--------------------------
    set %tiquets si
    ;--------------------------

    ;================================================= ================================================== ===========
    ;=========== VARIABLES ================================================== ======================================
    ;================================================= ================================================== ===========
    chooseskill blac real
    set %skillini #skill
    set %martillo TLH_OLH_GBG_CGG
    set %daga TSF
    set %lingotes RMK
    set %lotex 105
    set %lotey 64
    set %idlote CKF
    set %pap BKF
    set %gumpx1 94
    set %gumpy1 172
    set %gumpx2 305
    set %gumpy2 343
    set %dagax1 271
    set %dagay1 67
    set %dagax2 250
    set %dagay2 67
    set %dagax3 66
    set %dagay3 67
    set %martillox1 271
    set %martilloy1 67
    set %martillox2 250
    set %martilloy2 67
    set %martillox3 104
    set %martilloy3 67
    ;================================================= ================================================== ===========
    ;================================================= ================================================== ===========
    ;=========== OPCIONES PREVIAS ================================================== ===============================
    event sysmessage Abre el cofre donde esten los materiales
    wait 4s
    set %cofre #lobjectid
    ;================================================= ================================================== ===========
    ;=========== INICIO DE LA MACRO ================================================== =============================
    ;================================================= ================================================== ===========


    inicio:
    finditem %martillo c_ , #BACKPACKID
    if #findcnt <= 1
    {
    GoSub FabricarMartillo
    }
    finditem %lingotes c_ , #BACKPACKID
    if #findStack <= 20
    {
    goSub CogerLingotes
    finditem %lingotes c_ , #BACKPACKID
    }
    set #LOBJECTID #FINDID
    event macro 17 0
    wait 40
    click %dagax1 %dagay1 f
    wait 20
    click %dagax2 %dagay2 d
    wait 20
    click %dagax3 %dagay3 d
    wait 20
    if #SKILL <= 501
    {
    set %dagax4 51
    set %dagay4 60
    click %dagax4 %dagay4 d
    }
    if #SKILL > 501 && #SKILL < 610
    {
    set %dagax5 94
    set %dagay5 60
    click %dagax5 %dagay5 d
    }
    if #SKILL >= 610
    {
    set %dagax6 139
    set %dagay6 60
    click %dagax6 %dagay6 d
    }
    wait 1s
    set %skillinc #SKILL - %skillini
    finditem %lingotes C_ , %cofre
    set %lingotescofre #FINDSTACK
    finditem %daga c_ , #BACKPACKID
    set %dagamochila #findCnt
    {
    setuotitle ------------< | Macro de Herrero | S.Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc | Lingotes que te quedan: %lingotescofre | Dagas mochila: %dagamochila | >------------
    }
    finditem %daga c_ , #BACKPACKID
    if #findCnt >= 15
    {
    goSub PackDagas
    gosub Guardarlote
    }
    goto inicio:

    ;================================================= ================================================== ===========
    ;=========== SUB COGER LINGOTES========================================== ======================================
    ;================================================= ================================================== ===========
    Sub CogerLingotes
    finditem %lingotes c_ , %cofre
    if #findkind = -1
    {
    ignoreitem reset
    HALT
    }

    set %carga #maxweight - #weight
    set %carga %carga / 2
    set %carga %carga - 17

    if %carga <= 1
    {
    if %carga < 0
    {
    return
    }
    else
    {
    set %carga 2
    }
    }
    exevent drag #findid %carga
    exevent dropc #backpackid
    return
    ;================================================= ================================================== ===========
    ;=========== SUB FABRICAR MARTILLO ================================================== ==========================
    ;================================================= ================================================== ===========
    Sub FabricarMartillo
    martillo:

    finditem %lingotes c_ , #BACKPACKID
    if #findStack <= 20
    {
    goSub CogerLingotes
    finditem %lingotes c_ , #BACKPACKID
    }
    set #LOBJECTID #FINDID
    event macro 17 0
    wait 40
    click %martillox1 %martilloy1 f
    wait 30
    click %martillox2 %martilloy2 d
    wait 30
    if #SKILL <= 539
    {
    click %martillox3 %martilloy3 d
    wait 30
    }
    if #skill > 539
    {
    click 152 65 d
    wait 30
    }
    if #SKILL <= 440
    {
    set %martillox4 59
    set %martilloy4 61
    click %martillox4 %martilloy4 d
    }
    if #SKILL > 440
    {
    set %martillox5 135
    set %martilloy5 67
    click %martillox5 %martilloy5 d
    }
    wait 4s
    finditem %martillo c_ , #BACKPACKID
    if #findCnt >= 3
    {
    return
    }
    goto martillo
    ;================================================= ================================================== ===========
    ;=========== SUB PACK DE DAGAS ================================================== ==============================
    ;================================================= ================================================== ===========

    Sub PackDagas
    findItem %martillo C_ , #BACKPACKID
    if #findCnt <= 3
    {
    gosub FabricarMartillo
    findItem %martillo C_ , #BACKPACKID
    }
    set #LOBJECTID #FINDID
    event macro 17 0
    target
    key ESC
    finditem %lingotes c_ , #BACKPACKID
    if #findStack <= 20
    {
    goSub CogerLingotes
    finditem %lingotes c_ , #BACKPACKID
    }
    set #LOBJECTID #FINDID
    event macro 17 0
    click %lotex %lotey d
    wait 10
    return
    ;================================================= ================================================== ===========
    ;=========== SUB DEJAR PACK DE DAGAS ================================================== ========================
    ;================================================= ================================================== ===========
    sub Guardarlote

    if %tiquets = no
    {
    dejar:
    findItem %idlote C_ , #BACKPACKID
    if #findkind <> -1
    {
    exevent drag #FINDID
    exevent dropc %cofre
    gosub Guardarlote
    }
    return
    }
    if %tiquets = si
    {
    lote:
    findItem %idlote C_ , #BACKPACKID
    if #FINDCNT > 0
    {
    findItem %pap G_3
    if #FINDSTACK = 0
    {
    goto dejar
    }
    else
    {
    set #LOBJECTID #FINDID
    event macro 17
    wait 20
    click %gumpx1 %gumpy1 1
    wait 20
    click %gumpx2 %gumpy2 1
    target 3s
    findItem %idlote C_ , #BACKPACKID
    set #LTARGETID #FINDID
    wait 20
    event macro 22 0
    wait 20
    goto guardarlote
    wait 10
    key ESC
    click %gumpx2 %gumpx2 r
    goto lote
    }
    }
    return
    }
    return



    Recordar el tener el estómago lleno y paciencia

    Las tres macros las he utilizado y funcionan correctamente.

    Salu2
    Última edición por kyomusashi; 17-Jun-2011 a las 19:02

Temas similares

  1. MACRO MINAR, tira el mineral al suelo
    Por marioamor en el foro Macros
    Respuestas: 3
    Último mensaje: 10-Feb-2011, 10:18
  2. Respuestas: 30
    Último mensaje: 20-Nov-2010, 23:27
  3. Fundir Mineral
    Por Wendell Borton en el foro Dudas y Preguntas
    Respuestas: 7
    Último mensaje: 23-Aug-2010, 22:48
  4. Macros talar y minar
    Por Janus en el foro Macros
    Respuestas: 2
    Último mensaje: 04-Jul-2010, 18:59
  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