home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 343a.lha / DistantSun_demo_v3.0 / dsdemo.txt < prev    next >
Encoding:
Text File  |  1990-01-23  |  3.6 KB  |  232 lines
  1. ;; Scripit script for the Distant Suns demo.
  2. ;;
  3. begin
  4. ;;
  5. ;; Set $s to name of screen.
  6. $s = "Distant Suns"
  7. ;; Set select wait to 0
  8. select wait 0
  9. ;; Try to find screen.
  10. select $s
  11. ;; Did we find screen?  If we didn't, then we run the demo.
  12. if #result < 1
  13.     runback ds_demo
  14. endif
  15. ;;
  16. ;; Set the basic speed of the demo.  100 is normal.
  17. ;; This demo was written on an 030 machine, so it's best to set
  18. ;; this to a higher number on normal machine.
  19. ;; Watch out for weird gurus.  These mean that the delay is too short.
  20. #d = 100
  21. ;;
  22. ;; Set wait to a really long time.
  23. select wait 5000 abort
  24. ;; Wait until a screen called "Distant Suns" comes up with _2_ windows.
  25. select $s ^2
  26. ;; Bring that screen to front.
  27. screen front
  28. wait #d
  29. ;; Turn off titlebar.  (do we need this?)
  30. menu System Titlebar off
  31. wait #d
  32. ;; Reselect screen.   (just to be safe)
  33. select $s
  34. ;; Trigger bright colormap option.
  35. menu Extras Colormap bright
  36. wait #d
  37. ;;
  38. select $s
  39. menu System about
  40. wait #d*4
  41. select gadget EXIT
  42. gadget EXIT
  43. wait #d*4
  44. select $s
  45. menu Display Constellation names
  46. wait #d*4
  47. select $s
  48. menu Display Constellation outlines
  49. wait #d*8
  50. select $s
  51. menu Display Search constellation
  52. wait #d*4
  53. select $s
  54. pointer 389,34 l
  55. wait #d*2
  56. pointer 389,34,L
  57. wait #d*8
  58. select $s
  59. menu Extras,"Mag chart"
  60. wait #d*4
  61. select $s
  62. gadgetup "OK" 99,1,35,98
  63. wait #d*2
  64. select $s
  65. menu Display Deep NGC
  66. wait #d*8
  67. select $s
  68. menu Display Deep Messier
  69. wait #d*6
  70. menu Display Deep legend
  71. wait #d*3
  72. select gadget OK
  73. gadget OK
  74. wait #d*2
  75. select $s
  76. menu Display Field-of-View 15
  77. wait #d*6
  78. select $s
  79. menu Display Identify on
  80. wait #d*2
  81. select $s
  82. menu Display Search " by name"
  83. wait #d*4
  84. select $s
  85. gadgetup "" 0,1,-99,33 "m101"
  86. wait #d*7
  87. select $s
  88. pointer 282,79 l
  89. wait #d
  90. select $s
  91. pointer 282,79 L
  92. wait #d*10
  93. select $s ^2
  94. select gadget OK
  95. wait #d*4
  96. gadget "" 99,1,0,0 "OK"
  97. select $s
  98. menu Display Deep NGC
  99. wait #d*3
  100. ;;
  101. ;; Find the moon!
  102. select $s
  103. menu Display Search "by name"
  104. wait #d*2
  105. select gadget cancel
  106. gadget "" 0,1,0,0 "Moon"
  107. ;;
  108. ;; Zoom in step by step
  109. wait #d*2
  110. select $s
  111. menu Display Field 90
  112. wait #d*2
  113. select $s
  114. menu Display Field 75
  115. wait #d*2
  116. select $s
  117. menu Display Field 60
  118. wait #d*2
  119. select $s
  120. menu Display Field 45
  121. wait #d*2
  122. select $s
  123. menu Display Field 30
  124. wait #d*2
  125. select $s
  126. menu Display Field 15
  127. wait #d*2
  128. ;;
  129. ;; Find the sun!
  130. select $s
  131. menu Display Search "by name"
  132. wait #d*2
  133. select gadget cancel
  134. gadget "" 0,1,0,0 "Sun"
  135. wait #d*2
  136. ;;
  137. ;; Show some planets
  138. select $s
  139. menu Display Constellation names
  140. wait #d*4
  141. select $s
  142. menu Display Constellation outlines
  143. wait #d*8
  144. select $s
  145. menu Display Deep Messier
  146. wait #d*6
  147. select $s
  148. menu Display Lookdown middle
  149. wait #d*4
  150. ;;
  151. select $s
  152. menu Display Field 180
  153. wait #d*4
  154. select $s
  155. menu          "Display  ","Names","   planets   "
  156. wait #d*2
  157. select $s
  158. menu          "Display  ","Search"," solar-system"
  159. wait #d*2
  160. select $s
  161. gadgetup "" 5,5,12,67
  162. wait #d*6
  163. select $s
  164. menu          "More Extras","Telescope"
  165. wait #d*6
  166. pointer 290,102
  167. wait 30
  168. pointer 288,102
  169. wait 30
  170. pointer 286,102
  171. wait 30
  172. pointer 284,102
  173. wait 30
  174. pointer 282,102
  175. wait 30
  176. pointer 280,102
  177. wait 30
  178. pointer 136,112
  179. wait #d*2
  180. gadgetup      "EXIT" 100,2,205,62
  181. wait #d*2
  182. select $s
  183. ;;
  184. ;; Show what's up
  185. select $s
  186. menu More What
  187. wait #d*10
  188. select gadget EXIT
  189. gadget EXIT
  190. wait #d*2
  191. ;;
  192. ;; Show off some scrolling
  193. ;;
  194. ;; Zoom out a bit
  195. wait #d*2
  196. select $s
  197. menu Display Field 60
  198. wait #d*2
  199. ;;
  200. ;; Select the control panel window
  201. select $s ^2
  202. ;;
  203. ;; scroll right
  204. gadget "" 4,7
  205. wait #d*4
  206. gadget "" 4,7
  207. wait #d*2
  208. ;;
  209. ;; scroll left
  210. gadget "" 2,6
  211. wait #d*4
  212. gadget "" 2,6
  213. wait #d*2
  214. ;;
  215. ;; scroll up
  216. gadget "" 3,5
  217. wait #d*4
  218. gadget "" 3,5
  219. wait #d*2
  220. ;;
  221. ;; scroll down
  222. gadget "" 1,4
  223. wait #d*4
  224. gadget "" 1,4
  225. wait #d*2
  226. select $s ^2
  227. menu System Quit
  228. wait #d*10
  229. ;; end of demo
  230. end
  231.  
  232.