Macro Artesano

[alfredo1992]

Os dejo esta Macro. Solo necesitais Hierro en la bolsa que configureis. Con no mas de 3k de hierro la subis a 100 ya que solo gasta el hierro en crear las herramientas de artesano. Los engranajes los funde para recuperar el hierro.

=========CONFIGURAR=========
set %cofre HINCEPD
=============================
set %numero_engranajes 1
set %engranajes RCG
set %HerramientasArtesano GTL
set %hierro RMK
set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE , _BDF_TQE_KPE_QQD_RQE_SQD_SPE_JQE_ZPE_IQE_YSD

initevents

inicio:
gosub hierro
Gosub CompruebaHerramientas
gosub engranajes
goto inicio

sub hierro ;<=======================> NO TOCAR
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
   set #LOBJECTID #FINDID
   event macro 17
}
finditem %hierro C_ , #BACKPACKID
if #FINDSTACK < 10
{
finditem %hierro C_ , %cofre
exevent drag #FINDID 50
exevent dropc #BACKPACKID
wait 20
}
return


sub engranajes ;<=======================>
finditem %HerramientasArtesano C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 65 150
wait 10
click 270 150
wait 10
for %i 1 15
{
wait 10
if Pones_ in #SYSMSG
goto sigue
}

sigue:
finditem %engranajes C_ , #BACKPACKID
if #FINDCNT => %numero_engranajes
gosub fundirengranajes
return
sub fundirengranajes ;<=======================>
finditem %hierro C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 69 423
finditem %engranajes C_ , #BACKPACKID
if #FINDCNT > 0
{
set #LTARGETID #FINDID
set #LTARGETKIND 1
event macro 22
wait 10
goto sigue
}
key esc
click 277 200 r
return

Sub CompruebaHerramientas
{
FindItem %HerramientasArtesano C_ , #BackPackId
 if #FindCnt < 2
 {
 Gosub ReponeHerramientas
 }
 Return
}

Sub ReponeHerramientas
finditem %herramientasartesano C_ , #BackpaCkid
set #lobjectid #findid
event macro 17
wait 20
click 65 171
wait 10
click 434 350
wait 10
click 273 191
for %i 1 15
{
wait 10
if Pones_ in #SYSMSG
return
}