;Some styles (often Arabian) have drumtracks made for drumsets that don't match GM and produce
;very awkward sounds. This program will replace all the drumsounds with bongo's and conga's.
;It gives a neutral and acceptable percussion.
Define Dice Numeric
ForEachStyle
  PrintLine StyleName
  ForEachPart
    ForEachTrack
      If DrumTrack = 1 
        ForEachEvent
          If EventType = 1 ;Note-on
            Let Dice = Random           ;Result 0 thru 9999
            Let Dice = Divide Dice 200  ;Result 0 thru 4
            Let DataByte1 = Add 60 Dice
            UpdateEvent
          Endif
        NextEvent
      EndIf
   NextTrack
  NextPart
  SaveStyle
NextStyle