Script to combine multiple books (up to 5)

[j_monroy]

Hey all,

So if you're like me, you often collect bods until you get a certain amount in each character. I typically collect until each of my characters has 100 tailor and 100 blacksmith bods. This makes it easy to combine by collecting 5 books of each type, knowing it'll make a full book. However, I often collect all of these books and combine them when I don't want to invest too much time or am doing something else that takes up too much attention. I have created a script that does the following things:

• Prompts destination book
• Prompts book 1
• Prompts book 2
• Prompts book 3
• Prompts book 4
• Pulls all bods from book 1 to destination book
• Pulls all bods from book 2 to destination book
• Pulls all bods from book 3 to destination book
• Pulls all bods from book 4 to destination book
• Unsets all books

So far, this has worked perfectly, so I wanted to upload it to forums in case anyone is feeling particularly lazy and wants to try it out. Let me know if you have any feedback for shortening the code to make a more versatile script.

if not @findalias 'destination book'
  promptalias 'destination book'
endif
if not @findalias 'book 1'
  promptalias 'book 1'
endif
if not @findalias 'book 2'
  promptalias 'book 2'
endif
if not @findalias 'book 3'
  promptalias 'book 3'
endif
if not @findalias 'book 4'
  promptalias 'book 4'
endif
if @findtype 0x2258 'any' 'backpack'
  @setalias 'bod' 'found'
  @moveitem 'bod' 'destination book'
elseif not property 'Deeds In Book: 0' 'Book 1'
  pause 500
  useobject! 'Book 1'
  waitforgump 0x54f555df 3000
  replygump 0x54f555df 5
  waitforgump 0x54f555df 1500
elseif not property 'Deeds In Book: 0' 'Book 2'
  pause 500
  useobject! 'Book 2'
  waitforgump 0x54f555df 3000
  replygump 0x54f555df 5
  waitforgump 0x54f555df 1500
elseif not property 'Deeds In Book: 0' 'Book 3'
  pause 500
  useobject! 'Book 3'
  waitforgump 0x54f555df 3000
  replygump 0x54f555df 5
  waitforgump 0x54f555df 1500
elseif not property 'Deeds In Book: 0' 'Book 4'
  pause 500
  useobject! 'Book 4'
  waitforgump 0x54f555df 3000
  replygump 0x54f555df 5
  waitforgump 0x54f555df 1500
else
  sysmsg 'No BODs to fill.'
  @unsetalias 'destination book'
  @unsetalias 'Book 1'
  @unsetalias 'Book 2'
  @unsetalias 'Book 3'
  @unsetalias 'Book 4'
  stop
endif

Enjoy!

 

[MB]

Here's mine for some ideas
http://pastebin.com/raw/ysvPpQrR

 

[MB]

Split a Tailor/Smith Mixed Book

http://pastebin.com/raw/7ayAzSKW