Garbo/Garbo.cdr/mac/hypercrd/hc2_x/tongubng.sea/TongueBingo/card_3514.txt

Text File | 1991-08-27 | 5KB | 236 lines

-- card: 3514 from stack: in
-- bmap block id: 2418
-- flags: 4000
-- background id: 3297
-- name: Opetuskortti
----- HyperTalk script -----
on openCard
  global kieli, suomesta, kirjasin, kyrill
  if kyrill and not suomesta then
    set textFont of field 17 to "TYPKY"
    set textStyle of field 17 to bold
  else if kieli is "Greek" and not suomesta then
    set textFont of field 17 to "Sparta"
    set textStyle of field 17 to bold
  else
    set textFont of field 17 to Athens
    set textStyle of field 17 to plain
  end if
  if kyrill and suomesta then asetaFont "TYPKY"
  else if kieli is "Greek" and suomesta then asetaFont "Sparta"
  else asetaFont kirjasin
end openCard

on asetaFont font
  repeat with sana = 1 to 16
    set textFont of field sana to font
    set textStyle of field sana to bold
  end repeat
end asetaFont



-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=119 top=321 right=340 bottom=179
-- 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: Font
----- HyperTalk script -----
on mouseUp
  global kirjasin
  get textFont of field 1
  if it is "TYPKY" then exit mouseUp -- ei venäjän kielelle
  if it is "Sparta" then exit mouseUp -- eikä kreikan kielelle
  set cursor to watch
  lock screen
  select field 1
  doMenu "Text style..."
  choose browse tool
  if textFont of field 1 Γëá textFont of field 2 then
    repeat with k = 2 to 16
      set textFont of field k to textFont of field 1
    end repeat
  end if
  if textSize of field 1 Γëá textSize of field 2 then
    repeat with k = 2 to 16
      set textSize of field k to textSize of field 1
    end repeat
  end if
  if textStyle of field 1 Γëá textStyle of field 2 then
    repeat with k = 2 to 16 -- ei toimi, jos useampia tyylejä!
      set textStyle of field k to textStyle of field 1
    end repeat
  end if
  if textAlign of field 1 Γëá textAlign of field 2 then
    repeat with k = 2 to 16
      set textAlign of field k to textAlign of field 1
    end repeat
  end if
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=376 top=38 right=60 bottom=457
-- 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: New Game
----- HyperTalk script -----
on mouseUp
  global oikeat, oikeita, vääriä, alku, kesto, osattu, kieli, suomesta, kirjasin
  put "Game starts, when You hear the Gong…"
  put 0 into vääriä
  put 0 into oikeita
  put 0 into kesto
  put empty into osattu
  --set hilite of bg button fanfaarit to true
  repeat with sana = 1 to 16
    put false into item sana in oikeat
    set textStyle of field sana to bold
  end repeat
  uusiSana
  play "Bell"
  put the ticks into alku
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=383 top=319 right=340 bottom=508
-- 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: Back to Glossary
----- HyperTalk script -----
on mouseUp
  visual effect venetian blinds
  pop card
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=470 top=21 right=48 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kotiin
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp




-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=265 top=318 right=339 bottom=376
-- 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: Switch Tongue
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  pop card
  send mouseUp to background button "Switch Tongue"
end mouseUp


-- part contents for background part 21
----- text -----
kumoa

-- part contents for background part 1
----- text -----
highlight

-- part contents for background part 4
----- text -----
calculator

-- part contents for background part 5
----- text -----
footer

-- part contents for background part 6
----- text -----
hardware

-- part contents for background part 8
----- text -----
software

-- part contents for background part 9
----- text -----
user interface

-- part contents for background part 12
----- text -----
cancel

-- part contents for background part 13
----- text -----
indentation

-- part contents for background part 14
----- text -----
apple

-- part contents for background part 15
----- text -----
oval

-- part contents for background part 16
----- text -----
italic

-- part contents for background part 17
----- text -----
page setup

-- part contents for background part 18
----- text -----
spacebar

-- part contents for background part 19
----- text -----
network

-- part contents for background part 20
----- text -----
message

-- part contents for background part 10
----- text -----
clear