LiveCode Forums.

Code: Select all

on openCard
   resetNarrationWordColor
 putLine 1
   show field "Narration"
   playTransient "Page6Narration.wav"
   --Convert the times from callback time units to ms
        send "changeNarrationWordColor 1" to me in 1*1.6667 milliseconds
         send "changeNarrationWordColor 2" to me in 364*1.6667 milliseconds
         send "changeNarrationWordColor 3" to me in 587*1.6667 milliseconds
         send "changeNarrationWordColor 4" to me in 890*1.6667 milliseconds
         send "changeNarrationWordColor 5" to me in 984*1.6667 milliseconds
         send "changeNarrationWordColor 6" to me in 1143*1.6667 milliseconds
         send "changeNarrationWordColor 7" to me in 1359*1.6667 milliseconds
         send "changeNarrationWordColor 8" to me in 1447*1.6667 milliseconds
         send "changeNarrationWordColor 9" to me in 1505*1.6667 milliseconds
         send "changeNarrationWordColor 10" to me in 1708*1.6667 milliseconds
   
   send "putLine 2" to me in 2256*1.6667 milliseconds
         send "changeNarrationWordColor 1" to me in 2257*1.6667 milliseconds
         send "changeNarrationWordColor 2" to me in 2367*1.6667 milliseconds
         send "changeNarrationWordColor 3" to me in 2529*1.6667 milliseconds
         send "changeNarrationWordColor 4" to me in 2716*1.6667 milliseconds
         send "changeNarrationWordColor 5" to me in 3134*1.6667 milliseconds
         send "changeNarrationWordColor 6" to me in 3415*1.6667 milliseconds
   
   send "putLine 3" to me in 3561*1.6667 milliseconds
         send "changeNarrationWordColor 1" to me in 3562*1.6667 milliseconds
         send "changeNarrationWordColor 2" to me in 3729*1.6667 milliseconds
         send "changeNarrationWordColor 3" to me in 3798*1.6667 milliseconds
         send "changeNarrationWordColor 4" to me in 4048*1.6667 milliseconds
         send "changeNarrationWordColor 5" to me in 4162*1.6667 milliseconds
         send "changeNarrationWordColor 6" to me in 4514*1.6667 milliseconds
         send "changeNarrationWordColor 7" to me in 4686*1.6667 milliseconds
         send "changeNarrationWordColor 8" to me in 4746*1.6667 milliseconds
         send "changeNarrationWordColor 9" to me in 5101*1.6667 milliseconds
         send "changeNarrationWordColor 10" to me in 5295*1.6667 milliseconds
         send "changeNarrationWordColor 11" to me in 5481*1.6667 milliseconds
         send "changeNarrationWordColor 12" to me in 5575*1.6667 milliseconds
         send "changeNarrationWordColor 13" to me in 5920*1.6667 milliseconds
   send "resetNarrationWordColor" to me in 6500*1.667 milliseconds
end openCard

Code: Select all

on playTransient audioFile
         if the environment is "mobile" then
         iphonePlaySoundOnChannel audioFile, "Transient", "now"
      else play audioFile
end playTransient

Code: Select all

on putLine pLine
   put line pLine of field "TextSource" into field "Narration"
end putLine

Code: Select all

on changeNarrationWordColor pWord
   resetNarrationWordColor
   set the textColor of word pWord of field "Narration" to "green"
end changeNarrationWordColor

Code: Select all

on mouseUp
   set the playRate of player "Narration" to 0.3
   start player "Narration"
end mouseUp

Code: Select all

 set the paused of player "Narration" to not the paused of player "Narration";put the currentTime of player "Narration""

Code: Select all

on mouseUp
   if iPhoneSoundChannelStatus(Transient) is playing then--Not sure how to do this for the desktop version as well
   stopChannel "Transient"
   stopMessages
   resetNarrationWordColor
else send "openCard" to me in 1 millisecond
end mouseUp

Code: Select all

on stopMessages
        repeat for each line aLine in the pendingMessages
            if aLine contains "NarrationWordColor"  then 
                  cancel item 1 of aLine
            end if
        if aLine contains "putLine"  then 
                  cancel item 1 of aLine
            end if
      end repeat
end stopMessages

on stopChannel pChannel
   if the environment is "mobile" then
      iphoneStopPlayingOnChannel pChannel
   else play empty
end stopChannel

Code: Select all

on mouseup
  ## 1. Check if a sound is playing
  ## Sound is NOT playing:
  if the sound is "done" then

   ## PLAY "file to play" will always start from the beginning!
    play ac "path to your sound file here"
  else

   ## Stop the playback
    play stop
 end if
end mouseup

Code: Select all

on mouseUp
   if the environment is "mobile" then
      if iPhoneSoundChannelStatus(Transient) is playing then
         stopChannel "Transient"
      else send "openCard" to me in 1 millisecond
      
   else
        if the sound is "done" then
             openCard
      else stopChannel "Transient"
   end if
end mouseUp

Code: Select all

on stopChannel pChannel
   if the environment is "mobile" then
      iphoneStopPlayingOnChannel pChannel
   else play empty
   stopMessages
   resetNarrationWordColor
end stopChannel