home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / ue.dir / 00218.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  474 b   |  21 lines
  1. on mouseDown
  2.   global ItemDel
  3.   set the visible of sprite 2 to 0
  4.   puppetSprite(2, 0)
  5.   updateStage()
  6.   if the frame > 430 then
  7.     hiliteBtn(13)
  8.   end if
  9.   set temp to the pathName
  10.   set the itemDelimiter to ItemDel
  11.   delete item the number of items in temp of temp
  12.   delete item the number of items in temp of temp
  13.   set the itemDelimiter to ","
  14.   unLoad()
  15.   unLoadCast()
  16.   sound stop 1
  17.   sound stop 2
  18.   go("black")
  19.   go("fade", string(temp & ItemDel & "search.dir"))
  20. end
  21.