Computer Music Interactive 14/CMi14.iso/pc/inform/00003.ls

Text File | 1999-09-01 | 19.0 KB | 675 lines

on startMovie
  global whichSection
  if the colorDepth <> 16 then
    set the colorDepth to 16
  end if
  set whichSection to 0
end

on startRoller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 20 to 1
  set the visible of sprite 21 to 1
  set the visible of sprite 22 to 1
  set the visible of sprite 23 to 1
  set the visible of sprite 10 to 0
  set the visible of sprite 11 to 0
  set the visible of sprite 12 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 25 to 0
  set the visible of sprite 26 to 0
  set the visible of sprite 27 to 0
  set the visible of sprite 28 to 0
  set the visible of sprite 29 to 0
  set the visible of sprite 30 to 0
  set the visible of sprite 32 to 0
  set the visible of sprite 33 to 0
  set the visible of sprite 34 to 0
  set the visible of sprite 35 to 0
  set the visible of sprite 36 to 0
  set the visible of sprite 37 to 0
  set the visible of sprite 38 to 0
  set the visible of sprite 39 to 1
  set the visible of sprite 40 to 0
  set the visible of sprite 41 to 0
  set the visible of sprite 42 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 45 to 0
  set the visible of sprite 46 to 0
  set the visible of sprite 47 to 0
  set the visible of sprite 48 to 0
  set the visible of sprite 49 to 0
  set the visible of sprite 50 to 0
  set the visible of sprite 51 to 0
  set the visible of sprite 52 to 0
  set the visible of sprite 53 to 0
  set the visible of sprite 54 to 0
  set the visible of sprite 55 to 0
  set the visible of sprite 56 to 0
  set the visible of sprite 57 to 0
  set the visible of sprite 60 to 0
  set the visible of sprite 61 to 0
  set the visible of sprite 62 to 0
  set the visible of sprite 63 to 0
  set the visible of sprite 64 to 0
  set the visible of sprite 65 to 0
  set the visible of sprite 66 to 0
  set the visible of sprite 67 to 0
  set the visible of sprite 68 to 0
  set the visible of sprite 69 to 0
  set the visible of sprite 70 to 0
  set the visible of sprite 71 to 0
  set the visible of sprite 72 to 0
  set the visible of sprite 73 to 0
  set the visible of sprite 74 to 0
  set the visible of sprite 75 to 0
  set the visible of sprite 76 to 0
  set the visible of sprite 77 to 0
  set the visible of sprite 78 to 0
  set the visible of sprite 79 to 0
  set the visible of sprite 80 to 0
  set the visible of sprite 81 to 0
  set the visible of sprite 82 to 0
  set the visible of sprite 90 to 0
  set the visible of sprite 91 to 0
  set the visible of sprite 92 to 0
  set the visible of sprite 93 to 0
  set the visible of sprite 94 to 0
  set the visible of sprite 95 to 0
  set the visible of sprite 96 to 0
  set the visible of sprite 97 to 0
  set the visible of sprite 98 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(20) then
    set the visible of sprite 4 to 1
    cursor(280)
  else
    if rollOver(21) then
      set the visible of sprite 5 to 1
      cursor(280)
    else
      if rollOver(22) then
        set the visible of sprite 6 to 1
        cursor(280)
      else
        if rollOver(23) then
          set the visible of sprite 7 to 1
          cursor(280)
        else
          cursor(-1)
          set the visible of sprite 4 to 0
          set the visible of sprite 5 to 0
          set the visible of sprite 6 to 0
          set the visible of sprite 7 to 0
        end if
      end if
    end if
  end if
end

on hardRoller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 10 to 1
  set the visible of sprite 24 to 1
  set the visible of sprite 25 to 1
  set the visible of sprite 26 to 1
  set the visible of sprite 39 to 0
  set the visible of sprite 40 to 1
  set the visible of sprite 42 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(24) then
    set the visible of sprite 42 to 1
    cursor(280)
  else
    if rollOver(25) then
      set the visible of sprite 43 to 1
      cursor(280)
    else
      if rollOver(26) then
        set the visible of sprite 44 to 1
        cursor(280)
      else
        cursor(-1)
      end if
    end if
  end if
end

on softRoller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 10 to 1
  set the visible of sprite 27 to 1
  set the visible of sprite 28 to 1
  set the visible of sprite 29 to 1
  set the visible of sprite 39 to 0
  set the visible of sprite 41 to 1
  set the visible of sprite 42 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(24) then
    cursor(280)
    set the visible of sprite 42 to 1
  else
    if rollOver(25) then
      set the visible of sprite 43 to 1
      cursor(280)
    else
      if rollOver(26) then
        set the visible of sprite 44 to 1
        cursor(280)
      else
        cursor(-1)
      end if
    end if
  end if
end

