home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 5 / boot-disc-1997-01.iso / media / utility.cst / 00012_Script_12 < prev    next >
Text File  |  1996-11-05  |  932b  |  18 lines
  1. on exitFrame
  2.   set lights=getspritelist("light")
  3.   repeat with light in lights
  4.     new (script "BlinkLightClass",light,5,0.5)
  5.   end repeat
  6.   set volcontrol=new (script "HiliteClass","UGPlayersLogo","set the visible of sprite castspritea('soundThumb') to true;puppetsprite castspritea('soundThumb'),true;set the membernum of sprite castspritea('soundThumb') to the number of member 'soundThumb';updateStage","set the visible of sprite castspritea('soundThumb') to false","Servo1","Servo2")
  7.   set the disposeflag of volcontrol to false
  8.   set thumb=castspritea("soundThumb")
  9.   put thumb
  10.   puppetsprite thumb,true
  11.   set constraint=castspritea("soundConstraint")
  12.   set left =the left of sprite constraint
  13.   set right=the right of sprite constraint
  14.   set pos=left+((the volume of sound 1)*(right-left)/255)
  15.   set the locH of sprite thumb to pos
  16.   set the locV of sprite thumb to the locV of sprite thumb
  17.   updateStage
  18. end