Micromanía 25/CDMM_25.iso/takeru/menu.dxr/00228_save&load.ls

Text File | 1996-09-04 | 4.2 KB | 142 lines

on initXObjs
  set startPath to the pathName
  if the machineType = 256 then
    set utilXObjectPath to "MovUtils.DLL"
    set fileioXObjectPath to "FILEIO.DLL"
    openXLib(fileioXObjectPath)
    set miscXObjectPath to "Misc_X.dll"
  else
    set utilXObjectPath to "MovieUtilities.XObj"
    set miscXObjectPath to "Misc_X xobj"
  end if
  openXLib(utilXObjectPath)
  openXLib(miscXObjectPath)
  set miscXobj to Misc_X(mnew)
end

on openDataFile
  if objectp(myFileIO) then
    myFileIO(mdispose)
  end if
  if objectp(myUtil) then
    myUtil(mdispose)
  end if
  if the machineType = 256 then
    set myUtil to movUtils(mnew)
  else
    set myUtil to movieUtilities(mnew)
  end if
  set myFileIO to fileio(mnew, "?read", saveDataType())
  if objectp(myFileIO) then
    set a to myFileIO(mReadWord)
    set b to myFileIO(mReadWord)
    put a
    put b
    if objectp(myFileIO) then
      myFileIO(mdispose)
    end if
  else
    if not voidp(myFileIO) and (myFileIO <> -43) then
      set IOerrors to [33: "File directory full", 34: "Volume full", 35: "Volume not found", 36: "I/O Error", 37: "Bad file name", 38: "File not open", 42: "Too many files open", 43: "File not found", 49: "File open with write permission", 56: "No such drive", 65: "No disk in drive", 120: "Directory not found"]
      set errMsg to getaProp(IOerrors, abs(myFileIO))
      if voidp(errMsg) then
        alert("Error occurred: Code" && string(myFileIO))
      else
        alert("Error occurred:" && errMsg)
      end if
    end if
    if objectp(myFileIO) then
      myFileIO(mdispose)
    end if
  end if
end

on saveDataFile
  global gMark
  set volumeName to miscXobj(mBootName)
  set diskSpace to miscXobj(mSpaceOnVol, volumeName)
  if diskSpace < 50000 then
    alert("Your disk is too full to save your work. There are only" && string(diskSpace) && "bytes remaining on drive" && volumeName & ".")
    exit
  end if
  if objectp(myFileIO) then
    myFileIO(mdispose)
  end if
  set saveFileName to miscXobj(mask, "Type a name for saving your work:", "Takeru", "OK", "Cancel")
  if saveFileName = "Cancel" then
    exit
  end if
  if length(saveFileName) = 0 then
    exit
  end if
  if the machineType = 256 then
    set DOSname to makeDOSfilename(saveFileName)
    set theName to char 1 to 8 of DOSname & "." & saveDataType()
    set myFileIO to fileio(mnew, "write", theName)
    if objectp(myFileIO) then
      myFileIO(mWriteString, "gmark:" && gMark)
      myFileIO(mdispose)
      if DOSname <> saveFileName then
        alert("Your file has been saved using the filename:" && theName)
      end if
    else
      tellUsError(myFileIO)
    end if
  else
    set theName to char 1 to 30 of saveFileName
    set myFileIO to fileio(mnew, "write", theName)
    if objectp(myFileIO) then
      myFileIO(mSetFinderInfo, saveDataType(), "ttxt")
      myFileIO(mWriteString, "gmark:" && gMark)
      myFileIO(mdispose)
    else
      tellUsError(myFileIO)
    end if
  end if
end

on tellUsError myFileIO
  if not voidp(myFileIO) and (myFileIO <> -43) then
    set IOerrors to [33: "File directory full", 34: "Volume full", 35: "Volume not found", 36: "I/O Error", 37: "Bad file name", 38: "File not open", 42: "Too many files open", 43: "File not found", 49: "File open with write permission", 56: "No such drive", 65: "No disk in drive", 120: "Directory not found"]
    set errMsg to getaProp(IOerrors, abs(myFileIO))
    if voidp(errMsg) then
      alert("Error occurred: Code" && string(myFileIO))
    else
      alert("Error occurred:" && errMsg)
    end if
  end if
  if objectp(myFileIO) then
    myFileIO(mdispose)
  end if
end

on makeDOSfilename str
  set theCount to length(str)
  set theResult to EMPTY
  repeat with x = 1 to theCount
    set theChar to char x of str
    if "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_" contains theChar then
      put theChar after theResult
    end if
  end repeat
  return theResult
end

on saveDataType
  if the machineType = 256 then
    set signature to "TXT"
  else
    set signature to "TEXT"
  end if
  return signature
end

on myquit
  set theanswer to miscXobj(mAnswer, "Are you sure you want to quit?", "OK", "Cancel", EMPTY)
  if theanswer = "Cancel" then
    exit
  else
    quit()
  end if
end