home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / ue.dir / 00277.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  363 b   |  14 lines
  1. on mouseDown
  2.   global ItemDel
  3.   set the visible of sprite 2 to 0
  4.   puppetSprite(2, 0)
  5.   updateStage()
  6.   set temp to the pathName
  7.   set the itemDelimiter to ItemDel
  8.   delete item the number of items in temp of temp
  9.   delete item the number of items in temp of temp
  10.   set the itemDelimiter to ","
  11.   go("black")
  12.   go("fade", string(temp & ItemDel & "quit.dir"))
  13. end
  14.