home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 2 #3 / Blender_2_3.iso / BLENDER / FILES / CWEB.DIR / 00021.ls < prev    next >
Encoding:
Text File  |  1996-04-01  |  514 b   |  24 lines
  1. on exitFrame
  2.   global n, test
  3.   set test to 0
  4.   repeat with n = 5 down to 2
  5.     if rollOver(n) then
  6.       set the visible of sprite (n + 9) to 1
  7.       set test to test + 1
  8.       next repeat
  9.     end if
  10.     set the visible of sprite (n + 9) to 0
  11.   end repeat
  12.   if test = 0 then
  13.     repeat with n = 14 down to 11
  14.       if random(100) > 98 then
  15.         set the visible of sprite n to 1
  16.         next repeat
  17.       end if
  18.       set the visible of sprite n to 0
  19.     end repeat
  20.   end if
  21.   go(the frame)
  22.   updateStage()
  23. end
  24.