Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/storybok.sit/Storybook/card_6503.txt

Text File | 1990-07-24 | 11KB | 431 lines

-- card: 6503 from stack: in
-- bmap block id: 6826
-- flags: 4000
-- background id: 6013
-- name: button options
----- HyperTalk script -----
on openCard
  global cardLine
  put 1 into cardLine
  set the hilite of card button "Link to page" to true
  do turnOnSound("none")
  set the hilite of card button "Sound effect" to false
  do turnOnVisual("none")
  set the hilite of card button "Visual effect" to false
  put card field "Cards" of card "main" into card field "Cards"
  pass openCard
end openCard

function turnOnSound choice
set hilite of card button "beep" to false
set hilite of card button "boing" to false
set hilite of card button "slam" to false
set hilite of card button "harpsichord" to false
if choice is "beep" then
  set hilite of card button "beep" to true
  play "buzzer"
end if
if choice is "boing" then
  set hilite of card button "boing" to true
  play "boing"
end if
if choice is "slam" then
  set hilite of card button "slam" to true
  play "splat"
end if
if choice is "harpsichord" then
  set hilite of card button "harpsichord" to true
  play "harpsichord" tempo 700 g4 a4 b4 c5 d5 c5 b4 a4 g4w
end if
end turnOnSound

function turnOnVisual choice
set hilite of card button "dissolve" to false
set hilite of card button "venetian blinds" to false
set hilite of card button "iris open" to false
set hilite of card button "iris close" to false
if choice is "dissolve" then
  set hilite of card button "dissolve" to true
end if
if choice is "venetian blinds" then
  set hilite of card button "venetian blinds" to true
end if
if choice is "iris open" then
  set hilite of card button "iris open" to true
end if
if choice is "iris close" then
  set hilite of card button "iris close" to true
end if
end turnOnVisual

function chosenSound
if the hilite of card button "beep" is true then
  return "play" && quote & "buzzer" & quote & numToChar(13)
end if
if the hilite of card button "boing" is true then
  return "play" && quote & "boing" & quote & numToChar(13)
end if
if the hilite of card button "slam" is true then
  return "play" && quote & "splat" & quote & numToChar(13)
end if
if the hilite of card button "harpsichord" is true then
  return "play" && quote & "harpsichord" & quote && "tempo 700 g4 a4 b4 c5 d5 c5 b4 a4 g4w" & numToChar(13)
end if
end chosenSound

function chosenEffect
if the hilite of card button "dissolve" is true then
  return "visual effect dissolve slowly" & numToChar(13)
end if
if the hilite of card button "venetian blinds" is true then
  return "visual effect venetian blinds to black" & numToChar(13) & "visual effect venetian blinds" & numToChar(13)
end if
if the hilite of card button "iris open" is true then
  return "visual effect plain to black" & numToChar(13) & "visual effect iris open slowly" & numToChar(13)
end if
if the hilite of card button "iris close" is true then
  return "visual effect iris close slowly to black" & numToChar(13)
end if
end chosenEffect





-- part 1 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=329 top=127 right=289 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Cards
----- HyperTalk script -----
on mouseDown
  global cardLine
  set the hilite of card button "Link to page" to true
  set lockText of card field "Cards" to false
  click at the clickLoc
  click at the clickLoc
  set lockText of card field "Cards" to true
  click at the topLeft of card field "heading"
  put word 2 of the selectedLine into cardLine
  get the selection
  if it is "" then
    select empty
    set the hilite of card button "Link to page" to false
    put 0 into cardLine
  end if
end mouseDown




-- part 2 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=47 top=78 right=96 bottom=155
-- 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: Sound effect
----- HyperTalk script -----
on mouseDown
  if the hilite of me is false then
    send mouseDown to card button "beep"
  else
    set the hilite of me to false
    do turnOnSound("none")
  end if
end mouseDown



-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=39 top=36 right=55 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 18688
-- line height: 16
-- part name: heading


-- part 4 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=190 top=78 right=96 bottom=298
-- 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: Visual effect
----- HyperTalk script -----
on mouseDown
  if the hilite of me is false then
    send mouseDown to card button "dissolve"
  else
    set the hilite of me to false
    do turnOnVisual("none")
  end if
end mouseDown



-- part 5 (button)
-- low flags: 00
-- high flags: C005
-- rect: left=348 top=78 right=96 bottom=459
-- 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: Link to page
----- HyperTalk script -----
on mouseDown
  global cardLine
  if the hilite of me is false then
    set the hilite of me to true
    put 1 into cardLine
  else
    set the hilite of me to false
    put 0 into cardLine
  end if
end mouseDown



-- part 6 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=47 top=133 right=151 bottom=104
-- 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: beep
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Sound effect" is false then
    set the hilite of card button "Sound effect" to true
  end if
  do turnOnSound("beep")
end mouseDown


-- part 7 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=47 top=156 right=174 bottom=104
-- 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: boing
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Sound effect" is false then
    set the hilite of card button "Sound effect" to true
  end if
  do turnOnSound("boing")
end mouseDown


-- part 8 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=47 top=179 right=197 bottom=104
-- 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: slam
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Sound effect" is false then
    set the hilite of card button "Sound effect" to true
  end if
  do turnOnSound("slam")
end mouseDown


-- part 9 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=47 top=202 right=220 bottom=150
-- 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: harpsichord
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Sound effect" is false then
    set the hilite of card button "Sound effect" to true
  end if
  do turnOnSound("harpsichord")
end mouseDown


-- part 10 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=190 top=133 right=151 bottom=269
-- 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: dissolve
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Visual effect" is false then
    set the hilite of card button "Visual effect" to true
  end if
  do turnOnVisual("dissolve")
end mouseDown


-- part 11 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=190 top=156 right=174 bottom=313
-- 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: venetian blinds
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Visual effect" is false then
    set the hilite of card button "Visual effect" to true
  end if
  do turnOnVisual("venetian blinds")
end mouseDown


-- part 13 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=190 top=179 right=197 bottom=269
-- 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: iris open
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Visual effect" is false then
    set the hilite of card button "Visual effect" to true
  end if
  do turnOnVisual("iris open")
end mouseDown


-- part 14 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=190 top=202 right=220 bottom=271
-- 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: iris close
----- HyperTalk script -----
on mouseDown
  if the hilite of card button "Visual effect" is false then
    set the hilite of card button "Visual effect" to true
  end if
  do turnOnVisual("iris close")
end mouseDown


-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=266 top=32 right=56 bottom=339
-- 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: Done
----- HyperTalk script -----
on mouseUp
  global done
  put true into done
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=370 top=32 right=56 bottom=443
-- 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: Cancel
----- HyperTalk script -----
on mouseUp
  global cancel
  put true into cancel
end mouseUp



-- part contents for card part 3
----- text -----
BUTTON OPTIONS

-- part contents for card part 1
----- text -----
beginning
end