Bard Composer 1.0 by AreYouKidden🐲
Description: Profile Selector for your Bard Codex!
# 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'
