home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / oct93 / misc / dasmodplay.lha / DASModPlay / Goodies / Fade2Next.drx < prev    next >
Text File  |  1993-08-19  |  2KB  |  73 lines
  1. /*
  2.     Arexx demoscript for DasModplayer by Erno Tuomainen
  3.  
  4.     Fade Volume to 1 and Select next module from Program list!
  5.  
  6.     If DASModPlayer IS NOT RUNNING, then this script will run it
  7.     LOAD your ModuleList (edit MODLISTNAME) and start playing the
  8.     FIRST module in the list!
  9.  
  10. */
  11.  
  12. ModListName='YourList'        /* Specify your Program List here    */
  13.                 /* Full PATHFilename! eg. Dh0:List.prg  */
  14. PlayerPath='Work:miscutils/DASModPlayer'    /* Path for DASMODPLAYER */
  15.  
  16. OPTIONS Results
  17.  
  18. if ~SHOW('L','rexxsupport.library') then DO
  19.         if addlib('rexxsupport.library', 0, -30, 0) then
  20.                 nop
  21.         ELSE DO
  22.                 say 'RexxSupport.library NOT Available, FIND IT!'
  23.                 exit 10
  24.         END
  25. END
  26.  
  27. result = SHOW('Ports', 'DASMP_Rexx')
  28. if result=0 then DO
  29.         say 'DasModPlayer not Running! Loading DasModplayer and ProgramList'
  30.     say ''
  31.         ADDRESS COMMAND(Playerpath)
  32.  
  33. /* we need the following 3 lines to test when AREXX-script has loaded   */
  34. /* DASModPlayer into the backround.                                     */
  35.     Checkloop1:
  36.             result = SHOW('Ports','DASMP_Rexx')
  37.             if result=0 then signal Checkloop1
  38.  
  39.     If ModListName='YourList' then DO
  40.         say 'Please EDIT this Rexx-script and change your program list into variable LISTNAME'
  41.         EXIT
  42.     END
  43.     ADDRESS 'DASMP_Rexx'
  44.     PLAYMODE ALLREPEAT    /* Set sequential play and repeating programlist */
  45.     LOAD ModListName    /* Load your program list*/
  46.     MOVELIST 0        /* Jump to start of list */
  47.     PLAY            /* Start playing the first module */
  48.     EXIT
  49.         END
  50.  
  51.  
  52. ADDRESS 'DASMP_Rexx'
  53.  
  54. MODCOUNT        /* Get number of modules in ProgramList */
  55. if result < 2 then do
  56.     say 'Not enough Modules loaded into ProgramList'
  57.     exit
  58.     END
  59.  
  60. PLAYMODE ALLREPEAT    /* Set sequential playmode and repeating program */
  61.  
  62. VOLUMELEVEL        /* Get current volumelevel */
  63.  
  64. DO i= 1 to result    /* Fade it into 1        */
  65.     VOLUMEDOWN 1
  66.     call delay(2)
  67. END
  68.  
  69. NEXT            /* Start Playing the Next Module */
  70. VOLUMEUP 64        /* Volume to FULL         */
  71.  
  72. EXIT
  73.