home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / power / globe.dir / 00014.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  518 b   |  22 lines
  1. on mouseDown
  2.   repeat while the mouseDown
  3.     CheckQT()
  4.     updateStage()
  5.     if rollOver(15) then
  6.       set temp to (the mouseH - the left of sprite the clickOn) / 8
  7.       if temp > 7 then
  8.         set temp to 7
  9.       else
  10.         if temp < 0 then
  11.           set temp to 0
  12.         end if
  13.       end if
  14.       set the castNum of sprite the clickOn to the number of cast string("v" & temp)
  15.       if the soundLevel <> temp then
  16.         set the soundLevel to temp
  17.       end if
  18.       updateStage()
  19.     end if
  20.   end repeat
  21. end
  22.