home *** CD-ROM | disk | FTP | other *** search
/ Human & Space in Asia / ARIF_ASCI.ISO / pc / arif.dir / 00478.ls < prev    next >
Encoding:
Text File  |  1996-09-25  |  623 b   |  27 lines
  1. on exitFrame
  2.   global oldsp
  3.   set firstsp to 2
  4.   set Secondsp to 13
  5.   set rolled to 0
  6.   repeat with RollCnt = 0 to 4
  7.     if rollOver(firstsp + RollCnt) then
  8.       if oldsp <> (Secondsp + RollCnt) then
  9.         if oldsp <> 0 then
  10.           set the visible of sprite oldsp to 0
  11.         end if
  12.         set the visible of sprite (Secondsp + RollCnt) to 1
  13.         set oldsp to Secondsp + RollCnt
  14.         set rolled to 1
  15.         exit repeat
  16.         next repeat
  17.       end if
  18.       set rolled to 1
  19.     end if
  20.   end repeat
  21.   if not rolled then
  22.     set the visible of sprite oldsp to 0
  23.     set oldsp to 0
  24.   end if
  25.   go(the frame)
  26. end
  27.