home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 October / MACPOWER-1996-10.ISO.7z / MACPOWER-1996-10.ISO / MacPowerオリジナル / はいぱかおしえてちょっぷっぷ / やってみよう！ / background_2742.txt < prev    next >
Text File  |  1996-08-22  |  2KB  |  123 lines
  1. -- background: 2742 from stack: in
  2. -- bmap block id: 3824
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.  
  9. end openCard
  10.  
  11. on closeCard
  12.   set the cursor to busy
  13.   get the freeSize of this stack
  14.   doMenu "Compact Stack"
  15. end closeCard
  16.  
  17. on mouseUp
  18.   go card 1 of this bg
  19. end mouseUp
  20.  
  21.  
  22.  
  23. -- part 1 (button)
  24. -- low flags: 00
  25. -- high flags: A003
  26. -- rect: left=214 top=226 right=248 bottom=297
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 1
  30. -- font id: 16384
  31. -- text size: 12
  32. -- style flags: 0
  33. -- line height: 16
  34. -- part name: 新規カード
  35. ----- HyperTalk script -----
  36. on mouseUp
  37.   doMenu "new card"
  38. end mouseUp
  39.  
  40.  
  41. -- part 2 (button)
  42. -- low flags: 00
  43. -- high flags: A003
  44. -- rect: left=301 top=226 right=248 bottom=384
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 16384
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Quit
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   doMenu "Quit Hypercard"
  56. end mouseUp
  57.  
  58.  
  59. -- part 3 (button)
  60. -- low flags: 00
  61. -- high flags: A003
  62. -- rect: left=1 top=226 right=248 bottom=84
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 16384
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: 再生
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.   go card 1 of this bg
  74.   put field "ﾃｫﾂｨﾃｬx" into SOKUDO
  75.   get number of cards of this bg - 1
  76.   repeat for it times
  77.     go to next
  78.     wait SOKUDO ticks
  79.   end repeat
  80. end mouseUp
  81.  
  82.  
  83. -- part 4 (field)
  84. -- low flags: 0C
  85. -- high flags: 2002
  86. -- rect: left=93 top=228 right=248 bottom=126
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 0
  90. -- font id: 16384
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: 速度
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   ask "ﾃｫﾂｨﾃｬxﾃ‡ﾃ陛⑨" with me
  98.   if it is empty then exit mouseup
  99.   if it is not a number then
  100.     answer "ﾃｪﾃｮﾃｩﾃｶﾃ‡ï｣ｿﾃｬﾂｸﾃ‡ﾃ催‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ‡ﾂｻﾃ…[ﾃ③"
  101.     exit mouseup
  102.   end if
  103.   put it into me
  104. end mouseUp
  105.  
  106.  
  107. -- part 6 (button)
  108. -- low flags: 00
  109. -- high flags: A003
  110. -- rect: left=129 top=226 right=248 bottom=212
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 16384
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: 初めに戻る
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   go card 1of this bg
  122. end mouseUp
  123.