home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 March / PCPRO0396.ISO / march / blender / opening.dir / 00167.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  723 b   |  33 lines
  1. on exitFrame
  2.   global n, TEST
  3.   set TEST to 0
  4.   repeat with n = 20 down to 16
  5.     if rollOver(n) then
  6.       set the visible of sprite (n + 25) to 1
  7.       next repeat
  8.     end if
  9.     set the visible of sprite (n + 25) to 0
  10.   end repeat
  11.   repeat with n = 28 down to 22
  12.     if rollOver(n) then
  13.       puppetSprite(n, 1)
  14.       set the ink of sprite n to 4
  15.       next repeat
  16.     end if
  17.     set the ink of sprite n to 8
  18.     puppetSprite(n, 0)
  19.   end repeat
  20.   repeat with n = 39 down to 35
  21.     if the visible of sprite n = 1 then
  22.       set TEST to TEST + 1
  23.     end if
  24.   end repeat
  25.   if TEST > 0 then
  26.     repeat with n = 44 down to 41
  27.       set the visible of sprite n to 0
  28.     end repeat
  29.   end if
  30.   go(the frame)
  31.   updateStage()
  32. end
  33.