home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1998 December / PCW1298.ISO / Tonline / Director / INTERNET.DXR / 00015.ls < prev    next >
Encoding:
Text File  |  1998-08-22  |  593 b   |  22 lines
  1. on setSpriteCHand spritelist
  2.   set CHand to the number of member "Cursor Hand"
  3.   repeat with count = 1 to 48
  4.     if getOne(spritelist, count) = 0 then
  5.       set the cursor of sprite count to 0
  6.       next repeat
  7.     end if
  8.     set the cursor of sprite count to [CHand, CHand + 1]
  9.   end repeat
  10. end
  11.  
  12. on setSpriteCExit spritelist
  13.   set CHand to the number of member "Cursor Exit"
  14.   repeat with count = 1 to 48
  15.     if getOne(spritelist, count) = 0 then
  16.       set the cursor of sprite count to 0
  17.       next repeat
  18.     end if
  19.     set the cursor of sprite count to [CHand, CHand + 1]
  20.   end repeat
  21. end
  22.