Computer Music Interactive 30/CMi30.iso/pc/readerint/00016.ls

Text File | 2001-01-04 | 1.8 KB | 79 lines

on mainRoller
  repeat with x = 22 to 27
    set the visible of sprite x to 0
  end repeat
  repeat with x = 15 to 20
    set the cursor of sprite x to 280
  end repeat
  set the visible of sprite 38 to 0
  if rollOver(15) then
    set the visible of sprite 22 to 1
  else
    if rollOver(16) then
      set the visible of sprite 23 to 1
    else
      if rollOver(17) then
        set the visible of sprite 24 to 1
      else
        if rollOver(18) then
          set the visible of sprite 25 to 1
        else
          if rollOver(19) then
            set the visible of sprite 26 to 1
          else
            if rollOver(20) then
              set the visible of sprite 27 to 1
            else
              if rollOver(39) then
                set the visible of sprite 38 to 1
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on demoRoller
  repeat with x = 46 to 50
    set the visible of sprite x to 0
  end repeat
  if rollOver(51) then
    set the visible of sprite 46 to 1
  else
    if rollOver(52) then
      set the visible of sprite 47 to 1
    else
      if rollOver(53) then
        set the visible of sprite 48 to 1
      else
        if rollOver(54) then
          set the visible of sprite 49 to 1
        else
          if rollOver(55) then
            set the visible of sprite 50 to 1
          else
          end if
        end if
      end if
    end if
  end if
  if the movieRate of sprite 30 > 0 then
    set the visible of sprite 47 to 1
  else
    if the movieRate of sprite 31 > 0 then
      set the visible of sprite 47 to 1
    else
      if the movieRate of sprite 32 > 0 then
        set the visible of sprite 47 to 1
      else
        if the movieRate of sprite 33 > 0 then
          set the visible of sprite 47 to 1
        else
        end if
      end if
    end if
  end if
end