home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Star_Blaze.asc < prev    next >
Text File  |  1996-01-21  |  2KB  |  67 lines
  1. '------------------------------------------------------------------------------- 
  2. '                      STARBLAZER EFFECT By JOK/NFA
  3. '------------------------------------------------------------------------------- 
  4. '
  5.  
  6. Load "star_blaze.abk"
  7.  
  8. Screen Open 1,320,256,8,0
  9. Curs Off : Flash Off : Hide : Cls 0 : Pen 1 : Paper 0
  10. '
  11. Screen Open 0,320,256,8,0
  12. Curs Off : Flash Off : Hide : Cls 0
  13. Double Buffer : Synchro Off 
  14. '
  15. Dual Playfield 0,1
  16. Dual Priority 1,0
  17. '
  18. _SCREEN_SETUP
  19. '
  20. Screen 0 : Palette $0,$FFF,0,,$77F,$55F,$33F,$D,,$FFF,$F0F,$FF,$F0
  21. '
  22. 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"
  23. N=23 : Rem **************************** Try changing this from 1 to 63
  24. '
  25. For A=1 To N : Bob A,Rnd(320),Rnd(256),2 : Channel A To Bob A : Amal A,M$ : Next A
  26. '
  27. A=1
  28. '--------------------------------------------------------- 
  29. Do 
  30. Screen 0
  31. Bob A,Rnd(320),Rnd(256),2
  32. Amal A,M$ : Amal On 
  33. Synchro : Wait Vbl 
  34. If Key State(64) : Screen 1 : Cls 0 : End If 
  35. Inc A : If A>N : A=1 : End If 
  36. Loop 
  37. '--------------------------------------------------------- 
  38. '
  39. Procedure _SCREEN_SETUP
  40. Screen 1
  41. Centre "---------------------------------------" : Print 
  42. Centre "STARBLAZER EFFECT" : Print 
  43. Centre "---------------------------------------" : Print : Print : Print : Pen 2
  44. Centre "CODE & GRAPHICS:-  JOHN HARDIE" : Print : Print : Print : Pen 3
  45. Centre "THIS LITTLE ROUTINE IS GOOD FOR AN INTRO"
  46. Centre "TO A GAME OR A DEMO" : Print : Print 
  47. Centre "YOU COULD USE THIS LITTLE SHINING EFFECT"
  48. Centre "ON A PIECE OF METAL TO GIVE THAT LITTLE" : Print 
  49. Centre "(TING) EFFECT THAT YOU SEE WHEN LIGHT" : Print 
  50. Centre "HITS A PIECE OF SHINY METAL." : Print : Print : Print : Pen 4
  51. Centre "IF YOU WISH TO GET IN TOUCH WITH ME TO" : Print 
  52. Centre "SWAP ROUTINES ETC.. THEN PLEASE WRITE TO" : Print : Print : Print : Pen 1
  53. Centre "JOHN HARDIE" : Print 
  54. Centre "35 WHITEHILL ROAD" : Print 
  55. Centre "BLACKBURN" : Print 
  56. Centre "WEST LOTHIAN" : Print 
  57. Centre "SCOTLAND" : Print 
  58. Centre "EH47 7HQ" : Print : Print : Print : Pen 2
  59. Centre "PRESS SPACE TO GET RID OF TEXT!"
  60. End Proc
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.