home *** CD-ROM | disk | FTP | other *** search
/ Games Central GT Digital… Q3 Premier Trimestre '98 / GT_DPK.ISO / pc / data / menu.dxr / 00130.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  664 b   |  22 lines
  1. on xtracopyartwork
  2.   global artworkPath, name_sprite
  3.   if the platform contains "Mac" then
  4.     maccopyartwork()
  5.   else
  6.     openXLib("Xtras\filecopy")
  7.     if (the platform contains "Windows, 16") and (name_sprite > 11) then
  8.       set name_sprite to chars(name_sprite, 1, 8) & ".tif"
  9.     end if
  10.     set fileName to the pathName & artworkPath & name_sprite
  11.     put fileName
  12.     if fileName > EMPTY then
  13.       set wFileName to doSaveAsDlg(the pathName & artworkPath & name_sprite, "Tiffs@*.tif")
  14.       if wFileName > EMPTY then
  15.         set result to CopyFile(wFileName, fileName)
  16.         put result
  17.       end if
  18.     end if
  19.     closeXLib("Xtras\filecopy")
  20.   end if
  21. end
  22.