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