-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 3 (painting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 5
-- first background id: 2746
-- card count: 15
-- first card id: 10417
-- list block id: 2951
-- print block id: 7941
-- font table block id: 0
-- style table block id: 0
-- free block count: 3
-- free size: 54112 bytes
-- total size: 196608 bytes
-- stack block size: 13312 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startup
  hide menubar
  hide msg
  if the version < 1.2
  then
  answer "MacSUNRISE requires Hypercard 1.2 or higher!" with "QUIT"
  domenu quit hypercard
end if
lock screen
set userlevel to 5
global MIN
Global MAX
global Maxauswahl
global AktAuswahl
global Zeiger
global Startzeit
put the seconds into Startzeit
put Arrow into Zeiger
get line 2 of card field Einstiegskarte
put it into MaxAuswahl
get Line 3 of card field Einstiegskarte
put it into AktAuswahl
put 1 into MIN
put 10 into MAX
unlock screen
end startup

on openStack
  if number of this card is 5 then hide bkgnd btn id 131
  global Locken
  put true into Locken
end openStack

on closestack
  lock screen
  if the id of this card is not "card id 10417"
  then
  get the id of this card
else
  put "card id 9262" into it
end if
go first
put it into card field Einstiegskarte
global MaxAuswahl
global AktAuswahl
put Maxauswahl into line 2 of card field Einstiegskarte
put AktAuswahl into line 3 of card field Einstiegskarte
end closestack

on openCard
  if the hilite of bkgnd btn id 107 is true
  then
  show card pict
else
  hide card pict
end if
end opencard

on closecard
  hide card pict
end closecard

on arrowKey whichKey
  if whichKey is "left" then click at the loc of bkgnd button id 9
  if whichKey is "right" then click at the loc of bkgnd button id 8
end arrowKey


function clickLine
return ((the mouseV - item 2 of the rect of the target-4) div the textheight of the target) + 1
end clickLine

on domenu menu
  if (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")
  then
  if 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..."
  then
  beep
end if
if menu is "Protect Stack..." or menu is "Background"
then
if the commandkey is not down or the optionkey is not down
then
answer "ooops!" with "'sorry"
else
  ask "Das Passwort bitteschön.."
  if it is not "the commandkey"
  then
  answer "Passwort ist falsch!"
else
  pass domenu
end if
end if
end if
if menu is "delete card" or Menu is "Cut Card"
then
beep
end if
if menu is "new card"
then
beep
end if
if menu is "Back" or Menu is "Recent"
then
beep
end if
if menu is "Help"
then
click at the loc of bkgnd btn id 161
end if
if menu is "First"
then
go first card of this background
end if
if menu is "Last"
then
go last card of this background
end if
if menu is "next"
then
click at the loc of bkgnd btn id 8
end if
if menu is "prev"
then
click at the loc of bkgnd btn id 9
end if
if menu is "find..."
then
click at the loc of bkgnd btn id 34
end if
if menu is "quit hypercard"
then
if the version < 1.2 then pass domenu
lock screen
push card
go first card
add one to card field Compact
if card field Compact > 9
then
answer "MacSunriSE uses more space than it needs." with "OK, COMPACT" or "QUIT"
if it is not "QUIT"
then
put 0 into card field Compact
unlock screen
push card
show card picture
lock screen
hide card picture
set cursor to Uhr1
domenu compact stack
pop card
unlock screen
show card picture
set the hilite of card btn s1 to true
lock screen
hide card picture
push card
go card 5
kompositaan
set cursor to Uhr1
domenu Compact stack
Kompositaaus
pop card
unlock screen
show card picture
set the hilite of card btn s2 to true
unlock screen
lock screen
hide card picture
push card
go MacSunriSE.Katakana
set cursor to Uhr1
domenu Compact stack
pop card
unlock screen
show card picture
set the hilite of card btn s3 to true
unlock screen
lock screen
hide card picture
push card
go MacSunriSE.Hiragana
set cursor to uhr1
domenu Compact stack
pop card
unlock screen
show card picture
set the hilite of card btn s4 to true
unlock screen
wait for 1 second
set the hilite of card btn s1 to false
set the hilite of card btn s2 to false
set the hilite of card btn s3 to false
set the hilite of card btn s4 to false
hide card pict
lock screen
end if
end if
pop card
pass domenu
end if
else
  pass domenu
end if
end domenu

on selectChoice
  put the short name of the target into thename
  get the rect of the target
  put item 2 of it into top
  get the textheight of the target
  put it into size
  put ((item 2 of the clickloc)-top+size) div size into lineNumber
  send (thename&linenumber) to target
end selectchoice

on Sprichwort
  set cursor to Ohr
  global Aussprache
  lock screen
  get bkgnd field id 22
  put it into Welchersound
  push card
  if welchersound < 60
  then
  go MacSunriSE.sound1
  fplay Aussprache
else
  if welchersound < 101
  then
  go MacSunriSE.sound2
  fplay Aussprache
else
  if welchersound < 179
  then
  go MacSunriSE.sound3
  fplay Aussprache
else
  if welchersound < 252
  then
  go MacSunriSE.sound4
  fplay Aussprache
else
  if welchersound < 337
  then
  go MacSunriSE.sound5
  fplay Aussprache
else
  if welchersound < 418
  then
  go MacSunrise.sound6
  fplay Aussprache
else
  go MacSunriSE.sound7
  fplay Aussprache
end if
end if
end if
end if
end if
end if
pop card
unlock screen
end Sprichwort


on EinzelAbfrageLesungen
  put the short name of bkgnd field id 1 into thename
  get the rect of bkgnd field id 1
  put item 2 of it into top
  get the textheight of bkgnd field id 1
  put it into size
  put ((item 2 of the clickloc)-top+size) div size into lineNumber
  global Gesprochen
  put 0 into gesprochen
  if linenumber = 1
  then
  if the visible of bkgnd btn id 132 is true
  then
  if the hilite of bkgnd btn id 132 is true
  then
  global Aussprache
  if the visible of bkgnd btn id 154 is true or the hilite of bkgnd btn id 162 is true
  then
  global Abfragebutton
  get Abfragebutton
  if it is 1
  then
  set the hilite of bkgnd btn id 47 to true
  put 0 into Abfragebutton
end if
else
  Sprichwort
  global Gesprochen
  put 1 into Gesprochen
end if
end if
end if
if the visible of bkgnd btn id 154 is true
then
set the hilite of bkgnd btn id 47 to false
Kompositaan
else
  if the Hilite of bkgnd btn id 162 is true then Kompositaan
end if
if the hilite of bkgnd btn id 47 is true
then
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
send (thename&linenumber) to bkgnd field id 1
end if
exit EinzelAbfrageLesungen
end if
if the hilite of bkgnd btn id 47 is true
then
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
end if
send (thename&linenumber) to bkgnd field id 1
end EinzelAbfrageLesungen

on EinzelAbfrageBedeutungen
  set cursor to watch
  put the short name of bkgnd field id 20 into thename
  get the rect of bkgnd field id 20
  put item 2 of it into top
  get the textheight of bkgnd field id 20
  put it into size
  put ((item 2 of the clickloc)-top+size) div size into lineNumber
  if linenumber = 1
  then
  if the visible of bkgnd btn id 154 is true
  then
  set the hilite of bkgnd btn id 47 to false
  Kompositaan
else
  if the Hilite of bkgnd btn id 162 is true then Kompositaan
end if
if the hilite of bkgnd btn id 47 is true
then
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
send (thename&linenumber) to bkgnd field id 20
end if
exit EinzelAbfrageBedeutungen
end if
if the hilite of bkgnd btn id 47 is true
then
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
set the hilite of bkgnd btn id 47 to false
set the hilite of bkgnd btn id 47 to true
end if
send (thename&linenumber) to bkgnd field id 20
end EinzelAbfrageBedeutungen

on Kompositaan
  if the visible of bkgnd btn id 176 is true
  then
  pop card into Banane
  hide bkgnd btn id 176
end if
set the cursor to Uhr1
if the hilite of bkgnd btn id 162 is true
then
click at the loc of Bkgnd btn id 156
else
  if the visible of bkgnd btn id 136 is true
  then
  click at the loc of bkgnd btn id 138
end if
if the hilite of bkgnd btn id 145 is not true
then
lock screen
set the cursor to Uhr2
put the short name of bkgnd btn id 147 into Startzeit
put the short name of bkgnd btn id 148 into Lernzeit
put the short name of bkgnd btn id 122 into unteregrenze
put the short name of bkgnd btn id 123 into oberegrenze
put the short name of bkgnd btn id 158 into Blättergeschw
put the hilite of bkgnd btn id 47 into AbfrageK
put the hilite of bkgnd btn id 130 into AuswahlK
put the hilite of bkgnd btn id 134 into ZufallK
put the hilite of bkgnd btn id 132 into TonK
put the visible of bkgnd btn id 140 into JISan
put the visible of bkgnd btn id 139 into KKan
set the cursor to Uhr3
put bkgnd field id 22 into AktKanJi
push card
go card 2
put bkgnd field "GemerkteZeichen" into GZ
put card field Layout into Lay
pop card
go to fifth card of MacSunriSE.Komposita
set the hilite of bkgnd btn id 130 to AuswahlK
if the hilite of bkgnd btn id 130 is true
then
click at the loc of bkgnd btn id 130
click at the loc of bkgnd btn id 130
end if
set the cursor to Uhr4
find word AktKanJi in bkgnd field id 22
Hide Bkgnd btn Hilfe
set the name of bkgnd btn id 147 to Startzeit
set the name of bkgnd btn  id 148 to Lernzeit
set the name of bkgnd btn id 122 to unteregrenze
set the name of bkgnd btn id 123 to oberegrenze
set the name of bkgnd btn id 165 to Blättergeschw
set the hilite of bkgnd btn Abfrage to AbfrageK
set the hilite of bkgnd btn Zufall to ZufallK
set the hilite of bkgnd btn Ton to TonK
set the visible of bkgnd btn Abfrage to false
set the visible of bkgnd btn JIS to Jisan
set the Visible of bkgnd btn "K&K" to KKan
push card
go card 2
put GZ into Bkgnd field "gemerkteZeichen"
put Lay into card field Layout
pop card
if the visible of bkgnd btn Jis is true
set the cursor to Uhr5
then
show Bkgnd field JIS
hide Bkgnd field KK
end if
if the visible of bkgnd btn "K&K" is true
then
show Bkgnd field KK
hide Bkgnd field JIS
end if
click at 200,200
set the cursor to Uhr6
else
  send mouseup to bkgnd btn id 154
end if
global Locken
if Locken is true then unlock screen
end if
hide msg
end Kompositaan

on Kompositaaus
end Kompositaaus

on Hilfe
  click at the loc of bkgnd btn id 162
end Hilfe