Sorry your browser is not supported!

load image "fighter.png",1,1
white = rgb(255,255,255)

make memblock from image 1,1
width = memblock dword(1,0)
height = memblock dword(1,4)

for x = 0 to (width-1)
   for y = 0 to (height-1)
      location = ((y)*width + x )*4 + 12
      thiscolor = memblock dword (1,location)
      if thiscolor < 0
         write memblock dword 1,location,white
      endif
   next y
next x

make image from memblock 2,1

paste image 2,0,0,1

=================================
`   GET IMAGE WITH TRANSPARENCY
`	- Credit goes to Craig Chipperfield +(tiny edit from sasuke, bitmap bit)
`=================================
function GetImage( Image, Xstart, Ystart, Xend as dword, Yend as dword )

	`Set up Local variables
	Local Width 		as Dword
	Local Height 		as Dword
	Local Depth 		as Dword
	Local Red 			as Byte
	Local Green 		as Byte
	Local Blue 			as Byte
	Local Alpha 		as Byte
	Local Memblock1 	as integer
	Local NewMemblock as integer
	Local Bitmap as integer	
		
	`Find unused memblocks
	Memblock1 = 1
	repeat
		inc Memblock1
	until memblock exist( Memblock1 ) = 0
	
	NewMemblock = 2
	repeat
		inc NewMemblock
	until memblock exist( NewMemblock ) = 0

	Bitmap = current bitmap()
	
	`Do it!
	make memblock from bitmap Memblock1, Bitmap
	Width  = memblock dword( Memblock1, 0 )
	Height = memblock dword( Memblock1, 4 )
	Depth  = memblock dword( Memblock1, 8 )
	make memblock NewMemblock, ( Width * Height ) + 12
	
	Write memblock Dword NewMemblock, 0, Xend
	Write memblock Dword NewMemblock, 4, Yend
	Write memblock Dword NewMemblock, 8, Depth
	
	`This is conufusing, in the demo by Craig theres plus 12 on this, but here it doesn't work	
	Position    = ( Width  * ( Ystart ) * 4 ) + ( Xstart * 4 ) + 12
	NewPosition = 12
	
	for y = 1 to Yend
		for x = 1 to Xend
	   
	      Blue  = memblock byte( Memblock1, Position + 0 )
	      Green = memblock byte( Memblock1, Position + 1 )
	      Red   = memblock byte( Memblock1, Position + 2 )
	      Alpha = memblock byte( Memblock1, Position + 3 )
	      
	      write memblock byte NewMemblock, NewPosition + 0, Blue
	      write memblock byte NewMemblock, NewPosition + 1, Green
	      write memblock byte NewMemblock, NewPosition + 2, Red
	      write memblock byte NewMemblock, NewPosition + 3, Alpha
	      
	      inc Position, 4
	      Inc NewPosition, 4
	      
		next x
		inc Position , ( Width * 4 ) - ( Xend * 4 )
	next y
	
	`Make the image from the the memblock we have just manipulated
	make image from memblock Image, NewMemblock
	
	`Clean Up
	delete memblock Memblock1
	delete memblock NewMemblock
	
endfunction

`Basic setup stuff
sync on: sync rate 60
hide mouse

`Some constants...
`FighterImage in this case is the BASE IMAGE for the fighter.  This image will never be modified.
#Constant FighterImage       1
`FighterSpriteImage is the image that is changed by the SetSpriteMask function.
#Constant FighterSpriteImage 2
#Constant FighterSprite      1

`Set up the base sprite...
load image "001-Fighter01.png",FighterImage
load image "001-Fighter01.png",FighterSpriteImage
sprite FighterSprite,100,100,FighterSpriteImage

sync

`This function will have the effect an alpha'd and diffused sprite would, but without the need for any kind of mask.
SetSpriteMask(255,255,100,150,FighterSpriteImage,FighterImage)

sync
wait key
end



function SetSpriteMask(R,G,B,A,SpriteImage,BaseImage)

delete image SpriteImage
temp=FreeMemblock()
make memblock from image temp,BaseImage

for c=12 to get memblock size(temp)-3 step 4
    oldr=memblock byte(temp,c+2)
    oldg=memblock byte(temp,c+1)
    oldb=memblock byte(temp,c)
    newr=int(oldr*((255-A)/255.0)+R*(A/255.0))
    newg=int(oldg*((255-A)/255.0)+G*(A/255.0))
    newb=int(oldb*((255-A)/255.0)+B*(A/255.0))
    write memblock byte temp,c+2,newr
    write memblock byte temp,c+1,newg
    write memblock byte temp,c,newb
next c

make image from memblock SpriteImage,temp
delete memblock temp

endfunction


function FreeMemblock()
repeat
inc temp
until memblock exist(temp)=0
endfunction temp