deathviper
Sorceror
Tailor - I modified Kraz's long ago not the cleanest but I never went back to clean it up. I have turned in many hundreds of thousands of bods with it. If you have timing issues you might have to adjust some pauses for latency.
You do need to be within distance of the trash can to throw shoes away.
// Modified By Deathviper Guts by: Kraz
// Description: Tailoring BOD Delivery
//UNSETALIAS's
unsetalias 'BOD Source'
unsetalias 'BOD Destination'
unsetalias 'Tailor'
unsetalias 'DumpGoldClothBag'
unsetalias 'TrashCan'
if not @findobject 'BOD Source'
promptalias 'BOD Source'
endif
if not @findobject 'BOD Destination'
promptalias 'BOD Destination'
endif
if not @findobject 'Tailor'
promptalias 'Tailor'
endif
if not @findobject 'DumpGoldClothBag'
promptalias 'DumpGoldClothBag'
endif
if not @findobject 'TrashCan'
promptalias 'TrashCan'
endif
for 0 to 20000000
if not timerexists 'Delivery'
settimer 'Delivery' 5000
endif
// Check if NPC is in range
while not @inrange 'Tailor' 2
sysmsg 'Tailor is too far away.'
pause 2500
endwhile
//world save 'The world will save in 10 seconds.'
if @injournal '10 seconds.' 'system'
replygump 0x54f555df 0
// msg 'The book is empty!'
sysmsg 'World Saving, Pausing Script'
pause 30000
clearjournal
else
endif
if timer 'Delivery' >= 5000
// Search new BOD to deliver
if @feed 'Tailor' 0x2258
//changed from 250
waitforcontext 'Tailor' 1 1500
//changed from 250
waitforgump 'any' 1500
//sean added slight pause
pause 1000 //changed from 250
replygump 'any' 1
// Rewards
pause 1000
//move gold to bank box
@movetype 0xeed 'backpack' 'bank'
pause 1000
//find cloth
if @findtype 0x1767 '1151' 'backpack' or @findtype 0x1767 '1154' 'backpack'
while @findtype 0x1767 'any' 'backpack'
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
endwhile
endif
if @findtype 0x1767 '1266' 'backpack'
while @findtype 0x1767 'any' 'backpack'
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
endwhile
endif
if @findtype 0x1767 '1150' 'backpack' or @findtype 0x1767 '1161' 'backpack'
while @findtype 0x1767 'any' 'backpack'
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
else
while @findtype 0x1767 'any' 'backpack'
//use dye tub on cloth
if @usetype! 0xfab
waitfortarget 1500
target! 'found'
endif
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
endwhile
endif
//sean add below to move items to clothbag
//sewing kits
if @findtype 0xf9d
// Move all existing BODs into the BOB
while @findtype 0xf9d 'any' 'backpack'
moveitem 'found' 'DumpGoldClothBag'
pause 800
endwhile
endif
//Checks
if @findtype 0x14f0
// Move all existing BODs into the BOB
while @findtype 0x14f0 'any' 'backpack'
moveitem 'found' 'DumpGoldClothBag'
pause 800
//double click check to make gold
usetype 0x14f0 52 'DumpGoldClothBag'
endwhile
endif
//Trash Shoes
if @findtype 0x170d
while @findtype 0x170d 'any' 'backpack'
// moveitemoffset 'found' 'ground' 1 0 0
moveitem 'found' 'TrashCan'
pause 800
endwhile
endif
//sean add above to move items to clothbag
@movetype 0x2258 'backpack' 'BOD Destination'
pause 1000
//close bod gump
replygump 0x54f555df 0
settimer 'Delivery' 0
elseif not property 'Deeds In Book: 0' 'BOD Source'
useobject! 'BOD Source'
waitforgump 0x54f555df 15000
replygump 0x54f555df 5
//added pause sean might not need
pause 500
//close bod gump
replygump 0x54f555df 0
pause 1000
else
sysmsg 'No more BODs to deliver!' 25
stop
endif
endif
endfor
You do need to be within distance of the trash can to throw shoes away.
// Modified By Deathviper Guts by: Kraz
// Description: Tailoring BOD Delivery
//UNSETALIAS's
unsetalias 'BOD Source'
unsetalias 'BOD Destination'
unsetalias 'Tailor'
unsetalias 'DumpGoldClothBag'
unsetalias 'TrashCan'
if not @findobject 'BOD Source'
promptalias 'BOD Source'
endif
if not @findobject 'BOD Destination'
promptalias 'BOD Destination'
endif
if not @findobject 'Tailor'
promptalias 'Tailor'
endif
if not @findobject 'DumpGoldClothBag'
promptalias 'DumpGoldClothBag'
endif
if not @findobject 'TrashCan'
promptalias 'TrashCan'
endif
for 0 to 20000000
if not timerexists 'Delivery'
settimer 'Delivery' 5000
endif
// Check if NPC is in range
while not @inrange 'Tailor' 2
sysmsg 'Tailor is too far away.'
pause 2500
endwhile
//world save 'The world will save in 10 seconds.'
if @injournal '10 seconds.' 'system'
replygump 0x54f555df 0
// msg 'The book is empty!'
sysmsg 'World Saving, Pausing Script'
pause 30000
clearjournal
else
endif
if timer 'Delivery' >= 5000
// Search new BOD to deliver
if @feed 'Tailor' 0x2258
//changed from 250
waitforcontext 'Tailor' 1 1500
//changed from 250
waitforgump 'any' 1500
//sean added slight pause
pause 1000 //changed from 250
replygump 'any' 1
// Rewards
pause 1000
//move gold to bank box
@movetype 0xeed 'backpack' 'bank'
pause 1000
//find cloth
if @findtype 0x1767 '1151' 'backpack' or @findtype 0x1767 '1154' 'backpack'
while @findtype 0x1767 'any' 'backpack'
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
endwhile
endif
if @findtype 0x1767 '1266' 'backpack'
while @findtype 0x1767 'any' 'backpack'
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
endwhile
endif
if @findtype 0x1767 '1150' 'backpack' or @findtype 0x1767 '1161' 'backpack'
while @findtype 0x1767 'any' 'backpack'
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
else
while @findtype 0x1767 'any' 'backpack'
//use dye tub on cloth
if @usetype! 0xfab
waitfortarget 1500
target! 'found'
endif
@moveitem 'found' 'DumpGoldClothBag'
pause 1000
endwhile
endif
//sean add below to move items to clothbag
//sewing kits
if @findtype 0xf9d
// Move all existing BODs into the BOB
while @findtype 0xf9d 'any' 'backpack'
moveitem 'found' 'DumpGoldClothBag'
pause 800
endwhile
endif
//Checks
if @findtype 0x14f0
// Move all existing BODs into the BOB
while @findtype 0x14f0 'any' 'backpack'
moveitem 'found' 'DumpGoldClothBag'
pause 800
//double click check to make gold
usetype 0x14f0 52 'DumpGoldClothBag'
endwhile
endif
//Trash Shoes
if @findtype 0x170d
while @findtype 0x170d 'any' 'backpack'
// moveitemoffset 'found' 'ground' 1 0 0
moveitem 'found' 'TrashCan'
pause 800
endwhile
endif
//sean add above to move items to clothbag
@movetype 0x2258 'backpack' 'BOD Destination'
pause 1000
//close bod gump
replygump 0x54f555df 0
settimer 'Delivery' 0
elseif not property 'Deeds In Book: 0' 'BOD Source'
useobject! 'BOD Source'
waitforgump 0x54f555df 15000
replygump 0x54f555df 5
//added pause sean might not need
pause 500
//close bod gump
replygump 0x54f555df 0
pause 1000
else
sysmsg 'No more BODs to deliver!' 25
stop
endif
endif
endfor
Last edited: