set %comida QQD
set %idbicho YZZPV

inicio:
gosub comer
gosub limpiavendas
gosub curar


;*************************************************
;                     COMER
;*************************************************
sub comer
findItem %comida C_ , #BACKPACKID
if #findcnt > 0
{
set #LOBJECTID #FINDID
event macro 17
}
return

;*************************************************
;               LIMPIAR VENDAS
;*************************************************
sub limpiavendas
finditem AMF c_ , #BACKPACKID
if #findstack >= 10
{
set #LOBJECTID #FINDID
event macro 17 0
target
finditem QEE_TEE_WEE_VEE c_ , #BACKPACKID
set #LTARGETID #FINDID
event macro 22
}
return

;*************************************************
;                 CURAR A BICHO
;*************************************************
sub curar
set #LTARGETID %idbicho
msg .vendas $
target
event macro 22
wait 10
scanjournal
if aplicas_las_vendas in #journal || curas in #journal || aplicas_las in #journal || pones_el in #journal
{
wait 10s
}
if no_necesita_curarse in #journal || no_necesitas in #journal || you_can in #journal || estas_demasiado in #journal
{
goto inicio
}