home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON08 / ACT08B / COMMON8 / 00050_Script_play again < prev    next >
Encoding:
Text File  |  1998-10-02  |  342 b   |  11 lines
  1. on mouseDown
  2.   if bounceButton(the clickon) then
  3.     --gets the index of next movie and palys it
  4.     set the itemdelimiter="."
  5.     set theMovie=item 1 of the moviename
  6.     set the itemdelimiter=","
  7.     put value(the last char of theMovie)+1 into char length(theMovie) of theMovie
  8.     go to movie the moviepath&theMovie
  9.   end if
  10. end
  11.