home *** CD-ROM | disk | FTP | other *** search
/ Knudde EK Editie / CD1.iso / strip.dxr / Script_14_bewaren.ls < prev    next >
Encoding:
Text File  |  2000-02-24  |  643 b   |  25 lines
  1. on mouseWithin
  2.   sprite(43).visible = 1
  3. end
  4.  
  5. on mouseUp
  6.   global Book
  7.   MySave = new(xtra("fileIO"))
  8.   put "on SaveStrip" & RETURN & "global Book" & RETURN & "Book = " & Book & RETURN & "return #ItsEenKnuddeStrip" & RETURN & "end" into field "Saven"
  9.   MyPath = displaySave(MySave, "Bewaar stripboek", "Knudde strip")
  10.   if (MyPath <> EMPTY) and (MyPath <> VOID) then
  11.     createFile(MySave, MyPath)
  12.     openFile(MySave, MyPath, 0)
  13.     delete(MySave)
  14.     createFile(MySave, MyPath)
  15.     openFile(MySave, MyPath, 0)
  16.     writeString(MySave, field("saven"))
  17.     closeFile(MySave)
  18.   end if
  19.   MySave = 0
  20. end
  21.  
  22. on mouseLeave
  23.   sprite(43).visible = 0
  24. end
  25.