home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Unlimited_Snake.asc < prev    next >
Text File  |  1996-01-21  |  1KB  |  41 lines
  1. '--------------------------------------------------------------------------- 
  2. '               UNLIMITED SHAPES DEMO BY JOHN HARDIE (JOK/NFA) 
  3. '--------------------------------------------------------------------------- 
  4. '
  5. 'If you notice, the last ball in the trail gets deleted with a invisible ball
  6. 'the reason for this is that there are two trains of balls moving... 
  7. 'THE ONE THATS VISABLE AND AN INVISABLE ONE
  8. 'If you change colour 0 to something bright you will notice this 
  9. '
  10. 'If you wish to use your own graphics then follow these steps: 
  11. '-------------------------------------------------------------   
  12. '
  13. 'When drawing a ball, make sure that you have one colour in your palette spare 
  14. '
  15. 'Make sure that the spare colour is exactly the same as colour 0 in your palette 
  16. '
  17. 'Once you have drew your ball make a copy of it and fill all of the ball with  
  18. 'the spare colour in your palette
  19. '
  20. 'save the two sprites off and load and grab them.
  21. '
  22. '
  23. Load "Unlimited_Snake.abk"
  24. '
  25. S1=0 : S2=100
  26. '--------------------------------------------------------------------------- 
  27. Do 
  28. Paste Bob 152+Sin(S1/20.0)*152,116+Sin(S1/30.0)*116,2
  29. Paste Bob 152+Sin(S2/20.0)*152,116+Sin(S2/30.0)*116,1
  30. Inc S1 : Inc S2
  31. Screen Swap : Wait Vbl 
  32. Loop 
  33. '--------------------------------------------------------------------------- 
  34. '
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.