home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 - Expo 2000 / Image.iso / t-online / show / t_intro.dxr / 00174.ls < prev    next >
Encoding:
Text File  |  1996-11-25  |  943 b   |  28 lines
  1. on tnebenroll5 var, var1
  2.   global schalterT5, posSlider
  3.   repeat with dummy = 0 to var1 - 1
  4.     if rollOver(40 + dummy) then
  5.       set the castNum of sprite (40 + dummy) to var + 1 + (dummy * 3)
  6.       updateStage()
  7.     end if
  8.     if (rollOver(40 + dummy) = 0) and (the castNum of sprite (40 + dummy) <> (var + (dummy * 3))) then
  9.       set the castNum of sprite (40 + dummy) to var + (dummy * 3)
  10.     end if
  11.     repeat while the stillDown
  12.       if schalterT5 = 0 then
  13.         if rollOver(38) then
  14.           set the locH of sprite 38 to constrainH(37, the mouseH)
  15.           set posSlider to the locH of sprite 38
  16.           set the volume of sound 2 to (posSlider - 497) * (255 / 68)
  17.           set the volume of sound 1 to (posSlider - 497) * (255 / 68)
  18.         end if
  19.         set the locV of sprite 38 to 346
  20.         updateStage()
  21.       end if
  22.     end repeat
  23.     puppetSound(0)
  24.   end repeat
  25.   set the locV of sprite 38 to 346
  26.   updateStage()
  27. end
  28.