home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / BOS / BOSMAG1A.MSA / BOS_DEMOTUT < prev    next >
Text File  |  1995-09-08  |  4KB  |  89 lines
  1.                ************************************
  2.                * WRITE YOUR VERY OWN DEMO IN STOS *
  3.                ************************************
  4.  
  5.                              * BY JD *
  6.  
  7. This  series  aims to give STOS users a peek into the  demo  world
  8. with  small demos and examples coded in STOS every  month,  giving
  9. you  an  excellent  start into coding in  STOS  with  professional
  10. looking games, demos etc.
  11.  
  12. First, install STOSDEMO.TOS and de-archive it as shown in the HOW TO 
  13. EXTRACT ARCHIVES article. You will then have a file called DIGIDEMO.BAS. 
  14. Load up STOS and run it!
  15.  
  16. Please note you will need the Misty extension by Top Notch to run it, 
  17. if you you haven't got this, write to the usual B.O.S. address, enclosing 
  18. a disk and an S.A.E., and I'll send it to you.
  19.  
  20. This demo is the Digidemo, and is part of our megademo, 'Cool as Fire' 
  21. which can be obtained by sending three disks and an S.A.E. to the B.O.S. 
  22. address.
  23.  
  24. It works by playing Quartet modules held in banks 5, 6, 7, 8, 9 and 11 
  25. using the Quartet player code held in bank 15. The Quartet voice file is 
  26. held in bank 10.
  27.  
  28. Line 10 sets up the screen for action.
  29.  
  30. Lines 20-26 set up the text for the 3 scrollines, in the strings M$, N$ 
  31. and O$.
  32.  
  33. Lines 30-60 set up the scroll zones for the scrollers.
  34.  
  35. Line 100 unpacks the screen held in bank 14 to bank 2 and gosubs to line 
  36. 4000 where code for my special 'Pour up' appear is held.
  37.  
  38. Lines 110-130 does the scrolling.
  39.  
  40. It then gosubs to line 500 where the inkey$ are tested to see if a key is 
  41. pressed. If 1-6 is pressed, the tune is changed. This is done by selecting 
  42. a different Quartet music bank and gosubbing to line 1000 where the music 
  43. is stopped and then started again with the new music bank playing.
  44.  
  45. Lines 1000-3000 play and stop the music.
  46.  
  47. To play music:
  48.  
  49. Dreg(0)=0 : call 15 : ' Install player code
  50. Dreg(0)=5 : call 15 : ' Select soundchip
  51. Dreg(0)=1 : areg(0)=start( music bank (B) ) : areg(1)=start( voice bank) 
  52. : call 15 ' Play music
  53.  
  54. To stop music:
  55.  
  56. Dreg(0)=2 : call 15 : ' Stop music
  57. Dreg(0)=3 : call 15 : ' De-install player code
  58.  
  59. This music plays on interrupt, so you can do a limited amount of things 
  60. whilst it plays. N.B. a lot of processor time is used to play the music, 
  61. but it sounds great and is far better than having a module playing because 
  62. you can do other things than have just a static screen display. 
  63.  
  64. That's about it, so go on, try it out!
  65.  
  66. If you would like to see more code like this, I can supply you with four 
  67. disks full! It is the full source code to our megademo, 'Cool as Fire' and is 
  68. available to you for just £5! Please make all cheques out to J.Davidson, and 
  69. send it to the usual B.O.S. address. I'll then send you the four disks and 
  70. you'll have enough code to last you a lifetime!
  71.  
  72. Also send all articles, letters etc, STOS questions, tips, advice to
  73. that  address.  I  will  be pleased to  answer  any  STOS  related
  74. questions.
  75.  
  76. As a bonus, I've included the source code to the menu screen and doc displayer 
  77. that you are reading this with. Just extract MENUCODE.TOS in the usual way and 
  78. run MENU.BAS in STOS. Please note, it requires MENU.MUS to be present in the 
  79. B.O.S. folder, so just insert this disk in the drive when you run it!
  80.  
  81. Also, the menu screen needs to have the Missing Link and Misty extensions to 
  82. be able to run properly, which are available from me if you haven't got them.
  83.  
  84. Have fun, remember you must register if you want to be able to use these 
  85. examples!
  86.  
  87.  
  88. See ya!, JD!
  89.