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