home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sauce 'n' Code 3
/
sauce-n-code-03.adf
/
Source_Code
/
Star_Blaze.asc
< prev
next >
Wrap
Text File
|
1996-01-21
|
2KB
|
67 lines
'-------------------------------------------------------------------------------
' STARBLAZER EFFECT By JOK/NFA
'-------------------------------------------------------------------------------
'
Load "star_blaze.abk"
Screen Open 1,320,256,8,0
Curs Off : Flash Off : Hide : Cls 0 : Pen 1 : Paper 0
'
Screen Open 0,320,256,8,0
Curs Off : Flash Off : Hide : Cls 0
Double Buffer : Synchro Off
'
Dual Playfield 0,1
Dual Priority 1,0
'
_SCREEN_SETUP
'
Screen 0 : Palette $0,$FFF,0,,$77F,$55F,$33F,$D,,$FFF,$F0F,$FF,$F0
'
M$="Anim 1,(3,2)(4,2)(5,2)(6,2)(7,2)(8,4)(7,2)(6,2)(5,2)(4,2)(10,1);P"
N=23 : Rem **************************** Try changing this from 1 to 63
'
For A=1 To N : Bob A,Rnd(320),Rnd(256),2 : Channel A To Bob A : Amal A,M$ : Next A
'
A=1
'---------------------------------------------------------
Do
Screen 0
Bob A,Rnd(320),Rnd(256),2
Amal A,M$ : Amal On
Synchro : Wait Vbl
If Key State(64) : Screen 1 : Cls 0 : End If
Inc A : If A>N : A=1 : End If
Loop
'---------------------------------------------------------
'
Procedure _SCREEN_SETUP
Screen 1
Centre "---------------------------------------" : Print
Centre "STARBLAZER EFFECT" : Print
Centre "---------------------------------------" : Print : Print : Print : Pen 2
Centre "CODE & GRAPHICS:- JOHN HARDIE" : Print : Print : Print : Pen 3
Centre "THIS LITTLE ROUTINE IS GOOD FOR AN INTRO"
Centre "TO A GAME OR A DEMO" : Print : Print
Centre "YOU COULD USE THIS LITTLE SHINING EFFECT"
Centre "ON A PIECE OF METAL TO GIVE THAT LITTLE" : Print
Centre "(TING) EFFECT THAT YOU SEE WHEN LIGHT" : Print
Centre "HITS A PIECE OF SHINY METAL." : Print : Print : Print : Pen 4
Centre "IF YOU WISH TO GET IN TOUCH WITH ME TO" : Print
Centre "SWAP ROUTINES ETC.. THEN PLEASE WRITE TO" : Print : Print : Print : Pen 1
Centre "JOHN HARDIE" : Print
Centre "35 WHITEHILL ROAD" : Print
Centre "BLACKBURN" : Print
Centre "WEST LOTHIAN" : Print
Centre "SCOTLAND" : Print
Centre "EH47 7HQ" : Print : Print : Print : Pen 2
Centre "PRESS SPACE TO GET RID OF TEXT!"
End Proc