home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 279.lha / CredScroll / credscroll < prev    next >
Encoding:
Text File  |  1989-09-07  |  1.2 KB  |  48 lines
  1. REM     *****CREDSCROLL***** (Mike Griffin)
  2.  
  3. REM     Append to DIRECTOR scripts for "rolling credits" effect. Uses
  4. REM     buffers 10, 20, and 30, along with the following variables:
  5.  
  6. REM     buff=fastmem picture buffer
  7. REM     xf=position on x axis to blit from
  8. REM     yf=position on y axis to blit from
  9. REM     xt=position on x axis to blit to
  10. REM     yt=position on y axis to blit to
  11. REM     v=loop counter
  12.  
  13. setblack 1
  14. buff=30
  15.  
  16. loadfast buff,"RollTitle.pic"        :REM  Load "your screen" into fast mem.
  17.  
  18. new 10,buff:copy buff,10            :REM  Create 2 chip buffers; 1st to clear 
  19. new 20,buff:copy buff,20            :REM  and blit to, 2nd to blit from.
  20.  
  21. clear
  22. position 110,25                     :REM  Assumes a 704x480 overscan screen
  23. fade 1,-1,0
  24.  
  25. xf=63
  26.  
  27. 10000 yf=yf+100
  28.       if yf>410:xf=385
  29.       endif
  30.       for yf=41 to 410 step 100
  31.       yt=yt-1
  32.       for yt=455 to -50 step -1     :REM  Change "step" value to speed up
  33.                                     :REM  scroll (step -2, step -3, etc.)
  34.       blit 20,xf,yf,224,yt,255,44
  35.       next:next
  36.       v=v+1
  37.       if v<2:goto 10000
  38.       else:gosub 20000
  39.       endif
  40.  
  41. 20000 setblack 1
  42.       blit 20,63,405,224,200,255,44
  43.       pause 5
  44.       fade 1,-1,5:pause 15
  45.       fade 0,-1,5:pause 25
  46.       end
  47.  
  48.