home *** CD-ROM | disk | FTP | other *** search
/ Meet MediaBand / meetmediaband.bin / main / shared.dir / 00449_Script_449 next >
Text File  |  1995-07-13  |  3KB  |  115 lines
  1. --
  2. on delayfor n
  3.     starttimer
  4.     repeat while the timer < n
  5.     end repeat
  6.  
  7. on clickQuit button
  8.     set the castnum of sprite button to (the castnum of sprite button + 1)
  9.     puppetsound "buttonclick"
  10.     updatestage
  11.     delayfor 5
  12.     set the castnum of sprite button to (the castnum of sprite button - 1)
  13.     puppetsound 0
  14.     updatestage
  15.     go to frame "quit action"
  16.  
  17. on clickcontinue button
  18.     set the castnum of sprite button to (the castnum of sprite button + 1)
  19.     puppetsound "buttonclick"
  20.     updatestage
  21.     delayfor 5
  22.     set the castnum of sprite button to (the castnum of sprite button - 1)
  23.     puppetsound 0
  24.     updatestage
  25.     continue
  26.  
  27. on clicklastmarker button
  28.     set the castnum of sprite button to (the castnum of sprite button + 1)
  29.     puppetsound "buttonclick"
  30.     updatestage
  31.     delayfor 5
  32.     set the castnum of sprite button to (the castnum of sprite button - 1)
  33.     puppetsound 0
  34.     updatestage
  35.     go to marker(-1)
  36.  
  37. on clickNextmarker button
  38.     set the castnum of sprite button to (the castnum of sprite button + 1)
  39.     puppetsound "buttonclick"
  40.     updatestage
  41.     delayfor 5
  42.     set the castnum of sprite button to (the castnum of sprite button - 1)
  43.     puppetsound 0
  44.     updatestage
  45.     go to marker(1)
  46.  
  47. on clickplay button, moviename, startframe
  48.     set the castnum of sprite button to (the castnum of sprite button + 1)
  49.     puppetsound "buttonclick"
  50.     updatestage
  51.     delayfor 5
  52.     set the castnum of sprite button to (the castnum of sprite button - 1)
  53.     puppetsound 0
  54.     updatestage
  55.     play frame startframe of movie moviename
  56.  
  57. on clickrewind button
  58.     click button
  59.     go to frame 1
  60.  
  61. on click button
  62.     set the castnum of sprite button to (the castnum of sprite button + 1)
  63.     puppetsound "buttonclick"
  64.     updatestage
  65.     delayfor 5
  66.     set the castnum of sprite button to (the castnum of sprite button - 1)
  67.     puppetsound 0
  68.     updatestage
  69.  
  70. on clicksetabout button
  71.     global aboutaction
  72.     puppetsound "buttonclick"
  73.     updatestage
  74.     delayfor 5
  75.     puppetsound 0
  76.     updatestage
  77.     set aboutaction = "true"
  78.  
  79. on clicksetaction button
  80.     global actiondemo
  81.     puppetsound "buttonclick"
  82.     updatestage
  83.     delayfor 5
  84.     puppetsound 0
  85.     updatestage
  86.     set actiondemo = "true"
  87.  
  88. on clicksetquit button
  89.     global quitaction
  90.     puppetsound "buttonclick"
  91.     updatestage
  92.     delayfor 5
  93.     puppetsound 0
  94.     updatestage
  95.     set quitaction = "true"
  96.  
  97. on clickjump button, jumplabel
  98. -- the jumplabel may be either a string (label) or a frame number
  99.     set the castnum of sprite button to (the castnum of sprite button + 1)
  100.     puppetsound "buttonclick"
  101.     updatestage
  102.     delayfor 5
  103.     set the castnum of sprite button to (the castnum of sprite button - 1)
  104.     puppetsound 0
  105.     updatestage
  106.     go to frame jumplabel
  107.  
  108. --
  109. on SaveGame
  110.     global Gameframe, Gamemovie, Gamepath
  111.     set Gameframe to the frame
  112.     set Gamemovie to the movie
  113.     set Gamepath to the pathname
  114.     go to "Save" of movie the pathname&":introduction:save game"
  115.