home *** CD-ROM | disk | FTP | other *** search
/ 1st Canadian Shareware Disc / 1st_Canadian_Shareware_Disc_1991.ISO / graphics / greet90 / greet90.stx / end.txt < prev    next >
Text File  |  1990-11-20  |  3KB  |  215 lines
  1. video g
  2. setpage 1,0
  3. START:
  4. set abort off
  5. pfree 1,-,99
  6. cfree 1,-,99
  7. when 1            ;Clear all WHEN keys.
  8. when 2
  9. when 3
  10. when 4
  11. when esc link credit start
  12. window
  13. if @viewpage==@drawpage
  14.     if @viewpage==0
  15.         setpage 0,1
  16.     else
  17.         setpage 1,0
  18.     endif
  19. endif
  20. setpage @viewpage,@drawpage
  21. color 0
  22. pfade 0,0
  23. CONTIN:
  24. pload wreath,1
  25. cload spark11,1,1
  26. cload spark12,2,1
  27. cload spark13,3,1
  28. cload spark14,4,1
  29. cload spark15,5,1
  30. cload spark21,6,1
  31. cload spark22,7,1
  32. cload spark23,8,1
  33. cload spark24,9,1
  34. cload spark25,10,1
  35. cload spark31,11,1
  36. cload spark32,12,1
  37. cload spark33,13,1
  38. cload spark34,14,1
  39. cload spark35,15,1
  40. cload spark41,16,1
  41. cload spark42,17,1
  42. cload spark43,18,1
  43. cload spark44,19,1
  44. cload spark45,20,1
  45. palette 1
  46. setpage @viewpage,@viewpage
  47. pfade 9,1,80
  48. gosub sparkle1
  49. gosub song
  50. gosub sparkle2
  51. waitkey 100
  52. link CREDIT START
  53. exit
  54.  
  55. START2:            ;Start used when breaking out of FirePlace scene.
  56. when esc link credit start
  57. pfree 1,-,99
  58. cfree 1,-,99
  59. when 1            ;Clear all WHEN keys.
  60. when 2
  61. when 3
  62. when 4
  63. if @viewpage==@drawpage
  64.     if @viewpage==0
  65.         setpage 0,1
  66.     else
  67.         setpage 1,0
  68.     endif
  69. endif
  70. window
  71. setpage @viewpage,@drawpage
  72. color 0
  73. pfade 0,0
  74. setpage @viewpage,@viewpage
  75. pfade 10,0,40
  76. goto CONTIN
  77.  
  78. SPARKLE1:
  79. databegin star1
  80.     mark 15
  81.     putup 0,0,@
  82.     putup 0,0,@
  83.     putup 0,0,@
  84.     putup 0,0,@,4
  85.     revpage
  86.     loop
  87. return
  88.  
  89. SPARKLE2:
  90. databegin star2
  91.     mark 13
  92.     putup 0,0,@
  93.     putup 0,0,@,7
  94.     revpage
  95.     loop
  96.     waitkey 50
  97. databegin star3
  98.     mark 13
  99.     putup 0,0,@
  100.     putup 0,0,@,7
  101.     revpage
  102.     loop
  103. return
  104.  
  105. STAR1:
  106.     1,    6,    11,    16,
  107.     2,    6,    11,    16,
  108.     3,    7,    11,    16,
  109.     4,    8,    11,    16,
  110.     5,    9,    12,    16,
  111.     4,    10,    13,    16,
  112.     3,    9,    14,    17,
  113.     2,    8,    15,    18,
  114.     1,    7,    14,    19,
  115.     1,    6,    13,    20,
  116.     1,    6,    12,    19,
  117.     1,    6,    11,    18,
  118.     1,    6,    11,    17,
  119.     1,    6,    11,    16,
  120.     1,    6,    11,    16
  121. dataend
  122. STAR2:
  123.     1,    11,
  124.     1,    12,
  125.     1,    13,
  126.     1,    14,
  127.     2,    15,
  128.     3,    14,
  129.     4,    13,
  130.     5,    12,
  131.     4,    11,
  132.     3,    11,
  133.     2,    11,
  134.     1,    11,
  135.     1,    11,
  136. dataend
  137. STAR3:
  138.     6,    16,
  139.     7,    16,
  140.     8,    16,
  141.     9,    16,
  142.     10,    17,
  143.     9,    18,
  144.     8,    19,
  145.     7,    20,
  146.     6,    19,
  147.     6,    18,
  148.     6,    17,
  149.     6,    16,
  150.     6,    16
  151. dataend
  152.     
  153. SONG:
  154. ; set timing variables
  155. set 1 148    ;Whole note
  156. set 3 111    ;3/4 note
  157. set 2 74    ;1/2 note
  158. set 4 37    ;1/4 note
  159. set 8 18    ;1/8 note
  160. set 6 9        ;1/16 note
  161. ; set note variables
  162. set G  91
  163. set Gb 96    ;*
  164. set F  102
  165. set E  108
  166. set Eb 115    ;*
  167. set D  122
  168. set Db 129
  169. set C  137
  170. set B  145
  171. set Bb 153
  172. set A  163    ;*
  173. set Ab 172
  174. ;
  175. set TN 53    ;Tone
  176.  
  177. note @A,@TN,@4
  178. note @D,@TN,35
  179. waitkey 5
  180. note @D,@TN,@8
  181. note @E,@TN,@8
  182. note @D,@TN,@8
  183. note @Db,@TN,@8
  184. note @B,@TN,@4
  185. note @B,@TN,@4
  186. ;
  187. note @B,@TN,@4
  188. note @E,@TN,35
  189. waitkey 5
  190. note @E,@TN,@8
  191. note @Gb,@TN,@8
  192. note @E,@TN,@8
  193. note @D,@TN,@8
  194. note @Db,@TN,@4
  195. note @A,@TN,@4
  196. ;
  197. note @A,@TN,@4
  198. note @Gb,@TN,35
  199. waitkey 5
  200. note @Gb,@TN,@8
  201. note @G,@TN,@8
  202. note @Gb,@TN,@8
  203. note @E,@TN,@8
  204. note @D,@TN,@4
  205. note @B,@TN,@4
  206. waitkey 5
  207. ;
  208. note @A,@TN,@8
  209. note @A,@TN,@8
  210. note @B,@TN,@4
  211. note @E,@TN,@4
  212. note @Db,@TN,@4
  213. note @D,@TN,@4
  214. return
  215.