home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / graphic / video_presentation / titler_presentation / helm / examples / memorybook (.txt) < prev    next >
Encoding:
Helm Multimedia Book  |  1995-07-10  |  12.0 KB  |  344 lines
  1. MemoryBook
  2. Scott Nickerson
  3. 12-27-93
  4. on BookOpen
  5. begin
  6.   global flag
  7.   put "Press 'Start'" into textfield "Display"
  8.   put false into flag
  9.   put 5 into textfield "Skill"
  10.   put "Easy" into textfield "SkillDisplay"
  11.   set seed to seconds
  12. NewColor
  13. begin
  14.   global index, lasti, flag
  15.   put numtochar(65 + random(3)) into theButton
  16.   put thebutton & space after textfield "History"
  17.   put false into flag
  18.   for n = 1 to index begin
  19. click on button (word n of textfield "History")
  20. play notes (word n of textfield "History")
  21.   end
  22.   put true into flag
  23.   put index into lasti
  24. CheckColor
  25. begin
  26.   global index, lasti, flag
  27.   if flag is true begin
  28. if word index of textfield "History" is the name of me begin
  29. play notes (name of me)
  30. if index = lasti begin
  31. if index >= textfield "Skill" begin
  32. wait 2
  33. play notes "c6x d e f g a"
  34. put false into flag
  35. put "You got it!" into textfield "Display"
  36. for n = 1 to 15 begin
  37. // reward
  38. set the hsv of 0 to random(250), 255, 255
  39. play notes (60 + random(30)) & "x"
  40. delay 5
  41. set color 0 to black
  42. break
  43. wait 2
  44. add one to index
  45. NewColor()
  46. put zero into index
  47. add one to index
  48. else begin
  49. $// for wrong inputs
  50. play notes "c3"
  51. put "Wrong!" into textfield "Display"
  52. wait 2
  53. put false into flag
  54. for n = 1 to lasti begin
  55. click on button (word n of textfield "History")
  56. play notes (word n of textfield "History")
  57. put empty into textfield "History"
  58. put one into index
  59. put "Press 'Start'" into textfield "Display"
  60.   end // flag
  61.   else play notes the name of me
  62. CheckColor
  63.     NewColor
  64. Press 'Start'
  65. Display
  66. Skill
  67. SkillDisplay
  68. index
  69. lasti
  70. History
  71. History
  72. History
  73. index
  74. lasti
  75. History
  76. Skill
  77. c6x d e f g a
  78. You got it!
  79. Display
  80. NewColor
  81. Wrong!
  82. Display
  83. History
  84. History
  85. History
  86. Press 'Start'
  87. Display
  88. New...
  89. Open...
  90. Make Copy...
  91. Streamline...
  92. Preferences...
  93.     Workbench
  94. Help...
  95. About...
  96. Quit...
  97. Paste
  98. Clear
  99. Select All
  100. Cut Page
  101.     Copy Page
  102. Colors
  103. Load...
  104. Save...
  105. Restore Colors
  106. Default Colors
  107. Brush Colors
  108. Image Colors
  109. Last Color Font
  110. Cycle
  111. Grid...
  112. Stop Sound
  113. Show All
  114. Unlock All
  115.     Edit Form
  116. Share
  117.     Next Page
  118. Previous Page
  119. First Page
  120.     Last Page
  121. Backward
  122. Forward
  123.     Last Book
  124.     Browse...
  125. Autobrowse...
  126.     Bookshelf
  127. New Page
  128. Delete Page
  129. New Form
  130. Load Form...
  131. Save Form...
  132. Image
  133. Load...
  134. Save...
  135. Capture...
  136.     Clipboard
  137. Paste
  138. Spare
  139. Swap Frames
  140. Copy to Spare
  141. Merge in Front
  142. Merge in Back
  143. Delete Spare
  144. Frame
  145. Previous
  146. Delete
  147. Copy to All
  148. Color
  149. Remap
  150. Transparency
  151. Paper <-> Pen
  152. Paper ->  Pen
  153. Count
  154. Vertical
  155. Horizontal
  156. Info...
  157. Brush
  158. Load...
  159. Save...
  160. Restore
  161.     Clipboard
  162. Paste
  163. Color
  164. Remap
  165. Transparency
  166. Paper <-> Pen
  167. Paper ->  Pen
  168. Center
  169. Corner
  170.     Any Point
  171. Any Size
  172. Halve
  173. Double
  174. Halve Width
  175. Halve Height
  176. Double Width
  177. Double Height
  178. To PAL
  179. To NTSC
  180. Vertical
  181. Horizontal
  182. Shear
  183. Vertical
  184. Horizontal
  185. Rotate
  186.     Any Angle
  187. Paint
  188. Matte
  189. Color
  190. Replace
  191. Smear
  192. Dissolve
  193. Spare
  194. Cycle
  195. Cycle 2
  196. Gradient
  197. Gradient 2
  198. Smudge
  199. Chaos
  200. Count
  201. Custom
  202. Dither
  203. Edges
  204. Object
  205. Load...
  206. Save...
  207. Bring to Front
  208. Send to Back
  209. Bring Closer
  210. Send Farther
  211. Group
  212. Ungroup
  213. Duplicate...
  214. Align...
  215. Info...
  216. Actions...
  217.     Script...
  218. Load...
  219. Save...
  220. Plain
  221.     Underline
  222. Italic
  223. Shadow
  224. Font...
  225. Spacing...
  226.     Hypertext
  227. Actions...
  228.     Script...
  229. Tools
  230. Coordinates
  231.     Title Bar
  232. Palette
  233. Colors
  234. Patterns
  235. Paint Tools
  236. Paint Types
  237.     Histogram
  238.     Magnifier
  239. Messages
  240. Draw Tools
  241. Layers
  242. Pages
  243. Author
  244. Book...
  245. Form...
  246. Page...
  247. Display...
  248. Narrator...
  249. Hypertext...
  250. Resources...
  251.     Effect...
  252. Effect Area
  253. topaz.fontGLOB
  254. fonts:Book23
  255. Work:Books/MathBook
  256. work:books/Simon.bkp
  257. GPAGE
  258. MemoryBook V1.0
  259. Eagle Tree Software
  260. Repeat the color and
  261. tone pattern by
  262. clicking on the
  263. colored buttons to
  264.     the left.
  265. Press 'Start'
  266. Start
  267. Title
  268. skill
  269.     Bookshelf
  270. About
  271. SkillDisplay
  272.     Difficult
  273. Medium
  274. Display
  275. History
  276. %on SelectUp
  277. begin
  278.   CheckColor()
  279. CheckColor
  280. %on SelectUp
  281. begin
  282.   CheckColor()
  283. CheckColor
  284. %on SelectUp
  285. begin
  286.   CheckColor()
  287. CheckColor
  288. %on SelectUp
  289. begin
  290.   CheckColor()
  291. CheckColor
  292. on SelectUp
  293. begin
  294.   global index, flag
  295.   put empty into textfield "History"
  296.   put one into index
  297.   put true into flag
  298.   put "Repeat this!" into textfield "Display"
  299.   NewColor()
  300. index
  301. History
  302. Repeat this!
  303. Display
  304. NewColor
  305. 3on SelectUp
  306. begin
  307.   go to the book "Bookshelf"
  308. Bookshelf
  309. eon SelectUp
  310. begin
  311.   answer "Quit MemoryBook?" with "@NNo" or "~@YYes"
  312.   if it is "Yes" then quit
  313. Quit MemoryBook?
  314. ~@YYes
  315. Hon SelectUp
  316. begin
  317.   answer "MemoryBook V1.0\n\nEagle Tree Software"
  318. MemoryBook V1.0
  319. Eagle Tree Software
  320. hon SelectUp
  321. begin
  322.   put 5 into textfield "Skill"
  323.   put the name of me into textfield "SkillDisplay"
  324. Skill
  325. SkillDisplay
  326. ion SelectUp
  327. begin
  328.   put 15 into textfield "Skill"
  329.   put the name of me into textfield "SkillDisplay"
  330. Skill
  331. SkillDisplay
  332. ion SelectUp
  333. begin
  334.   put 10 into textfield "Skill"
  335.   put the name of me into textfield "SkillDisplay"
  336. Skill
  337. SkillDisplay
  338. ion SelectUp
  339. begin
  340.   put 20 into textfield "Skill"
  341.   put the name of me into textfield "SkillDisplay"
  342. Skill
  343. SkillDisplay
  344.