home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
279.lha
/
CredScroll
/
credscroll
< prev
next >
Wrap
Text File
|
1989-09-07
|
1KB
|
48 lines
REM *****CREDSCROLL***** (Mike Griffin)
REM Append to DIRECTOR scripts for "rolling credits" effect. Uses
REM buffers 10, 20, and 30, along with the following variables:
REM buff=fastmem picture buffer
REM xf=position on x axis to blit from
REM yf=position on y axis to blit from
REM xt=position on x axis to blit to
REM yt=position on y axis to blit to
REM v=loop counter
setblack 1
buff=30
loadfast buff,"RollTitle.pic" :REM Load "your screen" into fast mem.
new 10,buff:copy buff,10 :REM Create 2 chip buffers; 1st to clear
new 20,buff:copy buff,20 :REM and blit to, 2nd to blit from.
clear
position 110,25 :REM Assumes a 704x480 overscan screen
fade 1,-1,0
xf=63
10000 yf=yf+100
if yf>410:xf=385
endif
for yf=41 to 410 step 100
yt=yt-1
for yt=455 to -50 step -1 :REM Change "step" value to speed up
:REM scroll (step -2, step -3, etc.)
blit 20,xf,yf,224,yt,255,44
next:next
v=v+1
if v<2:goto 10000
else:gosub 20000
endif
20000 setblack 1
blit 20,63,405,224,200,255,44
pause 5
fade 1,-1,5:pause 15
fade 0,-1,5:pause 25
end