<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>14</cardCount>
<cardID>8024</cardID>
<listID>6741</listID>
<cantModify><true /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>288</height>
</cardSize>
<script>on closeStackend closeStackon openStackglobal startWindowsglobal RS_userModifyglobal doneRegionCopyRightput the userModify into RS_userModifyif doneRegionCopyRight is not "dunnit" and there is a stack "Start Here" thengo to stack "Start Here"elseset userModify to trueend ifset cursor to watchput the windows into startWindowshide groupsset userModify to truestartUsingRegionsif the short name of this cd is "gray" thenvisual effect dissolve-- stop multiple openCard msgsset lockMessages to truego to card "Intro"set lockMessages to falseend ifend openStackon suspendStackglobal RS_userModifyset userModify to RS_userModifyRegion normalRegion hideAllend suspendStackon resumeStackset userModify to truestartUsingRegionsRegion showAllend resumeStackon closeStackglobal startWindowsglobal RS_userModifyset the userModify to RS_userModifyput empty into RS_userModifystopUsingRegionscleanUpWindows startWindowsend closeStackon startUsingRegionsglobal sFontput the scriptTextFont into sFontif sFont is not "Sticky Monaco" thenset the scriptTextFont to "Sticky Monaco"end ifif "Region XCMD" is not in the stacksInUse thenstart using stack "Region XCMD"end ifsetupRegionsend startUsingRegionson stopUsingRegionsglobal sFontset the scriptTextFont to sFontif "Region XCMD" is in the stacksInUse thencleanupRegionsstop using stack "Region XCMD"end ifend stopUsingRegionsfunction gotRegionsreturn "Region XCMD" is in the stacksInUseend gotRegionsfunction toggleRegionsif gotRegions() thenstopUsingRegionsreturn "off"elsestartUsingRegionsreturn "on"end ifend toggleRegionson startBannerif there is not a window Banner thenRegion Banner,"300,0","%Banner"set the idle of window Banner to "set the loc of window Banner to random(100) + 300 &" ¬&& quote & "," & quote && "& random(200)" & return ¬& "if random(4) is 3 then" & return ¬& "set the hilite of window Banner to not the hilite of window Banner" & return ¬& "end if"set the idleTime of window Banner to 900end ifend startBanneron stopBannerif there is a window Banner then close window Bannerend stopBanneron cleanUpWindows checkPointset the cursor to watchput the windows into nowif now = checkPoint then exit cleanUpWindowsrepeat with i = 1 to the number of lines in nowput line i of now into windif wind is not in checkPoint then close window windend repeatend cleanUpWindowson activeTextput the clickChunk into invertput the textStyle of the clickChunk into stylif "group" is not in styl then exit activeTextif not gotRegions() thenanswer "You are not “using” Regions" with "Oops!"exit activeTextend ifput the clickText into hitif char 1 of hit = "·" or char 1 of hit = " " thenset the textStyle of invert to (styl & ",bold")put "send" && Xlate(hit, "Ident") && "to" && the name of this card into cmdset the textStyle of invert to styldo cmdelse -- HyperTalkselect the clickChunkdo hitselect emptyend ifend activeText</script>
