j_monroy
Squire
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:
Enjoy!
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
Code:
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!