home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / crpplay.dir / 00073_Script_CURSORS < prev    next >
Text File  |  1996-05-27  |  699b  |  20 lines
  1. -- -----------------------------------------------------------
  2. -- Handler cursorSpriteList sets the cursor of the given sprites
  3. -- to the given cursor.  It also sets the global variable finger
  4. -- sprites to the given sprite list.  This variable is used 
  5. -- when the user clicks on a menu item and sets the cursor of 
  6. -- the sprites in the list to the arrow.
  7.  
  8. on cursorSpriteList whichCursor, spriteList
  9.   global fingerSpriteList
  10.   
  11.   if whichCursor > 0 then -- not arrow
  12.     set fingerSpriteList = spriteList
  13.   else
  14.     set fingerSpriteList = []
  15.   end if
  16.   
  17.   repeat with i = 1 to count(spriteList)
  18.     set the cursor of sprite getAt(spriteList,i) to whichCursor
  19.   end repeat
  20. end