Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/macsunrs.sit/MacSUNRISE.Hiragana/background_2761.txt

Text File | 1990-06-26 | 15KB | 709 lines

-- background: 2761 from stack: in.Hiragana
-- bmap block id: 3099
-- flags: 0000
-- background id: 0
-- name: Kana.Katakana
----- HyperTalk script -----
on idle
  if the mouseloc is not within the rect of bkgnd field "notiz zu Lesungen"
  then
  get word 1 of the short name of bkgnd btn id 136
  convert it to seconds
  put it into Startzeit
  put the seconds into Jetztzeit
  put (Jetztzeit - Startzeit) into Arbeitszeit
  put trunc (Arbeitszeit / 3600) into Stunde
  if Stunde < 10 then put "0"&Stunde into Stunde
  put Arbeitszeit - Stunde*3600 into Arbeitszeit
  put trunc (Arbeitszeit / 60) into Minute
  if Minute < 10 then put "0"&Minute into Minute
  put "00" into sekunde
  set the name of bkgnd btn id 135 to Stunde&":"&Minute
  set the name of bkgnd btn id 137 to the date
  pass idle
end if
end idle

on arrowKey whichKey
  if whichKey is "left" then click at the loc of bkgnd button "vorheriges Kanji"
  if whichKey is "right" then click at the loc of bkgnd button "nächstes Kanji"
  select empty
end arrowKey


-- part 1 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=187 top=42 right=253 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Lesungen


-- part 6 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=187 top=22 right=41 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lesungen
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then
    hide field lesungen
    hide bkgnd btn voice
    hide bkgnd btn ton
  else
    show field lesungen
    show bkgnd btn voice
    show bkgnd btn ton
  end if
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=145 top=209 right=275 bottom=178
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nèchstes Kanji
----- HyperTalk script -----
on mousestilldown
  set the hilite of me to true
  go next card of this background
  set the hilite of me to false
  click at 200,200
end mousestilldown



-- part 9 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=12 top=209 right=275 bottom=46
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: vorheriges Kanji
----- HyperTalk script -----
on mousestilldown
  set the hilite of me to true
  go prev card of this background
  set the hilite of me to false
  click at 200,200
end mousestilldown



-- part 15 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=94 top=243 right=260 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: JIS


-- part 20 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=348 top=27 right=238 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Bedeutungen
----- HyperTalk script -----
on Bedeutungen1
  Zeilenfind 1
end Bedeutungen1

on Bedeutungen2
  Zeilenfind 2
end Bedeutungen2

on Bedeutungen3
  Zeilenfind 3
end Bedeutungen3

on Bedeutungen4
  Zeilenfind 4
end Bedeutungen4

on Bedeutungen5
  Zeilenfind 5
end Bedeutungen5

on Bedeutungen6
  Zeilenfind 6
end Bedeutungen6

on Bedeutungen7
  Zeilenfind 7
end Bedeutungen7

on Bedeutungen8
  Zeilenfind 8
end Bedeutungen8

on Bedeutungen9
  Zeilenfind 9
end Bedeutungen9

on Bedeutungen10
  Zeilenfind 10
end Bedeutungen10

on Bedeutungen11
  Zeilenfind 11
end Bedeutungen11

on Bedeutungen12
  Zeilenfind 12
end Bedeutungen12

on Bedeutungen13
  Zeilenfind 13
end Bedeutungen13

on Zeilenfind Zeile
  if the hilite of bkgnd btn "Abfrage" is true
  then
  get line Zeile of me
  put it into Frage
  if the length of frage > 20 then put char 1 to 20 of frage &" .." into frage
  global Anfangszeile
  global Endzeile
  Zeilenanfang Zeile
  Zeilenende Anfangszeile
  global Ergebnis
  global Antwort
  put 0 into ergebnis
  get line Anfangszeile to Endzeile of Bkgnd field "Lesungen"
  put it into Abereich
  put 1 into Wortzahl
  put 0 into Zähler
  put 0 into newzähler
  put "" into newword
  repeat until Abereich is empty
    put newzähler + 1 into newzähler
    repeat until chartonum of char 1 of Abereich <> 32
      delete char 1 of Abereich
    end repeat
    repeat until chartonum of char the length of Abereich of Abereich <> 32
      delete char the length of abereich of Abereich
    end repeat
    if offset (",",Abereich) = 0
    then
    do "put abereich into Antwortwort"&newzähler
    put "" into Abereich
  else
    put char 1 to offset (",",Abereich)-1 of abereich into Antwortwort
    do "put Antwortwort into Antwortwort"&newzähler
    delete char 1 to offset (",",Abereich) of Abereich
  end if
end repeat
put newzähler into oldzahl
put 0 into Zähler
put " " into Antwort
repeat until (newzähler = 0) or ( Antwort is empty )
  put Zähler + 1 into Zähler
  repeat until Antwort is empty
    if newzähler = 1 then Ask "Lesung für"&&Frage&&" :" with Antwort
    else
      Ask Zähler&". von"&&oldzahl&&"Lesungen für"&&Frage&&" :" with antwort
    end if
    put it into Antwort
    if Antwort is not empty
    then
    put 0 into Zahl
    put 0 into ergebnis
    repeat until Zahl = oldzahl
      put zahl+1 into Zahl
      do "put Antwortwort"&Zahl&&"into Pr├╝fantwort"
      if Antwort = pr├╝fantwort
      then
      put Zahl into Ergebnis
      put oldzahl into zahl
    else
      put 0 into Ergebnis
    end if
  end repeat
  if ergebnis <> 0
  then
  do "put empty into Antwortwort"&Ergebnis
  if the hilite of bkgnd Btn Ton is true then play Applause
  put newzähler-1 into newzähler
  put Zähler +1 into Zähler
  if newzähler <>0
  then
  Answer "Richtig,"&&Frage&&"heisst auch"&&antwort with "abbrechen" or "nächste Bed."
  if it is "abbrechen"
  then
  put "" into Antwort
