home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / vision.dir / 00230.ls < prev    next >
Encoding:
Text File  |  1995-01-24  |  520 b   |  25 lines
  1. global gLastSprite
  2.  
  3. on exitFrame
  4.   go(the frame)
  5. end
  6.  
  7. on idle
  8.   repeat with n = 15 to 23
  9.     if rollOver(n) then
  10.       if (n <> gLastSprite) and (the mouseCast = the castNum of sprite n) then
  11.         set lastSprite to n
  12.         puppetSprite(n, 1)
  13.         set the castNum of sprite n to the number of cast ("pic" & string(n - 14) && "color")
  14.       end if
  15.       exit repeat
  16.     end if
  17.   end repeat
  18.   repeat with n = 15 to 23
  19.     if n <> lastSprite then
  20.       puppetSprite(n, 0)
  21.     end if
  22.   end repeat
  23.   updateStage()
  24. end
  25.