Vendor Scavenger Empty by AreYouKidden🐲
Description from the author:
@setvar 'PauseTime' 750
if not listexists 'ScavAnimals'
createlist 'ScavAnimals'
endif
foreach x in 'ScavAnimals'
if not find 'x' 'ground'
overhead 'ScavAnimal List cleared'
clearlist 'ScavAnimals'
endif
endfor
if list 'ScavAnimals' < 1
overhead 'Scanning for PackAnimals'
while findtype 0x0123|0x0124 'ground' 'any' 'any' 2 as 'found'
pushlist 'ScavAnimals' 'found' front
ignore 'found'
endwhile
clearignore
endif
if not find 'ScavShelf' 'ground'
overhead 'Select Storage Shelf'
setvar 'ScavShelf'
endif
foreach x in 'ScavAnimals'
overhead 'x'
menu 'ScavShelf' 0
waitfortarget
target 'x'
pause 'PauseTime'
endforUsed with 1-5 pack animals, to empty them into a storage shelf. Use when beside a storage shelf, it'll ask you to select shelf first time or if it cannot find it when you are near it.