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

Text File | 1991-08-27 | 4KB | 169 lines

-- background: 3618 from stack: in
-- bmap block id: 4367
-- flags: 4000
-- background id: 0
-- name: Tulos
----- HyperTalk script -----
on OpenCard
  global oikeita, vääriä, kesto
  do the script of this card --tune if any
  put oikeita into field "oikeita"
  put vääriä into field "vääriä"
  set numberFormat to "0.#"
  put kesto/60 into field "aikaa"
  -- put field "aikaa"/oikeita&&"aikaa/oikea sana" -- speed
  repeat with rivi = 1 to 12
    if field "aikaa" < last word of line rivi of field "Kielivelhot" or line rivi of field "Kielivelhot" is empty then
      ask "Please enter your well respected name:" with "Word Wizard"
      if it is not empty then
        put it&&field "aikaa"&return before line rivi of fld "Kielivelhot"
        put empty into line 13 of fld "Kielivelhot" -- clear rest!
      end if
      exit repeat
    end if
  end repeat
end openCard



-- part 1 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=416 top=99 right=145 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 6
-- text size: 36
-- style flags: 0
-- line height: 48
-- part name: Oikeita


-- part 2 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=417 top=147 right=192 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 6
-- text size: 36
-- style flags: 0
-- line height: 48
-- part name: Vèèriè


-- part 3 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=376 top=260 right=293 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 6
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Aikaa


-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=457 top=295 right=340 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect barn door close
  pop card
end mouseUp


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=86 right=309 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 5
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Kielivelhot
----- HyperTalk script -----
on mouseUp
  play "Hallelujah"
  if the shiftKey is down and the optionKey is Down then
    answer "Do you really want to clear this splendid 'Top 12'-list?" with "Clear" or "Oh, No!"
    if it is "Clear" then put empty into me
  end if
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=455 top=32 right=62 bottom=491
-- 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
  visual zoom close
  go home
end mouseUp




-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=404 top=209 right=256 bottom=453
-- 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: tiuku
----- HyperTalk script -----
on mouseUp
  play "Bell"
end mouseUp


-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=349 top=307 right=331 bottom=450
-- 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 to black
  pop card
  send mouseUp to button "Switch Tongue"
end mouseUp