home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rover 25 Presentation
/
Rover25_Presentation_CD.bin
/
Tool2.cst
/
00038_Script_map
< prev
next >
Wrap
Text File
|
2000-01-31
|
667b
|
31 lines
property pMySpriteNum
property pButtonActive
property pMouseOffset
property pViewPort
property pDragger
property pSmallPict
property pBigPict
on exitFrame
doUpdate
end
on beginSprite me
pMySpriteNum = the spriteNum of me
sprite(pMySpriteNum).constraint = 6
pViewPort = 4
pDragger = the currentSpriteNum
pSmallPict = 8
pBigPict = 1
end
on getBehaviorDescription
description = "This will case a small rect to scroll an image to another rect in relation to one another."
return description
end
on doUpdate
sprite(pBigPict).rect = map(sprite(pSmallPict).rect, sprite(pDragger).rect, sprite(pViewPort).rect)
--
end