This is the script i am using, and i get nothing. The script is
attached to the sprite the user can move around which acts as the
"magnifier". Any ideas about what i have done incorrectly?
property pSourceRect, pSourceSprite
property pTargetRect, pTargetSprite
on beginsprite me
sprite(me.spritenum).moveablesprite = true
pSourceRect = sprite(pSourceSprite).rect
pTargetRect = sprite(pTargetSprite).rect
end
on stepFrame me
if sprite(me.spritenum).intersects(pSourceSprite) then
newImage = image(sprite(psourcesprite).width,
sprite(psourcesprite).height, 32)
newImage.copypixels((the stage).image,newImage.rect,pSourceRect)
member("Target").image.copyPixels(newImage, pTargetRect,
sprite(me.spritenum).rect)
end if
end
on getpropertydescriptionlist me
pdlist = [:]
addProp pdList, #pSourceSprite, [#comment:"What is the source
Sprite?",#default:1,#format:#integer]
addProp pdList, #pTargetSprite, [#comment:"What is the target
Sprite?",#default:2,#format:#integer]
return pdlist
end
If i change the on stepFrame behavior to the following it works, but
only if the movie is non-DTS
on stepFrame me
if sprite(me.spritenum).intersects(pSourceSprite) then
member("Target").image.copyPixels((the stage).image,
member("Target").rect, sprite(me.spritenum).rect)
end if
Brad
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
