Bestiary Prof 1.0 by AreYouKidden🐲
Description: Set up Bestiary Profiles for your different pets, so you can swap pets, and swap bestiary points in a breeze!
1# Bestiary Prof 1.0
2# For Each Profile, you will need to set up the Tier list below
3# for each option in the Bestiary.
4
5#set a higher pause time if script is failing due to timers
6@setvar 'PauseTime' 250
7
8# Example Profiles Below designed on 20 Max points
9# Set your desired profile then run.
10@setvar 'Profile' 4
11
12#1 - Attack
13#2 - Utility
14#3 - Tank
15#4 - Sun Wyrm
16
17@removelist 'Tier'
18@createlist 'Tier'
19
20#1 - ATTACK
21if 'Profile' = 1 then
22 # Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
23 @setvar 'Class' '3'
24 # ATTACK CLASS
25 # Ambush, Cornered, Feed, Feral
26 pushlist 'Tier' '0'
27 pushlist 'Tier' '3'
28 pushlist 'Tier' '0'
29 pushlist 'Tier' '0'
30 # Hunting Party, Immolate, Lethality, Menagerie
31 pushlist 'Tier' '0'
32 pushlist 'Tier' '0'
33 pushlist 'Tier' '3'
34 pushlist 'Tier' '0'
35 # Mutation, Pelt, Primal, Swarm
36 pushlist 'Tier' '3'
37 pushlist 'Tier' '1'
38 pushlist 'Tier' '0'
39 pushlist 'Tier' '1'
40endif
41
42#2 - UTILITY
43if 'Profile' = 2 then
44 # Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
45 @setvar 'Class' '4'
46 # UTILITY CLASS
47 # MBeast Sting, Breaker, Carrion, Contagion
48 pushlist 'Tier' '1'
49 pushlist 'Tier' '3'
50 pushlist 'Tier' '1'
51 pushlist 'Tier' '0'
52 # Debilitate, Frostbite, Metabolism, Opportunity
53 pushlist 'Tier' '3'
54 pushlist 'Tier' '0'
55 pushlist 'Tier' '0'
56 pushlist 'Tier' '0'
57 # Punishment, Scour, Swoop, Toxic
58 pushlist 'Tier' '3'
59 pushlist 'Tier' '0'
60 pushlist 'Tier' '0'
61 pushlist 'Tier' '0'
62endif
63
64#3 - TANK
65if 'Profile' = 3 then
66 # Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
67 @setvar 'Class' '5'
68 # TANK CLASS
69 # Adrenaline, Aggression, Behemoth, Critical Care
70 pushlist 'Tier' '0'
71 pushlist 'Tier' '3'
72 pushlist 'Tier' '0'
73 pushlist 'Tier' '0'
74 # Deflection, Guardian, Hearty, Mending
75 pushlist 'Tier' '3'
76 pushlist 'Tier' '0'
77 pushlist 'Tier' '1'
78 pushlist 'Tier' '0'
79 # Stalwart, Survival, Tolerance, Trample
80 pushlist 'Tier' '3'
81 pushlist 'Tier' '0'
82 pushlist 'Tier' '0'
83 pushlist 'Tier' '0'
84endif
85
86#4 - Sun Wyrm
87if 'Profile' = 4 then
88 # Set Class = '3' for Attack, = '4' for Utility, = '5' for Tank
89 @setvar 'Class' '3'
90 #ATTACK CLASS
91 # Ambush, Feral, Cornered, Feed
92 pushlist 'Tier' '0'
93 pushlist 'Tier' '0'
94 pushlist 'Tier' '2'
95 pushlist 'Tier' '0'
96 # Hunting Party, Immolate, Lethality, Menagerie
97 pushlist 'Tier' '1'
98 pushlist 'Tier' '0'
99 pushlist 'Tier' '3'
100 pushlist 'Tier' '1'
101 # Mutation, Pelt, Primal, Swarm
102 pushlist 'Tier' '3'
103 pushlist 'Tier' '1'
104 pushlist 'Tier' '1'
105 pushlist 'Tier' '1'
106endif
107
108# DO NOT CHANGE BELOW THIS POINT
109
110@removelist 'PageFlip'
111@createlist 'PageFlip'
112# Do Not Change
113pushlist 'PageFlip' 'No'
114pushlist 'PageFlip' 'No'
115pushlist 'PageFlip' 'No'
116pushlist 'PageFlip' 'No'
117pushlist 'PageFlip' 'Yes'
118pushlist 'PageFlip' 'No'
119pushlist 'PageFlip' 'No'
120pushlist 'PageFlip' 'No'
121pushlist 'PageFlip' 'Yes'
122pushlist 'PageFlip' 'No'
123pushlist 'PageFlip' 'No'
124pushlist 'PageFlip' 'No'
125
126@removelist 'GumpButton'
127@createlist 'GumpButton'
128# Do Not Change
129pushlist 'GumpButton' '200'
130pushlist 'GumpButton' '201'
131pushlist 'GumpButton' '202'
132pushlist 'GumpButton' '203'
133pushlist 'GumpButton' '200'
134pushlist 'GumpButton' '201'
135pushlist 'GumpButton' '202'
136pushlist 'GumpButton' '203'
137pushlist 'GumpButton' '200'
138pushlist 'GumpButton' '201'
139pushlist 'GumpButton' '202'
140pushlist 'GumpButton' '203'
141
142@clearsysmsg
143
144# Open Bestiary
145overhead 'Opening Bestiary'
146while not gumpexists 1353229584
147 dclicktype 'taming bestiary'
148 pause 'PauseTime'
149 waitforgump 1353229584 2000
150endwhile
151
152# Resetting Book
153overhead 'Selecting the Class and Going to Page 1'
154
155if 'Class' = 3
156 while not ingump 'Ambush' 1353229584
157 gumpresponse 3
158 pause 'PauseTime'
159 waitforgump 1353229584 2000
160 while not ingump '1/3' 1353229584
161 gumpresponse 10 1353229584
162 pause 'PauseTime'
163 waitforgump 1353229584 2000
164 endwhile
165 endwhile
166elseif 'Class' = 4
167 while not ingump 'Beast Sting' 1353229584
168 gumpresponse 4
169 pause 'PauseTime'
170 waitforgump 1353229584 2000
171 while not ingump '1/3' 1353229584
172 gumpresponse 10 1353229584
173 pause 'PauseTime'
174 waitforgump 1353229584 2000
175 endwhile
176 endwhile
177elseif 'Class' = 5
178 while not ingump 'Adrenaline' 1353229584
179 gumpresponse 5
180 pause 'PauseTime'
181 waitforgump 1353229584 2000
182 while not ingump '1/3' 1353229584
183 gumpresponse 10 1353229584
184 pause 'PauseTime'
185 waitforgump 1353229584 2000
186 endwhile
187 endwhile
188endif
189
190overhead 'Resetting Points'
191@clearsysmsg
192while not insysmsg 'Points distribution reset.'
193 gumpresponse 12
194 pause 'PauseTime'
195 waitforgump 1353229584 2000
196endwhile
197
198# Reassigning Points
199overhead 'Reassigning Points'
200overhead 'what?!'
201
202foreach 'x' in 'Tier'
203 foreach 'y' in 'PageFlip'
204 if 'y' = 'Yes'
205 gumpresponse 11
206 pause 'PauseTime'
207 waitforgump 1353229584 2000
208 endif
209 poplist 'PageFlip' front
210 break
211 endfor
212 foreach 'z' in 'GumpButton'
213 @setvar 'Gump' 'z'
214 poplist 'GumpButton' front
215 break
216 endfor
217
218 if 'x' = 1
219 gumpresponse 'Gump'
220 pause 'PauseTime'
221 waitforgump 1353229584 2000
222 elseif 'x' = 2
223 gumpresponse 'Gump'
224 pause 'PauseTime'
225 waitforgump 1353229584 2000
226 gumpresponse 'Gump'
227 pause 'PauseTime'
228 waitforgump 1353229584 2000
229 elseif 'x' = 3
230 gumpresponse 'Gump'
231 pause 'PauseTime'
232 waitforgump 1353229584 2000
233 gumpresponse 'Gump'
234 pause 'PauseTime'
235 waitforgump 1353229584 2000
236 gumpresponse 'Gump'
237 pause 'PauseTime'
238 waitforgump 1353229584 2000
239 endif
240
241endfor
242
243@setvar 'Failed' '0'
244if insysmsg 'before you may reset your points distribution.'
245 overhead 'Unable to Reset Points due to timer!' 33
246 @setvar 'Failed' '1'
247endif
248if insysmsg 'You do not have enough points remaining to increase'
249 overhead 'Not enough points to increase!' 33
250 @setvar 'Failed' '1'
251endif
252if 'Failed' = 1 then
253 overhead 'Something has gone wrong!' 33
254else
255 overhead 'Bestiary Re-Configure Complete!'
256endif
257gumpresponse 2
