home *** CD-ROM | disk | FTP | other *** search
/ Rover 25 Presentation / Rover25_Presentation_CD.bin / Tool2.cst / 00038_Script_map < prev    next >
Text File  |  2000-01-31  |  667b  |  31 lines
  1. property pMySpriteNum
  2. property pButtonActive
  3. property pMouseOffset
  4.  
  5. property pViewPort
  6. property pDragger
  7. property pSmallPict
  8. property pBigPict
  9.  
  10. on exitFrame
  11.   doUpdate
  12. end
  13.  
  14. on beginSprite me 
  15.   pMySpriteNum = the spriteNum of me
  16.   sprite(pMySpriteNum).constraint = 6
  17.   pViewPort = 4
  18.   pDragger = the currentSpriteNum
  19.   pSmallPict = 8
  20.   pBigPict = 1
  21. end
  22.  
  23. on getBehaviorDescription
  24.   description = "This will case a small rect to scroll an image to another rect in relation to one another."
  25.   return description
  26. end
  27.  
  28. on doUpdate
  29.   sprite(pBigPict).rect = map(sprite(pSmallPict).rect, sprite(pDragger).rect, sprite(pViewPort).rect)
  30. -- 
  31. end