home *** CD-ROM | disk | FTP | other *** search
/ Imaging 80: Flower 1 / IMAGING.iso / mac / Imaging80 / IMAGE80.DXR / 00006.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  1.9 KB  |  73 lines
  1. on mouseDown
  2.   global mtype, ctype, csize, fcopyobject, rchr, sepc, cpctfile, spctfile, tpctfile, extname, cauto
  3.   if button(5, 15) then
  4.     unLoad()
  5.     set cauto to "STOP"
  6.     set the visible of sprite 39 to 0
  7.     if the machineType = 256 then
  8.       set sepc to "¥"
  9.       if ctype = "BMP" then
  10.         openXLib("BMPFILE.DLL")
  11.       else
  12.         openXLib("PCTFILE.DLL")
  13.       end if
  14.     else
  15.       set sepc to ":"
  16.     end if
  17.     if ctype = "BMP" then
  18.       set extname to ".BMP"
  19.       if csize = "BROWSE" then
  20.         set folderName to "BMPB"
  21.       else
  22.         if csize = "SMALL" then
  23.           set folderName to "BMPS"
  24.         else
  25.           set folderName to "BMPM"
  26.         end if
  27.       end if
  28.     else
  29.       set extname to ".PCT"
  30.       if csize = "BROWSE" then
  31.         set folderName to "PICTB"
  32.       else
  33.         if csize = "SMALL" then
  34.           set folderName to "PICTS"
  35.         else
  36.           if csize = "MIDDLE" then
  37.             set folderName to "PICTM"
  38.           else
  39.             set folderName to "PICTL"
  40.           end if
  41.         end if
  42.       end if
  43.     end if
  44.     set cpctfile to the name of cast the castNum of sprite 31 & extname
  45.     set spctfile to pathName() & folderName & sepc & cpctfile
  46.     set fcopyobject to fileio(mnew, "?write", cpctfile)
  47.     if objectp(fcopyobject) then
  48.       set tpctfile to fcopyobject(mfilename)
  49.       fcopyobject(mdispose)
  50.       if sepc = "¥" then
  51.         if not filecopy(spctfile, tpctfile, "CXOTPRYS32109607W") then
  52.           alert("ﾃ嘘ﾃ鋭ﾃ…[ﾃ‡窶ｦﾃｩﾃ榲ｮsﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾃｽﾃ③")
  53.         end if
  54.       else
  55.         openXLib("FileCopy.XObj")
  56.         set obj to filecopy(mnew)
  57.         obj(menterpassword, "CXOOPBYJ10009607")
  58.         obj(mfilecopy, spctfile, tpctfile)
  59.         closeXLib("FileCopy.XObj")
  60.       end if
  61.     end if
  62.     if the machineType = 256 then
  63.       if ctype = "BMP" then
  64.         closeXLib("BMPFILE.DLL")
  65.       else
  66.         closeXLib("PCTFILE.DLL")
  67.       end if
  68.     end if
  69.     unLoad()
  70.     updateStage()
  71.   end if
  72. end
  73.