Guia CD-ROM 25/GUIACD25.iso/musicbox/rehscore.dxr/00023.ls

Text File | 1996-06-28 | 4.9 KB | 234 lines

on startTrack
  global instrument, tune, speed
  set cNum to 0
  if tune = 3 then
    if instrument = 7 then
      if speed = 10 then
        set cNum to 130
      else
        set cNum to 131
      end if
    else
      if instrument = 8 then
        if speed = 10 then
          set cNum to 132
        else
          set cNum to 133
        end if
      else
        if instrument = 9 then
          if speed = 10 then
            set cNum to 134
          else
            set cNum to 135
          end if
        end if
      end if
    end if
  else
    if tune = 4 then
      if instrument = 7 then
        if speed = 10 then
          set cNum to 140
        else
          set cNum to 141
        end if
      else
        if instrument = 8 then
          if speed = 10 then
            set cNum to 142
          else
            set cNum to 143
          end if
        else
          if instrument = 9 then
            if speed = 10 then
              set cNum to 144
            else
              set cNum to 145
            end if
          end if
        end if
      end if
    else
      if tune = 5 then
        if instrument = 7 then
          if speed = 10 then
            set cNum to 150
          else
            set cNum to 151
          end if
        else
          if instrument = 8 then
            if speed = 10 then
              set cNum to 152
            else
              set cNum to 153
            end if
          else
            if instrument = 9 then
              if speed = 10 then
                set cNum to 154
              else
                set cNum to 155
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if cNum = 0 then
    exit
  end if
  puppetSprite(20, 1)
  set the castNum of sprite 20 to cNum
  updateStage()
  set the movieTime of sprite 20 to 0
  set the movieRate of sprite 20 to 1
end

on stopTrack
  set whichCast to the castNum of sprite 20
  if whichCast = 0 then
    exit
  end if
  if the castType of cast whichCast <> #digitalVideo then
    exit
  end if
  set the movieRate of sprite 20 to 0
  set the visible of sprite 10 to 0
  set the visible of sprite 11 to 0
  puppetSprite(20, 0)
end

on showFingering
  set hpos to the mouseH
  set hpos to hpos - the left of sprite 16
  set num to hpos / 22
  set the visible of sprite (17 + num) to 1
  repeat with chan = 0 to 21
    if chan <> num then
      set the visible of sprite (17 + chan) to 0
    end if
  end repeat
  moveMask(num)
end

on moveMask pos
  set notePos to list(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 15, 37, 63, 82, 103, 125, 150, 169, 191)
  put pos
  if pos > 21 then
    exit
  end if
  set loc to getAt(notePos, pos + 1)
  set the castNum of sprite 2 to 75 + pos
  set the locH of sprite 2 to 320 + loc
  updateStage()
end

on stopMovie
  stopTrack()
end

on chooseTrack
  global instrument, tune, speed
  stopTrack()
  set cNum to 0
  if tune = 3 then
    if instrument = 7 then
      if speed = 10 then
        set cNum to 130
      else
        set cNum to 131
      end if
    else
      if instrument = 8 then
        if speed = 10 then
          set cNum to 132
        else
          set cNum to 133
        end if
      else
        if instrument = 9 then
          if speed = 10 then
            set cNum to 134
          else
            set cNum to 135
          end if
        end if
      end if
    end if
  else
    if tune = 4 then
      if instrument = 7 then
        if speed = 10 then
          set cNum to 140
        else
          set cNum to 141
        end if
      else
        if instrument = 8 then
          if speed = 10 then
            set cNum to 142
          else
            set cNum to 143
          end if
        else
          if instrument = 9 then
            if speed = 10 then
              set cNum to 144
            else
              set cNum to 145
            end if
          end if
        end if
      end if
    else
      if tune = 5 then
        if instrument = 7 then
          if speed = 10 then
            set cNum to 150
          else
            set cNum to 151
          end if
        else
          if instrument = 8 then
            if speed = 10 then
              set cNum to 152
            else
              set cNum to 153
            end if
          else
            if instrument = 9 then
              if speed = 10 then
                set cNum to 154
              else
                set cNum to 155
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  return cNum
end

on dump
  repeat with chan = 3 to 24
    put the locH of sprite chan - 320
  end repeat
end

on changeReg
  repeat with cNum = 75 to 75 + 21
    set regH to the locH of the regPoint of cast cNum
    set regV to the locV of the regPoint of cast cNum
    put the regPoint of cast cNum
    set newReg to point(regH, 240)
    put newReg
    set the regPoint of cast cNum to newReg
  end repeat
end