Bard Composer 1.0 by AreYouKidden🐲
Description from the author:
# Bard Composer 1.0
# For Each Profile, you will need to set up the Tier list below
# for each option in the Bard Codex.
# Example Profiles Below designed on 20 Max points
# Set your desired profile then run.
@setvar 'Profile' 1
#1 - Peace Farm
#2 - Provo Farm
#3 - Bosses
#4 - Bard Breaks
@removelist 'Tier'
@createlist 'Tier'
@removelist 'SongBonuses'
@createlist 'SongBonuses'
#1 - Peace Farm
if 'Profile' = 1 then
# Ensemble, Refrain, Perfect Pitch, Reverb
pushlist 'Tier' '2'
pushlist 'Tier' '2'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
# Revolution Song, SYOP, Throat Singing, Vocal Range
pushlist 'Tier' '0'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
# SONG BONUSES
# 1 = checked, 0 = unchecked
# Apply Song Bonuses to Party, Guild, Allies
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
# Creature Effects to Party, Guild, Allies, Others
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 0
endif
#2 - Provo Farm
if 'Profile' = 2 then
# Ensemble, Refrain, Perfect Pitch, Reverb
pushlist 'Tier' '0'
pushlist 'Tier' '1'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
# Revolution Song, SYOP, Throat Singing, Vocal Range
pushlist 'Tier' '3'
pushlist 'Tier' '3'
pushlist 'Tier' '1'
pushlist 'Tier' '0'
# SONG BONUSES
# 1 = checked, 0 = unchecked
# Apply Song Bonuses to Party, Guild, Allies
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
# Creature Effects to Party, Guild, Allies, Others
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 0
endif
#3 - Bosses
if 'Profile' = 3 then
# Ensemble, Refrain, Perfect Pitch, Reverb
pushlist 'Tier' '0'
pushlist 'Tier' '1'
pushlist 'Tier' '3'
pushlist 'Tier' '3'
# Revolution Song, SYOP, Throat Singing, Vocal Range
pushlist 'Tier' '0'
pushlist 'Tier' '0'
pushlist 'Tier' '1'
pushlist 'Tier' '3'
# SONG BONUSES
# 1 = checked, 0 = unchecked
# Apply Song Bonuses to Party, Guild, Allies
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
# Creature Effects to Party, Guild, Allies, Others
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 0
endif
#4 - Bard Breaks
if 'Profile' = 4 then
# Ensemble, Refrain, Perfect Pitch, Reverb
pushlist 'Tier' '1'
pushlist 'Tier' '3'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
# Revolution Song, SYOP, Throat Singing, Vocal Range
pushlist 'Tier' '0'
pushlist 'Tier' '3'
pushlist 'Tier' '0'
pushlist 'Tier' '0'
# SONG BONUSES
# 1 = checked, 0 = unchecked
# Apply Song Bonuses to Party, Guild, Allies
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
# Creature Effects to Party, Guild, Allies, Others
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 1
pushlist 'SongBonuses' 0
endif
# DO NOT CHANGE BELOW THIS POINT
@removelist 'PageFlip'
@createlist 'PageFlip'
# Do Not Change
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'Yes'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
pushlist 'PageFlip' 'No'
@removelist 'GumpButton'
@createlist 'GumpButton'
# Do Not Change
pushlist 'GumpButton' '20'
pushlist 'GumpButton' '21'
pushlist 'GumpButton' '22'
pushlist 'GumpButton' '23'
pushlist 'GumpButton' '20'
pushlist 'GumpButton' '21'
pushlist 'GumpButton' '22'
pushlist 'GumpButton' '23'
@removelist 'BonusCount'
@createlist 'BonusCount'
# Do Not Change
pushlist 'BonusCount' '2'
pushlist 'BonusCount' '3'
pushlist 'BonusCount' '4'
pushlist 'BonusCount' '5'
pushlist 'BonusCount' '6'
pushlist 'BonusCount' '7'
pushlist 'BonusCount' '8'
# Open Bard Codex
overhead 'Opening Music Notes'
while not gumpexists 2952534525
dclicktype 'bard codex'
pause 250
waitforgump 2952534525 2000
endwhile
@clearsysmsg
@setvar 'Failed' '0'
# Resetting Book
overhead 'Resetting Bard Codex and going to Page 1'
gumpresponse 4
pause 250
waitforgump 2952534525 2000
gumpresponse 4
pause 250
waitforgump 2952534525 2000
while not ingump '1/2' 2952534525
gumpresponse 2 2952534525
pause 250
waitforgump 2952534525 2000
endwhile
if insysmsg 'before you may reset your points distribution.'
overhead 'Unable to Reset Points due to timer!' 33
@setvar 'Failed' '1'
endif
# Reassigning Points
overhead 'Reassigning Points'
overhead 'what?!'
foreach 'x' in 'Tier'
foreach 'y' in 'PageFlip'
if 'y' = 'Yes'
gumpresponse 3
pause 250
waitforgump 2952534525 2000
endif
poplist 'PageFlip' front
break
endfor
foreach 'z' in 'GumpButton'
@setvar 'Gump' 'z'
poplist 'GumpButton' front
break
endfor
if 'x' = 1
gumpresponse 'Gump'
pause 250
waitforgump 2952534525 2000
elseif 'x' = 2
gumpresponse 'Gump'
pause 250
waitforgump 2952534525 2000
gumpresponse 'Gump'
pause 250
waitforgump 2952534525 2000
elseif 'x' = 3
gumpresponse 'Gump'
pause 250
waitforgump 2952534525 2000
gumpresponse 'Gump'
pause 250
waitforgump 2952534525 2000
gumpresponse 'Gump'
pause 250
waitforgump 2952534525 2000
endif
endfor
if insysmsg 'You do not have enough points remaining to increase'
overhead 'Not enough points to increase!' 33
@setvar 'Failed' '1'
endif
#Selecting Song Bonuses
overhead 'Selecting Song Bonuses'
gumpresponse 5
waitforgump 2952534525 2000
waitforgump 838400456 2000
foreach 'x' in 'SongBonuses'
foreach 'y' in 'BonusCount'
@setvar 'BCount' 'y'
poplist 'BonusCount' front
break
endfor
@clearsysmsg
if 'x' = 0
gumpresponse 'BCount'
waitforgump 838400456 2000
if insysmsg 'now apply'
gumpresponse 'BCount'
waitforgump 838400456 2000
endif
endif
if 'x' = 1
gumpresponse 'BCount'
waitforgump 838400456 2000
if insysmsg 'no longer apply'
gumpresponse 'BCount'
waitforgump 838400456 2000
endif
endif
endfor
if 'Failed' = '1'
overhead 'Your lute strings have broken!' 33
else
overhead 'You are ready to Compose music!'
endif
gumpclose '838400456'Profile Selector for your Bard Codex!