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 >
Wrap
Text File
|
1996-06-20
|
716b
|
33 lines
on SetIndexSpriteCursors specialCursors,StartSprite,EndSprite
global specialCursorSprites
repeat with i = StartSprite to EndSprite
set sum = 0
repeat with j = 1 to count(specialCursors)
set numSpecialSprite = getAt(specialCursors, j)
if i = numSpecialSprite then
set sum = sum +1
end if
end repeat
set flagOn = the castNum of sprite i
if flagOn > 0 AND sum = 0 then
setSpriteCursor( [i,"fingerCursor"] )
end if
end repeat
repeat with j = 1 to count(specialCursors)
set numSpecialSprite = getAt(specialCursors, j)
setSpriteCursor( [numSpecialSprite ,"UpCursor"] )
end repeat
end