home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / powerapp / animator.exe / ANIMATOR.DXR / 00036_SliderClass.ls < prev    next >
Encoding:
Text File  |  1996-05-07  |  1.2 KB  |  43 lines
  1. property ichTemplate, ichSlider, iWidthPerFrame, iLeft, inLevels, iAnimSpeed
  2. global gAnimSpeed
  3.  
  4. on birth me, chTemplate, chSlider
  5.   set ichTemplate to chTemplate
  6.   set ichSlider to chSlider
  7.   puppetSprite(ichSlider, 1)
  8.   set inLevels to 60
  9.   set iLeft to the left of sprite chTemplate
  10.   set iWidthPerFrame to float(the right of sprite chTemplate - iLeft) / float(inLevels)
  11.   set iAnimSpeed to 15
  12.   mHit(me)
  13.   return me
  14. end
  15.  
  16. on mPlaceSlider me
  17.   set the locH of sprite ichSlider to (iAnimSpeed * iWidthPerFrame) + iLeft
  18.   updateStage()
  19. end
  20.  
  21. on mHit me
  22.   repeat while the stillDown
  23.     set the locH of sprite ichSlider to constrainH(ichTemplate, the mouseH)
  24.     set theNewLevel to (the locH of sprite ichSlider - the left of sprite ichTemplate) / iWidthPerFrame
  25.     set iAnimSpeed to integer(theNewLevel)
  26.     if iAnimSpeed < 1 then
  27.       set iAnimSpeed to 1
  28.     end if
  29.     put iAnimSpeed into field "AnimSpeed"
  30.     updateStage()
  31.   end repeat
  32.   put iAnimSpeed into field "AnimSpeed"
  33.   set gAnimSpeed to iAnimSpeed
  34.   mPlaceSlider(me)
  35. end
  36.  
  37. on mHitTemplate me
  38.   set iAnimSpeed to HitWhoV(ichTemplate, inLevels) - 1
  39.   put iAnimSpeed into field "AnimSpeed"
  40.   mPlaceSlider(me)
  41.   beep()
  42. end
  43.