home *** CD-ROM | disk | FTP | other *** search
/ SKIP - The Laundry Guide / LEVER_CD.iso / lever / flags.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1997-02-21  |  1.1 KB  |  45 lines
  1. on exitFrame
  2.   global framecount, framecount2, bannernumber, swisscount, audiocount
  3.   if the visible of sprite 34 = 0 then
  4.     set framecount2 to framecount2 + 1
  5.     set framecount to framecount + 1
  6.     if audiocount = 0 then
  7.       playsound(0)
  8.     end if
  9.     set audiocount to audiocount - 1
  10.     puppetSprite(14, 1)
  11.     repeat with i = 5 to 17
  12.       if rollOver(i + 15) then
  13.         set the visible of sprite i to 1
  14.         next repeat
  15.       end if
  16.       set the visible of sprite i to 0
  17.     end repeat
  18.     if framecount2 = 30 then
  19.       set framecount2 to 0
  20.       set swisscount to swisscount + 1
  21.       if swisscount = 3 then
  22.         set swisscount to 1
  23.       end if
  24.       setswiss()
  25.     end if
  26.     if framecount = 45 then
  27.       set framecount to 0
  28.       set bannernumber to bannernumber + 1
  29.       if bannernumber = 13 then
  30.         set bannernumber to 1
  31.       end if
  32.       setbanner(bannernumber)
  33.     end if
  34.   else
  35.     repeat with i = 35 to 37
  36.       if rollOver(i) then
  37.         set the visible of sprite (i + 3) to 1
  38.         next repeat
  39.       end if
  40.       set the visible of sprite (i + 3) to 0
  41.     end repeat
  42.   end if
  43.   go(the frame)
  44. end
  45.