home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / main.dir / 00093_Script_93 < prev    next >
Text File  |  1996-03-11  |  689b  |  26 lines
  1. on mouseDown 
  2.   
  3.   set me = the clickon
  4.   
  5.   set oldlevel = the soundlevel
  6.   set bottom =  25    -- level 1
  7.   
  8.   set inc = ((the height of sprite me) - bottom)/7 -- pixels per level
  9.   
  10.   repeat while the mousedown
  11.     set mv = the mousev
  12.     set v = mv - (the top of sprite me)   
  13.     set level = 8-(v/inc)
  14.     if level > 7 then set level = 7
  15.     else if level < 0 then set level = 0
  16.     if oldlevel <> level then
  17.       set the soundlevel = level
  18.       if oldlevel = 0 then puppetSound 2,the number of cast "interface.iff"
  19.       set oldlevel = level
  20.     end if
  21.     updatestage
  22.     set the castnum of sprite me = the number of cast ("v-" & level)
  23.   end repeat
  24. end
  25.  
  26.