home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDSavers / OverrideLength.fred < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.3 KB  |  45 lines
  1. /*
  2. ** OverrideLength.fred
  3. **
  4. ** $VER: OverrideLength.fred 1.1.0 (24.10.93)
  5. **
  6. ** This program can be run from an InvokeADPro list to force an InvokeADPro
  7. ** session that uses the SaveAsANIM.fred script (or any other script which pays
  8. ** attention to the Length parameter) and is being run with the Invoke cycle
  9. ** gadget set to Once Per Frame to work properly (i.e., each modified frame
  10. ** will only be saved out once).  This situation can arise when you have cells
  11. ** that are not of length 1, but you want your SaveAsANIM (or similar functioning)
  12. ** script to work properly.
  13. **
  14. ** If you use this script, then be sure to set the Invoke cycle gadget to Once
  15. ** Per Frame and insert this script just before the script (such as SaveAsANIM)
  16. ** that needs to be overridden.
  17. **
  18. ** At this time, this script is hard-coded to set the FREDOverrideLength to 1.
  19. ** It wouldn't be very difficult at all to make it user-configurable, just by
  20. ** adding a OverrideLength.fred.pre script that queries the user for the "global"
  21. ** length to set each cell.
  22. **
  23. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  24. ** ADPro v2.5.0 (or higher).
  25. **
  26. ** Copyright © 1993 ASDG, Incorporated
  27. ** All Rights Reserved
  28. */
  29.  
  30.  
  31. NL = '0A'X
  32. SQ = '27'X
  33. DQ = '22'X
  34. TRUE  = 1
  35. FALSE = 0
  36.  
  37.  
  38. /*
  39. ** Update the clips.
  40. */
  41.  
  42. SETCLIP( "FREDOverrideLength", 1 )
  43.  
  44. EXIT 0
  45.