Alguien Me Puede Facilitar Una Macros Para Hacer Engranajes?

[xmurdocx]

Necesito una macros para hacer engranajes que funcione y se bloquee al 100% de la skill

[Joseph]

Hola, yo tengo esta macro para hacer engranajes, pero no entiendo que quieres decir con que se bloquee a 100%, espero te sirva.

; Macro de Artesano by Asuma|Mordor.
display ok Macro by Asuma/Mordor.
chooseskill Tink Real
set %skill_ini #SKILL
set %herramienta GTL
set %engranaje_x 100
set %limite_engranaje 80
GoSub GetContenedor
wait 20
GoSub GetMochila
wait 1s
set #SYSMSGCOL 68
event sysmessage Comenzara la macro...
wait 1s
inicio:
chooseskill Tink Real
if #SKILL >= 100
{
stop
}
goSub CheckHerramientas
goSub HacerEngranaje
goSub Renovar_Titulo
goto inicio


; ************************ SUBS ************************
sub Renovar_Titulo
set %skill_gain #SKILL - %skill_ini
FINDITEM RCG C_ , %id_cofre
set %Engranajes_cofre #FINDSTACK
FINDITEM RCG C_ , #BACKPACKID
set %Engranajes_mochila #FINDSTACK
FINDITEM RMK C_ , #BACKPACKID
set %Hierro_mochila #FINDSTACK
FINDITEM RMK C_ , %id_cofre
set %Hierro_cofre #FINDSTACK
setuotitle | Skill Inicial : %skill_ini | Skill Actual : #skill | P. Ganados : %skill_gain | Engranajes Guardados : %Engranajes_cofre | Engranajes en mochila : %Engranajes_mochila | Lingotes en Mochila : %Hierro_mochila | Lingotes en Cofre : %Hierro_cofre
return

sub HacerEngranaje
goSub Reponer_Lingotes
FINDITEM RCG C_ , #BACKPACKID
IF #FINDSTACK >= %limite_engranaje
{
set #SYSMSGCOL 68
event sysmessage Guardando Engranajes...
event drag #FINDID
wait 20
key Enter
wait 20
click %cont_x %cont_y p
wait 10
event sysmessage Engranajes guardados.
}
finditem GTL C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 20
click 176 61 d
wait 20
click 102 63 d
wait 1s
return

sub CheckHerramientas
GoSub Reponer_Lingotes
FINDITEM %herramienta C_ , #BACKPACKID
IF #FINDCNT = 0
{
event sysmessage No tienes ningun instrumento en la mochila.
stop
}
IF #FINDCNT = 1
{
while #FINDCNT < 2
{
set #LOBJECTID #FINDID
event macro 17 0
wait 20
click 236 64 d
wait 20
click 267 67
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 235 63 d
FINDITEM %herramienta C_ , #BACKPACKID
wait 3s
}
}
return

sub Reponer_Lingotes
FINDITEM RMK C_ , #BACKPACKID
IF #FINDSTACK < 25
{
set #SYSMSGCOL 68
event sysmessage Reponiendo lingotes...
FINDITEM RMK C_ , %id_cofre
IF #FINDSTACK < 25
{
event sysmessage No hay mas lingotes.
stop
}
event Drag #FINDID
wait 20
key 1
wait 10
key 0
wait 10
key 0
wait 10
key enter
wait 10
click %mochila_x %mochila_y p
event sysmessage Lingotes repuestos.
wait 1s
}
return

sub GetContenedor
set #SYSMSGCOL 68
event sysmessage Abra el contenedor donde esten los lingotes, mantenga el cursor en ese lugar y presione ESC.
get_conte:
OnHotKey ESC
{
set %id_cofre #LOBJECTID
set %cont_x #CURSORX
set %cont_y #CURSORY
return
}
goto get_conte:
return

sub GetMochila
set #SYSMSGCOL 68
event sysmessage Coloque el cursor sobre la mochila de la foto de su personaje y presione ESC.
get_mochi:
OnHotKey ESC
{
set %mochila_x #CURSORX
set %mochila_y #CURSORY
return
}
goto get_mochi:
return


Un saludo

[adry_uo]

Lo que yo entiendo en que se bloque al 100% es que cuando tenga 100 de skill real la macro se pare para no gastar mas hierro verdad?

[Joseph]

Lo que quise decir es, que mas da que se pare al 100% o siga hasta que tu la pares, no gastas nada, transformas hierro en ganzuas, o las usas o las vendes, ya te he añadio para que se pare al 100%.

Un saludo

[Kisarath]

deberiais de agradecer tanta macro que os suben y os optimizan. GRACIAS Joseph

Un saludo

[Davlied]

Si gracias joseph tu eres de los pocos que siempre estan atentos a ayudar a los demas.

Copie tu macro y espero poder probarla cuando termine el sastre, aun asi se agradece tu gran aporte.



Saludos!!

[Joseph]

De nada a ambos, desagradecidos hay a puñaos, si necesitáis alguna que otra macro, na mas decirlo, xD

Saludos

[xmurdocx]

gracias x tu macros, pero al momento de hacer las cosas me dice comenzara la macros y se desactiva sola del easy uo, dime si le tengo que configurar algo plz

[xmurdocx]

muchas gracias, ya encontré una que me funciona muy bien es la misma, pero no se que modificación tiene que esa si me va aqui la dejo x si quieres mirarla




