home *** CD-ROM | disk | FTP | other *** search
/ 1st Canadian Shareware Disc / 1st_Canadian_Shareware_Disc_1991.ISO / graphics / greet90 / greet90.stx / snow.txt < prev    next >
Text File  |  1990-11-20  |  3KB  |  195 lines
  1. video g
  2. waitkey 60
  3. set space off
  4. set escape off
  5. set abort off
  6. START:
  7. when esc link end start
  8. cload frame,98,1
  9. cload staff,99,1
  10. pload snow.pal,98
  11. pload fire.pal,99
  12. ;
  13. pload bkg1,1
  14. palette 1
  15. cload banner,1,1
  16. cload title1,3,1
  17. setpage 1,0
  18. pfade 0,1        ;Fade background in on page 0
  19. setpage 1,1
  20. pfade 9,1,80,40    ;Fade background in on visible page.
  21. setpage 1,0
  22. up 1            ;Putup first banner clip
  23. cfree 1
  24. timer
  25. pfree 1
  26. dload banner,1
  27. waitkey 70
  28. putdff 1,5,0,16,0,250    ;Make banner expand.
  29. dfree 1
  30. window 64,272,568,324
  31. float 0,-55,0,0,4,3,99    ;Float up blank music staff.
  32. endfloat
  33. window
  34. up 99            ;Music staff on both pages.
  35. setpage 1,0
  36. putup 0,0,98        ;Putup Frame on unseen page.
  37. setpage 1,1
  38. edge on 15
  39. cfade 22,56,59,98,0,50    ;Fade in Frame.
  40. setpage 1,0
  41. putup 0,0,3        ;Title 1 on page 0.
  42. setpage 1,1
  43. cfade 4,72,276,3,50    ;Fade in Title 1.
  44. edge off
  45. cfree 2,3
  46. ;
  47. ;  Begin Snow Sequence
  48. ;
  49. cload SNOW1,1,1
  50. cload SNOW2,2,1
  51. cload SNOW3,3,1
  52. cload TITLE2,5,1
  53. window 64,69,576,237
  54. edge on 15
  55. cfade 12,64,69,1,40    ;Fade in snow scene over empty frame.
  56. setpage 1,0
  57. window
  58. edge off
  59. mark 15            ;Putup the Snow clippings.
  60.     putup 0,0,1,12
  61.     revpage
  62.     putup 0,0,2,12
  63.     revpage
  64.     putup 0,0,3,12
  65.     revpage
  66. loop
  67. title 5            Put Title 1 up.
  68. ;
  69. ; Fireplace Sequence
  70. ;
  71. cfree 1,2,3,4,5
  72. cload FIREPLC,1,1    ;Load fireplace scene.
  73. frameclr 1,99
  74. when esc link end start2
  75. cfree 1
  76. revpage
  77. cload FLAME1,1,1
  78. cload FLAME2,2,1
  79. cload FLAME3,3,1
  80. cload FLAME4,4,1
  81. cload CANDLE1,5,1
  82. cload CANDLE2,6,1
  83. cload CANDLE3,7,1
  84. cload CANDLE4,8,1
  85. cload WSNOW1,9,1
  86. cload WSNOW2,10,1
  87. cload WSNOW3,11,1
  88. cload WSNOW4,12,1
  89. cload TITLE3,13,1
  90. mark 10
  91.     putup 0,0,4
  92.     putup 0,0,5,11
  93.     revpage
  94.     putup 0,0,2
  95.     putup 0,0,6,11
  96.     revpage
  97.     putup 0,0,1
  98.     putup 0,0,7,11
  99.     revpage
  100.     putup 0,0,3
  101.     putup 0,0,8,11
  102.     revpage
  103. loop
  104. putup 0,0,1
  105.  
  106. title 13            ;Put Title 2 up.
  107. cfree 13
  108. mark 9
  109.     putup 0,0,4
  110.     putup 0,0,5,11
  111.     revpage
  112.     putup 0,0,2
  113.     putup 0,0,6,11
  114.     revpage
  115.     putup 0,0,1
  116.     putup 0,0,7,11
  117.     revpage
  118.     putup 0,0,3
  119.     putup 0,0,8,11
  120.     revpage
  121. loop
  122. putup 0,0,4
  123. cload TITLE4,13,1
  124. title 13            ;Put title 3 up.
  125. cfree 5,6,7,8,13        ;Free candle and title clippings.
  126. cload SNOW1,20,1
  127. cload TITLE5,50,1
  128.  
  129. mark 13
  130.     putup 0,0,4
  131.     putup 0,0,9,11
  132.     revpage
  133.     putup 0,0,2
  134.     putup 0,0,10,11
  135.     revpage
  136.     putup 0,0,1
  137.     putup 0,0,11,11
  138.     revpage
  139.     putup 0,0,3
  140.     putup 0,0,12,11
  141.     revpage
  142. loop
  143. title 50
  144. frameclr 20,98
  145. when esc link end start
  146. cfree 1,-,19,50
  147. cload SNOW2,21,1
  148. cload SNOW3,22,1
  149. mark 20            ;Putup the Snow clippings.
  150.     putup 0,0,20,12
  151.     revpage
  152.     putup 0,0,21,12
  153.     revpage
  154.     putup 0,0,22,12
  155.     revpage
  156. loop
  157. set abort on
  158. link MENU START
  159. waitkey
  160. exit
  161.  
  162. UP:
  163.     putup 0,0,@1
  164.     revpage
  165.     putup 0,0,@1
  166.     return
  167.  
  168. TITLE:                ;USAGE:  TITLE title_clp
  169.     edge on 15
  170.     local dpg @drawpage
  171.     local vpg @viewpage
  172.     setpage @vpg,@vpg
  173.     cfade 3,72,276,99,50    ;Clear Title.
  174.     setpage @vpg,@dpg
  175.     putup 0,0,99        ;Clear Title from unseen page.
  176.     putup 0,0,@1        ;Put Title on unseen page.        
  177.     setpage @vpg,@vpg
  178.     cfade 4,72,276,@1,50    ;Fade in Title.
  179.     setpage @vpg,@dpg
  180.     edge off
  181.     return
  182.  
  183. FRAMECLR:            ;USAGE:  FRAMECLR scene_clp, palette_pic
  184.     local dpg @drawpage
  185.     local vpg @viewpage
  186.     setpage @vpg,@vpg
  187.     window 64,69,576,237
  188.     cfade 11,56,59,98,40    ;Clear Frame.
  189.     palette @2        ;Change palette.
  190.     cfade 12,64,69,@1,40    ;Fade in Scene.
  191.     setpage @vpg,@dpg
  192.     putup 0,0,@1        ;Put scene up on unseen page.
  193.     window
  194.     return
  195.