Here in this topic I will show step by step how to make in 2-3 min about 200k gold, just with fresh made characters.
Ok lets start!
0.1 elf reset BOD books - what the hell is this?
(BOD = Bulk Order Deed)
First of all on Demise you can create 4 accounts with 7 characters on each account. Very important: the character that will be collecting bods must be an elf! Even if they are human it still works, but BODS that are collected by elf will be selling better and worth more gold.
0.1 - is amount of tailoring and blacksmith skills your collector will have (when you train skills first time, you give NPC 1 gold coin, and this will make 0.1 skill). No need to have more, with 0.1 skill you can collect BODs each hour, and the BODs are best for later filling and reset.
After your BOD collectors are ready, place them all on top of Luna Bank! Why? Because on top of Luna Bank you can instantly log in and log out, without waiting a lot of time. You can stay in one spot without moving, and take 2 BODs, one from tailor and one from smith.
If you have 28 collectors, and each one collects 2 BODs, you have 56 BODs, and this is about 200k in gold, farmed in 1-3 min, depends how good is your macro.
10 times you collect BODs with all characters, and you already have a full 500 BODs book! And this is already 1.5kk-2.5kk gold when you sell the book! (price can change, I give here the prices like they are now).
Here is a little UOSteam macro for taking 2 BODS when you stay on top of Luna Bank:
(select Wendy as tailor and Betty as Blacksmith)
Code: Select all
if not @findobject 'Tailor'
promptalias 'Tailor'
endif
if not @findobject 'Blacksmith'
promptalias 'Blacksmith'
endif
pause 100
if contextmenu 'Tailor' 1
waitforgump 'any' 15000
@replygump 'any' 1
endif
if contextmenu 'Blacksmith' 1
waitforgump 'any' 15000
@replygump 'any' 1
endif
pause 200
//logoutbutton
Buy for each character 2 bulk order books, name one book "bs" another book "tailor". Done! Run this macro, and all BODS will be sorted out in each book! You can wait till your backpack is full with BODs and then run this macro.
Macro for sorting out smith and tailor BODs into 2 different books, thanks Bama for sharing this macro!
Code: Select all
while @findtype 0x2259 'any' 'backpack'
waitforproperties 'found' 2000
if @property 'BS' 'found'
//msg a
setalias 'BS' 'found'
ignoreobject 'found'
else
setalias 'Tailor' 'found'
ignoreobject 'found'
endif
endwhile
while @findtype 0x2258 1102 'backpack'
@moveitem 'found' 'BS'
endwhile
while @findtype 0x2258 1155 'backpack'
@moveitem 'found' 'Tailor'
endwhile
pause 1500
clearignorelist
//logoutbutton
Macro to combine any number of books into one book (don't forget to have in a backpack only one type of books, because this macro is not using filters on a book). We don't want to mix BODs, because some players buying only tailor bods, another players buying only BS bods.
2 macros for combining any number of books (same type BODs) into one book, thanks MB for sharing this macro!
Code: Select all
//COMBINE ALL SMITH BOOKS IN PACK
clearignorelist
promptalias 'book1'
ignoreobject 'book1'
while @findtype '0x2259' 'any' 'backpack'
@setalias 'booktoempty' 'found'
if @property 'Deeds in Book' 'booktoempty' > 0
while @property 'Deeds in Book' 'booktoempty' > 0
useobject 'booktoempty'
waitforgump 0x54f555df 1500
while @property 'Deeds in Book' 'booktoempty' > 0 and @property 'Contents' 'backpack' < 123
if counttype 0x2258 1155 'backpack' > 0
sysmsg 'Tailor Bods! Stopping!' 34
stop
endif
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
endwhile
while counttype 0x2258 '1102' 'backpack' > 0
movetype 0x2258 'backpack' 'book1' [(0 0 0)] 1102
pause 100
endwhile
pause 550
endwhile
endif
ignoreobject 'booktoempty'
endwhile
//COMBINE ALL TAILOR BOOKS IN PACK
clearignorelist
promptalias 'book1'
ignoreobject 'book1'
while @findtype '0x2259' 'any' 'backpack'
@setalias 'booktoempty' 'found'
if @property 'Deeds in Book' 'booktoempty' > 0
while @property 'Deeds in Book' 'booktoempty' > 0
useobject 'booktoempty'
waitforgump 0x54f555df 1500
while @property 'Deeds in Book' 'booktoempty' > 0 and @property 'Contents' 'backpack' < 123
if counttype 0x2258 1102 'backpack' > 0
sysmsg 'Blacksmith Bods! Stopping!' 34
stop
endif
replygump 0x54f555df 5
waitforgump 0x54f555df 1500
endwhile
while counttype 0x2258 '1155' 'backpack' > 0
movetype 0x2258 'backpack' 'book1' [(0 0 0)] 1155
pause 100
endwhile
pause 550
endwhile
endif
ignoreobject 'booktoempty'
endwhile
If you have any questions about farming BODs, let me know.
If someone has better macros for collecting BODs, post them here!
Good luck!