home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / display_hotlist < prev    next >
Encoding:
AmigaDOS Script File  |  1995-10-01  |  812 b   |  32 lines
  1. .key Language/A,DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:
  6.  
  7. IF $MPSRCCNT GE 1
  8.     Eval $MPSRCCNT + 1 TO ENV:MPSRCCNT
  9. ELSE
  10.     SetEnv MPSRCCNT 1
  11.     Assign MPCD_S: :
  12. ENDIF
  13.  
  14. IF EXISTS S:MP3Hotlist.{Language}
  15.     :C/copycolumn <S:MP3Hotlist.{Language} >RAM:MP3Hotlist_tmp.{Language}{$$} 28 1000
  16.     Join RAM:MP3Hotlist_tmp.{Language}{$$} :Index/Guides/bricks/configguide.{LANGUAGE} TO RAM:MP3Hotlist.{Language}{$$}
  17.     Delete QUIET RAM:MP3Hotlist_tmp.{Language}{$$}
  18.     :C/MetaTool RAM:MP3Hotlist.{Language}{$$} GUIDE
  19.     Delete QUIET RAM:MP3Hotlist.{Language}{$$}
  20. ELSE
  21.     IF {Language} EQ "deutsch"
  22.         :C/AutoReq "-tFehler: Hotlist »S:MP3Hotlist.{Language}« existiert nicht." -nOK
  23.     ELSE
  24.         :C/AutoReq "-tError: Hotlist »S:MP3Hotlist.{Language}« does not exist." -nOK
  25.     ENDIF
  26. ENDIF
  27.  
  28. Eval $MPSRCCNT - 1 TO ENV:MPSRCCNT
  29. IF $MPSRCCNT EQ 0
  30.     Assign MPCD_S:
  31. ENDIF
  32.