home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / EFFECT.BAS < prev    next >
BASIC Source File  |  1993-11-07  |  821b  |  25 lines
  1. SUB EFFECT (Eff$)
  2. SELECT CASE Eff$
  3.  
  4.     'CASE "MODEMERROR"
  5.     'FOR y = 100 TO 50 STEP -.25: SOUND y, .1: NEXT y
  6.     CASE "PHASERS"
  7.         FOR y% = 500 TO 50 STEP -25: SOUND y%, .05: NEXT y%
  8.         FOR y% = 500 TO 50 STEP -25: SOUND y%, .05: NEXT y%
  9.         FOR y% = 500 TO 50 STEP -25: SOUND y%, .05: NEXT y%
  10.     CASE "PAGE"
  11.     FOR y% = 50 TO 5000 STEP 200: SOUND y%, .1: NEXT y%
  12.     FOR y% = 50 TO 5000 STEP 200: SOUND y%, .1: NEXT y%
  13.     FOR y% = 50 TO 5000 STEP 200: SOUND y%, .1: NEXT y%
  14.     CASE "CRASH"
  15.     FOR y% = 1500 TO 1000 STEP -5: SOUND y%, .2: NEXT y%
  16.     FOR y% = 1000 TO 750 STEP -10: SOUND y%, .2: NEXT y%
  17.     FOR y% = 750 TO 400 STEP -20: SOUND y%, .2: NEXT y%
  18.     FOR y% = 400 TO 50 STEP -50: SOUND y%, .2: NEXT y%
  19.     FOR y% = 1 TO 500: SOUND INT(RND(1) * 500) + 50, .05: NEXT y%
  20. '
  21. CASE ELSE
  22. END SELECT
  23. END SUB
  24.  
  25.