Back to "provo" tags

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'