home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 614a.lha / DeliTracker / Rexx / dt_controll.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1991-12-30  |  2.0 KB  |  92 lines
  1. /* DeliTracker remote Conotrol (written for Testpurposes) */
  2. /* This is a script for controlling Delitracker from CLI  */
  3.  
  4.  
  5. address 'rexx_DT'
  6.  
  7. predefined = Data:Modules/SoundTracker_Best/mod.Enola Gay.pp'
  8. qf=0
  9.  
  10. do until qf=1 
  11.  
  12.      say
  13.      say " DeliTracker remote Controllpanel "
  14.      say
  15.      say " Play Faster        [+]    Play Slower        [-]"
  16.      say " Next Song        [6]    Prev Song        [4]"
  17.      say " Next Subsong        [3]    Prev Subsong        [1]"
  18.      say " Next Pattern        [9]    Prev Pattern        [7]" 
  19.      say " Open main window    [5]    Close main window    [8]"
  20.      say " Open pref window    [2]    Close pref window    [0]"
  21.      say " Volume Slide        [[]    Balance Slide        []]"
  22.      say " Select Module(s)    [*]    Play predefined        [\]"
  23.      say " Predefine        [/]    Quit DeliTracker         [.]"
  24.      say
  25.  
  26.      say 'Your choise > ' ; pull Input
  27.  
  28.      if Input = '+' then faster
  29.  
  30.      if Input = '-' then slower
  31.  
  32.      if Input = '6' then nextsong
  33.  
  34.      if Input = '4' then prevsong
  35.  
  36.      if Input = '3' then nextsubsong
  37.  
  38.      if Input = '1' then prevsubsong
  39.  
  40.      if Input = '9' then nextpattern
  41.  
  42.      if Input = '7' then prevpattern
  43.  
  44.      if Input = '5' then openmainwin
  45.  
  46.      if Input = '8' then closemainwin
  47.  
  48.      if Input = '2' then openprefswin
  49.  
  50.      if Input = '0' then closeprefswin
  51.  
  52.      if Input = '*' then playmod
  53.  
  54.      if Input = '\' then playmod predefined
  55.  
  56.      if Input = '.' then do
  57.                quit
  58.                qf=1
  59.                   end
  60.  
  61.      if Input = '/' then do
  62.               say "Song>"
  63.               pull predefined
  64.               end
  65.  
  66.      if Input = '[' then do
  67.               do Volume = 32 to 63
  68.                   'Volume' Volume
  69.                  end Volume
  70.                  do Volume = 63 to 0 by -1
  71.                   'Volume' Volume
  72.                  end Volume
  73.                  do Volume = 0 to 63
  74.                   'Volume' Volume
  75.                  end Volume
  76.             end
  77.  
  78.      if Input = ']' then do
  79.               do Balance = 63 to -63 by -1
  80.                   'Balance' Balance
  81.                  end Balance
  82.               do Balance = -63 to 63
  83.                   'Balance' Balance
  84.                  end Balance
  85.               do Balance = 63 to 0 by -1
  86.                   'Balance' Balance
  87.                  end Balance
  88.             end
  89.  
  90. end
  91.  
  92.