Housing
Vendor Scavenger.razor
1# This is an automated backup - check out https://outlands.uorazorscripts.com/script/48902e43-fd1f-4441-9030-d23b580eec7c for latest2# Automation by Jaseowns3## Script: Vendor Scavenger4## Created by: AreYouKidden=2#04035#############################################6 7@setvar 'PauseTime' 7508if not listexists 'ScavItems'9 createlist 'ScavItems'10endif11clearlist 'ScavItems'12//Reagents13pushlist 'ScavItems' '0xf7b' 'back'14pushlist 'ScavItems' '0xf7a' 'back'15pushlist 'ScavItems' '0xf86' 'back'16pushlist 'ScavItems' '0xf8c' 'back'17pushlist 'ScavItems' '0xf85' 'back'18pushlist 'ScavItems' '0xf84' 'back'19pushlist 'ScavItems' '0xf8d' 'back'20pushlist 'ScavItems' '0xf88' 'back'21//Bottles, Scrolls, Arrows, Bolts22pushlist 'ScavItems' '0xf0e' 'back'23pushlist 'ScavItems' '0xef3' 'back'24pushlist 'ScavItems' '0xf3f' 'back' 25pushlist 'ScavItems' '0x1bfb' 'back'26//Bolts of Cloth27pushlist 'ScavItems' '0xf95' 'back'28if not listexists 'ScavAnimals'29 createlist 'ScavAnimals'30endif31foreach x in 'ScavAnimals'32 if not find 'x'33 overhead 'ScavAnimal List cleared'34 clearlist 'ScavAnimals'35 endif36endfor37pause 25038if list 'ScavAnimals' < 139 overhead 'Scanning for PackAnimals'40 while findtype 0x0123|0x0124 'ground' 'any' 'any' 2 as 'found' 41 pushlist 'ScavAnimals' 'found' front42 ignore 'found'43 endwhile44 clearignore45endif46foreach 'x' in 'ScavItems'47 while findtype 'x' ground any any 2 as groundItem48 foreach 'y' in 'ScavAnimals'49 @setvar 'CurrPacky' 'y'50 break51 endfor52 @poplist 'ScavAnimals' 'CurrPacky'53 @pushlist 'ScavAnimals' 'CurrPacky' 'back'54 55 lift groundItem 999956 overhead 'CurrPacky'57 drop 'CurrPacky' -1 -1 058 wait 'PauseTime'59 endwhile60endfor61foreach 'x' in 'ScavItems'62 while findtype 'x' backpack any any 1 as groundItem63 foreach 'y' in 'ScavAnimals'64 @setvar 'CurrPacky' 'y'65 break66 endfor67 @poplist 'ScavAnimals' 'CurrPacky'68 @pushlist 'ScavAnimals' 'CurrPacky' 'back'69 70 lift groundItem 999971 overhead 'CurrPacky'72 drop 'CurrPacky' -1 -1 073 wait 'PauseTime'74 endwhile75endfor