home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / artindx.dir / 00050_Script_50 < prev    next >
Text File  |  1996-06-20  |  716b  |  33 lines
  1. on SetIndexSpriteCursors  specialCursors,StartSprite,EndSprite
  2.   global specialCursorSprites
  3.  
  4.   
  5.   repeat with i = StartSprite to EndSprite
  6.     set sum = 0
  7.     repeat with j = 1 to count(specialCursors)
  8.       set numSpecialSprite = getAt(specialCursors, j)
  9.       if i = numSpecialSprite then 
  10.         set sum = sum +1
  11.       end if
  12.     end repeat
  13.     
  14.     set flagOn = the castNum of sprite i
  15.     if flagOn > 0 AND sum = 0 then
  16.       setSpriteCursor( [i,"fingerCursor"] )
  17.     end if
  18.     
  19.   end repeat
  20.   
  21.   repeat with j = 1 to count(specialCursors)
  22.     set numSpecialSprite = getAt(specialCursors, j)
  23.     
  24.     setSpriteCursor( [numSpecialSprite ,"UpCursor"] )
  25.   end repeat
  26.   
  27.  
  28. end
  29.  
  30.  
  31.  
  32.  
  33.