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 @ cREVGeneral bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script 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 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 30 cREVGeneral scriptChecksum H˳d@j bookmarks handlerList openCard resetAnim tempScript prevHandler openCardscriptSelection char 419 to 418scripton 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
cREVAnimation dataAnim,playAllFrames false currentEdit dataAnimdataAnim,calculatedTotal 30dataAnim,objectsList button "movingBtn"dataAnim,frameNames % 30,endFrame 15,midFrame 1,startFramelist dataAnimdataAnim,palindrome falsedataAnim,currentFrame 1dataAnim,frameRate 10dataAnim,repeatCount 0dataAnim,status paused \ ] ^ @ 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 cREVGeneral scriptChecksum H\$E lc bookmarks handlerList readLines tempScript prevHandler scriptSelection char 613 to 612script 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
9 @ ! @ cREVGeneral bookmarks handlerList scriptSelection char 1 to 0 prevHandler tempScript script : 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 DPA BTp 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#G d&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 H D(PB (!ń%fT8p#G d&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 DPA BTp 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 false cREVGeneral scriptChecksum 1KK^b b bookmarks revUniqueID 1013121672950 handlerList openCard mouseUpscriptSelection prevHandler openCard tempScript scripton 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
topic h @ & Selection Description false cREVGeneral bookmarks revUniqueID 1013120155133 handlerList scriptSelection prevHandler tempScript script writing function handlers When to use functions What is a function? Functions in Transcript ! Examples of custom functions Calling custom functions backdrop J@ @ ( Selection Description false cREVGeneral bookmarks revUniqueID 1013209955997 handlerList scriptSelection char 1 to 0 prevHandler tempScript script discussion (H @ &x Selection Description false cREVTable currentviewA what ?
We already know how to write our own message handlers.
Transcript also provides a way to write custom functions. Here is an example that can be used to find the path to the folder containing the current stack.
A function handler is similar to other handlers, but differs slightly in syntax and in the way it is used.
cREVGeneral revUniqueID 1013120448128 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script /Syntax: function functionName [parameterList] - > where functionName is a the name of the function (same rules as message handler names -- begins with letter or underscore (_), name can contain any combination of letters, numbers and underscore, but no punctuation or special characters (*,&,%,, etc.)) > and parameterList is a comma-separated list of variable names that hold the data being passed to the function. You can pass up to 50 variables. y > the keyword return is required; the value following the return keyword is passed back to where it was called from. & > D 4 $When do you use a function handler? 9 > When you want to get the results of a calculation. & #When do you use a message handler? 5 > When you want to make Revolution do something. ' ' ) Since you usually want to have the function available from anywhere in your stack, a function handler is usually placed in the stack script. However a function handler can be placed in any script. -A function is like a so-called black box: ! > you put data into into it, 5 > the black box modifies the data in some way, ) > and modified data comes out of it. A what ? 7We already know how to write our own message handlers. Transcript also provides a way to write custom functions. Here is an example that can be used to find the path to the folder containing the current stack. kA function handler is similar to other handlers, but differs slightly in syntax and in the way it is used. ! HThere are several custom function handlers in the script of this stack. < explode() -- places spaces between each letter of a string H itemsToLines() -- changes a list of items to a list on separate lines. u capitalize() -- lets you capitalize the first letter of a string or all the first letters of each word in a string. S S ! JWhen using standard Transcript functions you can choose one of two forms. }You can use a custom function just like any of the standard Transcript functions, except that you must use parentheses form. example ih cREVTable currentview--This is how to use a function in a script:
on openCard -- or whatever handler you want to use it in
put getStackPath(the filename of this stack) into pathName
end openCard
function getStackPath stFileName
set the itemDelimiter to "/"
delete last item of stFileName
return stFileName
end getStackPath
cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013120653879 handlerList prevHandler tempScript script ---This is how to use a function in a script: 9on openCard -- or whatever handler you want to use it in = put getStackPath(the filename of this stack) into pathName end openCard !function getStackPath stFileName set the itemDelimiter to "/" ! delete last item of stFileName return stFileName end getPath ! "function capitalize string,allWds B if allWds is true then put number of words in string into limit else put 1 into limit repeat with i = 1 to limit L put toUpper(char 1 of word i of string) into char 1 of word i of string end repeat return string end capitalize --enter in message box: >put capitalize("this is a sentence.",false) into fld "output" 8-- Here is a valid function call for a custom function: 9put getStackPath(the filename of this stack) into myPath ` o Ƥ count h cREVGeneral bookmarks revUniqueID 1013120932815 handlerList scriptSelection char 1 to 0 prevHandler tempScript script 4 of 6 Reset jcput empty into fld "example"
repeat with x = 1 to number of cd btns
set the opaque of cd btn x to true
set the hilite of cd btn x to false
end repeat
if there is a cd fld 1 then
repeat with x = 1 to number of cd flds
put empty into cd fld x
end repeat
end if
end mouseUp
Next jK 8on mouseUp visual wipe left go next cd end mouseUp @H & $ cREVGeneral scriptChecksum y).^j7 bookmarks revUniqueID 1013121265868 handlerList mouseUpscriptSelection char 43 to 42 prevHandler tempScript scripton mouseUp
visual wipe left
go next cd
end mouseUp
prev jC 9on mouseUp visual wipe right go prev cd end mouseUp @ & $ cREVGeneral scriptChecksum C̰>)ț> revUniqueID 1013121453000 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 31 to 30scripton mouseUp
visual wipe right
go prev cd
end mouseUp
coverBtns $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 D cREVGeneral scriptChecksum VAlсO*g revUniqueID 1013212831500 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 291 to 290scripton 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
cover1 ` @ Hy exampleText jon myOwnHandler beep put "I did it myself!" into cd fld "output" -- do other things end myOwnHandlerSelection Description false cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013122071654 handlerList scriptSelection char 1 to 0 prevHandler mouseUp tempScript scriptcover2 ` @ r{ & exampleText function getStackPath stFileName set the itemDelimiter to "/" delete last item of stFileName return stFileName end getStackPath cREVGeneral scriptChecksum ُ B~ revUniqueID 1013122759270 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection script
S cover3 ` LLLLLL @ { ( exampleText 2--This is how to use a function in a script: on openCard -- or whatever handler you want to use it in put getStackPath(the filename of this stack) into pathName end openCard function getStackPath stFileName set the itemDelimiter to "/" delete last item of stFileName return stFileName end getPath cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013122759270 handlerList scriptSelection char 2 to 1 prevHandler mouseUp tempScript script
coverBtns2 iKon mouseUp if the short name of the target contains "cover" then doBtnStuff end if end mouseUp on doBtnStuff 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 doBtnStuff H B cREVGeneral scriptChecksum pdZ &9 revUniqueID 1013213175054 bookmarks handlerList mouseUp doBtnStuff tempScript prevHandler mouseUpscriptSelection char 321 to 320script
on mouseUp
if the short name of the target contains "cover" then
doBtnStuff
end if
end mouseUp
on doBtnStuff
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 doBtnStuff
cover1 ` \ on mouseUp doBtnStuff wait 30 ticks move btn "movingBtn" to the loc of graphic "blackBox" in 2 sec --revPlayanimation "dataAnim",1,15 end mouseUp @ Ly exampleText Selection Description false cREVGeneral scriptChecksum g ?]k bookmarks revUniqueID 1013122071654 handlerList mouseUpscriptSelection char 108 to 107 prevHandler mouseUp tempScript scripton mouseUp
doBtnStuff
wait 30 ticks
move btn "movingBtn" to the loc of graphic "blackBox" in 2 sec
--revPlayanimation "dataAnim",1,15
end mouseUp
cover2 ` \ Aon mouseUp doBtnStuff put the backgroundColor of graphic "blackbox" into saveColor put the foregroundColor of graphic "blackbox" into saveForeColor --repeat 2 wait 20 set the backgroundColor of graphic "blackBox" to "204,0,0" set the backgroundColor of graphic "blackBoxback" to "204,0,0" set the backgroundColor of graphic "fillin" to "204,0,0" repeat 15 set the backgroundPattern of graphic "blackBox" to random(164) set the foregroundColor of graphic "blackBox" to random(255),random(255),random(255) wait 10 end repeat set the backgroundColor of graphic "blackBox" to saveColor set the backgroundColor of graphic "blackBoxback" to saveColor set the backgroundColor of graphic "fillin" to saveColor set the foregroundColor of graphic "blackbox" to saveForeColor --end repeat end mouseUp @ `y exampleText Selection Description false cREVGeneral scriptChecksum ,!`|< X revUniqueID 1013210361565 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 24 to 23scripton mouseUp
doBtnStuff
put the backgroundColor of graphic "blackbox" into saveColor
put the foregroundColor of graphic "blackbox" into saveForeColor
--repeat 2
wait 20
set the backgroundColor of graphic "blackBox" to "204,0,0"
set the backgroundColor of graphic "blackBoxback" to "204,0,0"
set the backgroundColor of graphic "fillin" to "204,0,0"
repeat 15
set the backgroundPattern of graphic "blackBox" to random(164)
set the foregroundColor of graphic "blackBox" to random(255),random(255),random(255)
wait 10
end repeat
set the backgroundColor of graphic "blackBox" to saveColor
set the backgroundColor of graphic "blackBoxback" to saveColor
set the backgroundColor of graphic "fillin" to saveColor
set the foregroundColor of graphic "blackbox" to saveForeColor
--end repeat
end mouseUp
cover3 ` \ Von mouseUp doBtnStuff set the label of btn "movingBtn" to "DaTa>>" set the textFont of btn "movingBtn" to "Times New Roman" set the textStyle of btn "movingBtn" to "bold" set the foregroundColor of btn "movingBtn" to blue wait 15 ticks move btn "movingBtn" to 548,344 in 2 sec --revPlayAnimation "dataAnim",15,30 end mouseUp @ ty exampleText Selection Description false cREVGeneral scriptChecksum KA 7Tm{n U bookmarks revUniqueID 1013210373427 handlerList mouseUpscriptSelection char 291 to 290 prevHandler mouseUp tempScript scripton mouseUp
doBtnStuff
set the label of btn "movingBtn" to "DaTa>>"
set the textFont of btn "movingBtn" to "Times New Roman"
set the textStyle of btn "movingBtn" to "bold"
set the foregroundColor of btn "movingBtn" to blue
wait 15 ticks
move btn "movingBtn" to 548,344 in 2 sec
--revPlayAnimation "dataAnim",15,30
end mouseUp
coverBtns3 i$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 C cREVGeneral scriptChecksum VAlсO*g bookmarks revUniqueID 1013213175054 handlerList mouseUpscriptSelection char 291 to 290 prevHandler tempScript scripton 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
cover1 ` @ Gy exampleText -- for example, -- to get the results of a mathematical calculation: -- the square root of some number -- some number times 12 -- or to change text in some consistent way: -- change the color of every third character to blue cREVGeneral scriptChecksum ُ B~ revUniqueID 1013122071654 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 1 to 0scriptcover1 ` @ y exampleText T-- for example, -- play a sound -- put text into a field -- go to another card cREVGeneral scriptChecksum ُ B~ revUniqueID 1013210373427 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 2 to 1script
cover1 ` @ y P exampleText cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013210382188 handlerList scriptSelection char 2 to 1 prevHandler mouseUp tempScript script
coverBtns4 $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 D Selection Description false cREVGeneral scriptChecksum VAlсO*g revUniqueID 1013213175054 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection script
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
cover1 h L @ Hy R exampleText function getStackPath stFileName set the itemDelimiter to "/" delete last item of stFileName return stFileName end getStackPath cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013122071654 handlerList scriptSelection char 2 to 1 prevHandler mouseUp tempScript script, cover2 h L @ y , exampleText function getStackPath stFileName set the itemDelimiter to "/" delete last item of stFileName return stFileName end getStackPath cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013535772848 handlerList scriptSelection char 1 to 0 prevHandler mouseUp tempScript script b cover3 h L @ y , exampleText cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013535772848 handlerList scriptSelection prevHandler mouseUp tempScript script coverBtns4 $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 false cREVGeneral scriptChecksum VAlсO*g bookmarks revUniqueID 1013213175054 handlerList mouseUpscriptSelection char 11 to 10 prevHandler mouseUp tempScript script
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
cover1 ` @ ,y & exampleText -- You call a Transcript function like this: put random(15) into myRandomNum -- or like this: put the random of 15 into myRandomNum cREVGeneral scriptChecksum ُ B~ revUniqueID 1013122071654 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 2 to 1scriptcover2 ` @ Zy * exampleText q-- Here is a valid function call for a custom function: put getStackPath(the filename of this stack) into myPath cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013210361565 handlerList scriptSelection char 2 to 1 prevHandler mouseUp tempScript script
coverBtns4 $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 C Selection Description false cREVGeneral scriptChecksum VAlсO*g revUniqueID 1013213175054 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection script
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
" cover1 ` @ Gy exampleText function explode string repeat for each character nextChar in string put nextChar & space after explodedString end repeat return explodedString end explode -- enter in message box: put explode("This is really big news!") into fld "output" cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013122071654 handlerList scriptSelection prevHandler mouseUp tempScript script! # cover1 ` @ ny exampleText 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 -- enter in message box: answer itemsToLines("red,yellow,blue,green") cREVGeneral scriptChecksum ُ B~ revUniqueID 1013210361565 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 2 to 1script
! $ cover1 ` @ y 6 exampleText gfunction 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 --enter in message box: put capitalize("this is a sentence.",false) into fld "output" cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1013210373427 handlerList scriptSelection char 2 to 1 prevHandler mouseUp tempScript script
! 9 output )h cREVGeneral revUniqueID 1013546304447 bookmarks handlerList scriptSelection prevHandler tempScript script \ blackbox T cREVGeneral revUniqueID 1014334240665 U blackBoxback KH black | Selection Description false myFunction cREVGeneral revUniqueID 1014333024995 bookmarks handlerList tempScript prevHandler scriptSelection script [ fillin JB black black @ { ! cREVGeneral revUniqueID 1014333996159 X New Graphic 1 KF cREVGeneral revUniqueID 1014333857166 Y New Graphic 2 KF cREVGeneral revUniqueID 1014333892882 Z New Graphic 1 KF cREVGeneral revUniqueID 1014333905436 V movingBtn eH white @ < p & Selection Description false0 data>> cREVAnimationdataAnim16 number 7layer 21rect 283,305,395,343 cREVAnimationdataAnim19 number 7layer 21rect 329,306,441,344 cREVAnimationdataAnim22 number 7layer 21rect 374,308,486,346 cREVAnimationdataAnim25 number 7layer 21rect 419,309,531,347 cREVAnimationdataAnim28 number 7layer 21rect 464,310,576,348 cREVAnimationdataAnimbase 9 traversalOn trueink srcCopythreeD false hiliteBorder truerect 10,310,122,348 mnemonic 0armFill false visitedIcon 0 patterns showName true showIcon falsecolors O204,0,0 208,208,208 255,255,255 0,0,0 255,255,255 172,172,172 169,169,169 0,0,0hilited false sharedHilite trueshadow false textAlign centerarmed falsemenuMouseButton 1 hilitedIcon 0id 1110altId 0 labelWidth 0number 7 accelKey armedIcon 0 textStyle plainlockLoc false showHilite falselabel data>> autoHilite truestyle transparent disabledIcon 0 armBorder truename movingBtnicon 0toolTip layer 21 accelText visible true cantSelect false borderWidth 2 menuLines 5margins 4opaque false accelMods command shadowOffset 4default false menuName hiliteFill true showBorder false textSize 24 disabled falseautoArm false menuMode family 0 textFont Arial Black menuHistory 1 cREVAnimationdataAnim2 number 7layer 21rect 33,316,145,354 cREVAnimationdataAnim29 number 7layer 21rect 479,310,591,348 cREVAnimationdataAnim number 1layer 3rect 160,314,272,352 cREVAnimationdataAnim30 number 7layer 21rect 494,310,606,348 cREVAnimationdataAnim15 number 7layer 21rect 268,304,380,342 cREVAnimationdataAnim1 number 7layer 14rect 16,316,128,354 cREVAnimation dataAnim,25,playState dataAnim,1,playState dataAnim,30,playState dataAnim,29,playState dataAnim,3,playState dataAnim,32,playState dataAnim,15,playState dataAnim,,playState dataAnim,19,playState dataAnim,22,playState dataAnim,2,playState dataAnim,28,playState dataAnim,allProperties rect layer numberdataAnim,31,playState dataAnim,keyFrames %1, 2, 15, 16, 19, 22, 25, 28, 29, 30,dataAnim,33,playState dataAnim,16,playState cREVGeneral revUniqueID 1014333138659 W blackBox KH black | Selection Description false myFunction cREVGeneral bookmarks revUniqueID 1014333830606 handlerList scriptSelection prevHandler tempScript script ] Reset cP
put empty into fld "example"
repeat with x = 1 to number of cd btns
set the opaque of cd btn x to true
set the hilite of cd btn x to false
end repeat
if there is a cd fld 1 then
repeat with x = 1 to number of cd flds
put empty into cd fld x
end repeat
end if
end mouseUp
^ Resetthiscard cP >on mouseUp resetAnim send mouseUp to btn "reset" end mouseUp @ 4 $ Selection Description false6 Reset cREVGeneral scriptChecksum \Ӥ]Im bookmarks revUniqueID 1013121077929 handlerList mouseUpscriptSelection char 51 to 50 prevHandler mouseUp tempScript scripton mouseUp
resetAnim
send mouseUp to btn "reset"
end mouseUp
: output )h cREVGeneral bookmarks revUniqueID 1013546304447 handlerList tempScript prevHandler scriptSelection script !