Play iTunes soundtrack under Keynote with Applescript

Question

OK, so this isn't a question, more of a solution to a question I was struggling with: how to play multiple songs in the background of a Keynote presentation. What's more, I needed that soundtrack to fade out for certain important slides that had their own audio, but then fade back in (without starting over) when that slide was done.
I'm creating a standalone presentatoin that will run unattended, looped, during an event. It must be completely automated. It's mostly text slides, which is why I wanted general music underneath. But there are also some slides with videos of their own. I wanted a way to drop the soundtrack at the right time, and then restore the soundtrack afterward.
My solution is to set up my playlist in iTunes, play it, then run an applescript, and then start the slideshow. The script first sets the iTunes volume to whatever "MAX" volume is in the script. You can edit this to be a MAX volume of 10, 40, 100, etc. The script constantly monitors the slideshow, and when the slideshow gets to any slide with the command "itunesdown" anyhwere in the text of the presenter notes, it triggers an incremental drop of iTunes' volume by 10 units every .1 second until the volume is zero. If you want a slower fade, look for all of the delay values of .1 and make them .2, .3, whatever. It also keeps a lookout for any slide with the text "itunesup" and does exactly the reverse, raising the volume incrementally up to the MAX value.
I have not explored the possibility of also having the script monitor other text variables to perhaps trigger different playlists. I think that's possible, but for someone else to work out.
I'm sure there's a more elegant way to code this; I have certain lines of code literally repeated ten times to cover the full range of volume from 0 to 100 and back. I know there's a counter function that could do that in less space. But, again, I'll leave that to y'all.
Hope this helps someone!
-Scott
#ENTER YOUR OWN MAXVOL VALUE ON THE NEXT LINE
set MAXvol to 80
tell application "iTunes"
     if it is running then
          set the sound volume to MAXvol
     end if
end tell
repeat
  #LOOK FOR VOLUME DOWN SLIDE
     tell application "Keynote"
          set slideNotes to get notes of current slide of first slideshow
          if text of slideNotes contains "itunesdown" then
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
  #Decrease iTunes Volume
               tell application "iTunes"
                    if it is running then
                         set curVol to the sound volume
                         if curVol > 10 then
                              set sound volume to curVol - 10
                         else
                              set sound volume to 0
                         end if
                    end if
                    delay 0.1
               end tell
          else
  #LOOK FOR VOLUME UP SLIDE
               if text of slideNotes contains "itunesup" then
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
  #Increase iTunes Volume
                    tell application "iTunes"
                         if it is running then
                              set curVol to the sound volume
                              if curVol < MAXvol then
                                   set sound volume to curVol + 10
                              else
                                   set sound volume to MAXvol
                              end if
                         end if
                         delay 0.1
                    end tell
               end if
          end if
     end tell
end repeat

Answer 1

Oh - I forgot to cite my work. Thanks to these sites for the inspiration and some of the code
http://alxndrmlr.biz/2011/06/itunes-increase-decrease-volume-script/
http://stackoverflow.com/questions/8710892/applescript-detect-what-slide-is-show ing-in-keynote