home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / ue.dir / 00278.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  755 b   |  31 lines
  1. on mouseDown
  2.   global ItemDel
  3.   if the name of cast the mouseCast contains "search" then
  4.     set the visible of sprite 2 to 0
  5.     puppetSprite(2, 0)
  6.     updateStage()
  7.     if the frame > 430 then
  8.       hiliteBtn(13)
  9.     end if
  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.     unLoad()
  16.     unLoadCast()
  17.     sound stop 1
  18.     sound stop 2
  19.     go("black")
  20.     go("fade", string(temp & ItemDel & "search.dir"))
  21.   else
  22.     if the name of cast the mouseCast contains "quit" then
  23.       puppetSprite(2, 0)
  24.       updateStage()
  25.       disposeRearWindow()
  26.       go("black")
  27.       quit()
  28.     end if
  29.   end if
  30. end
  31.