end if
else
  Answer "Richtig,"&&Frage&&"heisst"&&antwort with "ok"
  put "" into Antwort
end if
end if
end if
end repeat
end repeat
end if
end Zeilenfind

on ZeilenAnfang Nummer
  global Anfangszeile
  put 0 into Anfangszeile
  if Nummer = 1
  then
  put 1 into Anfangszeile
else
  put Nummer - 1 into nummer
  if line nummer of bkgnd Field "Bedeutungen" is not empty
  then
  Zeilenanfang nummer
else
  put (nummer +1) into Anfangszeile
end if
end if
end ZeilenAnfang

on Zeilenende Nummer
  global Endzeile
  put 0 into Endzeile
  if Nummer = 13
  then
  put 13 into Endzeile
else
  put Nummer + 1 into nummer
  if line nummer of bkgnd Field "Lesungen" is not empty
  then
  Zeilenende nummer
else
  put (nummer -1) into Endzeile
end if
end if
end Zeilenende




-- part 48 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=0 top=323 right=341 bottom=70
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: script
----- HyperTalk script -----
on mouseUp
  Answer "change to which script ?" with "Kanji" or "Katakana" or "Cancel"
  if it is not "Cancel"
  then
  if it is "Kanji"
  then
  pop card
else
  put the short name of bkgnd btn id 136 into startzeit
  go MacSunriSE.Katakana
  set the name of bkgnd btn id 136 to startzeit
end if
end if
end mouseUp



-- part 107 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=8 top=22 right=41 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:           Zeichen
----- HyperTalk script -----
on mouseup
  if hilite of me is false
  then
  hide card picture
else
  show card picture
end if
end Mouseup



-- part 110 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=187 top=256 right=275 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notiz zu Lesungen
----- HyperTalk script -----
on mouseUp
  if the hilite of me is false then
    hide field "notiz zu Lesungen"
  else
    show field "notiz zu Lesungen"
  end if
end mouseUp



-- part 112 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=187 top=276 right=320 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: notiz zu lesungen


-- part 113 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=349 top=264 right=318 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: Bedeutungenn


-- part 125 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=99 top=204 right=221 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EingabeEnde
----- HyperTalk script -----
on mouseleave
  global MAX
  global MIN
  get me
  if it > MAX
  then
  set the name of bkgnd btn id 123 to MAX
else
  if it < the short name of bkgnd btn id 122
  then
  set the name of bkgnd btn id 123 to the short name of bkgnd btn id 122
else
  select text of me
  set the name of bkgnd btn id 123 to the selectedText
end if
end if
hide me
end mouseleave


-- part 126 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=49 top=204 right=221 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Eingabeanfang
----- HyperTalk script -----
on mouseleave
  global MIN
  global MAX
  get me
  if it < MIN
  then
  set the name of bkgnd btn id 122 to MIN
else
  if it > the short name of bkgnd btn id 123
  then
  set the name of bkgnd btn id 122 to the short name of bkgnd btn id 123
else
  select text of me
  set the name of bkgnd btn id 122 to the selectedText
end if
end if
hide me
end mouseleave



-- part 145 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=363 top=325 right=337 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ton


-- part 131 (button)
-- low flags: 80
-- high flags: 8002
-- rect: left=49 top=204 right=221 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ausgewèhlt


-- part 132 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=350 top=323 right=341 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: voice


-- part 135 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=272 top=4 right=20 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 00:02


-- part 136 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=116 top=4 right=20 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 20:21


-- part 137 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=348 top=3 right=19 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 21.6.1990


-- part 138 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=22 top=279 right=320 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 30179 / 30179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Striche
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  get bkgnd field "JIS"
  put it into Strichkarte
  push card
  lock screen
  set the hilite of me to false
  put the short name of bkgnd btn id 136 into startzeit
  go MacSunriSE.Striche1
  find word Strichkarte in bkgnd field id 22
  if the result is "not found"
  then
  pop card
else
  set the name of bkgnd btn id 27 to startzeit
end if
click at 200,200
unlock screen
end mouseUp



-- part 139 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=75 top=279 right=322 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Suchen
----- HyperTalk script -----
on mouseUp
  set the hilite of me to true
  if the ShiftKey is down
  then
  set cursor to Lupe
  global findwort
  global suchbegriff
  if suchbegriff is not empty
  then
  lock screen
  click at the loc of bkgnd btn "nächstes Kanji"
  find word findwort in field Suchbegriff
  click at the loc of bkgnd btn ton
  click at the loc of bkgnd btn ton
  unlock screen
  set the hilite of me to false
end if
else
  lock screen
  push card
  get the short name of bkgnd btn id 136
  put it into Start
  get the short name of bkgnd btn id 135
  put it into Zeit
  get the short name of bkgnd btn id 137
  put it into datum
  set the hilite of me to false
  go card Suchkarte
  set the name of  btn id 17 to start
  set the name of  btn id 18 to zeit
  set the name of  btn id 19 to datum
  unlock screen
end if
end mouseUp



-- part 140 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=129 top=279 right=321 bottom=171
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blèttern
----- HyperTalk script -----
on mouseUp
  set cursor to Blättern
  set the hilite of me to true
  repeat until the mouse is down
    lock screen
    wait 20 ticks
    go to next card of this background
    unlock screen
  end repeat
  set the hilite of me to false
end mouseUp



-- part 141 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=448 top=323 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Beenden
----- HyperTalk script -----
on mouseUp
  pop card
  Kompositaaus
  domenu quit hypercard
end mouseUp