home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 3 #4 / Blender_3_4.iso / BLENDER / FILES / CWEB.DIR / 00021.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  550 b   |  25 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.   SHAREBUTTON([44, 45, 46, 47, 48])
  22.   go(the frame)
  23.   updateStage()
  24. end
  25.