Subir

Página 5 de 6 PrimerPrimer ... 23456 ÚltimoÚltimo
Resultados 81 al 100 de 109

Tema: Hiper macro talar (guarda logs y va en el nuevo emulador)

  1. #81
    Avatar de Janus
    Fecha de ingreso
    August-2009
    Edad
    35
    Mensajes
    69
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    que pasa si hago un rail de 200 arboles , y no hago rail de 70 y 60 o algo asi

  2. #82
    Avatar de adry_uo
    Fecha de ingreso
    May-2009
    Clan
    BDK
    Facción
    Neutral
    Nacimiento
    Otros - Extranjero
    Mensajes
    840
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Pasar no pasa nada cuanto mas largo en teoría mas te tiene que durar lo que si puedes hacer es ir haciendo unos cuantos raíles de 7o u 80 arboles y luego activar la opción de caminos múltiples que seria

    lumber0.txt, lumber1.txt.

  3. #83

    Fecha de ingreso
    July-2010
    Edad
    34
    Mensajes
    5
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Por que cuando tala una sola vez va a soltar los troncos al cofre?
    No se puede poner a un determinado peso?

  4. #84
    Avatar de Lothlórien
    Fecha de ingreso
    July-2010
    Ubicación
    Caras Galadon
    Edad
    39
    Mensajes
    74
    Reputacion: 10
    Poder de reputación
    14

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Se me queda pillado en "Buscando contenedor seguro". Tiene que ser necesariamente un cofre de esos de madera, y dentro necesariamente la caja de color rojo? :S alguien que la haya probado :S

  5. #85

    Fecha de ingreso
    August-2009
    Mensajes
    88
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Esta macro en el server viejo funcionaba de maravilla, pero en el nuevo no m encuentra los railes, alguien m podria decir que hay q hacer para que funcione?

  6. #86

    Fecha de ingreso
    March-2011
    Mensajes
    22
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    no me encuentra el cofre de madera dentro del cofre seguro... no se si es del nuevo cliente o q?....

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

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    mete bolsas o cualquier cosa, porque a mi aunque tengo una caja de esas rojas me lo guarda al final en una bolsa de las de cuero que hay tambien dentro.. xD
    http://ultima-alianza.com/foro/blogs/driuk

  8. #88

    Fecha de ingreso
    April-2011
    Edad
    33
    Mensajes
    59
    Reputacion: 10
    Poder de reputación
    14

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    hola esta macro me funcionaba d maravilla,hasta hoy q no tala me ace elr ail pero en vez d dar al arbol usa el target sobre mi mismo.espero q me podais ayudar,gracias

  9. #89

    Fecha de ingreso
    December-2010
    Mensajes
    81
    Reputacion: 10
    Poder de reputación
    14

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Hola gracias por la macro. Mira me ocurre que hago el rail, me aparece el archivo de txt en el easy con extension .txt pero al iniciarla, me dice que no lo encuentra, que lo ponga en la misma direccion. De ahi no salgo.

    Podiras ayudarme por favor?

  10. #90
    Avatar de jubeitos
    Fecha de ingreso
    October-2011
    Edad
    34
    Mensajes
    2
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Cita Iniciado por romaxgla Ver mensaje
    Hola gracias por la macro. Mira me ocurre que hago el rail, me aparece el archivo de txt en el easy con extension .txt pero al iniciarla, me dice que no lo encuentra, que lo ponga en la misma direccion. De ahi no salgo.

    Podiras ayudarme por favor?
    a mi me va de maravilla esta macro después de 3 años desde k se subió!!! ese archivo txt el lumber0 te lo guarda por defecto en la misma carpeta donde se encuentra el txt de la macro de monje, pero para k te reconozca el rail lo tienes que mover a la carpeta donde esta el ejecutable del esayUO.
    Creo haber entendido que ese era tu problema y espero haberte ayudado.
    un saludo!

    P.D.: Monje gracias es la mejor k existe por todo internet
    P.D.2: lo uniko k le falta es comer mientras tala pa subir mejor la skill
    Última edición por jubeitos; 07-Oct-2011 a las 04:10

  11. #91

    Fecha de ingreso
    October-2011
    Edad
    30
    Mensajes
    2
    Reputacion: 10
    Poder de reputación
    0

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Me meti en la pagina de multimania pero me da error podriais ponerme otro sitio donde descargar el easy uo con la version exacta para la macro de monje?


    Gracias de antemano

  12. #92
    Avatar de goliate
    Fecha de ingreso
    January-2009
    Mensajes
    226
    Reputacion: 25
    Poder de reputación
    15

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    no me funciona la macro, me dice que no puede abrir el command.com uso windows 7 y no puedo descargar la versión ni client de la macro ya que no funciona el link,

    A ver si una alma caritativa me puede ayudar!!

    Gracias anticipadas

  13. #93
    Avatar de Nathrae
    Fecha de ingreso
    June-2011
    Mensajes
    27
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Buenas!
    A mi la macro me ha ido peeeerfecta siempre pero desde hace unos días, no sé por qué, cuando le da la gana llega al cofre, suelta los troncos y después se queda el pj parado en el primer árbol eternamente. Tengo que sacar el tarjet y darle al árbol para que continue el rail como siempre :S
    Creo que es al cambiar de un rail a otro pero realmente nunca me había pasado antes.

    Alguna idea?

  14. #94

    Fecha de ingreso
    November-2011
    Mensajes
    92
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    pues ami no me rula, loa go igual y me sale un meno para acer baules, cuando ba a guardar los logs, pero no los guarda

  15. #95

    Fecha de ingreso
    November-2007
    Edad
    69
    Mensajes
    49
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Hola a todos.

    Como comentó anteriormente un compañero el problema de quedarse sin stamina se resuelve cambiando este renglón:

    set %maxweight #maxweight - 35

    Si os fijáis en el peso máximo q podéis transportar (con el easy abierto, en la parte derecha aparecen todos los parámetros de vuestro personaje: nombre, sexo, fuerza, inteligencia......etc. y entre ellos #maxweight: - - -) ese renglón determina la cantidad máxima de carga q admitirá vuestro personaje.

    Pongo un ejemplo, mi personaje fuerza 100, peso máximo q admite 390, tal como está ese renglón ahora mi carga máxima a admitir será 390-35=355. Cuando mi personaje llegue a esa cantidad se volverá a descargar.

    Como esto depende de vuestras capacidades, hay q jugar con ese número y con la longitud de vuestra vía para q no se le acabe la stamina. Cuanto mas alto sea el número menos carga transportareis y por lo tanto más larga podrá ser la vía.

    Yo en concreto le puse 70 y mis rutas son de 100 árboles y parece q regresa sin dificultad.

    Espero haberme explicado, os deseo q resuelto este problema taléis mucho. Y dar las gracias a Monje por su estupendo trabajo.

    Saludos. Bene.

  16. #96
    Avatar de Er Poli
    Fecha de ingreso
    May-2011
    Edad
    32
    Mensajes
    53
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    ami la macro editada no me equipa ni el hacha alguien sabe a que se puede deber?
    Calidad como cualidad

  17. #97
    Avatar de Suse
    Fecha de ingreso
    September-2011
    Mensajes
    235
    Reputacion: 10
    Poder de reputación
    13

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Cita Iniciado por Er Poli Ver mensaje
    ami la macro editada no me equipa ni el hacha alguien sabe a que se puede deber?
    A mi depende con que tipo de hacha tampoco me dejaba, con una de plata deberia dejarte equipartela si o si.

  18. #98
    Avatar de KeldornPowa
    Fecha de ingreso
    December-2007
    Edad
    37
    Mensajes
    227
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Ante todo agradecer a monje la modificación . Me va bastante bien. El único problema que vi fue que a veces se quedaba en frente del kofre intentando meter los troncos en la caja , sin avanzar . Si os pasa, fijaos a ver si tenéis una bolsa en vuestra mochila (y quitarla , pork puede k meta ahí los troncos y la líe, es lo que me sucedía)

    Quería ver si alguien podría hecharme una mano para modificar un aspecto ..aparentemente sencillo. Veréis , esta macro funciona correctamente si lo que se quiere es conseguir madera tranquilamente, pero para subir la habilidad talar en sí, es lenta de pelotas... y no me funciona ninguna macro antigua. Pensé que modificando :

    set %maxw #maxweight - 110 (a + 100)
    set %maxweight #maxweight - 35 (a + 100)

    el keko andaría dejando caer los tronkos por los railes ya diseñados,centrandose así en subir la habilidad lumber ... y así es , el problema con el k me he encontrado ahora es k, kada vez que caen troncos al suelo ( esto es muy pesado, dejas troncos a tus pies) se empeña en recogerlos y se queda ahí trabado. Mis conocimientos son nulos, no se que debería modificar, xfa , ayuda ^^

  19. #99

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

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    creo que si pusieras la macro alguno te podria localizar el fallo enseguida, si kieres mandarme por privado la macro y q te diga donde podria estar el fallo te podria ayudar, tmp soi un experto pero si modifico bastante bien las macros a mi gusto.

    un saludo

    posdata: la macro no la kiero para nada, yo ya tengo el lumber subido

  20. #100
    Avatar de KeldornPowa
    Fecha de ingreso
    December-2007
    Edad
    37
    Mensajes
    227
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: Hiper macro talar (guarda logs y va en el nuevo emulador)

    Mil gracias , anullos, dejo aki la parte de la macro hasta que avisa de no tocar nada, esperando no molestar .. es un tocho considerable.

    ; Macro con modificaciones by MoNjE, se trababa en muchisimos sitios a lo tonto =)!.
    gosub settings
    gosub menu
    gosub setup

    if %userail <> yes
    gosub gohome
    if %straighthome = #true
    {
    set %nn 1
    set %oo 1
    set %n 1
    set %o 1
    }
    loop:
    gosub chop
    gosub findtool
    gosub maketool
    gosub chop
    gosub check
    goto loop


    sub settings
    set %delay 20 ;setea el primer delay para el menu (no tocar si juegas en UA)
    set %delay2 10 ;setea el segundo delay para el menu (no tocar si juegas en UA)
    ;7/10/05
    ;Script Hiper Lumberjacking
    set %ver 2.1
    set %file Lumber0.txt
    set %cmd cmd.exe
    key p alT
    menu HideEUO
    if txt notin %file && euo notin %file
    {
    display msg Creo q no has puesto una extension para el archivo lumber. Please por favor utiliza .txt or .euo.
    }

    ;************** Configuracion Inicial********************************
    set %straighthome #false
    set %fullpath #false
    set %extrasecures #false
    set %multi #false
    set %alwaysclick #false
    set %opendoor #false
    set %turnoffsaw #false
    set %axecut #false ;Esto en #true Ponlo en true si en tu servidor una de las herramientas para hacer los tablones es el hacha (no tocar en UA)
    set %bank #false
    set %recall #false
    set %hideme #false
    set %menu #true
    SET %CHANGE Boards
    set %logweight 2
    set %boardweight 1
    set %stop 999999
    set %object qwl ;Runebook ID (Especifica de cada servidor, pon la del tuyo si fuera necesario (MPF en UA pero no lo cambies si no te falla)
    set %home 2
    set %axes lsf_bsf_nsf_zrf_rmh_lph_uoh_fsf
    set %movetime 5s ; Para seleccionar la espera entre movimientos
    set %doorid ZPC_BQC_NQC_TQC_VQC_FJC_HJC_HQC_JQC_XMC_ZMC_WBD_YB D_FNC_HNC_LAM_NNC

    ;********************Otras Configuracions************************************
    set %a 0
    set %n 0
    set %o 0
    set %b 0
    SET %s 0
    set %try 0
    set %watt 15
    set %txt44 0
    set %sss 0
    set %first 0
    set %set1 0
    set %set2 0
    set %oak 0
    set %Yew 0
    set %Blood 0
    set %Ash 0
    set %Heart 0
    set %Frost 0
    set %scnt 0
    set %logs zlk
    set %bnk 0
    set %mrail 0
    set %Msecure 0
    set %rec 0
    set %path 0
    set %axe 0
    set %start 0
    set %colorr Red
    for %i 1 9
    {
    set %tag . %i off
    }
    set %maxw #maxweight - 110
    set %boards tlk_yws_xws_bwr_nws_fxs
    set %secureid 0
    set %jin #jindex
    set *511 pause
    set %saw agg_egg
    SET %cx #charposx
    SET %cy #charposy
    set %counterstarted 0
    set %home %home + 1
    set %all %boards , _ , %logs
    set %maxweight #maxweight - 35
    return

    sub menu
    if %ending <> 1
    gosub secondmenu
    menu Font BGColor InactiveCaptionText
    menu font size 10
    Menu Text txt 220 40 Inicializando
    Menu Font Color red
    Menu Text txt1 220 60 Verison %ver UA - Aos - Reinn - EasyUo 1.42
    menu hideeuo
    wait 70
    Menu Font Color Black
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando.
    Menu Text txt1 220 60 Abriendo el Paperdoll
    Event macro 8 1
    paperwait:
    if #contname <> paperdoll_gump
    goto paperwait
    contpos 650 0
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando..
    Menu Text txt1 220 60 Abriendo Status
    wait %watt
    event macro 8 2
    statuswait:
    if #contname <> status_gump
    goto statuswait
    set %osx #contposx + 395
    set %osy #contposy + 160
    click %osx %osy
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando...
    Menu Text txt1 220 60 Abriendo Mochila
    wait %watt
    event macro 8 7
    packwait:
    if #contname <> container_gump && #contsize <> 230_240
    goto packwait
    contpos 615 330
    set %backpackid #contid
    set %bb C_ , %backpackid
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando....
    Menu Text txt1 220 60 Buscando Hacha
    finditem %axes C_ , #charid
    wait %watt
    if #findkind = -1
    finditem %axes c_ , %Backpackid
    wait 5
    if #findkind = -1
    {
    menu font color red
    menu delete txt1
    Menu Text txt1 220 60 Error....No se encuentra el hacha ...Halted
    halt
    }
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Initializing.....
    Menu Text txt1 220 60 Finding Saw
    finditem %saw C_ , %backpackid
    if #findid = x && %axecut <> #true && %turnoffsaw = #false
    {
    menu font color red
    menu delete txt1
    Menu Text txt1 220 60 Error....No encuentro la sierra en la mochila...Halted
    halt
    }
    gosub relocate
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando.........
    Menu Text txt1 220 60 Equipando hacha
    gosub axearm
    wait %watt
    if %recall = #false
    {
    goto menu
    }
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando......
    Menu Text txt1 220 60 Configurando recall
    set %runefind #findid
    finditem %object c_ , %backpackid
    runewait:
    if %runefind = #findid && #findid <> x
    goto runewait
    if #findid = x
    {
    menu font color red
    menu delete txt1
    Menu Text txt1 220 60 Error....Error no encuentro la runa en tu mochila...Halted
    halt
    }
    menu:
    menu HIDE
    CLICK 128 192 R

    set %first 0
    set %set1 0
    set %set2 0

    gosub remember
    return
    sub relocate
    if %done <> yes
    {
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando.......
    Menu Text txt1 220 60 Buscando contenedor seguro
    }
    if %done = yes
    click 152 196 r
    finditem jif_kif_iif_HIF_bud_aud_ G_2
    wait %watt
    if #findid = x && %bank = #false
    {
    menu font color red
    menu delete txt1
    Menu Text txt1 220 60 Error....No encontrado contenedor seguro...Halted
    halt
    }
    if %bank = #true
    msg bank $
    set #LOBJECTID #findid
    event macro 17 0
    waitsecure:
    if #contsize <> 180_240
    goto waitsecure
    contpos 98 95
    set %secureid #findid
    if %done <> yes
    {
    menu delete txt
    menu delete txt1
    Menu Text txt 220 40 Inicializando........
    Menu Text txt1 220 60 Buscando Caja de logs
    }
    set %runef #findid
    finditem cud_hkf_ckf c_
    boxweight:
    if %runef = #findid && #findid <> x
    goto boxweight
    if #findid = x
    {
    menu font color red
    menu delete txt1
    Menu Text txt1 220 60 Error....No encuentro la caja de logs...Halted
    Display OK Asegurate de q dentro del contenedor tienes una caja de madera roja normal
    halt
    }
    wait 20
    set #LOBJECTID #findid
    set %orebagid #findid
    set #lobjectid %secureid
    wait 10
    return



    ;*******************Configuracion Libro de Runas*******************************************************
    ; (En construccion)
    ;*******************************Menu Principal*******************************************


    sub setup
    display yesno Tienes un camino de rail prediseñado, quieres utilizarlo???
    if #dispres = yes
    {
    set %userail yes
    goto skipp
    }
    display yesno Quieres crear un camino permanente??
    if #dispres = yes
    set %setrail yes
    if %setrail = yes
    {
    if EXEC notin #opts
    {
    display ok Salvando el camino q tienes $"Disable Execute" un-checked.
    + Activa esta opcion$del menu del Easyuo :$$Tools>Options>Permissions>Disable Execute$$Halting...
    halt
    }
    display yesno Estas usando 98/95/ME
    if #dispres = yes
    set %cmd command.com
    if #dispres = yes
    set %_98 1
    EXECUTE %cmd /c if exist %file del %file
    }
    hh:
    gosub menus
    menu delete txt44
    if #menubutton = no
    {
    if %setrail <> yes
    menu hide
    set %done yes
    if %setrail = yes
    gosub saverail
    set %jin #jindex
    deletejournal
    return
    }
    if #menubutton = Cancel
    {
    set %txt44 %txt44 - 2
    set %n %n - 1
    set %o %o - 1
    set %reset 1
    goto hh
    }
    if #menubutton = yes && %userail <> Yes
    {
    GOSUB FINDtool
    set #lobjectid %helditem
    event macro 17 0
    set %first %first + 1
    target 3s
    if %opendoor = #true
    gosub door
    waiting:
    if #targcurs = 1
    goto waiting
    set %set1 #cursorx
    set %set2 #cursory
    set %st1 #ltargetx
    set %st2 #ltargety
    set %st3 #ltargetz
    gosub remember
    if #weight > %maxw
    gosub cut
    goto hh
    }
    skipp:
    return
    ;******************************Equipando Hacha************************************************************************
    sub axearm
    finditem %axes c_ , #charid
    if #findkind = 0
    {
    set %helditem #findid
    return
    }
    if #findkind = -1
    {
    finditem %axes c_ , #Backpackid
    if #findkind = -1
    {
    if %bank = #true
    finditem %axes c_
    else
    finditem %axes c_ , %Secureid
    if #findkind = -1 && %cutting = 99 && %extrasecures = #false
    pause
    gosub findtool
    }
    if #findtype = fsf
    set #lhandid #findid
    else
    set #rhandid #findid
    dropp:
    if #findtype = fsf
    event macro 24 1
    else
    event macro 24 2
    finditem %helditem c_ , #charid
    if findkind = -1
    goto dropp
    finditem %axes c_ , #charid
    WAIT 5
    set %helditem #findid
    }
    return


    ;************* Hacha Rota********************
    sub findtool
    set %scnt #scnt + 2
    if %cutting = 99 || %recallloop = 1
    goto out
    finditem %helditem
    axwait:
    if #findid <> %helditem && %scnt > #scnt && #findid <> x
    goto axwait
    if #findid <> X
    goto out
    else
    finditem %axes c_ , %backpackid
    wait 5
    if #findid = X && %cutting <> 99
    {
    If %recall = #true
    {
    gosub recall
    }
    gosub gohome
    gosub house
    gosub checktool
    GOSUB goback
    }
    set %helditem #findid
    out:
    return

    ;**************************Busca otro hacha en el cofre seguro**************************************
    sub checktool
    finditem %axes c_ , #charid
    if #findid <> x
    return
    finditem %axes c_ , %backpackid
    if #findid <> x
    {
    gosub axearm
    return
    }
    set %amount 0
    getmore:
    finditem %axes c_
    wait 1s
    if #findkind = -1 && %extrasecures = #false
    {
    display msg No puedo encontrar mas hachas, pon mas y pulsa play
    pause
    set %nn 2
    }
    if #findkind = -1 && %extrasecures = #true
    {

    ignoreitem %secureid
    gosub relocate
    goto getmore
    }
    if #findkind = 0
    {
    gosub axearm
    }
    return


    ;********************Sub Chop********************************
    sub chop
    WALKAGAIN:
    if %nn < %home 2
    gosub loc
    GOTO WALKAGAIN
    if %cx = #charposx && %cy = #charposy
    {
    GOTO WALKAGAIN
    }
    set #ltargetkind 2
    RETURN:
    GOSUB SEARCHGROUND
    if %nn < %home
    return
    if %health = #true && #hits < #maxhits - 10
    gosub health
    set %armit 0
    hangout:
    set %armit %armit + 1
    finditem %helditem
    if #findkind = -1 || %armit > 5
    gosub axearm
    set #lobjectid %helditem
    event macro 17 0
    target
    if #targcurs <> 1
    goto hangout
    set %weighthold #weight
    set %jincheck #jindex
    if %x <> 1 || %userail = yes || %alwaysclick = #true
    {
    click %digx . %n %digy . %o d
    click %digx . %n %digy . %o d
    }
    set %x 1
    wait 10
    set #ltargety %digyy . %o
    set #ltargetx %digxx . %n
    set #ltargetz %digzz . %n
    set #ltargetkind 3
    event macro 22
    gosub check
    if %mark = 99
    {
    set %MARK 0
    gosub loc
    }
    GOTO RETURN
    return


    ;**************************Peso y diario Subrutina*******************************
    sub check
    set %timeout #scnt2 + 54
    toppp:
    if %jincheck < #jindex
    set %jincheck %jincheck + 1
    scanjournal %jincheck
    if #weight = %weighthold && %timeout > #scnt2 && not_enough notin #journal && nothing notin #journal && put_some_logs notin #journal && hack notin #journal && chop_some notin #journal
    goto toppp
    if %scnt < #scnt
    (
    if #jindex = %journalcheck
    set %x 1
    set %scnt #scnt + 13
    set %journalcheck #jindex
    }
    set %checkit #jindex
    FOR %i %jin %checkit
    {
    SCANJOURNAL %I
    if you_can't in #journal
    set %x 1
    if Your_backpack_is_full in #journal
    gosub full
    If you_destroyed || broke in #journal
    gosub findtool
    if can't_place in #journal
    gosub place
    ; Modificacion MoNjE
    if not_enough in #journal || cannot_see in #journal || far_away in #journal || can't_reach in #journal || can't_use in #journal || nothing in #journal || Aqui_no in #journal || It_appears in #journal || Parece_que_es_inmune_a_tu_golpe in #journal || Eso_esta_muy_lejos_para_ser_talado in #journal || No_lo_alcanzas in #journal || No_tienes_ni_idea_de_como_utilizar_esto in #journal
    gosub allelse
    }
    SET %JIN %CHECKIT + 1
    finditem %axes C_ , #charid
    if #findkind = -1
    gosub axearm
    if #findkind = -1
    goto runhome
    set %counter %counter + 1
    scanjournal
    if #weight > %maxw
    {
    DELETEJOURNAL
    finditem %LOGS c_ , %backpackid
    if finditem <> x
    {
    gosub cut
    gosub recheck
    return
    }
    runhome:
    if %recall = #true
    gosub recall
    GOSUB GOHOME
    gosub house
    gosub goback
    RETURN
    }
    if %counter > 19
    {
    set %counter 0
    gosub findtool
    }
    return


    sub full
    deletejournal
    gosub cut
    gosub recheck
    return


    sub place
    deletejournal
    set %checkweight #weight
    gosub cut
    if %checkweight = #weight && #weight <= #maxweight
    goto runhome
    return

    sub allelse
    SET %MARK 99
    DELETEJOURNAL
    RETURN



    ;********************Casa Subrutina************************
    sub house
    set %cutting 99
    if %straighthome <> #true
    {
    if %NNN >= %FIRST
    {
    set %nn 1
    set %oo 1
    set %o 1
    set %n 1
    }
    }
    if %straighthome = #true
    {
    set %nn 1
    set %oo 1
    set %o 1
    set %n 1
    }
    ;********************Al cofre seguro*************************
    set %scnt #scnt
    movingtime:
    if #scnt - %scnt > 4
    {
    set %scnt #scnt
    event macro 5 1
    event macro 5 1
    }
    move %cx %cy 0 1s
    event pathfind %cx %cy #charposz
    if #charposx <> %cx || #charposy <> %cy
    goto movingtime
    set %x + 1
    set %counter 0
    ;******************************************************Ocultarse************************* *************
    if %hideme
    event macro 13 21
    wait 5
    ;*******************************Buscar y abrir cofres*************************
    set %scnt #scnt + 4
    opensecure:
    ;Find chest
    if %bank = #true
    goto skip
    FINDITEM %SECUREID
    IF #FINDKIND = -1 && %scnt > #scnt
    {
    GOTO OPENSECURE
    }
    ;Open chest
    set #LOBJECTID %secureid
    set #findmod 0_0
    set #NEXTCPOSX 27
    set #NEXTCPOSY 49
    event macro 17 0
    skip:
    if %bank = #true
    msg Bank $
    wait 10
    set %scnt #scnt + 5
    WaitSecureToOpen:
    if %scnt < #scnt
    goto opensecure
    finditem %orebagid C_
    if #findid <> %orebagid
    goto WaitSecureToOpen
    IGNOREITEM RESET
    finditem %axes c_ , #charid
    if #findid = x
    {
    gosub checktool
    gosub axearm
    }
    gosub more
    ;---------------------------------------------Log rutina-------------------------------------------------
    finditem %logs C_ , %backpackid
    wait 20
    if #findkind = 0 && %axecut = #false && %turnoffsaw = #false
    gosub cut
    ignoreitem reset 1
    ignoreitem reset
    ore:
    scanjournal #jindex
    if hold_more in #journal && %extrasecures = #true
    {
    ignoreitem %secureid
    gosub relocate
    }
    finditem %boards c_ , %backpackid
    if %Menu = #true
    {
    gosub count
    gosub menuu
    }
    gosub finish
    finditem %all c_ , %backpackid
    if #findkind = -1 && #lLiftedKind <> 1
    {
    goto endit
    }

    if #findkind = 0
    {
    IF #lLiftedKind <> 1
    event drag #findid
    wait 15
    msg $
    wait 5
    finditem %orebagid C_
    if #findid = x
    goto opensecure
    set #findmod 20_10
    set %scnt #scnt + 10
    oredrop:
    if %scnt < #scnt
    goto ore
    click #findx #findy p
    wait 10
    if #lliftedkind = 1
    goto oredrop
    goto ore
    }
    endit:
    set %cutting 1
    return



    ;----------------------------------------curarse----------------------------------------
    sub health
    if #hits >= #maxhits - 10
    return
    set *511 resume
    loopit:
    wait 10
    if #hits < #maxhits - 10
    goto loopit
    set *511 pause
    return

    ;*******************************************
    sub axecut
    set %loop 0
    retryy:
    set %loop %loop + 1
    if %loop >= 11
    {
    display mgs Falladas 10 veces al cortar logs. No uses el hacha para esto. Busca la herramienta adecuada para hacer esto en tu servidor. Prueba a cambiar esta liena "%axechop" to "#false" al principio del script y asegurate de q tienes una sierra en la mochila, y reinicia la macro.
    halt
    }
    finditem %helditem C_ , #charid
    wait 15
    set #lobjectid #findid
    event macro 17 0
    finditem %logs C_ , %backpackid
    if #findid = x
    return
    event property #findid
    set #ltargetid #findid
    set #ltargetkind 1
    wait 20
    event macro 22 0
    goto retryy
    return

    sub cut
    if %turnoffsaw = #true
    goto bottom
    if %axecut = #true
    {
    gosub axecut
    goto bottom
    }
    retry:
    finditem %saw C_ , %backpackid
    wait 15
    if #findkind = -1
    {
    GOSUB DRAGIT
    if %done = yes
    {
    if %recall = #true && %cutting <> 99
    {
    GOSUB recall
    }
    if %cutting <> 99
    {
    gosub gohome
    }
    gosub house
    gosub goback
    goto bottom
    }
    goto bottom
    }
    openagain:
    set #lobjectid #findid
    event macro 17 0
    set %scnt #scnt + 10
    gump:
    finditem %logs C_ , %backpackid
    wait %delay
    if #findid = x
    {
    set %mody 411 + #contposy
    set %modx 15 + #contposx
    CLICK %modx %mody R
    goto finish
    }
    event property #findid
    if #scnt > %scnt
    goto retry
    if #contname <> generic_gump || #CONTSIZE <> 530_437
    goto retry
    wait %delay
    if ash notin #property && oak notin #property && yew notin #property && heartwood notin #property && frostwood notin #property && bloodwood notin #property && #findcol <> 0
    {
    ignoreitem #findid
    goto gump
    }
    set %modx 27 + #contposx
    set %mody 90 + #contposy
    click %modx %mody x1
    wait %delay
    if oak in #property
    {
    set %pixx 495 + #contposx
    set %pixy 91 + #contposy
    savepix %pixx %pixy 1
    set %mody 372 + #contposy
    set %modx 27 + #contposx
    11:
    if #scnt > %scnt
    goto click1
    click %modx %mody x1
    wait %delay
    cmpPix 1 t 1
    goto 11
    click1:
    set %mody 90 + #contposy
    set %modx 234 + #contposx
    click %modx %mody x1
    wait %delay2
    set %again 1
    }
    if ash in #property
    {
    set %pixx 495 + #contposx
    set %pixy 91 + #contposy
    savepix %pixx %pixy 1
    set %mody 372 + #contposy
    set %modx 27 + #contposx
    12:
    if #scnt > %scnt
    goto click2
    click %modx %mody x1
    wait %delay
    cmpPix 1 t 1
    goto 12
    click2:
    set %mody 110 + #contposy
    set %modx 234 + #contposx
    click %modx %mody x1
    wait %delay2
    set %again 1
    }
    if yew in #property
    {
    set %pixx 495 + #contposx
    set %pixy 91 + #contposy
    savepix %pixx %pixy 1
    set %mody 372 + #contposy
    set %modx 27 + #contposx
    13:
    if #scnt > %scnt
    goto click3
    click %modx %mody x1
    wait %delay
    cmpPix 1 t 1
    goto 13
    click3:
    set %mody 130 + #contposy
    set %modx 234 + #contposx
    click %modx %mody x1
    wait %delay2
    set %again 1
    }
    if heartwood in #property
    {
    set %pixx 495 + #contposx
    set %pixy 91 + #contposy
    savepix %pixx %pixy 1
    set %mody 372 + #contposy
    set %modx 27 + #contposx
    14:
    if #scnt > %scnt
    goto click4
    click %modx %mody x1
    wait %delay
    cmpPix 1 t 1
    goto 14
    click4:
    set %mody 150 + #contposy
    set %modx 234 + #contposx
    click %modx %mody x1
    wait %delay2
    set %again 1
    }
    if bloodwood in #property
    {
    set %pixx 495 + #contposx
    set %pixy 91 + #contposy
    savepix %pixx %pixy 1
    set %mody 372 + #contposy
    set %modx 27 + #contposx
    15:
    if #scnt > %scnt
    goto click5
    click %modx %mody x1
    wait %delay
    cmpPix 1 t 1
    goto 15
    click5:
    set %mody 170 + #contposy
    set %modx 234 + #contposx
    click %modx %mody x1
    wait %delay2
    set %again 1
    }
    if frostwood in #property
    {
    set %pixx 495 + #contposx
    set %pixy 91 + #contposy
    savepix %pixx %pixy 1
    set %mody 372 + #contposy
    set %modx 27 + #contposx
    16:
    if #scnt > %scnt
    goto click6
    click %modx %mody x1
    wait %delay
    cmpPix 1 t 1
    goto 16
    click6:
    set %mody 190 + #contposy
    set %modx 234 + #contposx
    click %modx %mody x1
    wait %delay2
    set %again 1
    }

    if ash notin #property && oak notin #property && yew notin #property && heartwood notin #property && bloodwood notin #property && frostwood notin #property
    {
    ignoreitem #findid 1
    set %pixx 495 + #contposx
    set %pixy 91 + #contposy
    savepix %pixx %pixy 1
    set %mody 372 + #contposy
    set %modx 27 + #contposx
    17:
    if #scnt > %scnt
    goto click7
    click %modx %mody x1
    wait %delay
    cmpPix 1 t 1
    goto 17
    click7:
    set %mody 70 + #contposy
    set %modx 234 + #contposx
    click %modx %mody x1
    wait %delay2
    set %again 1
    }
    set %mody 71 + #contposy
    set %modx 233 + #contposx
    click %modx %mody x1
    WAIT %delay2
    set %scnt #scnt + 10
    hang:
    if #scnt > %scnt
    return
    if #CONTSIZE <> 530_437
    goto hang
    ignoreitem #findid
    finditem btl c_ , %backpackid
    if #findkind = 0
    {
    display msg El script ha encontrado Barrel Staves en tu mochila, normalmente esto significa q en tu servidor se puede usar el hacha para hacer los tablones. Para corregir esto ve al principio del script y cambia "%axecut" to "#true".
    halt
    }
    if %again = 1
    {
    wait 30
    set %again 0
    goto retry
    }
    gosub finish
    return

    sub finish
    finish:
    if #CONTSIZE <> 530_437
    goto bottom
    set %mody 414 + #contposy
    set %modx 24 + #contposx
    click %modx %mody x1
    if #CONTSIZE = 530_437
    goto finish
    bottom:
    return

    sub more
    if %axecut = #true || %turnoffsaw = #true
    return
    finditem %saw c_ , %backpackid
    wait 10
    if #findkind = 0
    return
    sawfindit:
    finditem %saw C_
    wait 10
    if #findkind = -1 && %extrasecures = #false
    pause
    if #findkind = -1 && %extrasecures = #true
    {
    gosub relocate
    goto sawfindit
    }
    set #lobjectid #findid
    event drag #lobjectid
    wait 10
    click 794 218 p
    return
    ;-------------------------------No toques nada a partir de aki---------------------------------

Temas similares

  1. Macro de Talar
    Por Lazwarriot en el foro Macros
    Respuestas: 3
    Último mensaje: 29-Sep-2008, 03:16
  2. BUSCoOoO macro talar!!!!
    Por Dinox en el foro Macros
    Respuestas: 0
    Último mensaje: 29-Oct-2007, 23:22
  3. fallo nuevo emulador
    Por Kote83 en el foro General
    Respuestas: 9
    Último mensaje: 08-Oct-2007, 15:08
  4. Respuestas: 7
    Último mensaje: 10-Apr-2007, 15:40
  5. Busko Macro talar
    Por toylokito en el foro Macros
    Respuestas: 1
    Último mensaje: 18-Feb-2007, 13:45

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