home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 March / PCPRO0396.ISO / march / blender / opening.dir / 00018.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  1.0 KB  |  48 lines
  1. on exitFrame
  2.   global n, POSIT, TEST
  3.   set TEST to 0
  4.   repeat with n = 19 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.   if rollOver(3) then
  21.     puppetSprite(3, 1)
  22.     set POSIT to the locV of sprite 3
  23.     if POSIT < -1 then
  24.       set POSIT to POSIT + 20
  25.     else
  26.       set POSIT to 0
  27.     end if
  28.     if POSIT > 0 then
  29.       set POSIT to 0
  30.     end if
  31.     set the locV of sprite 3 to POSIT
  32.   else
  33.     puppetSprite(3, 0)
  34.   end if
  35.   repeat with n = 39 down to 35
  36.     if the visible of sprite n = 1 then
  37.       set TEST to TEST + 1
  38.     end if
  39.   end repeat
  40.   if TEST > 0 then
  41.     repeat with n = 44 down to 41
  42.       set the visible of sprite n to 0
  43.     end repeat
  44.   end if
  45.   go(the frame)
  46.   updateStage()
  47. end
  48.