home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / globe.dir / 00092.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  556 b   |  22 lines
  1. on mouseDown
  2.   global ItemDel
  3.   set the locV of sprite 2 to 900
  4.   set the castNum of sprite 13 to the castNum of sprite 13 + 1
  5.   updateStage()
  6.   set STIcks to the ticks
  7.   repeat while (the ticks - STIcks) < 15
  8.     updateStage()
  9.   end repeat
  10.   set temp to the pathName
  11.   set the itemDelimiter to ItemDel
  12.   delete item the number of items in temp of temp
  13.   delete item the number of items in temp of temp
  14.   set the itemDelimiter to ","
  15.   sound stop 1
  16.   sound stop 2
  17.   go("end")
  18.   unLoad()
  19.   unLoadCast()
  20.   go("fade", string(temp & ItemDel & "quit.dir"))
  21. end
  22.