MacFormat 1995 September/macformat-028.iso/mac/Demos/UNZIP-DEMO/ZIPFILES/cp00/00100.ls

Text File | 1995-05-24 | 3.1 KB | 144 lines

on mroll
  global cp
  if the mouseCast = the castNum of sprite 10 then
    go("music")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("games")
  end if
  if the mouseCast = the castNum of sprite 12 then
    go("video")
  end if
  if the mouseCast = the castNum of sprite 13 then
    go("film")
  end if
end

on mroll1
  global cp
  if the mouseCast = the castNum of sprite 11 then
    go("games")
  end if
  if the mouseCast = the castNum of sprite 12 then
    go("video")
  end if
  if the mouseCast = the castNum of sprite 13 then
    go("film")
  end if
  set cp to 0
  if the mouseCast <> the castNum of sprite 10 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 11 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 12 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 13 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 15 then
    set cp to cp + 1
  end if
  if cp = 5 then
    go("ball2")
  end if
end

on mroll2
  global cp
  if the mouseCast = the castNum of sprite 10 then
    go("music")
  end if
  if the mouseCast = the castNum of sprite 12 then
    go("video")
  end if
  if the mouseCast = the castNum of sprite 13 then
    go("film")
  end if
  set cp to 0
  if the mouseCast <> the castNum of sprite 10 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 11 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 12 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 13 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 15 then
    set cp to cp + 1
  end if
  if cp = 5 then
    go("ball3")
  end if
end

on mroll3
  global cp
  if the mouseCast = the castNum of sprite 10 then
    go("music")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("games")
  end if
  if the mouseCast = the castNum of sprite 13 then
    go("film")
  end if
  set cp to 0
  if the mouseCast <> the castNum of sprite 10 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 11 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 12 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 13 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 15 then
    set cp to cp + 1
  end if
  if cp = 5 then
    go("ball4")
  end if
end

on mroll4
  global cp
  if the mouseCast = the castNum of sprite 10 then
    go("music")
  end if
  if the mouseCast = the castNum of sprite 11 then
    go("games")
  end if
  if the mouseCast = the castNum of sprite 12 then
    go("video")
  end if
  set cp to 0
  if the mouseCast <> the castNum of sprite 10 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 11 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 12 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 13 then
    set cp to cp + 1
  end if
  if the mouseCast <> the castNum of sprite 15 then
    set cp to cp + 1
  end if
  if cp = 5 then
    go("loop")
  end if
end