on hpcRoller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 10 to 0
  set the visible of sprite 11 to 1
  set the visible of sprite 12 to 0
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 25 to 0
  set the visible of sprite 26 to 1
  set the visible of sprite 27 to 0
  set the visible of sprite 28 to 0
  set the visible of sprite 29 to 0
  set the visible of sprite 32 to 1
  set the visible of sprite 33 to 1
  set the visible of sprite 34 to 1
  set the visible of sprite 35 to 1
  set the visible of sprite 36 to 1
  set the visible of sprite 37 to 1
  set the visible of sprite 38 to 1
  set the visible of sprite 39 to 0
  set the visible of sprite 40 to 0
  set the visible of sprite 41 to 0
  set the visible of sprite 42 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 45 to 0
  set the visible of sprite 46 to 0
  set the visible of sprite 47 to 0
  set the visible of sprite 48 to 0
  set the visible of sprite 49 to 0
  set the visible of sprite 50 to 0
  set the visible of sprite 51 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(32) then
    set the visible of sprite 45 to 1
    cursor(280)
  else
    if rollOver(33) then
      set the visible of sprite 46 to 1
      cursor(280)
    else
      if rollOver(34) then
        set the visible of sprite 47 to 1
        cursor(280)
      else
        if rollOver(35) then
          set the visible of sprite 48 to 1
          cursor(280)
        else
          if rollOver(36) then
            set the visible of sprite 49 to 1
            cursor(280)
          else
            if rollOver(37) then
              set the visible of sprite 50 to 1
              cursor(280)
            else
              if rollOver(26) then
                set the visible of sprite 44 to 1
                cursor(280)
              else
                cursor(-1)
                set the visible of sprite 44 to 0
                set the visible of sprite 45 to 0
                set the visible of sprite 46 to 0
                set the visible of sprite 47 to 0
                set the visible of sprite 48 to 0
                set the visible of sprite 49 to 0
                set the visible of sprite 50 to 0
                set the visible of sprite 51 to 0
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on hmacRoller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 10 to 0
  set the visible of sprite 11 to 1
  set the visible of sprite 12 to 0
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 25 to 0
  set the visible of sprite 26 to 1
  set the visible of sprite 27 to 0
  set the visible of sprite 28 to 0
  set the visible of sprite 29 to 0
  set the visible of sprite 32 to 1
  set the visible of sprite 33 to 1
  set the visible of sprite 34 to 1
  set the visible of sprite 35 to 1
  set the visible of sprite 36 to 1
  set the visible of sprite 37 to 1
  set the visible of sprite 38 to 0
  set the visible of sprite 39 to 0
  set the visible of sprite 40 to 0
  set the visible of sprite 41 to 0
  set the visible of sprite 42 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 45 to 0
  set the visible of sprite 46 to 0
  set the visible of sprite 47 to 0
  set the visible of sprite 48 to 0
  set the visible of sprite 49 to 0
  set the visible of sprite 50 to 0
  set the visible of sprite 51 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(32) then
    set the visible of sprite 45 to 1
    cursor(280)
  else
    if rollOver(33) then
      set the visible of sprite 46 to 1
      cursor(280)
    else
      if rollOver(34) then
        set the visible of sprite 47 to 1
        cursor(280)
      else
        if rollOver(35) then
          set the visible of sprite 48 to 1
          cursor(280)
        else
          if rollOver(36) then
            set the visible of sprite 49 to 1
            cursor(280)
          else
            if rollOver(37) then
              set the visible of sprite 50 to 1
              cursor(280)
            else
              if rollOver(26) then
                set the visible of sprite 44 to 1
                cursor(280)
              else
                cursor(-1)
                set the visible of sprite 44 to 0
                set the visible of sprite 45 to 0
                set the visible of sprite 46 to 0
                set the visible of sprite 47 to 0
                set the visible of sprite 48 to 0
                set the visible of sprite 49 to 0
                set the visible of sprite 50 to 0
                set the visible of sprite 51 to 0
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on spcroller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 10 to 0
  set the visible of sprite 11 to 0
  set the visible of sprite 12 to 1
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 25 to 0
  set the visible of sprite 26 to 1
  set the visible of sprite 27 to 0
  set the visible of sprite 28 to 0
  set the visible of sprite 29 to 0
  set the visible of sprite 32 to 1
  set the visible of sprite 33 to 1
  set the visible of sprite 34 to 1
  set the visible of sprite 35 to 1
  set the visible of sprite 36 to 1
  set the visible of sprite 37 to 1
  set the visible of sprite 38 to 1
  set the visible of sprite 39 to 0
  set the visible of sprite 40 to 0
  set the visible of sprite 41 to 0
  set the visible of sprite 42 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 51 to 0
  set the visible of sprite 52 to 0
  set the visible of sprite 53 to 0
  set the visible of sprite 54 to 0
  set the visible of sprite 55 to 0
  set the visible of sprite 56 to 0
  set the visible of sprite 57 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(32) then
    set the visible of sprite 51 to 1
    cursor(280)
  else
    if rollOver(33) then
      set the visible of sprite 52 to 1
      cursor(280)
    else
      if rollOver(34) then
        set the visible of sprite 53 to 1
        cursor(280)
      else
        if rollOver(35) then
          set the visible of sprite 54 to 1
          cursor(280)
        else
          if rollOver(36) then
            set the visible of sprite 55 to 1
            cursor(280)
          else
            if rollOver(37) then
              set the visible of sprite 56 to 1
              cursor(280)
            else
              if rollOver(38) then
                set the visible of sprite 57 to 1
                cursor(280)
              else
                if rollOver(26) then
                  set the visible of sprite 44 to 1
                  cursor(280)
                else
                  cursor(-1)
                  set the visible of sprite 51 to 0
                  set the visible of sprite 52 to 0
                  set the visible of sprite 53 to 0
                  set the visible of sprite 54 to 0
                  set the visible of sprite 55 to 0
                  set the visible of sprite 56 to 0
                  set the visible of sprite 57 to 0
                  set the visible of sprite 44 to 0
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on smacRoller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 10 to 0
  set the visible of sprite 11 to 0
  set the visible of sprite 12 to 1
  set the visible of sprite 20 to 0
  set the visible of sprite 21 to 0
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the visible of sprite 24 to 0
  set the visible of sprite 25 to 0
  set the visible of sprite 26 to 1
  set the visible of sprite 27 to 0
  set the visible of sprite 28 to 0
  set the visible of sprite 29 to 0
  set the visible of sprite 32 to 1
  set the visible of sprite 33 to 1
  set the visible of sprite 34 to 1
  set the visible of sprite 35 to 1
  set the visible of sprite 36 to 1
  set the visible of sprite 37 to 1
  set the visible of sprite 38 to 1
  set the visible of sprite 39 to 0
  set the visible of sprite 40 to 0
  set the visible of sprite 41 to 0
  set the visible of sprite 42 to 0
  set the visible of sprite 43 to 0
  set the visible of sprite 51 to 0
  set the visible of sprite 52 to 0
  set the visible of sprite 53 to 0
  set the visible of sprite 54 to 0
  set the visible of sprite 55 to 0
  set the visible of sprite 56 to 0
  set the visible of sprite 57 to 0
  set the visible of sprite 44 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(32) then
    set the visible of sprite 51 to 1
    cursor(280)
  else
    if rollOver(33) then
      set the visible of sprite 52 to 1
      cursor(280)
    else
      if rollOver(34) then
        set the visible of sprite 53 to 1
        cursor(280)
      else
        if rollOver(35) then
          set the visible of sprite 54 to 1
          cursor(280)
        else
          if rollOver(36) then
            set the visible of sprite 55 to 1
            cursor(280)
          else
            if rollOver(37) then
              set the visible of sprite 56 to 1
              cursor(280)
            else
              if rollOver(38) then
                set the visible of sprite 57 to 1
                cursor(280)
              else
                if rollOver(26) then
                  set the visible of sprite 44 to 1
                  cursor(280)
                else
                  cursor(-1)
                  set the visible of sprite 51 to 0
                  set the visible of sprite 52 to 0
                  set the visible of sprite 53 to 0
                  set the visible of sprite 54 to 0
                  set the visible of sprite 55 to 0
                  set the visible of sprite 56 to 0
                  set the visible of sprite 57 to 0
                  set the visible of sprite 44 to 0
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on webRoller
  if not soundBusy(1) then
    puppetSound(1, "Tonys")
  end if
  set the visible of sprite 90 to 1
  set the visible of sprite 92 to 1
  set the visible of sprite 94 to 1
  set the visible of sprite 96 to 1
  set the visible of sprite 97 to 1
  set the visible of sprite 98 to 1
  set the visible of sprite 39 to 0
  set the visible of sprite 15 to 0
  set the visible of sprite 16 to 0
  if rollOver(17) then
    set the visible of sprite 15 to 1
    cursor(280)
  else
    if rollOver(18) then
      set the visible of sprite 16 to 1
      cursor(280)
    else
      cursor(-1)
      set the visible of sprite 15 to 0
      set the visible of sprite 16 to 0
    end if
  end if
  if rollOver(96) then
    set the visible of sprite 91 to 1
    cursor(280)
  else
    if rollOver(97) then
      set the visible of sprite 93 to 1
      cursor(280)
    else
      if rollOver(98) then
        set the visible of sprite 95 to 1
        cursor(280)
      else
        set the visible of sprite 91 to 0
        set the visible of sprite 93 to 0
        set the visible of sprite 95 to 0
        cursor(-1)
      end if
    end if
  end if
end