home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00393.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  493 b   |  23 lines
  1. on GoBody
  2.   set the locH of sprite 46 to 1000
  3.   set the visible of sprite 46 to 1
  4.   puppetSprite(46, 0)
  5.   go("back")
  6. end
  7.  
  8. on GoQuit
  9.   if the machineType = 256 then
  10.     set delim to "\"
  11.     set the itemDelimiter to delim
  12.   else
  13.     set delim to ":"
  14.     set the itemDelimiter to delim
  15.   end if
  16.   set drive to the pathName
  17.   repeat with i = 1 to 2
  18.     delete item the number of items in drive of drive
  19.   end repeat
  20.   set the itemDelimiter to ","
  21.   GoMovie(drive & delim & "quit.DIR", "fade")
  22. end
  23.