home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / ashula / sample2 / all.a next >
Text File  |  1980-01-02  |  7KB  |  472 lines
  1. set sound 0 "asi.snd"
  2. set sound 1 "iki.snd"
  3. set sound 2 "himei.snd"
  4. set sound 3 "time.snd"
  5.  
  6. begin
  7.  
  8. volume pcm7 127
  9. volume pcm8 64
  10.  
  11. screen 0 3
  12. screen 1 3
  13. display 0 both
  14. string view 0 0 84 639 395 0 16 16 18 smooth
  15. palette 0 8 1 1 1
  16. color 0 1 8
  17. color 1 1 0
  18. cls 0
  19. color 0 1 0
  20. string clear 0
  21. layer set 1
  22. point set 1 384 0
  23. display set 1 move 384 396
  24. background@ "s1mo.pgf"
  25. sound 1 pcm7
  26. for 4
  27.  for 32
  28.   roll 1 0 -3 1 0
  29.   roll 1 1 1 1 0
  30.  next
  31.  sound 1 pcm7
  32. next
  33. cls 1
  34. layer set 1
  35. display set 1 move 384 84
  36. point set 1 0 168
  37.  
  38. background@ "s2.pgf"
  39.  roll 1 0 -8 48 0
  40. wait 500
  41.  
  42. cls 1
  43. layer set 1
  44. display set 1 move 0 0
  45. point set 1 0 84
  46. sound 0 pcm8
  47. cast load "s3_1"
  48. background@ "s3b1.pgf"
  49. layer set 0
  50. point set 0 282 254
  51. wait sound end pcm8
  52. sound 0 pcm8
  53. for 10
  54.  put b-0
  55.  wait 10
  56.  put b-1
  57.  wait 10
  58.  put b-2
  59.  wait 10
  60.  put b-3
  61.  wait 10
  62.  put b-2
  63.  wait 10
  64.  put b-1
  65.  wait 10
  66. next
  67. wait sound end pcm8
  68. sound 0 pcm8
  69. clear a
  70. point set 0 0 0
  71. cls 0
  72. display 0 layer0
  73. background@ "c1.pgf"
  74. wait sound end pcm8
  75.  
  76.  
  77. cls 0
  78. point set 0 264 220
  79. cast load "s3_2"
  80. volume pcm8 84
  81. sound 0 pcm8
  82. display 0 both
  83. for 10
  84.  put a-0
  85.  wait 10
  86.  put a-1
  87.  wait 10
  88.  put a-2
  89.  wait 10
  90.  put a-3
  91.  wait 10
  92.  put a-2
  93.  wait 10
  94.  put a-1
  95.  wait 10
  96. next
  97. wait sound end pcm8
  98. sound 0 pcm8
  99. clear a
  100. point set 0 0 0
  101. cls 0
  102. display 0 layer0
  103. background@ "c2.pgf"
  104. wait sound end pcm8
  105.  
  106. cls 0
  107. point set 0 264 180
  108. volume pcm8 100
  109. sound 0 pcm8
  110. display 0 both
  111. for 10
  112.  put b-0
  113.  wait 10
  114.  put b-1
  115.  wait 10
  116.  put b-2
  117.  wait 10
  118.  put b-3
  119.  wait 10
  120.  put b-2
  121.  wait 10
  122.  put b-1
  123.  wait 10
  124. next
  125. wait sound end pcm8
  126. sound 0 pcm8
  127. clear a
  128. point set 0 0 0
  129. cls 0
  130. display 0 layer0
  131. background@ "c3.pgf"
  132. wait sound end pcm8
  133.  
  134. cls 0
  135. cast load "s3_1"
  136. display 0 both
  137. point set 0 264 140
  138. volume pcm8 127
  139. sound 0 pcm8
  140. for 10
  141.  put a-0
  142.  wait 10
  143.  put a-1
  144.  wait 10
  145.  put a-2
  146.  wait 10
  147.  put a-3
  148.  wait 10
  149.  put a-2
  150.  wait 10
  151.  put a-1
  152.  wait 10
  153. next
  154. wait sound end pcm8
  155. sound 0 pcm8
  156. clear a
  157. point set 0 0 0
  158. cls 0
  159. display 0 layer0
  160. background@ "c4.pgf"
  161. wait sound end pcm8
  162.  
  163. string view 0 0 84 639 395 0 16 16 18 smooth
  164. palette 0 8 1 1 1
  165. color 0 1 8
  166. color 1 1 0
  167. cls 0
  168. color 0 1 0
  169. string clear 0
  170. cls 1
  171. display 0 both
  172. layer set 1
  173. display set 1 move 0 0
  174. point set 1 0 84
  175. background@ "s4.pgf"
  176. wait 500
  177.  
  178. cls 1
  179. string view 0 0 84 639 323 0 16 16 18 smooth
  180. color 0 1 8
  181. cls 0
  182. color 0 1 0
  183. string clear 0
  184. point set 1 0 240
  185. display set 1 move 0 428
  186. effect vely slow wipe up
  187. background@ "s5p4.pgf"
  188. effect disable
  189. for 40
  190. wait 5
  191. roll 1 1 -6 1 0
  192. next
  193. point set 1 0 0
  194. background@ "s5p3.pgf"
  195. for 40
  196. wait 5
  197. roll 1 1 -6 1 0
  198. next
  199. point set 1 0 272
  200. background@ "s5p2.pgf"
  201. for 40
  202. wait 5
  203. roll 1 1 -6 1 0
  204. next
  205. point set 1 0 32
  206. background@ "s5p1.pgf"
  207. for 40
  208. wait 5
  209. roll 1 1 -6 1 0
  210. next
  211. wait 500
  212.  
  213. effect nomal dissolve
  214. layer set 0
  215. point set 0 0 84
  216. background@ "title.pgf"
  217. effect disable
  218. wait 300
  219. sound 2 pcm8
  220. wipe 1 very slow dissolve
  221. wait 500
  222.  
  223. string view 0 0 84 639 395 0 16 16 18 smooth
  224. palette 0 8 1 1 1
  225. color 0 1 8
  226. color 1 1 0
  227. cls 0
  228. color 0 1 0
  229. string clear 0
  230. display set 1 move 0 84
  231. layer set 1
  232. point set 1 0 0
  233. background@ "s6.pgf"
  234. roll 1 1 -1 168 2
  235. wait 300
  236. color 1 1 15
  237. wipe 1 very slow dissolve
  238.  
  239. effect very slow dissolve
  240. display set 1 move 0 84
  241. point set 1 0 0
  242. background@ "s7.pgf"
  243. effect disable
  244. roll 1 1 -1 168 2
  245.  
  246. wait 500
  247. color 1 1 0
  248. cls 1
  249. display set 1 move 0 0
  250. point set 1 0 0
  251. background@ "cap1.pgf"
  252. wait 500
  253.  
  254. color 1 1 15
  255. cls 1
  256. effect slow wipe down
  257. display set 1 move 0 400
  258. layer set 1
  259. point set 1 0 0
  260. background@ "s8.pgf"
  261. effect disable
  262. roll 1 1 2 60 3
  263. wait 400
  264. color 1 1 0
  265. cls 1
  266. display set 1 move 0 0
  267. point set 1 0 0
  268. background@ "cap2.pgf"
  269. wait 500
  270.  
  271. color 1 1 0
  272. cls 1
  273. display set 1 move 384 0
  274. layer set 1
  275. point set 1 0 84
  276. effect fast wipe left
  277. background@ "s9.pgf"
  278. sound 3 pcm8
  279. effect disable
  280. for 6
  281.  roll 1 0 -2 32 2
  282.  sound 3 pcm8
  283. next
  284. wait sound end pcm8
  285. sound 3 pcm8
  286. wait sound end pcm8
  287. sound 3 pcm8
  288. wait sound end pcm8
  289. color 1 1 0
  290. cls 1
  291. display set 1 move 0 0
  292. point set 1 0 0
  293. background@ "cap3.pgf"
  294. wait 500
  295.  
  296. color 1 1 0
  297. cls 1
  298. display set 1 move 384 0
  299. layer set 0
  300. point set 0 0 84
  301. sound 3 pcm8
  302. cast load "s10"
  303. palette@ 0
  304. palette@ 1
  305. put b-0
  306. sound 3 pcm8
  307. wait sound end pcm8
  308. layer set 1
  309. point set 1 456 236
  310. put@ a-0
  311. sound 3 pcm8
  312. for 30
  313. roll 1 0 -12 1 0
  314. roll 1 1 10 1 0
  315. next
  316. sound 3 pcm8
  317. wait sound end pcm8
  318. sound 3 pcm8
  319. wait sound end pcm8
  320.  
  321. color 1 1 0
  322. cls 1
  323. color 0 1 0
  324. cls 0
  325. palette 0 8 1 1 1
  326. color 1 1 0
  327. cls 1
  328. display set 1 move 0 0
  329. layer set 1
  330. point set 1 0 0
  331. background@ "cap4.pgf"
  332. wait 500
  333.  
  334. color 1 1 0
  335. cls 1
  336. display set 1 move 0 84
  337. zoom 1 16 16
  338. layer set 1
  339. point set 1 0 84
  340. background@ "s11.pgf"
  341. wait 8
  342. zoom 1 15 15
  343. wait 8
  344. zoom 1 14 14 
  345. wait 8
  346. zoom 1 13 13
  347. wait 8
  348. zoom 1 12 12
  349. wait 8
  350. zoom 1 11 11
  351. wait 8
  352. zoom 1 10 10 
  353. wait 8
  354. zoom 1 9 9
  355. wait 8
  356. zoom 1 8 8
  357. wait 8
  358. zoom 1 7 7
  359. wait 8
  360. zoom 1 6 6
  361. wait 8
  362. display set 1 move 0 0
  363. zoom 1 5 5
  364. wait 8
  365. zoom 1 4 4
  366. wait 8
  367. zoom 1 3 3
  368. wait 8
  369. zoom 1 2 2
  370. wait 8
  371. zoom 1 1 1
  372. wait 200
  373. cls 1
  374. display set 1 move 0 0
  375. layer set 1
  376. point set 1 0 0
  377. background@ "cap5.pgf"
  378. wait 500
  379.  
  380. cast load "s12"
  381. color 1 1 0
  382. cls 1
  383. color 0 1 0
  384. cls 0
  385. palette@ 0
  386. palette@ 1
  387. display set 0 move 0 0
  388. layer set 0
  389. point set 0 0 84
  390. put@ a-0
  391. wait 10
  392. clear a
  393. point set 0 320 84
  394. put@ a-1
  395. wait 10
  396. clear a
  397. wait 100
  398. cls 0
  399. point set 0 0 0
  400. background@ "come1.pgf"
  401. wait 700
  402. cls 1
  403. cls 0
  404. palette@ 0
  405. display set 0 move 0 0
  406. display set 1 move 384 0
  407. layer set 1
  408. point set 1 0 84
  409. put a-0
  410. layer set 0
  411. point set 0 704 84
  412. put a-1
  413. for 192
  414. roll 1 0 -2 1 0
  415. roll 0 0 2 1 0
  416. next
  417. wait 500
  418. layer set 1
  419. point set 1 320 84
  420. put a-1
  421. cls 0
  422. display set 0 move 0 0
  423. display set 1 move 0 0
  424. point set 1 0 84
  425. effect very fast horizontal open
  426. background@ "s13.pgf"
  427. wait 100
  428. effect nomal vertical close
  429. layer set 0
  430. point set 0 0 84
  431. background@ "title.pgf"
  432. wait 500
  433. cls 1
  434. roll 0 1 -4 22 0
  435. layer set 1
  436. point set 1 40 80
  437. effect nomal wipe right
  438. background@ "come2.pgf"
  439. volume pcm7 5
  440. sound 1 pcm7
  441. wait sound end pcm7
  442. volume pcm7 25
  443. sound 1 pcm7
  444. wait sound end pcm7
  445. volume pcm7 45
  446. sound 1 pcm7
  447. wait sound end pcm7
  448. volume pcm7 75
  449. sound 1 pcm7
  450. wait sound end pcm7
  451. volume pcm7 85
  452. sound 1 pcm7
  453. wait sound end pcm7
  454. volume pcm7 105
  455. sound 1 pcm7
  456. wait sound end pcm7
  457. volume pcm7 125
  458. sound 1 pcm7
  459. wait sound end pcm7
  460. volume pcm7 127
  461. sound 1 pcm7
  462. wait sound end pcm7
  463. volume pcm7 127
  464. sound 1 pcm7
  465. wait sound end pcm7
  466. volume pcm7 127
  467. sound 1 pcm7
  468. wait sound end pcm7
  469.  
  470. end
  471.  
  472.