LiveCode Forums.

Code: Select all

on mouseUp
   put field 1 into tData 
   put the number of words of tData into tNoOfWords
   put space & "xxx" after tData -- in case last word of field ends with a return
   repeat with i = 1 to tNoOfWords
      put word i to i + 1 of tData into tTwoWords
      if tTwoWords contains cr then
         put word 1 of tTwoWords into field 2
      else
         -- put word 1 of tTwoWords into field 2
      end if
   end repeat
end mouseUp

Code: Select all

on mouseUp
   get fld 1
   repeat  with y = 1 to the number of lines in it
      put the number of words in line y of it into line y of temp
   end repeat
   
   put line 1 of temp into returnList
   repeat  with y = 2 to the number of lines in temp
      put line y of temp + line y-1 of returnList into line y of returnList
   end repeat
   
   repeat  with y = 1 to the number of words in it
      if y is among the lines of returnList then
         put "delay"
      else
         put "normal"
      end if
   end repeat
end mouseUp

Code: Select all

on mouseUp
   local lastWordinAline
   repeat for each line thisLine in fld 1
      put the last word of thisLine into lastWordinAline
      repeat for each word aWord in word 1 to -2 of thisLine
         put aWord && "normal"
      end repeat
      put lastWordinAline && "delay"
   end repeat
end mouseup

Code: Select all

on mouseup
   put fld 1 into theText
   if the last char of theText is not "\n" then put return after theText
   repeat while matchChunk( theText,"(\w+)\.?(\n)?", w1,w2, n1,n2)
      put char w1 to w2 of theText into aWord
      if n1 is empty then  put aWord && "normal"
      else  put aWord && "delay"
      delete char 1 to w2 of theText
   end repeat
end mouseup

Code: Select all

--input_text is a variable containing your source material.
Repeat with line_index = 1 to the number of lines in input_text
        ..you_handler_for_presenting_words
   --add pause for end of 'paragraph'
   wait x ticks
end repeat