La he pulido algo y tal, pero no la testee, asi que no se si va, asi que espero que digas si funciona o no cuando la pruebes, mira las notas ke te puse a lo largo de la macro con flechas y tal, este es un ejemplo de macro muy basico con el que se puede aprender mucho, ahi va:
Código:
;==============================================================================================
;= Trainear Heal: =============================================================================
;==============================================================================================
;Corrección final by BoXeR.
;EXPLICACION:
;El funcionamiento de la macro es muy simple, cuando no le queda ninguna venda
;en la mochila, coje 500 unidades de la bolsa del
;suelo, y en cuanto dicha bolsa tenga menos de 500 unidades
;la macro se para sola:
;==============================================================================================
;CONFIGURAR:
set %vendas ZLF ; <<<<---------<<<<<<<<< En mayusculas tal cual l olees en el easyuo.
set %vendassuciasid ;Añadido
set %cofrex ;Añadido
set %cofrey ;Añadido
set %mochilax 818
set %mochilay 754
set %bolsa AWKCQND ; <<<<---------<<<<<<<<< En mayusculas tal cual lo lees en el easyuo.
;==============================================================================================
;= No tocar nada a partir de aquí: ============================================================
;==============================================================================================
event sysmessage - Arrancando los motores -
chooseskill heal real
set %skillini #SKILL
Comienzo:
set %skillinc #SKILL - %skillini
findItem zlf C_ , #BACKPACKID
set %vendas #FINDSTACK
findItem zlf C_ , %bolsa
set %vendasbolsa #FINDSTACK
{
setuotitle ----------------------< | Habilidad de curar | Skill Inicial:: %skillini | Skill Actual: #SKILL | Skill Incremento: %skillinc | vendas: %vendas | vendas bolsa: %vendasbolsa | >----------------------
}
finditem %vendas c_ , #backpackid
if #FINDSTACK = 0
{
gosub Dejar
wait 10
gosub cojer
}
if #hits < #MAXHITS
{
Curar:
finditem ZLF c_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 1s
event macro 23 0
wait 1s
scanjournal 1 ; <<<---------<<<<<<<<<< Leera la 1º linea del diario
if fallas in #journal
{
GoTo Curar:
}
deletejournal
wait 6s
}
goto Comienzo
;==============================================================================================
;= SUBS =======================================================================================
;==============================================================================================
sub Dejar
{
msg Dejando las vendas sucias $
finditem %vendassuciasid c_ , #BACKPACKID
event drag #findid
wait 20
msg $
wait 20
click %cofrex %cofrey
wait 1s
return
}
;==============================================================================================
sub cojer
{
msg Cojiendo las vendas limpias $
finditem %vendas c_ , %bolsa
if #findstack < 500
{
halt
}
event drag #findid
wait 20
msg 500 $
wait 20
click %mochilax %mochilay
wait 2s
return
}
;==============================================================================================
;= FIN ========================================================================================
;==============================================================================================