Bard Composer 1.0 by AreYouKidden🐲
Description: Profile Selector for your Bard Codex!
1# Bard Composer 1.0
2# For Each Profile, you will need to set up the Tier list below
3# for each option in the Bard Codex.
4# Example Profiles Below designed on 20 Max points
5
6# Set your desired profile then run.
7@setvar 'Profile' 1
8
9#1 - Peace Farm
10#2 - Provo Farm
11#3 - Bosses
12#4 - Bard Breaks
13
14@removelist 'Tier'
15@createlist 'Tier'
16@removelist 'SongBonuses'
17@createlist 'SongBonuses'
18
19#1 - Peace Farm
20if 'Profile' = 1 then
21 # Ensemble, Refrain, Perfect Pitch, Reverb
22 pushlist 'Tier' '2'
23 pushlist 'Tier' '2'
24 pushlist 'Tier' '3'
25 pushlist 'Tier' '0'
26 # Revolution Song, SYOP, Throat Singing, Vocal Range
27 pushlist 'Tier' '0'
28 pushlist 'Tier' '3'
29 pushlist 'Tier' '0'
30 pushlist 'Tier' '0'
31
32 # SONG BONUSES
33 # 1 = checked, 0 = unchecked
34 # Apply Song Bonuses to Party, Guild, Allies
35 pushlist 'SongBonuses' 1
36 pushlist 'SongBonuses' 1
37 pushlist 'SongBonuses' 1
38 # Creature Effects to Party, Guild, Allies, Others
39 pushlist 'SongBonuses' 1
40 pushlist 'SongBonuses' 1
41 pushlist 'SongBonuses' 1
42 pushlist 'SongBonuses' 0
43endif
44
45#2 - Provo Farm
46if 'Profile' = 2 then
47 # Ensemble, Refrain, Perfect Pitch, Reverb
48 pushlist 'Tier' '0'
49 pushlist 'Tier' '1'
50 pushlist 'Tier' '3'
51 pushlist 'Tier' '0'
52 # Revolution Song, SYOP, Throat Singing, Vocal Range
53 pushlist 'Tier' '3'
54 pushlist 'Tier' '3'
55 pushlist 'Tier' '1'
56 pushlist 'Tier' '0'
57
58 # SONG BONUSES
59 # 1 = checked, 0 = unchecked
60 # Apply Song Bonuses to Party, Guild, Allies
61 pushlist 'SongBonuses' 1
62 pushlist 'SongBonuses' 1
63 pushlist 'SongBonuses' 1
64 # Creature Effects to Party, Guild, Allies, Others
65 pushlist 'SongBonuses' 1
66 pushlist 'SongBonuses' 1
67 pushlist 'SongBonuses' 1
68 pushlist 'SongBonuses' 0
69endif
70
71#3 - Bosses
72if 'Profile' = 3 then
73 # Ensemble, Refrain, Perfect Pitch, Reverb
74 pushlist 'Tier' '0'
75 pushlist 'Tier' '1'
76 pushlist 'Tier' '3'
77 pushlist 'Tier' '3'
78 # Revolution Song, SYOP, Throat Singing, Vocal Range
79 pushlist 'Tier' '0'
80 pushlist 'Tier' '0'
81 pushlist 'Tier' '1'
82 pushlist 'Tier' '3'
83
84 # SONG BONUSES
85 # 1 = checked, 0 = unchecked
86 # Apply Song Bonuses to Party, Guild, Allies
87 pushlist 'SongBonuses' 1
88 pushlist 'SongBonuses' 1
89 pushlist 'SongBonuses' 1
90 # Creature Effects to Party, Guild, Allies, Others
91 pushlist 'SongBonuses' 1
92 pushlist 'SongBonuses' 1
93 pushlist 'SongBonuses' 1
94 pushlist 'SongBonuses' 0
95endif
96
97#4 - Bard Breaks
98if 'Profile' = 4 then
99 # Ensemble, Refrain, Perfect Pitch, Reverb
100 pushlist 'Tier' '1'
101 pushlist 'Tier' '3'
102 pushlist 'Tier' '3'
103 pushlist 'Tier' '0'
104 # Revolution Song, SYOP, Throat Singing, Vocal Range
105 pushlist 'Tier' '0'
106 pushlist 'Tier' '3'
107 pushlist 'Tier' '0'
108 pushlist 'Tier' '0'
109
110 # SONG BONUSES
111 # 1 = checked, 0 = unchecked
112 # Apply Song Bonuses to Party, Guild, Allies
113 pushlist 'SongBonuses' 1
114 pushlist 'SongBonuses' 1
115 pushlist 'SongBonuses' 1
116 # Creature Effects to Party, Guild, Allies, Others
117 pushlist 'SongBonuses' 1
118 pushlist 'SongBonuses' 1
119 pushlist 'SongBonuses' 1
120 pushlist 'SongBonuses' 0
121endif
122
123# DO NOT CHANGE BELOW THIS POINT
124
125@removelist 'PageFlip'
126@createlist 'PageFlip'
127# Do Not Change
128pushlist 'PageFlip' 'No'
129pushlist 'PageFlip' 'No'
130pushlist 'PageFlip' 'No'
131pushlist 'PageFlip' 'No'
132pushlist 'PageFlip' 'Yes'
133pushlist 'PageFlip' 'No'
134pushlist 'PageFlip' 'No'
135pushlist 'PageFlip' 'No'
136
137@removelist 'GumpButton'
138@createlist 'GumpButton'
139# Do Not Change
140pushlist 'GumpButton' '20'
141pushlist 'GumpButton' '21'
142pushlist 'GumpButton' '22'
143pushlist 'GumpButton' '23'
144pushlist 'GumpButton' '20'
145pushlist 'GumpButton' '21'
146pushlist 'GumpButton' '22'
147pushlist 'GumpButton' '23'
148
149@removelist 'BonusCount'
150@createlist 'BonusCount'
151# Do Not Change
152pushlist 'BonusCount' '2'
153pushlist 'BonusCount' '3'
154pushlist 'BonusCount' '4'
155pushlist 'BonusCount' '5'
156pushlist 'BonusCount' '6'
157pushlist 'BonusCount' '7'
158pushlist 'BonusCount' '8'
159
160# Open Bard Codex
161overhead 'Opening Music Notes'
162while not gumpexists 2952534525
163 dclicktype 'bard codex'
164 pause 250
165 waitforgump 2952534525 2000
166endwhile
167
168@clearsysmsg
169@setvar 'Failed' '0'
170
171# Resetting Book
172overhead 'Resetting Bard Codex and going to Page 1'
173gumpresponse 4
174pause 250
175waitforgump 2952534525 2000
176gumpresponse 4
177pause 250
178waitforgump 2952534525 2000
179while not ingump '1/2' 2952534525
180 gumpresponse 2 2952534525
181 pause 250
182 waitforgump 2952534525 2000
183endwhile
184
185if insysmsg 'before you may reset your points distribution.'
186 overhead 'Unable to Reset Points due to timer!' 33
187 @setvar 'Failed' '1'
188endif
189
190# Reassigning Points
191overhead 'Reassigning Points'
192overhead 'what?!'
193
194foreach 'x' in 'Tier'
195 foreach 'y' in 'PageFlip'
196 if 'y' = 'Yes'
197 gumpresponse 3
198 pause 250
199 waitforgump 2952534525 2000
200 endif
201 poplist 'PageFlip' front
202 break
203 endfor
204 foreach 'z' in 'GumpButton'
205 @setvar 'Gump' 'z'
206 poplist 'GumpButton' front
207 break
208 endfor
209
210 if 'x' = 1
211 gumpresponse 'Gump'
212 pause 250
213 waitforgump 2952534525 2000
214 elseif 'x' = 2
215 gumpresponse 'Gump'
216 pause 250
217 waitforgump 2952534525 2000
218 gumpresponse 'Gump'
219 pause 250
220 waitforgump 2952534525 2000
221 elseif 'x' = 3
222 gumpresponse 'Gump'
223 pause 250
224 waitforgump 2952534525 2000
225 gumpresponse 'Gump'
226 pause 250
227 waitforgump 2952534525 2000
228 gumpresponse 'Gump'
229 pause 250
230 waitforgump 2952534525 2000
231 endif
232endfor
233
234if insysmsg 'You do not have enough points remaining to increase'
235 overhead 'Not enough points to increase!' 33
236 @setvar 'Failed' '1'
237endif
238
239#Selecting Song Bonuses
240overhead 'Selecting Song Bonuses'
241
242gumpresponse 5
243waitforgump 2952534525 2000
244waitforgump 838400456 2000
245
246foreach 'x' in 'SongBonuses'
247 foreach 'y' in 'BonusCount'
248 @setvar 'BCount' 'y'
249 poplist 'BonusCount' front
250 break
251 endfor
252
253 @clearsysmsg
254 if 'x' = 0
255 gumpresponse 'BCount'
256 waitforgump 838400456 2000
257 if insysmsg 'now apply'
258 gumpresponse 'BCount'
259 waitforgump 838400456 2000
260 endif
261 endif
262 if 'x' = 1
263 gumpresponse 'BCount'
264 waitforgump 838400456 2000
265 if insysmsg 'no longer apply'
266 gumpresponse 'BCount'
267 waitforgump 838400456 2000
268 endif
269 endif
270endfor
271
272if 'Failed' = '1'
273 overhead 'Your lute strings have broken!' 33
274else
275 overhead 'You are ready to Compose music!'
276endif
277
278gumpclose '838400456'