home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / ZapDPI.lha / ZapDPI.adpro < prev    next >
Encoding:
Text File  |  1994-01-31  |  798 b   |  40 lines
  1. /*
  2. ** ZapDPI.adpro
  3. **
  4. ** $VER: ZapDPI.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. NEWLINE = '0A'X
  21.  
  22. GETFILES '"Select IFF files to Zap:"'
  23. IF (RC ~= 0) THEN DO
  24.     /*
  25.     ** No selection was made
  26.     */
  27.     EXIT
  28. END
  29.  
  30. FileList = ADPRO_RESULT
  31. FileCount = WORDS( FileList )
  32. Counter = 1
  33.  
  34. DO WHILE (Counter <= FileCount)
  35.     ADDRESS COMMAND "ZapDPI -dpi" WORD( FileList, Counter )
  36.     IF (RC = 20) THEN
  37.         OKAY1 "Error while changing:" || NEWLINE || WORD( FileList, Counter )
  38.     Counter = Counter + 1
  39. END
  40.