75 Years of the BBC - Sound On Vision On/BBC.iso/pc/75yrs/globe.dxr/Internal_56.ls

Text File | 1997-08-21 | 3.7 KB | 127 lines

global gvideomovie

on showvol
  if the mouseH < 465 then
    if the name of member the memberNum of sprite 11 of castLib "assets" <> "dot" then
      cursor(4)
      set the memberNum of sprite 12 to member "dot" of castLib "assets"
      repeat with mysp = 64 down to 61
        set the memberNum of sprite 11 to member mysp of castLib "assets"
        set the memberNum of sprite 12 to member (mysp + 4) of castLib "assets"
        updateStage()
        delaytime(0.02)
      end repeat
      set the memberNum of sprite 11 to member "dot" of castLib "assets"
      updateStage()
      cursor([member 17 of castLib "assets", member 18 of castLib "assets"])
      puppetSprite(11, 0)
      puppetSprite(12, 0)
    end if
  end if
  if the mouseH > 495 then
    puppetSprite(11, 1)
    puppetSprite(12, 1)
    if the name of member the memberNum of sprite 11 of castLib "assets" = "dot" then
      cursor(4)
      setvolpos()
      repeat with mysp = 61 to 64
        set the memberNum of sprite 11 to member mysp of castLib "assets"
        set the memberNum of sprite 12 to member (mysp + 4) of castLib "assets"
        updateStage()
        delaytime(0.02)
      end repeat
      cursor([member 17 of castLib "assets", member 18 of castLib "assets"])
    end if
  end if
  if overvol() then
    set volover to 1
  end if
  if the mouseDown = 1 then
    if volover = 1 then
      repeat while the mouseDown
        set the locV of sprite 12 to the mouseV
        if the locV of sprite 12 <= 157 then
          set the locV of sprite 12 to 157
        end if
        if the locV of sprite 12 >= 339 then
          set the locV of sprite 12 to 339
        end if
        updateStage()
      end repeat
      dovol()
      updateStage()
    end if
  end if
end

on overvol
  if rollOver(12) = 1 then
    return 1
  else
    return 0
  end if
end

on dovol
  if (the locV of sprite 12 >= 157) and (the locV of sprite 12 < 170) then
    set the locV of sprite 12 to 157
    set the soundLevel to 7
  else
    if (the locV of sprite 12 >= 170) and (the locV of sprite 12 <= 196) then
      set the locV of sprite 12 to 183
      set the soundLevel to 6
    else
      if (the locV of sprite 12 >= 196) and (the locV of sprite 12 <= 222) then
        set the locV of sprite 12 to 209
        set the soundLevel to 5
      else
        if (the locV of sprite 12 >= 222) and (the locV of sprite 12 <= 248) then
          set the locV of sprite 12 to 235
          set the soundLevel to 4
        else
          if (the locV of sprite 12 >= 248) and (the locV of sprite 12 <= 279) then
            set the locV of sprite 12 to 261
            set the soundLevel to 3
          else
            if (the locV of sprite 12 >= 279) and (the locV of sprite 12 <= 300) then
              set the locV of sprite 12 to 287
              set the soundLevel to 2
            else
              if (the locV of sprite 12 >= 300) and (the locV of sprite 12 <= 326) then
                set the locV of sprite 12 to 313
                set the soundLevel to 1
              else
                if (the locV of sprite 12 >= 326) and (the locV of sprite 12 <= 339) then
                  set the locV of sprite 12 to 339
                  set the soundLevel to 0
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on setvolpos
  case the soundLevel of
    7:
      set the locV of sprite 12 to 157
    6:
      set the locV of sprite 12 to 183
    5:
      set the locV of sprite 12 to 209
    4:
      set the locV of sprite 12 to 235
    3:
      set the locV of sprite 12 to 261
    2:
      set the locV of sprite 12 to 287
    1:
      set the locV of sprite 12 to 313
    0:
      set the locV of sprite 12 to 339
  end case
end