home *** CD-ROM | disk | FTP | other *** search
/ Games Central GT Digital… Q3 Premier Trimestre '98 / GT_DPK.ISO / pc / data / menu.dxr / 00133.ls < prev    next >
Encoding:
Text File  |  1995-08-25  |  628 b   |  20 lines
  1. on xtracopy
  2.   if the platform contains "Mac" then
  3.     maccopy()
  4.   else
  5.     openXLib("Xtras\filecopy")
  6.     set fileName to the pathName & "..\screens\" & the name of cast the mouseCast
  7.     if fileName > EMPTY then
  8.       set nameofcastmember to the mouseMember
  9.       delete char 1 to 3 of nameofcastmember
  10.       set nameofcastmember to 120 + nameofcastmember
  11.       set wFileName to doSaveAsDlg(the pathName & "..\screens\" & nameofcastmember, "Tiffs@*.tif")
  12.       if wFileName > EMPTY then
  13.         set result to CopyFile(wFileName, fileName)
  14.         put result
  15.       end if
  16.     end if
  17.     closeXLib("Xtras\filecopy")
  18.   end if
  19. end
  20.