home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / power / globe.dir / 00092_Script_92 < prev    next >
Text File  |  1996-03-11  |  667b  |  31 lines
  1. on mouseDown
  2.   global ItemDel
  3.   
  4.   set the locV of sprite 2 to 900
  5.   --  go frame "end"
  6.   --  disposeRearWindow
  7.   --  quit
  8.   
  9.   
  10.   set the castNum of sprite 13 to (the castNum of sprite 13) + 1
  11.   updateStage
  12.   
  13.   set Sticks = the ticks
  14.   repeat while the ticks - sticks < 15
  15.     updateStage
  16.   end repeat
  17.   
  18.   put the pathName into temp
  19.   set the itemDelimiter to ItemDel
  20.   delete item the number of items of temp of temp
  21.   delete item the number of items of temp of temp
  22.   set the itemDelimiter to ","
  23.   sound stop 1
  24.   sound stop 2
  25.  
  26.   go frame "end"
  27.   unLoad
  28.   unLoadCast
  29.   
  30.   go frame "fade" of movie string(temp&ItemDel&"quit.dir")
  31. end