home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / ZapDPI.lha / ReDPI.adpro < prev    next >
Encoding:
Text File  |  1994-01-31  |  773 b   |  38 lines
  1. /*
  2. ** ReDPI.adpro
  3. **
  4. ** $VER: ReDPI.adpro 1.0.1 (17.12.92)
  5. **
  6. ** This ADPro/MorphPlus script calls the ZapDPI program and forcibly
  7. ** changes dpi chunks in IFF-ILBM files to DPI.
  8. **
  9. ** This script requires ADPro 2.0.0 (or higher) or MorphPlus 1.0.0 (or
  10. ** higher) with ADPro's ZapDPI program to run.
  11. **
  12. ** Copyright © 1992 ASDG Incorporated  All Rights Reserved
  13. */
  14.  
  15.  
  16. ADDRESS "ADPro"
  17. OPTIONS RESULTS
  18.  
  19.  
  20. GETFILES '"Select IFF files to UnZap:"'
  21. IF (RC ~= 0) THEN DO
  22.     /*
  23.     ** No selection was made
  24.     */
  25.     EXIT
  26. END
  27.  
  28. FileList = ADPRO_RESULT
  29. FileCount = WORDS( FileList )
  30. Counter = 1
  31.  
  32. DO WHILE (Counter <= FileCount)
  33.     ADDRESS COMMAND "ZapDPI -DPI" WORD( FileList, Counter )
  34.     IF (RC ~= 0) THEN
  35.         OKAY1 "Error while changing:" || NL || WORD(FileList,Counter)
  36.     Counter = Counter + 1
  37. END
  38.