CD-ROM Today (BR) Volume 2 #6/CDRTV2N6.iso/makers/random.dir/00055_Script_55

Text File | 1996-03-11 | 603b | 20 lines

on mouseDown
  set oldSound = the soundLevel

  repeat while the mouseDown
    if rollOver(6) then
      set temp = ((the bottom of sprite the clickon - the mouseV)/17)
      if temp > 7 then set temp = 7
      else if temp < 0 then set temp = 0

      set the castNum of sprite the clickOn to the number of cast string("v"&(temp))

      if the soundLevel <> temp then
        set the soundLevel to temp
        if oldSound = 0 then puppetSound 2, the number of cast "Random.iff"
        updateStage
        set oldSound = temp
      end if
    end if
  end repeat
end