CloneIt

 

Compatibilities:

This item has not yet been rated

Allows to partly, or entirely duplicate a bitmapped image with different sizes of brushes.

property spritenum, pSourceImage, pTargetImage, pSourceBrushRect, pTargetBrushRect on getpropertydescriptionlist   pdllist = [:]      addProp pdllist, #pSourceImage, [#comment: "The member of the sourceImage:", #format: #bitmap, #default:""]   addProp pdllist, #pTargetImage, [#comment: "The member of the TargetImage:", #format: #bitmap, #default:""]   addProp pdllist, #pSourceBrushRect, [#comment: "The spritenumber of the Sourcebrushrect:", #format: #integer, #default:""]   addProp pdllist, #pTargetBrushRect, [#comment: "The spritenumber of the Targetbrushrect:", #format: #integer, #default:""]      return pdllist    end getpropertydescriptionlist on enterframe      if the mousedown then     member(pTargetImage).image.copyPixels(member(pSourceImage) .image,(sprite pSourceBrushRect).rect, (sprite pSourceBrushRect).rect)   end if    end enterframe on prepareframe me      if inside (the mouseloc(sprite (me.spritenum)).rect) then     cursor 200     (sprite pSourceBrushRect).visible = true     (sprite pTargetBrushRect).visible = true   else     (sprite pSourceBrushRect).visible = false     (sprite pTargetBrushRect).visible = false     cursor - 1   end if      (sprite pSourceBrushRect).lineSize = 1   (sprite pSourceBrushRect).loc = the mouseloc   (sprite pTargetBrushRect).lineSize = 1   (sprite pTargetBrushRect).loc = (the mouseloc) + point ((sprite(me.spritenum).right + 10),0) end prepareframe

Upload Provided by ABCUpload ASP