REVO5500 i FunctionsLect " @ function getStackPath stFileName set the itemDelimiter to "/" delete last item of stFileName return stFileName end getStackPath function explode string repeat for each character nextChar in string put nextChar & space after explodedString end repeat return explodedString end explode function itemsToLines inputText repeat with x = 1 to number of items in inputText put item x of inputText into line x of outputText end repeat return outputText end itemsToLines function capitalize string,allWds if allWds is true then put number of words in string into limit else put 1 into limit repeat with i = 1 to limit put toUpper(char 1 of word i of string) into char 1 of word i of string end repeat return string end capitalize Functions Lecture W Geneva W Geneva,unicode U New York W New York,unicode W New York,unicode U New York,unicode U Lucida Grande,unicode U Arial Black,unicode W Lucida Grande,unicode U Monaco U Monaco,unicode U Lucida Grande U Arial U Arial,unicode W Lucida Grande U Arial Black cREVGeometryCache stackID 65129 cREVGeneral scriptSelection char 492 to 764scripteditorvscroll 0 bookmarks breakpoints prevHandler getStackPathbreakpointconditions scalefactor 1handlerList ,getStackPath explode itemsToLines capitalizescriptChecksum ;`-Y6GttempScript breakpointstates script
function getStackPath stFileName
set the itemDelimiter to "/"
delete last item of stFileName
return stFileName
end getStackPath
function explode string
repeat for each character nextChar in string
put nextChar & space after explodedString
end repeat
return explodedString
end explode
function itemsToLines inputText
repeat with x = 1 to number of items in inputText
put item x of inputText into line x of outputText
end repeat
return outputText
end itemsToLines
function capitalize string,allWds
if allWds is true then put number of words in string into limit
else put 1 into limit
repeat with i = 1 to limit
put toUpper(char 1 of word i of string) into char 1 of word i of string
end repeat
return string
end capitalize
card id 1002 @ : cREVGeometryCacheIDs 1389721536661 11071389721510452 651261013121265868 10111013121077929 10101013121370793 10141013120448128 10041389721405324 651251013122071654 10181013121453000 10151389721556443 651271013209955997 10291013122759270 10191389721581338 651281013120155133 10031013120653879 10051013212831500 10351013121048233 10091389721636903 651291013121672950 10161013120932815 10071013121358883 10131013121347807 1012 cREVGeometryCache total 22order cREVGeneral handlerList script bookmarks tempScript prevHandler scriptSelection char 1 to 0 e f g h i blackbox Pon openCard resetAnim pass openCard end openCard on resetAnim set the label of btn "movingBtn" to "data>>" set the textFont of btn "movingBtn" to "Arial Black" set the textStyle of btn "movingBtn" to "plain" set the opaque of btn "movingBtn" to false set the foregroundColor of btn "movingBtn" to 204,0,0 set the backGroundColor of btn "movingBtn" to "white" set the loc of btn "movingBtn" to the startLoc of btn "movingBtn" --revGoToFramePaused dataAnim,1 end resetAnim 308 cREVGeometryCacheIDs 1013210361565 10311014333024995 11091013121265868 10111014333830606 11111013213175054 10361013121077929 10101013121453000 10151013120448128 10041013122071654 10301013209955997 10291014333138659 11101013120155133 10031013120653879 10051014334240665 11161014333996159 11151014333857166 11121013210373427 10321014333892882 11131389721538630 11181013121672950 10161013120932815 10071014333905436 1114 cREVGeometryCache total 22order cREVGeneral scriptChecksum H˳d@jtempScript scripteditorselection 235scripteditorvscroll 0scripton openCard
resetAnim
pass openCard
end openCard
on resetAnim
set the label of btn "movingBtn" to "data>>"
set the textFont of btn "movingBtn" to "Arial Black"
set the textStyle of btn "movingBtn" to "plain"
set the foregroundColor of btn "movingBtn" to 204,0,0
set the backGroundColor of btn "movingBtn" to "white"
set the opaque of btn "movingBtn" to false
set the loc of btn "movingBtn" to 72,335
--revGoToFramePaused dataAnim,1
end resetAnim
prevHandler openCardscriptSelection char 419 to 418handlerList openCard resetAnim bookmarks cREVAnimation dataAnim,frameRate 10currentEdit dataAnimlist dataAnimdataAnim,palindrome falsedataAnim,calculatedTotal 30dataAnim,objectsList button "movingBtn"dataAnim,frameNames % 30,endFrame 15,midFrame 1,startFramedataAnim,playAllFrames falsedataAnim,currentFrame 1dataAnim,repeatCount 0dataAnim,status paused \ ^ @ _ cREVGeometryCacheIDs 1013210373427 10411013120448128 10041013120155133 10031013121265868 10111013122071654 10391013120653879 10051013121672950 10161013209955997 10291013120932815 10071013213175054 10371013121077929 10101013210382188 10421013121453000 1015 cREVGeometryCache total 13order Pe-- here is an example of reading from a file one line at a time: -- Be sure to set the defaultFolder property to the same folder as this stack. -- (Type "readLines" into the message box to run this script.) on readLines get the fileName of this stack set the itemdelimiter to "/" delete last item of it set the defaultFolder to it put "files/Lines.txt" into fileNm open file fileNm repeat set the cursor to watch read from file fileNm until return put it into fld "output" if it is empty then exit repeat wait until the mouseClick end repeat close file fileNm end readLines ] cREVGeometryCacheIDs 1013120448128 10041013120155133 10031013121265868 10111013122071654 10461013120653879 10051013121672950 10161013535772848 10681013546304447 10811013209955997 10291013213175054 10441013121077929 10101013120932815 10071389722098749 11221013121453000 1015 cREVGeometryCache total 14order cREVGeneral scriptChecksum H\$ElctempScript script 9-- here is an example of reading from a file one line at a time:
-- Be sure to set the defaultFolder property to the same folder as this stack.
-- (Type "readLines" into the message box to run this script.)
on readLines
get the fileName of this stack
set the itemdelimiter to "/"
delete last item of it
set the defaultFolder to it
put "files/Lines.txt" into fileNm
open file fileNm
repeat
set the cursor to watch
read from file fileNm until return
put it into fld "output"
if it is empty then exit repeat
wait until the mouseClick
end repeat
close file fileNm
end readLines
prevHandler scriptSelection char 613 to 612handlerList readLines bookmarks 9 @ [ cREVGeometryCacheIDs 1013120448128 10041013120155133 10031013121265868 10111013122071654 10521013120653879 10051013121672950 10161013209955997 10291013213175054 10501013121077929 10101013210361565 10531013120932815 10071013121453000 1015 cREVGeometrycache total 12order ! @ y cREVGeometryCacheIDs 1013210373427 10601013120448128 10041013120155133 10031013121265868 10111013122071654 10581013120653879 10051013121672950 10161013546304447 10821013209955997 10291013213175054 10561013121077929 10101013210361565 10591013120932815 10071013121453000 1015 cREVGeometrycache total 14order cREVGeneral handlerList script bookmarks prevHandler tempScript scriptSelection char 1 to 0 : rightarrowBlue.gif @` { sGIF89a 1f3 ̙f3 f3 ffffff3f 3333f333 f 3 f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333 f 3 ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333 ̙ f 3 ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f 3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33 f 3 ̙ f 3 f 3 f f f ff f3 f 3 3 3 3f 33 3 f 3 w U D " w U D " w U D " ݻwwwUUUDDD""" ! , P H j DPABTp b(q#9G L1?_ty̏6)fyC<58`@ ; cREVGeneral revUniqueID 1013121048233 leftarrowBlue.gif @N rGIF89a 1f3 ̙f3 f3 ffffff3f 3333f333 f 3 f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333 f 3 ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333 ̙ f 3 ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f 3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33 f 3 ̙ f 3 f 3 f f f ff f3 f 3 3 3 3f 33 3 f 3 w U D " w U D " w U D " ݻwwwUUUDDD""" ! , O H D(PB(!ń%fT8p#Gd&7@R K.S:$$MkV9K<2 ; cREVGeneral revUniqueID 1013121347807 leftarrowRed.gif @( rGIF89a 1f3 ̙f3 f3 ffffff3f 3333f333 f 3 f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333 f 3 ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333 ̙ f 3 ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f 3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33 f 3 ̙ f 3 f 3 f f f ff f3 f 3 3 3 3f 33 3 f 3 w U D " w U D " w U D " ݻwwwUUUDDD""" ! , O HD(PB(!ń%fT8p#Gd&7@R K.S:$$MkV9K<2 ; cREVGeneral revUniqueID 1013121358883 rightarrowRed.gif @: } sGIF89a 1f3 ̙f3 f3 ffffff3f 3333f333 f 3 f3 ̙f3 ̙̙̙̙f̙3̙ ffffff3f 3333f333 f 3 ̙f3 ̙̙f3 ̙f3 ff̙ffff3f 33̙33f333 ̙ f 3 ffffff3f fff̙fff3f ffffff3f fffffffffff3ff f3f3f3f3ff33f3 f f f f ff 3f 3333f333 333̙3f333 3333f333 3f3f3f3ff3f33f 33333333f33333 3 3 3 3 f3 33 f 3 ̙ f 3 f 3 f f f ff f3 f 3 3 3 3f 33 3 f 3 w U D " w U D " w U D " ݻwwwUUUDDD""" ! , P H G DPABTp b(q#9G L1?_ty̏6)fyC<58`@ ; cREVGeneral revUniqueID 1013121370793 bgGrp @ on openCard put the number of this cd && "of" && number of cds into fld "count" send mouseUp to btn "reset" end openCard on mouseUp if the short name of the target contains "cover" then set the opaque of the target to not the hilite of the target if not the opaque of the target then put the exampleText of the target into bg fld "example" else put empty into bg fld "example" end if end mouseUp Selection Description falsex cREVGeneral scriptChecksum 1KK^bbtempScript scripteditorselection 0scripteditorvscroll 0scripton openCard
put the number of this cd && "of" && number of cds into fld "count"
send mouseUp to btn "reset"
end openCard
on mouseUp
if the short name of the target contains "cover" then
set the opaque of the target to not the hilite of the target
if not the opaque of the target then put the exampleText of the target into bg fld "example"
else put empty into bg fld "example"
end if
end mouseUp
prevHandler openCardrevUniqueID 1013121672950scriptSelection handlerList openCard mouseUp bookmarks topic h @ &