Subir

Resultados 1 al 2 de 2

Tema: Macro artesania

  1. #1
    Avatar de Nightcrash
    Fecha de ingreso
    February-2007
    Ubicación
    Málaga
    Edad
    35
    Mensajes
    258
    Reputacion: 10
    Poder de reputación
    15

    Macro artesania

    Pues bien tengo la siguiente macro.


    Código:
    initevents
    chooseskill tink
    set %skillini #skill
    set %confp 1
    
    
    configurar:
    if %confp = 1
    {
    	Event sysmessage Abre el cofre en el que tienes los lingotes y manten el cursor en el.
    	event sysmessage Y presiona la tecla ESC
    	setuotitle  Abre el contenedor que contiene los lingotes  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 poner los lingotes en tu mochila y presiona ESC
    	event sysmessage Pon el cursor donde quieras dejar los lingotes (en la mochila)
    	event sysmessage Y presiona la tecla ESC
    	set %conf 2
    	set %confp 3
    	goto TESC
    }
    if %confp = 3
    {
    	setuotitle  Pon el cursor donde quieras dejar las manillas y presiona ESC
    	event sysmessage Pon el cursor donde quieras dejar las manillas
    	event sysmessage Y presiona la tecla ESC
    	set %conf 3
    	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
    		goto configurar
    	}
    	if %conf = 3
    	{
    		set %dejar_manillax #CURSORX
    		set %dejar_manillay #CURSORY
    		goto lingotes
    	}
    
    }
    goto TESC
    
    
    
    ; Coger lingotes
    lingotes:
    finditem RMK c_ , #BACKPACKID ; Mira los lingotes de la mochila, si se han acabado, coge 50
    set %l_mochila #FINDSTACK
    if %l_mochila < 5
    {
    	findItem RMK C_ , %cofre
    	event drag #FINDID
    	wait 10
    	msg 50 $ ; Aquí se configura el nº de lingotes que va a coger
    	click %dejarx %dejary p
    	wait 10
    }
    goto manillas
    
    
    manillas:
    findItem GTL C_ , #BACKPACKID
    set %tools #findcnt
    
    if %tools < 2
    {
    	finditem RMK c_ , #BACKPACKID ; Mira los lingotes de la mochila, si se han acabado, va a lingotes
    	set %l_mochila #FINDSTACK
    	if %l_mochila < 5
    		goto lingotes
    
    
    	;Creamos tinker tools
    	finditem GTL
    	set #LOBJECTID #FINDID
    	event macro 17
    	wait 1s
    	click 241 63 d
    	wait 1s
    	click 270 67 d ;**************************
    	wait 1s      ;******************
      click 270 67 d
    	wait 1s
    	click 270 67 d
    	wait 1s
    	click 270 67 d
    	wait 1s
    	click 237 68 d
    	wait 4s
    }
    
    ; Creamos las manillas
    finditem GTL C_ , #BACKPACKID
    set #LOBJECTID #FINDID
    event macro 17
    wait 10
    click 179 63 d
    wait 10
    click 104 63 d
    wait 3s
    
    finditem RMK c_ , #BACKPACKID
    set %l_mochila #FINDSTACK
    set %skillinc #SKILL - %skillini
    setuotitle -Macro: Artesania -|- Lingotes en la mochila: %l_mochila -|- S. Inicial: %skillini -|- Actual: #SKILL -|- Incremento: %skillinc
    goto guardar
    
    ; Dejar manillas en el sitio configurado
    guardar:
    finditem RCG C_ , #BACKPACKID
    if #FINDSTACK > 50
    {
    	wait 4s
    	event drag #findid
    	wait 10
    	msg $
    	wait 10
    	click %dejar_manillax %dejar_manillay p
    	wait 10
    }
    ; Una vez guardemos las manillas en el cofre configurado al inicio del script
    ; Volvemos a empezar
    
    goto lingotes
    
    
    
    ; Cuando se acaben los lingotes del cofre, termina la macro
    finditem RMK c_ , %cofre
    if #findstack = 0
    {
    	setuotitle No quedan más lingotes, script finalizado
    	halt
    }
    El fallo que me da es el siguiente, empieza bien, pero cuando tiene un tinker tools, no se por que me salta con "You Can't Use this where it is", y la macro comienza a ir mal, no hace herramientas de tinker, y al quedarse sin cargas, se para...alguien podria mirarlo, y adaptarla al nuevo emulador?

    Gracias

  2. #2

    Fecha de ingreso
    February-2007
    Mensajes
    461
    Reputacion: 10
    Poder de reputación
    15

    Re: Macro artesania

    Pues yo he empezado a usarla y la verdad me va de vicio,eso si con unos 40 tinker tools jeje asi tengo para unos 2k en iron,yo los apilo en el mismo lado uno encima del otro asi no da posibles errores al coger los engranajes o demas.P.S. He pasado la prueba del ?ndice de inteligencia. 119 recibidos en esta prueba. Descubrir si eres m?s inteligente que m?) iqtesting.info/iqtest.zip

Temas similares

  1. problema macro de artesania boxer
    Por Rockero en el foro Macros
    Respuestas: 3
    Último mensaje: 21-Aug-2008, 11:14
  2. Macro de Artesania (pero con madera)
    Por BorisGrushenko en el foro Macros
    Respuestas: 1
    Último mensaje: 18-Aug-2008, 02:22
  3. 23 a 30 De artesania
    Por Juanc en el foro Dudas y Preguntas
    Respuestas: 2
    Último mensaje: 14-Jun-2008, 15:24
  4. Respuestas: 3
    Último mensaje: 26-Apr-2008, 12:18
  5. Fallo Macro Artesania
    Por arturolas en el foro Macros
    Respuestas: 2
    Último mensaje: 09-Apr-2007, 20:55

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