home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / xcmd_res.sit / ResCopier / card_2883.txt < prev    next >
Text File  |  1987-11-02  |  3KB  |  160 lines
  1. -- card: 2883 from stack: in
  2. -- bmap block id: 4784
  3. -- flags: 4000
  4. -- background id: 2701
  5. -- name: Bozo's Card
  6. ----- HyperTalk script -----
  7. on idle
  8.   send idle to card button "Rocket"
  9.   pass idle
  10. end idle
  11.  
  12.  
  13.  
  14. -- part 51 (button)
  15. -- low flags: 00
  16. -- high flags: A000
  17. -- rect: left=256 top=263 right=317 bottom=359
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 21889 / 21889
  20. -- text alignment: 1
  21. -- font id: 3
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: Help with ResCopy
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual dissolve fast --zoom open
  29.   go to card "Help 1"
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 52 (button)
  35. -- low flags: 00
  36. -- high flags: A000
  37. -- rect: left=359 top=263 right=317 bottom=466
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 999 / 999
  40. -- text alignment: 1
  41. -- font id: 3
  42. -- text size: 9
  43. -- style flags: 0
  44. -- line height: 12
  45. -- part name: What are Resources?
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual dissolve fast
  49.   go to card "Resources 1"
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 53 (button)
  55. -- low flags: 00
  56. -- high flags: A004
  57. -- rect: left=215 top=168 right=223 bottom=286
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 20179 / 20179
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Let me try it
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   ResCopy
  69. end mouseUp
  70.  
  71.  
  72.  
  73. -- part 54 (field)
  74. -- low flags: 01
  75. -- high flags: 2004
  76. -- rect: left=8 top=239 right=338 bottom=229
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 9
  82. -- style flags: 0
  83. -- line height: 11
  84. -- part name: 
  85.  
  86.  
  87. -- part 57 (button)
  88. -- low flags: 00
  89. -- high flags: 0000
  90. -- rect: left=433 top=288 right=321 bottom=476
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: New Button
  99.  
  100.  
  101. -- part 60 (button)
  102. -- low flags: 00
  103. -- high flags: 2000
  104. -- rect: left=18 top=310 right=327 bottom=54
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 29669 / 29669
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: Rocket
  113. ----- HyperTalk script -----
  114. on idle
  115.   put the loc of me into location
  116.   if item 1 of location > 512 then
  117.     put 0 into item 1 of location
  118.     put random(342) into item 2 of location
  119.   end if
  120.  
  121.   add 3 to item 1 of location
  122.   -- add 1 to item 2 of location
  123.   set lockscreen to true
  124.   set loc of me to location
  125.   set lockscreen to false
  126. end idle
  127.  
  128.  
  129. -- part 61 (field)
  130. -- low flags: 01
  131. -- high flags: 2000
  132. -- rect: left=93 top=68 right=150 bottom=403
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 0
  136. -- font id: 3
  137. -- text size: 9
  138. -- style flags: 0
  139. -- line height: 12
  140. -- part name: 
  141.  
  142.  
  143. -- part contents for card part 54
  144. ----- text -----
  145. Send comments and/or bugs to:
  146. ┬á┬áSteve Maller
  147. ┬á┬áApple Computer
  148. ┬á┬áAppleLink: MALLER1
  149. ┬á┬áMCI Mail: SMALLER
  150. ┬á┬áCompuserve: 70436,1745
  151. ┬á┬áDelphi: STEVEMALLER
  152. ┬á┬áMacintosh Tribune BBS (415) 923-1235
  153.  
  154.  
  155. -- part contents for card part 61
  156. ----- text -----
  157. ResCopy is an attempt at a friendlier and safer Resource copying tool. Click ΓÇ£Help With ResCopyΓÇ¥ below for more information. Pass this on to anyone who can use it.
  158. YOU MAY _NOT_ CHARGE MONEY FOR THIS.
  159. ┬á┬á┬á┬⌐ 1987 Apple Computer
  160. ┬á┬á┬áAll Rights Reserved