Macro para hacer engranajes

[Amon Amarth]

Hola, pues eso busco una macro que haga engranajes, me da igual que coja el hierro, herramientas... Mientras haga

[Romasanta]

;===========================
=========CONFIGURAR=========
set %producto 1 ; 1.- engranajes 2.- ganzuas
set %bolsa HZUFIQD
set %limite_producto 30
============================
set %producto_guardar RCG_NWH
set %hierro RMK
set %herramienta GTL
set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF
+_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD_GQE_HND
initevents
display Comienza la Macro!!
inicio:
gosub Herramientas
gosub HacerProducto
goto inicio
sub Herramientas ;<=========================>
ciclo:
gosub ReponerMaterial
FINDITEM %herramienta C_ , #BACKPACKID
IF #FINDCNT < 3
{
set #LOBJECTID #FINDID
event macro 17
wait 10
click 70 170
wait 10
click 430 350
wait 10
click 270 190
wait 5s
goto ciclo
}
return
sub HacerProducto ;<=========================>
FINDITEM %producto_guardar C_ , #BACKPACKID
IF #FINDSTACK >= %limite_producto
{
exevent drag #FINDID #FINDSTACK
exevent dropc %bolsa
wait 20
gosub comer
}
gosub ReponerMaterial
finditem %herramienta C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
if %producto = 1
{
click 70 150
wait 10
click 270 150
wait 4s
}
if %producto = 2
{
click 70 170
wait 10
click 270 150
wait 4s
}
return
sub ReponerMaterial ;<=========================>
finditem %hierro C_ , #BACKPACKID
IF #FINDSTACK < 5
{
finditem %hierro C_ , %bolsa
exevent drag #FINDID 50
exevent dropc #BACKPACKID
wait 20
}
return
sub comer ;<=========================>
finditem %comida C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
return

[Amon Amarth]

Gracias tío