;Play higher variations with more velocity (louder) Define Increase Numeric Define Position Numeric ForEachStyle PrintLine StyleName ForEachPart Let Increase = -5 ; *** CUSTOMIZE VALUES HERE *** Let Position = StringPosition PartName 'B' ;Is there a B in the PartName? If Position > 0 Let Increase = 0 ; *** CUSTOMIZE VALUES HERE *** EndIf Let Position = StringPosition PartName 'C' If Position > 0 Let Increase = 5 ; *** CUSTOMIZE VALUES HERE *** EndIf Let Position = StringPosition PartName 'D' If Position > 0 Let Increase = 10 ; *** CUSTOMIZE VALUES HERE *** EndIf ForEachTrack ForEachEvent If EventType = 1 ;Note on Let DataByte2 = Add DataByte2 Increase If DataByte2 < 1 Let DataByte2 = 1 EndIf If DataByte2 > 127 Let DataByte2 = 127 Endif UpdateEvent EndIf NextEvent NextTrack NextPart SaveStyle NextStyle