home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 2 #3 / Blender_2_3.iso / BLENDER / FILES / POPCULT.DIR / 00013.ls < prev    next >
Encoding:
Text File  |  1996-04-01  |  533 b   |  26 lines
  1. on exitFrame
  2.   global gIndex
  3.   set flag to 0
  4.   repeat with i = 3 to 24
  5.     if rollOver(i) then
  6.       set flag to 1
  7.       if gIndex <> i then
  8.         set the visible of sprite gIndex to 0
  9.         set gIndex to i
  10.         set the visible of sprite gIndex to 1
  11.       end if
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   if not flag then
  16.     set the visible of sprite gIndex to 0
  17.   end if
  18.   if rollOver(26) then
  19.     set the visible of sprite 27 to 1
  20.   else
  21.     set the visible of sprite 27 to 0
  22.   end if
  23.   updateStage()
  24.   go(the frame)
  25. end
  26.