Back to "ayk" tags

Vendor Scavenger Empty by AreYouKidden🐲

Description: Used 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.

1@setvar 'PauseTime' 750
2if not listexists 'ScavAnimals'
3    createlist 'ScavAnimals'
4endif
5foreach x in 'ScavAnimals'
6   if not find 'x' 'ground'
7    overhead 'ScavAnimal List cleared'
8    clearlist 'ScavAnimals'
9   endif
10endfor
11if list 'ScavAnimals' < 1
12    overhead 'Scanning for PackAnimals'
13    while findtype 0x0123|0x0124 'ground' 'any' 'any' 2 as 'found' 
14        pushlist 'ScavAnimals' 'found' front
15        ignore 'found'
16    endwhile
17    clearignore
18endif
19if not find 'ScavShelf' 'ground'
20    overhead 'Select Storage Shelf'    
21    setvar 'ScavShelf'
22endif
23foreach x in 'ScavAnimals'
24    overhead 'x'
25    menu 'ScavShelf' 0
26    waitfortarget
27    target 'x'
28    pause 'PauseTime'
29endfor