-- background: 2742 from stack: in
-- bmap block id: 3824
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openCard

end openCard

on closeCard
  set the cursor to busy
  get the freeSize of this stack
  doMenu "Compact Stack"
end closeCard

on mouseUp
  go card 1 of this bg
end mouseUp



-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=214 top=226 right=248 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 新規カード
----- HyperTalk script -----
on mouseUp
  doMenu "new card"
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=301 top=226 right=248 bottom=384
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  doMenu "Quit Hypercard"
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=1 top=226 right=248 bottom=84
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 再生
----- HyperTalk script -----
on mouseUp
  go card 1 of this bg
  put field "ﾃｫﾂｨﾃｬx" into SOKUDO
  get number of cards of this bg - 1
  repeat for it times
    go to next
    wait SOKUDO ticks
  end repeat
end mouseUp


-- part 4 (field)
-- low flags: 0C
-- high flags: 2002
-- rect: left=93 top=228 right=248 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 速度
----- HyperTalk script -----
on mouseUp
  ask "ﾃｫﾂｨﾃｬxﾃ�ﾃ陛�H" with me
  if it is empty then exit mouseup
  if it is not a number then
    answer "ﾃｪﾃｮﾃｩﾃｶﾃ��｣ｿﾃｬﾂｸﾃ�ﾃ催�ﾆ津｢竏ｫﾃ�竕･ﾃ�ﾂ｢ﾃ�ﾂｻﾃ�[ﾃ�B"
    exit mouseup
  end if
  put it into me
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=129 top=226 right=248 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 初めに戻る
----- HyperTalk script -----
on mouseUp
  go card 1of this bg
end mouseUp