home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / cover.dir / 00011.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  704 b   |  33 lines

  1. on exitFrame
  2.   global audiocount, lastfound
  3.   if audiocount = 0 then
  4.     playsound(1)
  5.     cursor(0)
  6.   end if
  7.   set audiocount to audiocount - 1
  8.   set found to 0
  9.   repeat with i = 2 to 8
  10.     if rollOver(9 + i) then
  11.       set found to i
  12.     end if
  13.   end repeat
  14.   if found = 0 then
  15.     set the visible of sprite lastfound to 0
  16.     setbanner("none")
  17.     set lastfound to 0
  18.   else
  19.     if lastfound <> found then
  20.       set the visible of sprite lastfound to 0
  21.       set the visible of sprite found to 1
  22.       setbanner(found)
  23.       set lastfound to found
  24.     end if
  25.   end if
  26.   if rollOver(29) then
  27.     set the visible of sprite 29 to 1
  28.   else
  29.     set the visible of sprite 29 to 0
  30.   end if
  31.   go(the frame)
  32. end
  33.