home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Sound / RadioSeLeCtA / radioSeLeCtA.rx < prev    next >
Text File  |  2000-08-25  |  2KB  |  55 lines
  1. /* Radio SeLeCtA from JAH almightyjah@softhome.net*/
  2. OPTIONS RESULTS
  3.  
  4.  
  5. /* preferences */
  6.  
  7. streamrexx='sys:scripts/StreamMP3.rx'           /* path of streammp3 rexx script */
  8. strMP3out='-strMP3.debug-'                        /* debug output for streamMP3    */
  9. radio0='wwwhatsup-dbc'                          /* add up to  5 files            */
  10. radio1='mix'                                   /* files are ascii files         */
  11. radio2=''                                       /* containing mp3 url            */
  12. radio3=''                                       /* or sites which                */
  13. radio4=''                                       /* stream directly               */
  14. /*the name of the file will be the radio name which will appear into the selecter */
  15.  
  16.  
  17. /* "code" !? */
  18.  
  19. if SHOW(PORTS,MIAMI.1)==0
  20.  then do
  21.          say "Miami is not here !"
  22.          exit
  23.       end
  24.  
  25. ADDRESS VALUE MIAMI.1
  26. ISONLINE
  27. if RC==0
  28.  then do
  29.         say 'U are not cennected : I will have to it for u'
  30.         ONLINE
  31.       end
  32.  
  33. address command
  34. 'RequestChoice >pipe:a TITLE "Radio SeLeCta !!!" BODY "Which Radio do U wanna listen to ?" ' radio1 radio2 radio3 radio4 radio0
  35.  CALL OPEN(ficres, 'pipe:a','R')
  36.  valres = READCH(ficres,1)
  37.  CALL CLOSE(ficres)
  38.  
  39.  
  40. if valres==0
  41.   then 'run >'strMP3out' rx 'streamrexx' 'radio0
  42.   else
  43.   if valres==1
  44.      then 'run >'strMP3out' rx 'streamrexx' 'radio1
  45.      else
  46.      if valres==2
  47.         then 'run >'strMP3out' rx 'streamrexx' 'radio2
  48.         else
  49.         if valres==3
  50.            then 'run >'strMP3out' rx 'streamrexx' 'radio3
  51.            else
  52.            if valres==4
  53.               then 'run >'strMP3out' rx 'streamrexx' 'radio4
  54. exit
  55.