home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / APP / ANIPL218 / SCRIPTS / SAVEIMA.SIC < prev   
Encoding:
Text File  |  2001-08-26  |  491 b   |  20 lines
  1. if(address("aniplay"))
  2. {
  3.     choice=dialog.note("Save images, file type:",
  4.                        "[1] (X)IMG",
  5.                        "[2] TGA",
  6.                        "[3] JPG",
  7.                        "-b3","-b2","-b1");
  8.     if(fsel(file, "Source file (movie)", "*.*"))
  9.     {
  10.         if(fsel(file2, "Path for save image(s)", "*.*"))
  11.         {
  12.             Open(file);
  13.             wait(100);
  14.             info=ControlPlay(0);
  15.             total_frames=int(info[4]);
  16.             path=path(file2);
  17.             SaveImages(path, choice-1, 1, total_frames);
  18.         }
  19.     }
  20. }