Subir

Resultados 1 al 16 de 16

Tema: (B)Macro Carpinteria(B)

  1. #1
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    15

    (B)Macro Carpinteria(B)

    Pues busco una macro para subir Carpinteria que rule en condiciones por favor.
    Graciass

  2. #2
    Avatar de ConcodilloDanDic
    Fecha de ingreso
    June-2007
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    829
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    No es por parecer antipatico ni nada, pero te respondo ( y ademas por tu bien porque a mi me vino de perlas) que las intentes hacer tu las macros mirando el tutorial de Tone y mirandote otras macros que encuentres por la web.

  3. #3
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Vamos alguien que tenga una macro que sepa que rula solo tiene que Cortar/Pegar

  4. #4
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    UP

  5. #5
    Avatar de Trokolo
    Fecha de ingreso
    November-2007
    Edad
    37
    Mensajes
    931
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    En breves pondre una macro de carpinteria k tanto yo como un colega tamos usando (yo ya tengo 97%)

    Un pelin de paciencia k toy adecuandola para k sea mas facil su configuracion xD
    http://s3.subirimagenes.com/otros/2260991trokolillo.jpg

  6. #6
    Avatar de Trokolo
    Fecha de ingreso
    November-2007
    Edad
    37
    Mensajes
    931
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Que gustazo mirala admirala porque va de puta madre xDDDD
    Como siempre lee antes de darle a play xD
    Código:
    ;MACRO DE CARPINTERIA REALIZADA POR TROKOLO
    ;IMPORTANTE:
    ;Los serruchos hay que meterlos en una bolsa y ponerla en la mochila.
    ;Antes de iniciar la macro acuerdate de dejar abierta la bolsa de los serruchos.
    ;Para usar esta macro es recomendable ir en bolas y llevar solo los serruchos.
    ;Con sesenta serruchos aguantas 9 horas facilmente no te quieras cargar con muchos mas
    ;=================================================
    set %mapas no ;Si quieres hacer mapas pon si
    ;=================================================
    ;¡NO TOCAR NADA MAS!
    event sysmessage Abre el cofre que contiene la madera y manten el cursor sobre el.
    wait 8s
    set %contMaderaID #CONTID ;ID del cofre donde este la madera
    set %cofrex #CURSORX ;El cofre donde dejar los pergaminos
    set %cofrey #CURSORY ;El cofre donde dejar los pergaminos
    set %madera ZLK ;NO TOCAR
    set %producto MMF ;NO TOCAR
    event sysmessage Manten el cursor sobre la mochila del paperdoll.
    wait 4s
    set %mochilax #CURSORX ;La mochila del paperdoll
    set %mochilay #CURSORY ;La mochila del paperdoll
    set %limite #maxweight - 150 ;No tocar es una mera medida de seguridad
    chooseskill carp real
    set %inicial #skill
    
    event sysmessage Macro Ofrecida Gratuitamente por Trokolo.
    event sysmessage Te recomiendo #CHARNAME que visites mi vendor SuperStore en portales Britain.
    
    inicio:
      set %subidos #skill - %inicial
      setuotitle  Carpinteria -> Skill inicial: %inicial - Skill actual: #SKILL - Puntos subidos: %subidos
    
    if #weight >= %limite
    {
    Halt
    }
    finditem %producto c_ , #BACKPACKID
    if #findstack > 20
      {
      goto dragp
      }
    finditem %madera c_ , #BACKPACKID
    if #findstack < 10
      {
      goto drag
      }
    goto crear
    
    crear:
    finditem AGG
    set #LOBJECTID #FINDID
    event macro 17 0
    wait 20
    click 267 68 d
    wait 5
    click 267 68 d
    wait 5
    click 267 68 d
    wait 5
    click 267 68 d
    wait 5
    click 267 68 d
    wait 5
    click 267 68 d
    wait 5
    click 267 68 d
    wait 30
    click 77 73 d
    wait 50
    if %mapas = si
      click 102 62 d
    else
      click 55 61 d
    wait 4s
    goto inicio
    
    drag:
    finditem %madera C_ , %contMaderaID
    event drag #findid
    wait 10
    msg 50 $
    wait 10
    click %mochilax %mochilay p
    wait 2s
    goto inicio
    
    dragp:
    finditem %producto C_ , #BACKPACKID
    event drag #findid
    wait 10
    msg $
    wait 10
    click %cofrex %cofrey  p
    wait 2s
    goto inicio
    Última edición por Trokolo; 20-May-2008 a las 21:49
    http://s3.subirimagenes.com/otros/2260991trokolillo.jpg

  7. #7
    Avatar de karmelot
    Fecha de ingreso
    April-2008
    Edad
    38
    Mensajes
    1.303
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Trokolo puedes agregarme y hablamos?
    es ke estoy viendo ke eres de los mios xDDD

    bueno ahora me voi a la cama espero mñn poder hablar contigo!, hasta mñn!
    Última edición por karmelot; 01-Jul-2011 a las 04:19

  8. #8
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Gracias Trokolo la pruebo esta noche y haber que tal mañana te digo.

    PD:Te tengo en msn soy Tonedeff.


    Graxx.

  9. #9
    Avatar de PuRitOs
    Fecha de ingreso
    June-2008
    Ubicación
    ?????
    Edad
    36
    Mensajes
    490
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Funciona agusto al final o no?

  10. #10
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Pues la verdad que no me fue bien pero bueno tendre que buscar mas.

  11. #11
    Avatar de Trokolo
    Fecha de ingreso
    November-2007
    Edad
    37
    Mensajes
    931
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Nu? que raro tendre que probarla pero 2 colegas ya son GM carpinteros con ella :S
    http://s3.subirimagenes.com/otros/2260991trokolillo.jpg

  12. #12
    Avatar de ConcodilloDanDic
    Fecha de ingreso
    June-2007
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    829
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Va te pongo la mia espero te sirva si no sabes algo postea por aqui, otra cosa solo hace pergas en blanco no se cuanta carpinteria tendras pero vamos si no puedes usa la de trokolo hasta que puedas usar esta:

    Código PHP:
    ;Macro mineritis carpinteria
    ;----------------------------
    set %cantidad 4
    ;----------------------------
    initevents
    set 
    %idserrucho AGG
    set 
    %idtroncos ZLK
    set 
    %idperga MMF
    set 
    %lotex 204
    set 
    %lotey 75
    set 
    %lotexx 58
    set 
    %loteyy 63
    ;----------------------------------
    set %confp 1

    ;----------------------------------

    configurar:
    if %
    confp 1
    {
     
    setuotitle Abre el cofre donde tengas los troncos y los serruchosmanten el cursor y pulsa ESC
     event sysmessage Abre el cofre donde tengas los troncos y los serruchos
    manten el cursor en el
     event sysmessage Y pulsa ESC
     set 
    %conf 1
     set 
    %confp 2
     
    goto TESC
    }
    if %
    confp 2
    {
     
    setuotitle Pon el cursor donde quieres dejar los troncos en tu mochila y pulsa ESC
     event sysmessage Pon el cursor donde quieres dejar los troncos
     event sysmessage Y pulsa 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 %dejarlx #CURSORX
      
    set %dejarly #CURSORY
      
    set %fin 0
      
    goto empezar
     
    }
    }
    goto 
    TESC

    empezar
    :
    scanJournal
    if Comienza_la_grabacion in #journal
    {
     
    gosub esperar
    }

    findItem %idperga C_ #BACKPACKID
    if #FINDSTACK > 1
    {
     
    event drag #FINDID
     
    wait 20
     msg 
    $
     
    wait 20
     click 
    %cofrex %cofrey p
     wait 20
    }

    if 
    #WEIGHT > 400
    {
     
    set %fin 7
     gosub finalizar
    }

    if 
    #WEIGHT > 320
    {
     
    gosub putopeso
    }

    findItem %idserrucho C_ #BACKPACKID
    if #FINDSTACK = 0
    {
     
    gosub serruchos
    }

    findItem %idtroncos C_ #BACKPACKID
    if #FINDSTACK = 3
    {
     
    event drag #FINDID
     
    wait 10
     msg 
    $
     
    click %cofrex %cofrey p
     wait 20
     
    {
      goto 
    empezar
     
    }
    }

    findItem %idtroncos C_ #BACKPACKID
    if #FINDSTACK > 3
    {
     goto 
    hacerlotes
    }

    findItem %idtroncos C_ , %cofre
    if #FINDSTACK < 4
    {
     
    set %fin 1
     gosub finalizar
    }
    event drag #FINDID
    wait 10
    msg 
    %cantidad
    msg 
    $
    click %dejarlx %dejarly p
    wait 20

    hacerlotes
    :
    scanJournal
    if Comienza_la_grabacion in #journal
    {
     
    gosub esperar
    }

    findItem %idperga C_ #BACKPACKID
    if #FINDSTACK > 1
    {
     
    event drag #FINDID
     
    wait 20
     msg 
    $
     
    wait 20
     click 
    %cofrex %cofrey p
     wait 20
    }

    if 
    #WEIGHT > 400
    {
     
    set %fin 7
     gosub finalizar
    }

    if 
    #WEIGHT > 320
    {
     
    gosub putopeso
    }

    findItem %idserrucho C_ #BACKPACKID
    if #FINDSTACK = 0
    {
     
    gosub serruchos
    }

    findItem %idtroncos C_ , %cofre
    if #FINDSTACK < 4
    {
     
    set %fin 1
     gosub finalizar
    }

    findItem %idtroncos C_ #BACKPACKID
    if #FINDSTACK = 3
    {
     
    event drag #FINDID
     
    wait 10
     msg 
    $
     
    click %cofrex %cofrey p
     wait 20
     
    {
      goto 
    empezar
     
    }
    }

    findItem %idserrucho C_ #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    wait 20
    click 
    %lotex %lotey d
    wait 20
    click 
    %lotexx %loteyy d
    wait 13s
    findItem 
    %idperga C_ #BACKPACKID
    if #FINDSTACK = 0
    {
     goto 
    hacerlotes
    }
    else
    {
     goto 
    guardarlotes
    }

    guardarlotes:
    scanJournal
    if Comienza_la_grabacion in #journal
    {
     
    gosub esperar
    }
    findItem %idserrucho C_ #BACKPACKID
    if #FINDSTACK = 0
    {
     
    gosub serruchos
    }
    else
    {
     
    findItem %idperga C_ #BACKPACKID
     
    if #FINDSTACK > 0
    {
     
    event drag #FINDID
     
    wait 20
     click 
    %cofrex %cofrey p
     wait 20
     
    }
    goto 
    empezar
    }

    sub serruchos
    scanJournal
    if Comienza_la_grabacion in #journal
    {
     
    gosub esperar
    }
    findItem %idserrucho C_ , %cofre
    if #FINDSTACK = 0
     
    {
      
    set %fin 2
      gosub finalizar
     
    }
     
    event drag #FINDID
     
    wait 20
     set 
    %dejar2lx %dejarlx 15
     set 
    %dejar2ly %dejarly 15
     click 
    %dejar2lx %dejar2ly p

    findItem 
    %idserrucho C_ #BACKPACKID
    if #FINDSTACK = 0
     
    {
      
    gosub serruchos
     
    }
     return
    }

    sub esperar
    {
    {
     
    wait 600
     
    goto empezar
    }
    return
    }

    sub putopeso
    {
     if 
    #WEIGHT > 400
     
    {
      
    set %fin 7
      gosub finalizar
     
    }
     if 
    #WEIGHT > 320
     
    {
      
    findItem %idperga C_ #BACKPACKID
      
    if #FINDSTACK > 0
      
    {
       
    event drag #FINDID
       
    wait 20
       msg 
    $
       
    wait 3s
       click 
    %cofrex %cofrey p
       wait 20
      
    }
     }
     goto 
    empezar
    }
    {
    return
    }

    sub finalizar
    {
     if %
    fin || %fin N/A
     
    {
      
    display Macro terminada!$No se han encontrado troncos!
     }
     if %
    fin || %fin N/A
     
    {
      
    display Macro terminada!$No se han encontrado serruchos!
     }
     
    halt
     
    return


  13. #13
    Avatar de Trokolo
    Fecha de ingreso
    November-2007
    Edad
    37
    Mensajes
    931
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Mi macro no funciona si se usa Windows Vista XD o eso estoy comprobando.
    http://s3.subirimagenes.com/otros/2260991trokolillo.jpg

  14. #14
    Avatar de Dirts
    Fecha de ingreso
    February-2008
    Ubicación
    Malaga
    Mensajes
    559
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    Pues uso Windows XP Service Pack 2 pero parece que la de Concodillo me va dabuti

    Thxxx.

  15. #15
    Avatar de ConcodilloDanDic
    Fecha de ingreso
    June-2007
    Facción
    Neutral
    Nacimiento
    Haven
    Mensajes
    829
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    De nada hombre, alguna apotación más haré alguna dudilla posteala por aqui

  16. #16

    Fecha de ingreso
    March-2008
    Edad
    37
    Mensajes
    183
    Reputacion: 10
    Poder de reputación
    15

    Respuesta: (B)Macro Carpinteria(B)

    concodillo podrias modificarla para ue haga pergas ?? gracias un saludo

Temas similares

  1. Macro Carpinteria
    Por Nycko en el foro Macros
    Respuestas: 5
    Último mensaje: 21-Nov-2011, 23:42
  2. Respuestas: 3
    Último mensaje: 26-Apr-2008, 12:18
  3. Macro de Carpinteria
    Por Nycko en el foro Macros
    Respuestas: 0
    Último mensaje: 09-Nov-2007, 02:58
  4. Ayuda con carpinteria
    Por sink048 en el foro Dudas y Preguntas
    Respuestas: 3
    Último mensaje: 31-May-2007, 18:43
  5. Carpinteria
    Por Azazael en el foro Dudas y Preguntas
    Respuestas: 2
    Último mensaje: 04-Apr-2007, 20:07

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