Pode ser necessário a alteração da mensagem de sucesso do macro, marcada em vermelho. No meu caso como estava usando em um Horse , coloquei essa mensagem, em caso de outro animal será necessário alterar.
clearjournal
if not @findobject 'animal'
headmsg 'Selecione o animal para verificar.'
promptalias 'animal'
pause 5000
endif
autotargetobject 'animal'
useskill 'Animal Lore'
while not @injournal
'is a Horse'
and not @injournal 'think' 'system'
pause 100
endwhile
clearjournal
if not @findobject 'animal'
headmsg 'Selecione o animal para verificar.'
promptalias 'animal'
pause 5000
endif
autotargetobject 'animal'
useskill 'Animal Lore'
while not @injournal
'is a Horse'
and not @injournal 'think' 'system'
pause 100
endwhile