home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 2 #3 / Blender_2_3.iso / BLENDER / FILES / HOCKEY.DIR / 00230.ls < prev    next >
Encoding:
Text File  |  1996-04-01  |  401 b   |  21 lines
  1. on exitFrame
  2.   global gStr
  3.   checkTheRoll()
  4.   set flag to 0
  5.   repeat with n = 6 down to 3
  6.     if char n - 2 of gStr = "0" then
  7.       set flag to 1
  8.       if rollOver(n) then
  9.         set the visible of sprite (n + 4) to 1
  10.         next repeat
  11.       end if
  12.       set the visible of sprite (n + 4) to 0
  13.     end if
  14.   end repeat
  15.   if not flag then
  16.     go("PLAY")
  17.   end if
  18.   go(the frame)
  19.   updateStage()
  20. end
  21.