home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE / stack_-1.xml < prev    next >
Extensible Markup Language  |  1990-07-20  |  8KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>15</cardCount>
  7.     <cardID>10417</cardID>
  8.     <listID>2951</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on startuphide menubarhide msgif the version < 1.2thenanswer "MacSUNRISE requires Hypercard 1.2 or higher!" with "QUIT"domenu quit hypercardend iflock screenset userlevel to 5global MINGlobal MAXglobal Maxauswahlglobal AktAuswahlglobal Zeigerglobal Startzeitput the seconds into Startzeitput Arrow into Zeigerget line 2 of card field Einstiegskarteput it into MaxAuswahlget Line 3 of card field Einstiegskarteput it into AktAuswahlput 1 into MINput 10 into MAXunlock screenend startupon openStackif number of this card is 5 then hide bkgnd btn id 131global Lockenput true into Lockenend openStackon closestacklock screenif the id of this card is not "card id 10417"thenget the id of this cardelseput "card id 9262" into itend ifgo firstput it into card field Einstiegskarteglobal MaxAuswahlglobal AktAuswahlput Maxauswahl into line 2 of card field Einstiegskarteput AktAuswahl into line 3 of card field Einstiegskarteend closestackon openCardif the hilite of bkgnd btn id 107 is truethenshow card pictelsehide card pictend ifend opencardon closecardhide card pictend closecardon arrowKey whichKeyif whichKey is "left" then click at the loc of bkgnd button id 9if whichKey is "right" then click at the loc of bkgnd button id 8end arrowKeyfunction clickLinereturn ((the mouseV - item 2 of the rect of the target-4)┬¼div the textheight of the target) + 1end clickLineon domenu menuif (menu is "New Stack..."or menu is "save a Copy..." or ┬¼menu is "Protect Stack..."or menu is "delete Stack..."┬¼or menu is "Background" or menu is┬¼"Cut Card" or menu is "new card" or menu is "delete card" or menu is ┬¼"Back" or menu is "Help" or Menu is "Recent" or menu is "First" or ┬¼menu is "Last" or menu is "prev" or menu is "next" or menu is ┬¼"find..." or menu is "quit hypercard" or menu ┬¼is "paste card" or menu is "print report...") and (the short name ┬¼of this stack is not "MacSunriSE.Drucken")thenif menu is "New Stack..."or menu is "save a Copy..." ┬¼or menu is "delete Stack..." or menu is ┬¼"paste card" or menu is "print report..."thenbeepend ifif menu is "Protect Stack..." or menu is "Background"thenif the commandkey is not down or the optionkey is not downthenanswer "ooops!" with "'sorry"elseask "Das Passwort bittesch├╢n.."if it is not "the commandkey"thenanswer "Passwort ist falsch!"elsepass domenuend ifend ifend ifif menu is "delete card" or Menu is "Cut Card"thenbeepend ifif menu is "new card"thenbeepend ifif menu is "Back" or Menu is "Recent"thenbeepend ifif menu is "Help"thenclick at the loc of bkgnd btn id 161end ifif menu is "First"thengo first card of this backgroundend ifif menu is "Last"thengo last card of this backgroundend ifif menu is "next"thenclick at the loc of bkgnd btn id 8end ifif menu is "prev"thenclick at the loc of bkgnd btn id 9end ifif menu is "find..."thenclick at the loc of bkgnd btn id 34end ifif menu is "quit hypercard"thenif the version < 1.2 then pass domenulock screenpush cardgo first cardadd one to card field Compactif card field Compact > 9thenanswer "MacSunriSE uses more space than it needs." with ┬¼"OK, COMPACT" or "QUIT"if it is not "QUIT"thenput 0 into card field Compactunlock screenpush cardshow card picturelock screenhide card pictureset cursor to Uhr1domenu compact stackpop cardunlock screenshow card pictureset the hilite of card btn s1 to truelock screenhide card picturepush cardgo card 5kompositaanset cursor to Uhr1domenu Compact stackKompositaauspop cardunlock screenshow card pictureset the hilite of card btn s2 to trueunlock screenlock screenhide card picturepush cardgo MacSunriSE.Katakanaset cursor to Uhr1domenu Compact stackpop cardunlock screenshow card pictureset the hilite of card btn s3 to trueunlock screenlock screenhide card picturepush cardgo MacSunriSE.Hiraganaset cursor to uhr1domenu Compact stackpop cardunlock screenshow card pictureset the hilite of card btn s4 to trueunlock screenwait for 1 secondset the hilite of card btn s1 to falseset the hilite of card btn s2 to falseset the hilite of card btn s3 to falseset the hilite of card btn s4 to falsehide card pictlock screenend ifend ifpop cardpass domenuend ifelsepass domenuend ifend domenuon selectChoiceput the short name of the target into thenameget the rect of the targetput item 2 of it into topget the textheight of the targetput it into sizeput ((item 2 of the clickloc)-top+size) div size into lineNumbersend (thename&linenumber) to targetend selectchoiceon Sprichwortset cursor to Ohrglobal Aussprachelock screenget bkgnd field id 22put it into Welchersoundpush cardif welchersound < 60thengo MacSunriSE.sound1fplay Ausspracheelseif welchersound < 101thengo MacSunriSE.sound2fplay Ausspracheelseif welchersound < 179thengo MacSunriSE.sound3fplay Ausspracheelseif welchersound < 252thengo MacSunriSE.sound4fplay Ausspracheelseif welchersound < 337thengo MacSunriSE.sound5fplay Ausspracheelseif welchersound < 418thengo MacSunrise.sound6fplay Ausspracheelsego MacSunriSE.sound7fplay Ausspracheend ifend ifend ifend ifend ifend ifpop cardunlock screenend Sprichworton EinzelAbfrageLesungenput the short name of bkgnd field id 1 into thenameget the rect of bkgnd field id 1put item 2 of it into topget the textheight of bkgnd field id 1put it into sizeput ((item 2 of the clickloc)-top+size) div size into lineNumberglobal Gesprochenput 0 into gesprochenif linenumber = 1thenif the visible of bkgnd btn id 132 is truethenif the hilite of bkgnd btn id 132 is truethenglobal Ausspracheif the visible of bkgnd btn id 154 is true or the hilite of ┬¼bkgnd btn id 162 is truethenglobal Abfragebuttonget Abfragebuttonif it is 1thenset the hilite of bkgnd btn id 47 to trueput 0 into Abfragebuttonend ifelseSprichwortglobal Gesprochenput 1 into Gesprochenend ifend ifend ifif the visible of bkgnd btn id 154 is truethenset the hilite of bkgnd btn id 47 to falseKompositaanelseif the Hilite of bkgnd btn id 162 is true then Kompositaanend ifif the hilite of bkgnd btn id 47 is truethenset the hilite of bkgnd btn id 47 to falseset the hilite of bkgnd btn id 47 to trueset the hilite of bkgnd btn id 47 to falseset the hilite of bkgnd btn id 47 to truesend (thename&linenumber) to bkgnd field id 1end ifexit EinzelAbfrageLesungenend ifif the hilite of bkgnd btn id 47 is truethenset the hilite of bkgnd btn id 47 to falseset the hilite of bkgnd btn id 47 to trueset the hilite of bkgnd btn id 47 to falseset the hilite of bkgnd btn id 47 to trueend ifsend (thename&linenumber) to bkgnd field id 1end EinzelAbfrageLesungenon EinzelAbfrageBedeutungenset cursor to watchput the short name of bkgnd field id 20 into thenameget the rect of bkgnd field id 20put item 2 of it into topget the textheight of bkgnd field id 20put it into sizeput ((item 2 of the clickloc)-top+size) div size into lineNumberif linenumber = 1thenif the visible of bkgnd btn id 154 is truethenset the hilite of bkgnd btn id 47 to falseKompositaanelseif the Hilite of bkgnd btn id 162 is true then Kompositaanend ifif the hilite of bkgnd btn id 47 is truethenset the hilite of bkgnd btn id 47 to falseset the hilite of bkgnd btn id 47 to trueset the hilite of bkgnd btn id 47 to falseset the hilite of bkgnd btn id 47 to truesend (thename&linenumber) to bkgnd field id 20end ifexit EinzelAbfrageBedeutungenend ifif the hilite of bkgnd btn id 47 is truethenset the hilite of bkgnd btn id 47 to falseset the hilite of bkgnd btn id 47 to trueset the hilite of bkgnd b