home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / power / ue.dir / 00278_Script_278 < prev    next >
Text File  |  1996-03-13  |  823b  |  35 lines
  1. on mouseDown
  2.   global ItemDel
  3.   
  4.   if the name of cast the mouseCast contains "search" then
  5.     -- search
  6.     
  7.     set the visible of sprite 2 to false
  8.     puppetSprite 2, FALSE
  9.     updateStage
  10.     
  11.     if the frame > 430 then hiliteBtn 13
  12.     put the pathName into temp
  13.     set the itemDelimiter to ItemDel
  14.     delete item the number of items of temp of temp
  15.     delete item the number of items of temp of temp
  16.     set the itemDelimiter to ","
  17.     unload
  18.     unloadCast
  19.     sound stop 1
  20.     sound stop 2
  21.     go frame "black"
  22.     go frame "fade" of movie string(temp&ItemDel&"search.dir")
  23.     
  24.   else if the name of cast the mouseCast contains "quit" then
  25.     -- quit
  26.     
  27.     puppetSprite 2, FALSE
  28.     updateStage
  29.     
  30.     disposeRearWindow
  31.     go frame "black"
  32.     quit
  33.     
  34.   end if
  35. end