Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/karu_gin.dir/00342_Script_342

Text File | 1995-11-13 | 1KB | 41 lines

on mouseDown
  set the constraint of sprite 47 to 46
  updateStage
end

on mouseUp
  global newH
  set newH= the locH of sprite 47
  if 18 <= newH and newH < 24 then
    set the soundLevel = 0
  else
    if 24 <= newH and newH < 35 then
      set the soundLevel = 1
    else
      if 35 <= newH and newH < 46 then
        set the soundLevel = 2
      else
        if 46 <= newH and newH < 57 then
          set the soundLevel = 3
        else
          if 57 <= newH and newH < 68 then
            set the soundLevel = 4
          else
            if 68 <= newH and newH < 79 then
              set the soundLevel = 5
            else
              if 79 <= newH and newH < 90 then
                set the soundLevel = 6
              else
                if 90 <= newH and newH < 98 then
                  set the soundLevel = 7
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end