Restock Quick by AreYouKidden🐲
Description: Fully Auto Restock agent, finding and using Storage Shelves, Item Recyclers, Resource Containers, all your Tomes that are available. To configure follow the instructions at the top, you'll need to replace all container ID's, with your own container ID's that you'll need open to access additional containers inside (put them in order of nesting).
Uses RestockAgent 1 for scribe spell scrolls, and will search for satchels if you are wearing them to remove satchel, put scrolls in, and re-equip it.
1//Scroll Container & Restock Agent
2# if not 1 - change
3# Set Restock HotBag-01 below to match.
4@setvar 'RestockAgent' 1
5@setvar 'ScrollContainer' 0x40680C8A
6
7//create list of containers to open for organizers to use
8removelist 'Containers'
9createlist 'Containers'
10pushlist 'Containers' 0x40E56A55
11pushlist 'Containers' 0x43C3870D
12pushlist 'Containers' 0x4117D4DE
13pushlist 'Containers' 0x40A46C89
14
15//create list of organizer agents
16removelist 'OrgAgents'
17createlist 'OrgAgents'
18pushlist 'OrgAgents' 6
19pushlist 'OrgAgents' 7
20pushlist 'OrgAgents' 8
21
22//create list of Tome Colors
23removelist 'TomeColors'
24createlist 'TomeColors'
25pushlist 'TomeColors' 2618
26pushlist 'TomeColors' 2963
27pushlist 'TomeColors' 2990
28pushlist 'TomeColors' 1495
29pushlist 'TomeColors' 1494
30pushlist 'TomeColors' 2085
31pushlist 'TomeColors' 2796
32pushlist 'TomeColors' 2651
33pushlist 'TomeColors' 2722
34pushlist 'TomeColors' 2799
35pushlist 'TomeColors' 2091
36
37removelist 'StorageTomes'
38createlist 'StorageTomes'
39
40if skill 'Musicianship' > 25
41 if not find 'MyInstrument' 'backpack'
42 overhead 'Choose your current instrument' 48
43 setvar 'MyInstrument'
44 dclick 'MyInstrument'
45 endif
46endif
47
48overhead 'Finding Shelf, Container, Recycler...' 48
49if findtype '44997' ground any any 2 as SShelf
50 setvar 'Storage Shelf' SShelf
51endif
52if findtype '23035' ground any any 2 as RContainer
53 setvar 'Resource Container' RContainer
54endif
55if findtype '11761' ground any any 2 as IRecycler
56 setvar 'Item Recycler' IRecycler
57endif
58
59if not hidden 'self'
60 skill 'Hiding'
61 pause 500
62endif
63
64overhead 'Finding Tomes on ground...' 48
65foreach x in 'TomeColors'
66 if findtype '29104' ground x any 2 as Book
67 overhead 'x'
68 pushlist 'StorageTomes' Book
69 endif
70endfor
71
72overhead 'Finding Tomes in containers...' 48
73foreach x in 'Containers'
74 if find 'x' 'ground'
75 dclick x
76 pause 750
77 foreach y in 'TomeColors'
78 if findtype '29104' x y any 2 as STome
79 overhead 'y'
80 pushlist 'StorageTomes' STome
81 endif
82 endfor
83 endif
84endfor
85
86overhead 'Using Storage Tomes...' 48
87foreach x in 'StorageTomes'
88 menu x 0
89 pause 250
90endfor
91
92overhead 'Using Shelf, Container, Recyler...' 48
93if find 'Storage Shelf' 'ground' 'any' 'any' 2
94 menu 'Storage Shelf' 0
95 wft 5000
96 target 'self'
97 pause 500
98 gumpclose 'Storage Shelf'
99endif
100
101if find 'Resource Container' 'ground' 'any' 'any' 2
102 menu 'Resource Container' 0
103 wft 5000
104 target 'self'
105 pause 500
106 gumpclose 'Resource Container'
107endif
108if find 'Item Recycler' 'ground' 'any' 'any' 2
109 dclick 'Item Recycler'
110 pause 500
111 gumpresponse 3
112 waitfortarget 5000
113 target 'self'
114 pause 500
115 gumpclose 'Item Recycler'
116endif
117if find 'Storage Shelf' 'ground' 'any' 'any' 2
118 menu 'Storage Shelf' 1
119 pause 500
120endif
121
122overhead 'Using Organizers...' 48
123foreach x in 'OrgAgents'
124 organizer x
125 pause 100
126 while queued
127 endwhile
128endfor
129
130overhead 'Finishing UP...' 48
131if findlayer 'self' 'outerbody' as 'found' or findtype 30765 'self' as 'found'
132 overhead 'Satchel Found' 33
133 setvar 'satchel' 'found'
134 hotkey 'Grab Item'
135 wft 200
136 target 'satchel'
137 pause 200
138endif
139
140if skill 'Inscription' > 50
141 hotkey 'Set Restock HotBag-01'
142 wft 200
143 target 'satchel'
144 pause 500
145 restock 'RestockAgent'
146 waitfortarget 5000
147 target 'ScrollContainer'
148 pause 500
149endif
150
151if not findbuff 'Food Satisfaction'
152 overhead 'Eat some Food!!' 32
153 overhead 'Eat some Food!!' 32
154endif
155
156if skill 'Camping' > 0
157 if not findbuff 'Campfire Visit'
158 dclicktype 'kindling'
159 endif
160endif
161
162if skill 'Musicianship' > 25
163 hotkey 'Grab Item'
164 wft 200
165 target 'MyInstrument'
166endif
167
168if find 'satchel' 'self'
169 pause 1000
170 while queued
171 endwhile
172 pause 500
173 lift 'satchel'
174 pause 500
175 drop 'self' 'FirstValid'
176 pause 500
177 dclick 'satchel'
178endif