Blender Volume 2 #3/Blender_2_3.iso/BLENDER/FILES/CONTEST.DIR/00027.ls

Text File | 1996-04-01 | 1.5 KB | 46 lines

on pushEmailButton
  global textStringBig, textStringLittle, trackList
  writeFile()
  if the machineType = 256 then
    openXLib("FileIo")
  end if
  set textStringBig to "PLEASE E-MAIL THIS ENTRY FORM TO [e-mail]" & RETURN & the text of cast 5 & RETURN & the text of cast 6 & RETURN & the text of cast 7 & RETURN & the text of cast 8 & RETURN & the text of cast 9 & RETURN & RETURN
  createContestForm()
  set writeObj to FileIO(mnew, "?write", ".CONTEST")
  if objectp(writeObj) then
    writeObj(mWriteString, textStringBig & textStringLittle)
  end if
  if objectp(writeObj) then
    writeObj(mdispose)
  end if
  alert("Cut and paste the file you just saved into your e-Mailer and send it to [e-mail]!")
  if the machineType = 256 then
    closeXLib("FileIo")
  end if
end

on createContestForm
  global trackList, textStringLittle
  if the machineType = 256 then
    openXLib("FileIo")
  end if
  set prefsPath to findPath()
  set readObj to FileIO(mnew, "read", prefsPath & "Blendprf")
  set thisLine to readObj(mReadLine)
  set lineCount to 1
  set OUTPUT to EMPTY
  repeat while (thisLine <> EMPTY) and (lineCount <= 50)
    set OUTPUT to OUTPUT & thisLine
    set thisLine to readObj(mReadLine)
    set lineCount to lineCount + 1
  end repeat
  if objectp(readObj) then
    readObj(mdispose)
  end if
  if the machineType = 256 then
    closeXLib("FileIo")
  end if
  set disclaimer to "The following information tracks your viewing of Blender. It is used to improve the product."
  set textStringLittle to disclaimer & RETURN & RETURN & OUTPUT
end