; Macro de Artesano by Asuma|Mordor.
display ok Macro by Asuma/Mordor.
chooseskill Tink Real
set %skill_ini #SKILL
set %herramienta GTL
set %botella_x 100
set %limite_botellas 20
GoSub GetContenedor
wait 20
GoSub GetMochila
wait 1s
set #SYSMSGCOL 68
event sysmessage Comenzara la macro...
wait 1s
inicio:
goSub CheckHerramientas
goSub HacerBotella
goSub Renovar_Titulo
goto inicio


; ************************ SUBS ************************
sub Renovar_Titulo
set %skill_gain #SKILL - %skill_ini
FINDITEM WUF C_ , %id_cofre
set %botellas_cofre #FINDSTACK
FINDITEM WUF C_ , #BACKPACKID
set %botellas_mochila #FINDSTACK
setuotitle | Skill Inicial : %skill_ini | Skill Actual : #skill | P. Ganados : %skill_gain | Botellas Guardadas : %botellas_cofre | Botellas en mochila : %botellas_mochila
return

sub HacerBotella
goSub Reponer_Lingotes
FINDITEM WUF C_ , #BACKPACKID
IF #FINDSTACK >= %limite_botellas
{
set #SYSMSGCOL 68
event sysmessage Guardando botellas...
event drag #FINDID
wait 20
key Enter
wait 20
click %cont_x %cont_y p
wait 10
event sysmessage Botellas guardadas.
}
FINDITEM %herramienta C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 20
click 195 80 d
wait 20
click %botella_x 80 d
wait 1s
return

sub CheckHerramientas
GoSub Reponer_Lingotes
FINDITEM %herramienta C_ , #BACKPACKID
IF #FINDCNT = 0
{
event sysmessage No tienes ningun instrumento en la mochila.
stop
}
IF #FINDCNT = 1
{
while #FINDCNT < 5
{
set #LOBJECTID #FINDID
event macro 17 0
wait 20
click 195 80 d
wait 20
click 267 67
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 235 80 d
FINDITEM %herramienta C_ , #BACKPACKID
}
}
return

sub Reponer_Lingotes
FINDITEM RMK C_ , #BACKPACKID
IF #FINDSTACK < 30
{
set #SYSMSGCOL 68
event sysmessage Reponiendo lingotes...
FINDITEM RMK C_ , %id_cofre
IF #FINDSTACK < 60
{
event sysmessage No hay mas lingotes.
stop
}
event Drag #FINDID
wait 20
key 6
wait 10
key 0
wait 10
key enter
wait 10
click %mochila_x %mochila_y p
event sysmessage Lingotes repuestos.
wait 1s
}
return

sub GetContenedor
set #SYSMSGCOL 68
event sysmessage Abra el contenedor donde esten los lingotes, mantenga el cursor en ese lugar y presione ESC.
get_conte:
OnHotKey ESC
{
set %id_cofre #LOBJECTID
set %cont_x #CURSORX
set %cont_y #CURSORY
return
}
goto get_conte:
return

sub GetMochila
set #SYSMSGCOL 68
event sysmessage Coloque el cursor sobre la mochila de la foto de su personaje y presione ESC.
get_mochi:
OnHotKey ESC
{
set %mochila_x #CURSORX
set %mochila_y #CURSORY
return
}
goto get_mochi:
return

[Joseph]

La he mirado por encima y lo que en principio veo es que esa es para hacer botellas, aunque en el sub de hacerbotella no he probado si hace botellas o ganzúas, pero si te va bien...., es el mismo autor, referido al tema que se te cierra, no se, a mi me funciona bien, aunque ya no uso esa, la he modificado en parte, otra cosa, yo uso el client 5.0.9.

; Macro by JoSePh
; Tinker, Ganzúas.
; Client 5.0.9, EasyUO 1.5 V.148

display ok Macro by JoSePh
set %herramienta GTL
set %limite_producto 30
set #SYSMSGCOL 60
GoSub GetContenedor
wait 10

inicio:
gosub Reponer_material
goSub CheckHerramientas
goSub HacerProducto
goto inicio

sub HacerProducto

goSub Reponer_material
FINDITEM RGC C_ , #BACKPACKID
IF #FINDSTACK >= %limite_producto
{
exevent drag #FINDID #FINDSTACK
wait 5
exevent dropc %id_cofre
wait 5
}
finditem %herramienta C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click 237 63 d ; engranajes 174 63
wait 10
click 67 63 d ; botellas: 103 63 ; engranajes 106 63
wait 2s
return

sub CheckHerramientas

GoSub Reponer_material
FINDITEM %herramienta C_ , #BACKPACKID
IF #FINDCNT =< 1
{
set #LOBJECTID #FINDID
event macro 17 0
wait 10
click 236 64 d
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 235 63 d
wait 3s
goto inicio
}
return

sub Reponer_material

FINDITEM RMK C_ , #BACKPACKID
IF #FINDSTACK < 25
{
FINDITEM RMK C_ , %id_cofre
exevent drag #FINDID 100
wait 5
exevent dropc #BACKPACKID
wait 5
}
return

sub GetContenedor

event sysmessage Abre el cofre del material, sitúa el cursor encima y pulsa ESC
get_conte:
OnHotKey ESC
{
set %id_cofre #LOBJECTID
set %cont_x #CURSORX
set %cont_y #CURSORY
return
}
goto get_conte:



Pd: las coordenadas de los clicks para hacer el producto y la herramienta son al 100%, tendrás que modificarlas si tienes el pj a menos %

Saludos

[Kobrichs]

no me rula ninguna para hacer engranajes...