home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1995 November / SHOWCASE.ISO / files / shared.dir / 05302_Script_5302 < prev    next >
Text File  |  1995-06-14  |  522b  |  14 lines
  1. global gStopSprite
  2. on mousedown
  3.   set the puppet of sprite the clickon to true
  4.   set the castnum of sprite (the clickon) = ¼
  5.     the number of cast  (the name of cast(the castnum of sprite (the clickon)) && "lit")
  6.   updatestage
  7. end
  8. on mouseUp
  9.   global soundlevel
  10.   set the puppet of sprite gStopSprite to true
  11.   if soundlevel < 6 then set soundlevel = soundlevel + 1
  12.   set the castnum of sprite gStopSprite = the number of cast ("sound level" && soundlevel)
  13.   set the puppet of sprite the clickon to false
  14. end