Simplemente agregan el siguiente código al final de la macro.

Código:
sub ComerPeras
set %a_id #LOBJECTID
FINDITEM YSD C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
set #LOBJECTID %a_id
return
Cada vez que quieran que el PJ coma una pera escriben esto:
Código:
gosub ComerPeras
Salu2