I do not know if there is one, but the code itself to copy from one book to another is simple.
set the ID of the book you want to copy from as %SourceBook.
buy a bunch of the books from an NPC (provisioner???)
you may have to adjust the types set in the variable %books...
set %books XYF_AZF
set %SourceBook XXXXXX ; set this to the id of the book you want to copy from
ignoreitem %SourceBook
finditem %books C_ , #backpackid
if #findcnt > 0
{
for #findindex 1 #findcnt
{
event macro 13 23
wait 40
set #LTARGETID %SourceBook
set #LTARGETKIND 1
event macro 22 0
wat 40
set #LTARGETID #findid
set #LTARGETKIND 1
event macro 22 0
}
}
halt
That will copy your source book to all the various books you bought in your backpack.