home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / oct93 / misc / dasmodplay.lha / DASModPlay / Goodies / FadeQUIT.drx < prev    next >
Text File  |  1993-08-19  |  708b  |  35 lines
  1. /*
  2.     Arexx demoscript for DasModplayer by Erno Tuomainen
  3.  
  4.     Fade Volume to 1 and Quit DASModplayer    
  5. */
  6.  
  7. OPTIONS Results
  8.  
  9. if ~SHOW('L','rexxsupport.library') then DO
  10.         if addlib('rexxsupport.library', 0, -30, 0) then
  11.                 nop
  12.         ELSE DO
  13.                 say 'RexxSupport.library NOT Available, FIND IT!'
  14.                 exit 10
  15.         END
  16. END
  17.  
  18. result = SHOW('Ports', 'DASMP_Rexx')
  19. if result=0 then DO
  20.     say 'DASModPlayer not running! No need for this Script!'
  21.     EXIT
  22.     END
  23.  
  24. ADDRESS 'DASMP_Rexx'
  25. VOLUMELEVEL        /* Get current volumelevel */
  26.  
  27. DO i= 1 to result    /* Fade it into 0        */
  28.     VOLUMEDOWN 1
  29.     call delay(2)
  30. END
  31.  
  32. STOP            /* Stop Playing the Module */
  33. QUIT            /* Quit DASModPlayer       */
  34. EXIT
  35.