home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / graphics / quicktim / hmvplay.cpt / HyperMovie Player 3.0 / cards.xml < prev    next >
Encoding:
Text File  |  1992-10-27  |  43.8 KB  |  977 lines
  1. card_2930.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2930</id>
  6.     <filler1>0</filler1>
  7.     <bitmap>BMAP_3650.pbm</bitmap>
  8.     <cantDelete> <false /> </cantDelete>
  9.     <showPict> <true /> </showPict>
  10.     <dontSearch> <false /> </dontSearch>
  11.     <owner>2609</owner>
  12.     <link rel="stylesheet" type="text/css" href="stylesheet_3156.css" />
  13.     <part>
  14.         <id>1</id>
  15.         <type>button</type>
  16.         <visible> <true /> </visible>
  17.         <reserved5> 0 </reserved5>
  18.         <reserved4> 0 </reserved4>
  19.         <reserved3> 0 </reserved3>
  20.         <reserved2> 0 </reserved2>
  21.         <reserved1> 0 </reserved1>
  22.         <enabled> <true /> </enabled>
  23.         <rect>
  24.             <left>10</left>
  25.             <top>308</top>
  26.             <right>85</right>
  27.             <bottom>337</bottom>
  28.         </rect>
  29.         <style>shadow</style>
  30.         <showName> <true /> </showName>
  31.         <highlight> <false /> </highlight>
  32.         <autoHighlight> <true /> </autoHighlight>
  33.         <sharedHighlight> <true /> </sharedHighlight>
  34.         <family>0</family>
  35.         <titleWidth>0</titleWidth>
  36.         <icon>0</icon>
  37.         <textAlign>center</textAlign>
  38.         <font>Geneva</font>
  39.         <textSize>9</textSize>
  40.         <textStyle>plain</textStyle>
  41.         <name>About...</name>
  42.         <script>on mouseUpvisual effect dissolvego cd "Credits"end mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "About" & return & return & "Click this button to " ┬¼& "get more info about HyperMovie Player." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  43.     </part>
  44.     <part>
  45.         <id>2</id>
  46.         <type>button</type>
  47.         <visible> <true /> </visible>
  48.         <reserved5> 0 </reserved5>
  49.         <reserved4> 0 </reserved4>
  50.         <reserved3> 0 </reserved3>
  51.         <reserved2> 0 </reserved2>
  52.         <reserved1> 0 </reserved1>
  53.         <enabled> <true /> </enabled>
  54.         <rect>
  55.             <left>88</left>
  56.             <top>308</top>
  57.             <right>162</right>
  58.             <bottom>337</bottom>
  59.         </rect>
  60.         <style>shadow</style>
  61.         <showName> <true /> </showName>
  62.         <highlight> <false /> </highlight>
  63.         <autoHighlight> <true /> </autoHighlight>
  64.         <sharedHighlight> <true /> </sharedHighlight>
  65.         <family>0</family>
  66.         <titleWidth>0</titleWidth>
  67.         <icon>0</icon>
  68.         <textAlign>center</textAlign>
  69.         <font>Geneva</font>
  70.         <textSize>9</textSize>
  71.         <textStyle>plain</textStyle>
  72.         <name>Quit</name>
  73.         <script>on mouseUpanswer "Please remember to send your shareware fee. Thank you!"doMenu "Quit HyperCard"end mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Quit" & return & return & "Click this button to " ┬¼& "close HyperMovie Player and quit HyperCard." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  74.     </part>
  75.     <part>
  76.         <id>4</id>
  77.         <type>button</type>
  78.         <visible> <true /> </visible>
  79.         <reserved5> 0 </reserved5>
  80.         <reserved4> 0 </reserved4>
  81.         <reserved3> 0 </reserved3>
  82.         <reserved2> 0 </reserved2>
  83.         <reserved1> 0 </reserved1>
  84.         <enabled> <true /> </enabled>
  85.         <rect>
  86.             <left>183</left>
  87.             <top>28</top>
  88.             <right>222</right>
  89.             <bottom>66</bottom>
  90.         </rect>
  91.         <style>shadow</style>
  92.         <showName> <false /> </showName>
  93.         <highlight> <false /> </highlight>
  94.         <autoHighlight> <true /> </autoHighlight>
  95.         <sharedHighlight> <true /> </sharedHighlight>
  96.         <family>0</family>
  97.         <titleWidth>0</titleWidth>
  98.         <icon>9826</icon>
  99.         <textAlign>center</textAlign>
  100.         <font>Chicago</font>
  101.         <textSize>12</textSize>
  102.         <textStyle>plain</textStyle>
  103.         <name></name>
  104.         <script>on mouseStillDownglobal MovieWindow, whereFlag, playFlagif there is a window MovieWindow thenif the optionKey is down then exit mouseStillDownput the currTime of window MovieWindow into whereAtput the startTime of window MovieWindow into theBeginningif whereAt<=theBeginning thenput "Start" into whereFlaggetVolumeexit mouseStillDownelseput "" into whereFlagend ifif whereFlag = "Start" thenexit mouseStillDownend ifset the audioLevel of window MovieWindow to 0set the rate of window MovieWindow to -5.0send "StepRev" to window MovieWindowgetVolumeelsebeepanswer "You do not have a movie open."end ifend mouseStillDownon mouseDownglobal MovieWindow, playFlagif there is a window MovieWindow thenput false into playFlagif the optionKey is down thenset the audioLevel of window MovieWindow to 0send "StepRev" to window MovieWindowgetVolumeend ifend ifend mouseDownon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Reverse" & return & return & "Click this button to " ┬¼& "scan backward through a movie.  Holding down the " ┬¼& "option key and clicking this button will" ┬¼& " step the movie backward one frame at a time." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  105.     </part>
  106.     <part>
  107.         <id>7</id>
  108.         <type>button</type>
  109.         <visible> <true /> </visible>
  110.         <reserved5> 0 </reserved5>
  111.         <reserved4> 0 </reserved4>
  112.         <reserved3> 0 </reserved3>
  113.         <reserved2> 0 </reserved2>
  114.         <reserved1> 0 </reserved1>
  115.         <enabled> <true /> </enabled>
  116.         <rect>
  117.             <left>223</left>
  118.             <top>28</top>
  119.             <right>262</right>
  120.             <bottom>66</bottom>
  121.         </rect>
  122.         <style>shadow</style>
  123.         <showName> <false /> </showName>
  124.         <highlight> <false /> </highlight>
  125.         <autoHighlight> <true /> </autoHighlight>
  126.         <sharedHighlight> <true /> </sharedHighlight>
  127.         <family>0</family>
  128.         <titleWidth>0</titleWidth>
  129.         <icon>27638</icon>
  130.         <textAlign>center</textAlign>
  131.         <font>Chicago</font>
  132.         <textSize>12</textSize>
  133.         <textStyle>plain</textStyle>
  134.         <name></name>
  135.         <script>on mouseUpglobal MovieWindow, playFlagif there is a window MovieWindow thensend "Play" to window MovieWindowput true into playFlagelsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Play" & return & return & "Click this button to play the movie." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  136.     </part>
  137.     <part>
  138.         <id>5</id>
  139.         <type>button</type>
  140.         <visible> <true /> </visible>
  141.         <reserved5> 0 </reserved5>
  142.         <reserved4> 0 </reserved4>
  143.         <reserved3> 0 </reserved3>
  144.         <reserved2> 0 </reserved2>
  145.         <reserved1> 0 </reserved1>
  146.         <enabled> <true /> </enabled>
  147.         <rect>
  148.             <left>263</left>
  149.             <top>28</top>
  150.             <right>302</right>
  151.             <bottom>66</bottom>
  152.         </rect>
  153.         <style>shadow</style>
  154.         <showName> <false /> </showName>
  155.         <highlight> <false /> </highlight>
  156.         <autoHighlight> <true /> </autoHighlight>
  157.         <sharedHighlight> <true /> </sharedHighlight>
  158.         <family>0</family>
  159.         <titleWidth>0</titleWidth>
  160.         <icon>23660</icon>
  161.         <textAlign>center</textAlign>
  162.         <font>Chicago</font>
  163.         <textSize>12</textSize>
  164.         <textStyle>plain</textStyle>
  165.         <name></name>
  166.         <script>on mouseStillDownglobal MovieWindow, whereFlagif there is a window MovieWindow thenif the optionKey is down then exit mouseStillDownput the currTime of window MovieWindow into whereAtput the endTime of window MovieWindow into theEndif whereAt=theEnd thenput "End" into whereFlaggetVolumeexit mouseStillDownelseput "" into whereFlagend ifif whereFlag = "End" thenexit mouseStillDownend ifset the audioLevel of window MovieWindow to 0set the rate of window MovieWindow to 5.0send "StepFwd" to window MovieWindowgetVolumeelsebeepanswer "You do not have a movie open."end ifend mouseStillDownon mouseUpglobal MovieWindow, playFlagif there is a window MovieWindow thenput false into playFlagif the optionKey is down thenset the audioLevel of window MovieWindow to 0send "StepFwd" to window MovieWindowgetVolumeend ifend ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Forward" & return & return & "Click this button to " ┬¼& "scan forward through a movie. Holding down the " ┬¼& "option key and clicking this button will" ┬¼& " step forward one frame at a time." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  167.     </part>
  168.     <part>
  169.         <id>6</id>
  170.         <type>button</type>
  171.         <visible> <true /> </visible>
  172.         <reserved5> 0 </reserved5>
  173.         <reserved4> 0 </reserved4>
  174.         <reserved3> 0 </reserved3>
  175.         <reserved2> 0 </reserved2>
  176.         <reserved1> 0 </reserved1>
  177.         <enabled> <true /> </enabled>
  178.         <rect>
  179.             <left>303</left>
  180.             <top>28</top>
  181.             <right>342</right>
  182.             <bottom>66</bottom>
  183.         </rect>
  184.         <style>shadow</style>
  185.         <showName> <false /> </showName>
  186.         <highlight> <false /> </highlight>
  187.         <autoHighlight> <true /> </autoHighlight>
  188.         <sharedHighlight> <true /> </sharedHighlight>
  189.         <family>0</family>
  190.         <titleWidth>0</titleWidth>
  191.         <icon>25885</icon>
  192.         <textAlign>center</textAlign>
  193.         <font>Chicago</font>
  194.         <textSize>12</textSize>
  195.         <textStyle>plain</textStyle>
  196.         <name></name>
  197.         <script>on mouseUpglobal MovieWindow, playFlagif there is a window MovieWindow thensend "Pause" to window MovieWindowput false into playFlagelsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Stop" & return & return & "Click this button to stop a movie." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  198.     </part>
  199.     <part>
  200.         <id>19</id>
  201.         <type>button</type>
  202.         <visible> <true /> </visible>
  203.         <reserved5> 0 </reserved5>
  204.         <reserved4> 0 </reserved4>
  205.         <reserved3> 0 </reserved3>
  206.         <reserved2> 0 </reserved2>
  207.         <reserved1> 0 </reserved1>
  208.         <enabled> <true /> </enabled>
  209.         <rect>
  210.             <left>183</left>
  211.             <top>68</top>
  212.             <right>280</right>
  213.             <bottom>93</bottom>
  214.         </rect>
  215.         <style>shadow</style>
  216.         <showName> <true /> </showName>
  217.         <highlight> <false /> </highlight>
  218.         <autoHighlight> <true /> </autoHighlight>
  219.         <sharedHighlight> <true /> </sharedHighlight>
  220.         <family>0</family>
  221.         <titleWidth>0</titleWidth>
  222.         <icon>0</icon>
  223.         <textAlign>center</textAlign>
  224.         <font>Geneva</font>
  225.         <textSize>9</textSize>
  226.         <textStyle>bold</textStyle>
  227.         <name>Load Movie</name>
  228.         <script>on mouseUpglobal MovieWindow, openFlag, windowType, theMovieNameif openFlag is false thenanswer file "Select a QuickTime movie:" of type "MooV"if the result is "Cancel" then exit mouseUpput it into theMovieNamelock screenput theMovieName into cd fld "MooVName"Movie theMovieName, windowType,"5,15","invisible","floating"set the controllerVisible of window MovieWindow to falseset the badge of window MovieWindow to falseshow window MovieWindowgetVolumeunlock screenput true into openFlagelsebeepanswer "Sorry, you cannot have more than one movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Load Movie" & return & return & "Click this button to " ┬¼& "display the standard open file dialog and " ┬¼& "select a movie to be loaded." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  229.     </part>
  230.     <part>
  231.         <id>20</id>
  232.         <type>button</type>
  233.         <visible> <true /> </visible>
  234.         <reserved5> 0 </reserved5>
  235.         <reserved4> 0 </reserved4>
  236.         <reserved3> 0 </reserved3>
  237.         <reserved2> 0 </reserved2>
  238.         <reserved1> 0 </reserved1>
  239.         <enabled> <true /> </enabled>
  240.         <rect>
  241.             <left>285</left>
  242.             <top>68</top>
  243.             <right>382</right>
  244.             <bottom>93</bottom>
  245.         </rect>
  246.         <style>shadow</style>
  247.         <showName> <true /> </showName>
  248.         <highlight> <false /> </highlight>
  249.         <autoHighlight> <true /> </autoHighlight>
  250.         <sharedHighlight> <true /> </sharedHighlight>
  251.         <family>0</family>
  252.         <titleWidth>0</titleWidth>
  253.         <icon>0</icon>
  254.         <textAlign>center</textAlign>
  255.         <font>Geneva</font>
  256.         <textSize>9</textSize>
  257.         <textStyle>bold</textStyle>
  258.         <name>Eject Movie</name>
  259.         <script>on mouseUpglobal MovieWindow, openFlag, playFlagif there is a window MovieWindow thenput false into playFlagclose window MovieWindowput "" into MovieWindowresetControlsput false into openFlagelsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Eject Movie" & return & return & "Click this button to " ┬¼& "close the currently open movie. " into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  260.     </part>
  261.     <part>
  262.         <id>21</id>
  263.         <type>field</type>
  264.         <visible> <true /> </visible>
  265.         <dontWrap> <false /> </dontWrap>
  266.         <dontSearch> <false /> </dontSearch>
  267.         <sharedText> <false /> </sharedText>
  268.         <fixedLineHeight> <false /> </fixedLineHeight>
  269.         <autoTab> <false /> </autoTab>
  270.         <lockText> <true /> </lockText>
  271.         <rect>
  272.             <left>181</left>
  273.             <top>300</top>
  274.             <right>458</right>
  275.             <bottom>338</bottom>
  276.         </rect>
  277.         <style>rectangle</style>
  278.         <autoSelect> <false /> </autoSelect>
  279.         <showLines> <false /> </showLines>
  280.         <wideMargins> <false /> </wideMargins>
  281.         <multipleLines> <false /> </multipleLines>
  282.         <reservedFamily> 0 </reservedFamily>
  283.         <titleWidth>0</titleWidth>
  284.         <icon>0</icon>
  285.         <textAlign>left</textAlign>
  286.         <font>Geneva</font>
  287.         <textSize>9</textSize>
  288.         <textStyle>plain</textStyle>
  289.         <textHeight>12</textHeight>
  290.         <name>MooVName</name>
  291.         <script>on mouseEnterglobal helpFlagif helpFlag is "on" thenput "Movie Name and Path" & return & return & "This field " ┬¼& "displays the name of the open movie and its location on your disk." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  292.     </part>
  293.     <part>
  294.         <id>22</id>
  295.         <type>button</type>
  296.         <visible> <true /> </visible>
  297.         <reserved5> 0 </reserved5>
  298.         <reserved4> 0 </reserved4>
  299.         <reserved3> 0 </reserved3>
  300.         <reserved2> 0 </reserved2>
  301.         <reserved1> 0 </reserved1>
  302.         <enabled> <true /> </enabled>
  303.         <rect>
  304.             <left>254</left>
  305.             <top>227</top>
  306.             <right>324</right>
  307.             <bottom>278</bottom>
  308.         </rect>
  309.         <style>shadow</style>
  310.         <showName> <true /> </showName>
  311.         <highlight> <false /> </highlight>
  312.         <autoHighlight> <true /> </autoHighlight>
  313.         <sharedHighlight> <true /> </sharedHighlight>
  314.         <family>0</family>
  315.         <titleWidth>0</titleWidth>
  316.         <icon>2000</icon>
  317.         <textAlign>center</textAlign>
  318.         <font>Geneva</font>
  319.         <textSize>9</textSize>
  320.         <textStyle>bold</textStyle>
  321.         <name>Turn Loop On</name>
  322.         <script>on mouseUpglobal MovieWindowif there is a window MovieWindow thenif the short name of me is "Turn Loop Off" thenset the loop of window MovieWindow to falseset the name of me to "Turn Loop On"elseset the loop of window MovieWindow to trueset the name of me to "Turn Loop Off"end ifelsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Loop" & return & return & "This button " ┬¼& "will turn movie looping on or off." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  323.     </part>
  324.     <part>
  325.         <id>23</id>
  326.         <type>button</type>
  327.         <visible> <true /> </visible>
  328.         <reserved5> 0 </reserved5>
  329.         <reserved4> 0 </reserved4>
  330.         <reserved3> 0 </reserved3>
  331.         <reserved2> 0 </reserved2>
  332.         <reserved1> 0 </reserved1>
  333.         <enabled> <true /> </enabled>
  334.         <rect>
  335.             <left>180</left>
  336.             <top>227</top>
  337.             <right>250</right>
  338.             <bottom>278</bottom>
  339.         </rect>
  340.         <style>shadow</style>
  341.         <showName> <true /> </showName>
  342.         <highlight> <false /> </highlight>
  343.         <autoHighlight> <true /> </autoHighlight>
  344.         <sharedHighlight> <true /> </sharedHighlight>
  345.         <family>0</family>
  346.         <titleWidth>0</titleWidth>
  347.         <icon>1000</icon>
  348.         <textAlign>center</textAlign>
  349.         <font>Geneva</font>
  350.         <textSize>9</textSize>
  351.         <textStyle>bold</textStyle>
  352.         <name>Turn Mute On</name>
  353.         <script>on mouseUpglobal MovieWindowif there is a window MovieWindow thenlock screenif the short name of me is "Turn Mute Off" thenset the mute of window MovieWindow to falseset the name of me to "Turn Mute On"set the icon of me to 1000elseset the mute of window MovieWindow to trueset the name of me to "Turn Mute Off"set the icon of me to 1001end ifunlock screenelsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Audio Mute" & return & return & "This button " ┬¼& "will turn mute on or off." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  354.     </part>
  355.     <part>
  356.         <id>25</id>
  357.         <type>button</type>
  358.         <visible> <true /> </visible>
  359.         <reserved5> 0 </reserved5>
  360.         <reserved4> 0 </reserved4>
  361.         <reserved3> 0 </reserved3>
  362.         <reserved2> 0 </reserved2>
  363.         <reserved1> 0 </reserved1>
  364.         <enabled> <true /> </enabled>
  365.         <rect>
  366.             <left>329</left>
  367.             <top>227</top>
  368.             <right>399</right>
  369.             <bottom>278</bottom>
  370.         </rect>
  371.         <style>shadow</style>
  372.         <showName> <true /> </showName>
  373.         <highlight> <false /> </highlight>
  374.         <autoHighlight> <true /> </autoHighlight>
  375.         <sharedHighlight> <true /> </sharedHighlight>
  376.         <family>0</family>
  377.         <titleWidth>0</titleWidth>
  378.         <icon>20653</icon>
  379.         <textAlign>center</textAlign>
  380.         <font>Geneva</font>
  381.         <textSize>9</textSize>
  382.         <textStyle>bold</textStyle>
  383.         <name>Copy Frame</name>
  384.         <script>on mouseUpglobal MovieWindowif there is a window MovieWindow thensend "CopyFrame" to window MovieWindowanswer "The frame has been copied to the clipboard."elsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Copy Frame" & return & return & "This button " ┬¼& "will copy the current frame to the clipboard." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  385.     </part>
  386.     <part>
  387.         <id>27</id>
  388.         <type>button</type>
  389.         <visible> <true /> </visible>
  390.         <reserved5> 0 </reserved5>
  391.         <reserved4> 0 </reserved4>
  392.         <reserved3> 0 </reserved3>
  393.         <reserved2> 0 </reserved2>
  394.         <reserved1> 0 </reserved1>
  395.         <enabled> <true /> </enabled>
  396.         <rect>
  397.             <left>343</left>
  398.             <top>28</top>
  399.             <right>382</right>
  400.             <bottom>66</bottom>
  401.         </rect>
  402.         <style>shadow</style>
  403.         <showName> <false /> </showName>
  404.         <highlight> <false /> </highlight>
  405.         <autoHighlight> <true /> </autoHighlight>
  406.         <sharedHighlight> <true /> </sharedHighlight>
  407.         <family>0</family>
  408.         <titleWidth>0</titleWidth>
  409.         <icon>24601</icon>
  410.         <textAlign>center</textAlign>
  411.         <font>Chicago</font>
  412.         <textSize>12</textSize>
  413.         <textStyle>plain</textStyle>
  414.         <name></name>
  415.         <script>on mouseUpglobal MovieWindow, playFlagif there is a window MovieWindow thenput false into playFlagput the startTime of window MovieWindow into theBeginningset currTime of window MovieWindow to theBeginningelsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Return to Start" & return & return & "Click this button to " ┬¼& "return to the first frame of a movie." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  416.     </part>
  417.     <part>
  418.         <id>30</id>
  419.         <type>field</type>
  420.         <visible> <true /> </visible>
  421.         <dontWrap> <false /> </dontWrap>
  422.         <dontSearch> <false /> </dontSearch>
  423.         <sharedText> <false /> </sharedText>
  424.         <fixedLineHeight> <false /> </fixedLineHeight>
  425.         <autoTab> <false /> </autoTab>
  426.         <lockText> <true /> </lockText>
  427.         <rect>
  428.             <left>401</left>
  429.             <top>36</top>
  430.             <right>448</right>
  431.             <bottom>54</bottom>
  432.         </rect>
  433.         <style>rectangle</style>
  434.         <autoSelect> <false /> </autoSelect>
  435.         <showLines> <false /> </showLines>
  436.         <wideMargins> <false /> </wideMargins>
  437.         <multipleLines> <false /> </multipleLines>
  438.         <reservedFamily> 0 </reservedFamily>
  439.         <titleWidth>0</titleWidth>
  440.         <icon>0</icon>
  441.         <textAlign>left</textAlign>
  442.         <font>Geneva</font>
  443.         <textSize>9</textSize>
  444.         <textStyle>bold</textStyle>
  445.         <textHeight>12</textHeight>
  446.         <name>VolFld</name>
  447.         <script>on mouseEnterglobal helpFlagif helpFlag is "on" thenput "Volume Level" & return & return & "This field " ┬¼& "displays the current volume level." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  448.     </part>
  449.     <part>
  450.         <id>31</id>
  451.         <type>button</type>
  452.         <visible> <true /> </visible>
  453.         <reserved5> 0 </reserved5>
  454.         <reserved4> 0 </reserved4>
  455.         <reserved3> 0 </reserved3>
  456.         <reserved2> 0 </reserved2>
  457.         <reserved1> 0 </reserved1>
  458.         <enabled> <true /> </enabled>
  459.         <rect>
  460.             <left>404</left>
  461.             <top>227</top>
  462.             <right>474</right>
  463.             <bottom>278</bottom>
  464.         </rect>
  465.         <style>shadow</style>
  466.         <showName> <true /> </showName>
  467.         <highlight> <false /> </highlight>
  468.         <autoHighlight> <true /> </autoHighlight>
  469.         <sharedHighlight> <true /> </sharedHighlight>
  470.         <family>0</family>
  471.         <titleWidth>0</titleWidth>
  472.         <icon>3000</icon>
  473.         <textAlign>center</textAlign>
  474.         <font>Geneva</font>
  475.         <textSize>9</textSize>
  476.         <textStyle>bold</textStyle>
  477.         <name>Show Controls</name>
  478.         <script>on mouseUpglobal MovieWindowif there is a window MovieWindow thenif the short name of me is "Hide Controls" thenset the controllerVisible of window MovieWindow to falseset the name of me to "Show Controls"elseset the controllerVisible of window MovieWindow to trueset the name of me to "Hide Controls"end ifelsebeepanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Show/Hide Controls" & return & return & "This button " ┬¼& "will show or hide the standard QuickTimeΓäó movie controller." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  479.     </part>
  480.     <part>
  481.         <id>32</id>
  482.         <type>button</type>
  483.         <visible> <true /> </visible>
  484.         <reserved5> 0 </reserved5>
  485.         <reserved4> 0 </reserved4>
  486.         <reserved3> 0 </reserved3>
  487.         <reserved2> 0 </reserved2>
  488.         <reserved1> 0 </reserved1>
  489.         <enabled> <true /> </enabled>
  490.         <rect>
  491.             <left>450</left>
  492.             <top>33</top>
  493.             <right>463</right>
  494.             <bottom>45</bottom>
  495.         </rect>
  496.         <style>transparent</style>
  497.         <showName> <false /> </showName>
  498.         <highlight> <false /> </highlight>
  499.         <autoHighlight> <false /> </autoHighlight>
  500.         <sharedHighlight> <true /> </sharedHighlight>
  501.         <family>0</family>
  502.         <titleWidth>0</titleWidth>
  503.         <icon>0</icon>
  504.         <textAlign>center</textAlign>
  505.         <font>Chicago</font>
  506.         <textSize>12</textSize>
  507.         <textStyle>plain</textStyle>
  508.         <name></name>
  509.         <script>on mouseUpglobal MovieWindowif there is a window MovieWindow thenput cd fld "VolFld" into sndVolumeif sndVolume < 7 thenadd 1 to sndVolumeif sndVolume = 0 then set the audioLevel of window MovieWindow to 0if sndVolume = 1 then set the audioLevel of window MovieWindow to 32if sndVolume = 2 then set the audioLevel of window MovieWindow to 64if sndVolume = 3 then set the audioLevel of window MovieWindow to 96if sndVolume = 4 then set the audioLevel of window MovieWindow to 128if sndVolume = 5 then set the audioLevel of window MovieWindow to 160if sndVolume = 6 then set the audioLevel of window MovieWindow to 192if sndVolume = 7 then set the audioLevel of window MovieWindow to 256put sndVolume into cd fld "VolFld"end ifelseanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Increase Volume" & return & return & "Click this button " ┬¼& "to increase the volume of a movie." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  510.     </part>
  511.     <part>
  512.         <id>33</id>
  513.         <type>button</type>
  514.         <visible> <true /> </visible>
  515.         <reserved5> 0 </reserved5>
  516.         <reserved4> 0 </reserved4>
  517.         <reserved3> 0 </reserved3>
  518.         <reserved2> 0 </reserved2>
  519.         <reserved1> 0 </reserved1>
  520.         <enabled> <true /> </enabled>
  521.         <rect>
  522.             <left>450</left>
  523.             <top>45</top>
  524.             <right>463</right>
  525.             <bottom>57</bottom>
  526.         </rect>
  527.         <style>transparent</style>
  528.         <showName> <false /> </showName>
  529.         <highlight> <false /> </highlight>
  530.         <autoHighlight> <false /> </autoHighlight>
  531.         <sharedHighlight> <true /> </sharedHighlight>
  532.         <family>0</family>
  533.         <titleWidth>0</titleWidth>
  534.         <icon>0</icon>
  535.         <textAlign>center</textAlign>
  536.         <font>Chicago</font>
  537.         <textSize>12</textSize>
  538.         <textStyle>plain</textStyle>
  539.         <name></name>
  540.         <script>on mouseUpglobal MovieWindowif there is a window MovieWindow thenput cd fld "VolFld" into sndVolumeif sndVolume > 0 thensubtract 1 from sndVolumeif sndVolume = 0 then set the audioLevel of window MovieWindow to 0if sndVolume = 1 then set the audioLevel of window MovieWindow to 32if sndVolume = 2 then set the audioLevel of window MovieWindow to 64if sndVolume = 3 then set the audioLevel of window MovieWindow to 96if sndVolume = 4 then set the audioLevel of window MovieWindow to 128if sndVolume = 5 then set the audioLevel of window MovieWindow to 160if sndVolume = 6 then set the audioLevel of window MovieWindow to 192if sndVolume = 7 then set the audioLevel of window MovieWindow to 256put sndVolume into cd fld "VolFld"end ifelseanswer "You do not have a movie open."end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Decrease Volume" & return & return & "Click this button " ┬¼& "to decrease the volume of a movie." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  541.     </part>
  542.     <part>
  543.         <id>36</id>
  544.         <type>field</type>
  545.         <visible> <true /> </visible>
  546.         <dontWrap> <false /> </dontWrap>
  547.         <dontSearch> <false /> </dontSearch>
  548.         <sharedText> <false /> </sharedText>
  549.         <fixedLineHeight> <false /> </fixedLineHeight>
  550.         <autoTab> <false /> </autoTab>
  551.         <lockText> <true /> </lockText>
  552.         <rect>
  553.             <left>176</left>
  554.             <top>122</top>
  555.             <right>476</right>
  556.             <bottom>212</bottom>
  557.         </rect>
  558.         <style>transparent</style>
  559.         <autoSelect> <false /> </autoSelect>
  560.         <showLines> <false /> </showLines>
  561.         <wideMargins> <false /> </wideMargins>
  562.         <multipleLines> <false /> </multipleLines>
  563.         <reservedFamily> 0 </reservedFamily>
  564.         <titleWidth>0</titleWidth>
  565.         <icon>0</icon>
  566.         <textAlign>left</textAlign>
  567.         <font>Geneva</font>
  568.         <textSize>9</textSize>
  569.         <textStyle>plain</textStyle>
  570.         <textHeight>12</textHeight>
  571.         <name>HelpFld</name>
  572.         <script></script>
  573.     </part>
  574.     <part>
  575.         <id>37</id>
  576.         <type>button</type>
  577.         <visible> <true /> </visible>
  578.         <reserved5> 0 </reserved5>
  579.         <reserved4> 0 </reserved4>
  580.         <reserved3> 0 </reserved3>
  581.         <reserved2> 0 </reserved2>
  582.         <reserved1> 0 </reserved1>
  583.         <enabled> <true /> </enabled>
  584.         <rect>
  585.             <left>399</left>
  586.             <top>77</top>
  587.             <right>473</right>
  588.             <bottom>95</bottom>
  589.         </rect>
  590.         <style>checkbox</style>
  591.         <showName> <true /> </showName>
  592.         <highlight> <false /> </highlight>
  593.         <autoHighlight> <false /> </autoHighlight>
  594.         <sharedHighlight> <true /> </sharedHighlight>
  595.         <family>0</family>
  596.         <titleWidth>0</titleWidth>
  597.         <icon>0</icon>
  598.         <textAlign>center</textAlign>
  599.         <font>Geneva</font>
  600.         <textSize>9</textSize>
  601.         <textStyle>bold</textStyle>
  602.         <name>Help Off</name>
  603.         <script>on mouseUpglobal helpFlagput the short name of me into myNameif myName is "Help Off" thenput "on" into helpFlagset the hilite of me to trueset the name of me to "Help On"answer "Point to a button to get help on that button."elseput "off" into  helpFlagset the hilite of me to falseset the name of me to "Help Off"end ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Toggle Help" & return & return & "Click this button " ┬¼& "to turn online help off or on." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  604.     </part>
  605.     <part>
  606.         <id>38</id>
  607.         <type>button</type>
  608.         <visible> <true /> </visible>
  609.         <reserved5> 0 </reserved5>
  610.         <reserved4> 0 </reserved4>
  611.         <reserved3> 0 </reserved3>
  612.         <reserved2> 0 </reserved2>
  613.         <reserved1> 0 </reserved1>
  614.         <enabled> <true /> </enabled>
  615.         <rect>
  616.             <left>18</left>
  617.             <top>223</top>
  618.             <right>50</right>
  619.             <bottom>255</bottom>
  620.         </rect>
  621.         <style>transparent</style>
  622.         <showName> <false /> </showName>
  623.         <highlight> <true /> </highlight>
  624.         <autoHighlight> <false /> </autoHighlight>
  625.         <sharedHighlight> <true /> </sharedHighlight>
  626.         <family>0</family>
  627.         <titleWidth>0</titleWidth>
  628.         <icon>0</icon>
  629.         <textAlign>center</textAlign>
  630.         <font>Chicago</font>
  631.         <textSize>12</textSize>
  632.         <textStyle>plain</textStyle>
  633.         <name>windoid</name>
  634.         <script>on mouseUplock screenglobal windowType, MovieWindow, theMovieName, playFlagset the hilite of me to trueset the hilite of cd btn "zoom" to falseset the hilite of cd btn "shadow" to falseset the hilite of cd btn "rect" to falseput "windoid" into windowTypeput "Windoid" into cd fld "WindStyle"put windowType into cd fld "WindTypeFld"unlock screenif there is a window MovieWindow thenlock screensend "MovieIdle" to window MovieWindowput windowLoc of window MovieWindow into theWindLocput currTime of window MovieWindow into theCTimeclose window MovieWindowput "" into MovieWindowput theMovieName into cd fld "MooVName"Movie theMovieName, windowType,theWindLoc,"invisible","floating"set the controllerVisible of window MovieWindow to falseset the badge of window MovieWindow to falseset currTime of window MovieWindow to theCTimeshow window MovieWindowgetVolumecheckSettingsunlock screenif playFlag is true thensend "Play" to window MovieWindowend ifend ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Windoid" & return & return & "Selecting this " ┬¼& "icon makes movies play in a Windoid style window." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  635.     </part>
  636.     <part>
  637.         <id>39</id>
  638.         <type>button</type>
  639.         <visible> <true /> </visible>
  640.         <reserved5> 0 </reserved5>
  641.         <reserved4> 0 </reserved4>
  642.         <reserved3> 0 </reserved3>
  643.         <reserved2> 0 </reserved2>
  644.         <reserved1> 0 </reserved1>
  645.         <enabled> <true /> </enabled>
  646.         <rect>
  647.             <left>51</left>
  648.             <top>223</top>
  649.             <right>83</right>
  650.             <bottom>255</bottom>
  651.         </rect>
  652.         <style>transparent</style>
  653.         <showName> <false /> </showName>
  654.         <highlight> <false /> </highlight>
  655.         <autoHighlight> <false /> </autoHighlight>
  656.         <sharedHighlight> <true /> </sharedHighlight>
  657.         <family>0</family>
  658.         <titleWidth>0</titleWidth>
  659.         <icon>0</icon>
  660.         <textAlign>center</textAlign>
  661.         <font>Chicago</font>
  662.         <textSize>12</textSize>
  663.         <textStyle>plain</textStyle>
  664.         <name>zoom</name>
  665.         <script>on mouseUplock screenglobal windowType, MovieWindow, theMovieName, playFlagset the hilite of me to trueset the hilite of cd btn "windoid" to falseset the hilite of cd btn "shadow" to falseset the hilite of cd btn "rect" to falseput "zoom" into windowTypeput "Standard" into cd fld "WindStyle"put windowType into cd fld "WindTypeFld"unlock screenif there is a window MovieWindow thenlock screensend "MovieIdle" to window MovieWindowput windowLoc of window MovieWindow into theWindLocput currTime of window MovieWindow into theCTimeclose window MovieWindowput "" into MovieWindowput theMovieName into cd fld "MooVName"Movie theMovieName, windowType,theWindLoc,"invisible","floating"set the controllerVisible of window MovieWindow to falseset the badge of window MovieWindow to falseset currTime of window MovieWindow to theCTimeshow window MovieWindowgetVolumecheckSettingsunlock screenif playFlag is true thensend "Play" to window MovieWindowend ifend ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Standard" & return & return & "Selecting this " ┬¼& "icon makes movies play in a Standard style window." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  666.     </part>
  667.     <part>
  668.         <id>40</id>
  669.         <type>button</type>
  670.         <visible> <true /> </visible>
  671.         <reserved5> 0 </reserved5>
  672.         <reserved4> 0 </reserved4>
  673.         <reserved3> 0 </reserved3>
  674.         <reserved2> 0 </reserved2>
  675.         <reserved1> 0 </reserved1>
  676.         <enabled> <true /> </enabled>
  677.         <rect>
  678.             <left>84</left>
  679.             <top>223</top>
  680.             <right>117</right>
  681.             <bottom>256</bottom>
  682.         </rect>
  683.         <style>transparent</style>
  684.         <showName> <false /> </showName>
  685.         <highlight> <false /> </highlight>
  686.         <autoHighlight> <false /> </autoHighlight>
  687.         <sharedHighlight> <true /> </sharedHighlight>
  688.         <family>0</family>
  689.         <titleWidth>0</titleWidth>
  690.         <icon>0</icon>
  691.         <textAlign>center</textAlign>
  692.         <font>Chicago</font>
  693.         <textSize>12</textSize>
  694.         <textStyle>plain</textStyle>
  695.         <name>shadow</name>
  696.         <script>on mouseUplock screenglobal windowType, MovieWindow, theMovieName, playFlagset the hilite of me to trueset the hilite of cd btn "zoom" to falseset the hilite of cd btn "windoid" to falseset the hilite of cd btn "rect" to falseput "shadow" into windowTypeput "Shadow" into cd fld "WindStyle"put windowType into cd fld "WindTypeFld"unlock screenif there is a window MovieWindow thenlock screensend "MovieIdle" to window MovieWindowput windowLoc of window MovieWindow into theWindLocput currTime of window MovieWindow into theCTimeclose window MovieWindowput "" into MovieWindowput theMovieName into cd fld "MooVName"Movie theMovieName, windowType,theWindLoc,"invisible","floating"set the controllerVisible of window MovieWindow to falseset the badge of window MovieWindow to falseset currTime of window MovieWindow to theCTimeshow window MovieWindowgetVolumecheckSettingsunlock screenif playFlag is true thensend "Play" to window MovieWindowend ifend ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Shadow" & return & return & "Selecting this " ┬¼& "icon makes movies play in a Shadow style window." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  697.     </part>
  698.     <part>
  699.         <id>41</id>
  700.         <type>button</type>
  701.         <visible> <true /> </visible>
  702.         <reserved5> 0 </reserved5>
  703.         <reserved4> 0 </reserved4>
  704.         <reserved3> 0 </reserved3>
  705.         <reserved2> 0 </reserved2>
  706.         <reserved1> 0 </reserved1>
  707.         <enabled> <true /> </enabled>
  708.         <rect>
  709.             <left>117</left>
  710.             <top>223</top>
  711.             <right>149</right>
  712.             <bottom>255</bottom>
  713.         </rect>
  714.         <style>transparent</style>
  715.         <showName> <false /> </showName>
  716.         <highlight> <false /> </highlight>
  717.         <autoHighlight> <false /> </autoHighlight>
  718.         <sharedHighlight> <true /> </sharedHighlight>
  719.         <family>0</family>
  720.         <titleWidth>0</titleWidth>
  721.         <icon>0</icon>
  722.         <textAlign>center</textAlign>
  723.         <font>Chicago</font>
  724.         <textSize>12</textSize>
  725.         <textStyle>plain</textStyle>
  726.         <name>rect</name>
  727.         <script>on mouseUplock screenglobal windowType, MovieWindow, theMovieName, playFlagset the hilite of me to trueset the hilite of cd btn "zoom" to falseset the hilite of cd btn "windoid" to falseset the hilite of cd btn "shadow" to falseput "rect" into windowTypeput "Rectangle" into cd fld "WindStyle"put windowType into cd fld "WindTypeFld"unlock screenif there is a window MovieWindow thenlock screensend "MovieIdle" to window MovieWindowput windowLoc of window MovieWindow into theWindLocput currTime of window MovieWindow into theCTimeclose window MovieWindowput "" into MovieWindowput theMovieName into cd fld "MooVName"Movie theMovieName, windowType,theWindLoc,"invisible","floating"set the controllerVisible of window MovieWindow to falseset the badge of window MovieWindow to falseset currTime of window MovieWindow to theCTimeshow window MovieWindowgetVolumecheckSettingsunlock screenif playFlag is true thensend "Play" to window MovieWindowend ifend ifend mouseUpon mouseEnterglobal helpFlagif helpFlag is "on" thenput "Rectangle" & return & return & "Selecting this " ┬¼& "icon makes movies play in a Rectangle style window." into tput t into cd fld "HelpFld"end ifend mouseEnteron mouseLeaveglobal helpFlagput "" into cd fld "HelpFld" of cd 1end mouseLeave</script>
  728.     </part>
  729.     <part>
  730.         <id>42</id>
  731.         <type>field</type>
  732.         <visible> <true /> </visible>
  733.         <dontWrap> <false /> </dontWrap>
  734.         <dontSearch> <false /> </dontSearch>
  735.         <sharedText> <false /> </sharedText>
  736.         <fixedLineHeight> <false /> </fixedLineHeight>
  737.         <autoTab> <false /> </autoTab>
  738.         <lockText> <true /> </lockText>
  739.         <rect>
  740.             <left>18</left>
  741.             <top>264</top>
  742.             <right>148</right>
  743.             <bottom>283</bottom>
  744.         </rect>
  745.         <style>transparent</style>
  746.         <autoSelect> <false /> </autoSelect>
  747.         <showLines> <false /> </showLines>
  748.         <wideMargins> <false /> </wideMargins>
  749.         <multipleLines> <false /> </multipleLines>
  750.         <reservedFamily> 0 </reservedFamily>
  751.         <titleWidth>0</titleWidth>
  752.         <icon>0</icon>
  753.         <textAlign>center</textAlign>
  754.         <font>Geneva</font>
  755.         <textSize>9</textSize>
  756.         <textStyle>bold</textStyle>
  757.         <textHeight>12</textHeight>
  758.         <name>WindStyle</name>
  759.         <script></script>
  760.     </part>
  761.     <part>
  762.         <id>43</id>
  763.         <type>field</type>
  764.         <visible> <false /> </visible>
  765.         <dontWrap> <false /> </dontWrap>
  766.         <dontSearch> <false /> </dontSearch>
  767.         <sharedText> <false /> </sharedText>
  768.         <fixedLineHeight> <false /> </fixedLineHeight>
  769.         <autoTab> <false /> </autoTab>
  770.         <lockText> <true /> </lockText>
  771.         <rect>
  772.             <left>5</left>
  773.             <top>163</top>
  774.             <right>36</right>
  775.             <bottom>182</bottom>
  776.         </rect>
  777.         <style>transparent</style>
  778.         <autoSelect> <false /> </autoSelect>
  779.         <showLines> <false /> </showLines>
  780.         <wideMargins> <false /> </wideMargins>
  781.         <multipleLines> <false /> </multipleLines>
  782.         <reservedFamily> 0 </reservedFamily>
  783.         <titleWidth>0</titleWidth>
  784.         <icon>0</icon>
  785.         <textAlign>left</textAlign>
  786.         <font>Geneva</font>
  787.         <textSize>12</textSize>
  788.         <textStyle>plain</textStyle>
  789.         <textHeight>16</textHeight>
  790.         <name>WindTypeFld</name>
  791.         <script></script>
  792.     </part>
  793.     <content>
  794.         <layer>card</layer>
  795.         <id>30</id>
  796.         <text>7</text>
  797.     </content>
  798.     <content>
  799.         <layer>card</layer>
  800.         <id>42</id>
  801.         <text>Windoid</text>
  802.     </content>
  803.     <content>
  804.         <layer>card</layer>
  805.         <id>43</id>
  806.         <text>windoid</text>
  807.     </content>
  808.     <name>Main</name>
  809.     <script>on getVolumeglobal MovieWindowput cd fld "VolFld" into sndVolumeif sndVolume = 0 then set the audioLevel of window MovieWindow to 0if sndVolume = 1 then set the audioLevel of window MovieWindow to 32if sndVolume = 2 then set the audioLevel of window MovieWindow to 64if sndVolume = 3 then set the audioLevel of window MovieWindow to 96if sndVolume = 4 then set the audioLevel of window MovieWindow to 128if sndVolume = 5 then set the audioLevel of window MovieWindow to 160if sndVolume = 6 then set the audioLevel of window MovieWindow to 192if sndVolume = 7 then set the audioLevel of window MovieWindow to 256end getVolume</script>
  810. </card>
  811.  
  812.  
  813. card_2128.xml
  814. <?xml version="1.0" encoding="utf-8" ?>
  815. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  816. <card>
  817.     <id>2128</id>
  818.     <filler1>0</filler1>
  819.     <bitmap>BMAP_2414.pbm</bitmap>
  820.     <cantDelete> <false /> </cantDelete>
  821.     <showPict> <true /> </showPict>
  822.     <dontSearch> <false /> </dontSearch>
  823.     <owner>2609</owner>
  824.     <link rel="stylesheet" type="text/css" href="stylesheet_3156.css" />
  825.     <part>
  826.         <id>1</id>
  827.         <type>button</type>
  828.         <visible> <true /> </visible>
  829.         <reserved5> 0 </reserved5>
  830.         <reserved4> 0 </reserved4>
  831.         <reserved3> 0 </reserved3>
  832.         <reserved2> 0 </reserved2>
  833.         <reserved1> 0 </reserved1>
  834.         <enabled> <true /> </enabled>
  835.         <rect>
  836.             <left>260</left>
  837.             <top>316</top>
  838.             <right>418</right>
  839.             <bottom>340</bottom>
  840.         </rect>
  841.         <style>roundrect</style>
  842.         <showName> <true /> </showName>
  843.         <highlight> <false /> </highlight>
  844.         <autoHighlight> <true /> </autoHighlight>
  845.         <sharedHighlight> <true /> </sharedHighlight>
  846.         <family>0</family>
  847.         <titleWidth>0</titleWidth>
  848.         <icon>0</icon>
  849.         <textAlign>center</textAlign>
  850.         <font>Chicago</font>
  851.         <textSize>12</textSize>
  852.         <textStyle>plain</textStyle>
  853.         <name>OK</name>
  854.         <script>on mouseUpvisual effect dissolvego cd "Main"end mouseUp</script>
  855.     </part>
  856.     <name>About</name>
  857.     <script></script>
  858. </card>
  859.  
  860.  
  861. card_3888.xml
  862. <?xml version="1.0" encoding="utf-8" ?>
  863. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  864. <card>
  865.     <id>3888</id>
  866.     <filler1>0</filler1>
  867.     <bitmap>BMAP_4121.pbm</bitmap>
  868.     <cantDelete> <false /> </cantDelete>
  869.     <showPict> <true /> </showPict>
  870.     <dontSearch> <false /> </dontSearch>
  871.     <owner>2609</owner>
  872.     <link rel="stylesheet" type="text/css" href="stylesheet_3156.css" />
  873.     <part>
  874.         <id>5</id>
  875.         <type>field</type>
  876.         <visible> <true /> </visible>
  877.         <dontWrap> <false /> </dontWrap>
  878.         <dontSearch> <false /> </dontSearch>
  879.         <sharedText> <false /> </sharedText>
  880.         <fixedLineHeight> <false /> </fixedLineHeight>
  881.         <autoTab> <false /> </autoTab>
  882.         <lockText> <false /> </lockText>
  883.         <rect>
  884.             <left>222</left>
  885.             <top>135</top>
  886.             <right>466</right>
  887.             <bottom>282</bottom>
  888.         </rect>
  889.         <style>scrolling</style>
  890.         <autoSelect> <false /> </autoSelect>
  891.         <showLines> <false /> </showLines>
  892.         <wideMargins> <false /> </wideMargins>
  893.         <multipleLines> <false /> </multipleLines>
  894.         <reservedFamily> 0 </reservedFamily>
  895.         <titleWidth>0</titleWidth>
  896.         <icon>0</icon>
  897.         <textAlign>center</textAlign>
  898.         <font>Geneva</font>
  899.         <textSize>9</textSize>
  900.         <textStyle>bold</textStyle>
  901.         <textHeight>12</textHeight>
  902.         <name>CreditField</name>
  903.         <script></script>
  904.     </part>
  905.     <part>
  906.         <id>6</id>
  907.         <type>button</type>
  908.         <visible> <true /> </visible>
  909.         <reserved5> 0 </reserved5>
  910.         <reserved4> 0 </reserved4>
  911.         <reserved3> 0 </reserved3>
  912.         <reserved2> 0 </reserved2>
  913.         <reserved1> 0 </reserved1>
  914.         <enabled> <true /> </enabled>
  915.         <rect>
  916.             <left>450</left>
  917.             <top>134</top>
  918.             <right>468</right>
  919.             <bottom>284</bottom>
  920.         </rect>
  921.         <style>opaque</style>
  922.         <showName> <false /> </showName>
  923.         <highlight> <false /> </highlight>
  924.         <autoHighlight> <false /> </autoHighlight>
  925.         <sharedHighlight> <true /> </sharedHighlight>
  926.         <family>0</family>
  927.         <titleWidth>0</titleWidth>
  928.         <icon>0</icon>
  929.         <textAlign>center</textAlign>
  930.         <font>Chicago</font>
  931.         <textSize>12</textSize>
  932.         <textStyle>plain</textStyle>
  933.         <name>Cover</name>
  934.         <script></script>
  935.     </part>
  936.     <part>
  937.         <id>1</id>
  938.         <type>button</type>
  939.         <visible> <true /> </visible>
  940.         <reserved5> 0 </reserved5>
  941.         <reserved4> 0 </reserved4>
  942.         <reserved3> 0 </reserved3>
  943.         <reserved2> 0 </reserved2>
  944.         <reserved1> 0 </reserved1>
  945.         <enabled> <true /> </enabled>
  946.         <rect>
  947.             <left>0</left>
  948.             <top>0</top>
  949.             <right>480</right>
  950.             <bottom>344</bottom>
  951.         </rect>
  952.         <style>transparent</style>
  953.         <showName> <false /> </showName>
  954.         <highlight> <false /> </highlight>
  955.         <autoHighlight> <false /> </autoHighlight>
  956.         <sharedHighlight> <true /> </sharedHighlight>
  957.         <family>0</family>
  958.         <titleWidth>0</titleWidth>
  959.         <icon>0</icon>
  960.         <textAlign>center</textAlign>
  961.         <font>Chicago</font>
  962.         <textSize>12</textSize>
  963.         <textStyle>plain</textStyle>
  964.         <name>OK</name>
  965.         <script>on mouseUpvisual effect dissolvego cd "Main"end mouseUp</script>
  966.     </part>
  967.     <content>
  968.         <layer>card</layer>
  969.         <id>5</id>
  970.         <text><span class="style1">Written and Developed by</span><span class="style7">Kevin Harris</span><span class="style1">Thanks to</span><span class="style7">Jan FranceJohn Rose Frank VernonVicky DratmanWoody HumeMark Hanrek</span><span class="style1">Copyright Information</span><span class="style7">HyperMovie Player is ┬⌐ 1992Software Perspectives.All Rights Reserved.Portions of this stack are┬⌐1992 Claris Corporation</span><span class="style1">Trademark Information</span><span class="style7">HyperCard is a registered trademark ofClaris Corporation.QuickTime is a trademark ofApple Computer, Inc.</span><span class="style1">XCMD/XFCN Information</span><span class="style7">The externals contained in this stack are distributed under license from Claris Corporation and may not be copied or used in any other way.  For information on obtaining these XCMDs/XFCNs for use contact Claris Corporation."Don't forget to honor the shareware system, so authors like myself can continue to crank out cool stuff.  Thanks!"- Kevin</span></text>
  971.     </content>
  972.     <name>Credits</name>
  973.     <script>on openCardrunCreditsend openCardon closeCardset scroll of cd fld "CreditField" to 0end closeCardon runCreditsput 0 into irepeat for 108 timeslock screenset scroll of cd fld "CreditField" to iadd 6 to iunlock screenif the mouseClick thensend mouseUp to cd btn "OK"exit runCreditsend ifend repeatrunCreditsend runCredits</script>
  974. </card>
  975.  
  976.  
  977.