home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sauce 'n' Code 3
/
sauce-n-code-03.adf
/
Source_Code
/
Unlimited_Snake.asc
< prev
next >
Wrap
Text File
|
1996-01-21
|
1KB
|
41 lines
'---------------------------------------------------------------------------
' UNLIMITED SHAPES DEMO BY JOHN HARDIE (JOK/NFA)
'---------------------------------------------------------------------------
'
'If you notice, the last ball in the trail gets deleted with a invisible ball
'the reason for this is that there are two trains of balls moving...
'THE ONE THATS VISABLE AND AN INVISABLE ONE
'If you change colour 0 to something bright you will notice this
'
'If you wish to use your own graphics then follow these steps:
'-------------------------------------------------------------
'
'When drawing a ball, make sure that you have one colour in your palette spare
'
'Make sure that the spare colour is exactly the same as colour 0 in your palette
'
'Once you have drew your ball make a copy of it and fill all of the ball with
'the spare colour in your palette
'
'save the two sprites off and load and grab them.
'
'
Load "Unlimited_Snake.abk"
'
S1=0 : S2=100
'---------------------------------------------------------------------------
Do
Paste Bob 152+Sin(S1/20.0)*152,116+Sin(S1/30.0)*116,2
Paste Bob 152+Sin(S2/20.0)*152,116+Sin(S2/30.0)*116,1
Inc S1 : Inc S2
Screen Swap : Wait Vbl
Loop
'---------------------------------------------------------------------------
'