AppTitle "Destructable Data Image Example by Eikon 04.01.05"
Graphics 320, 240, 16, 2
SeedRnd MilliSecs()

imgWall = CreateImage(16, 16)
SetBuffer ImageBuffer(imgWall)
Color 255, 255, 255
Read x: Read y
For b = 0 To y - 1
	For a = 0 To x - 1
		Read num
		If num = 1 Then Rect a * 2, b * 2, 2, 2, 1
	Next
Next

HidePointer
SetBuffer BackBuffer()
While Not KeyDown(1)

DrawImage imgWall, MouseX(), MouseY()

Color 255, 0, 0: Rect 160, 120, 2, 2, 1

If ImageRectCollide(imgWall, MouseX(), MouseY(), 0, 160, 120, 2, 2) Then ; Collision
	SetBuffer ImageBuffer(imgWall)
	Color 0, 0, 0: Rect 160 - MouseX(), 120 - MouseY(), 2, 2, 1
	
	SetBuffer BackBuffer()
EndIf

Flip: Cls
Wend: End

.MyWall
Data 8, 8
Data 0,0,1,1,1,1,0,0
Data 0,0,1,1,1,1,0,0
Data 0,1,1,1,1,1,1,0
Data 0,1,1,1,1,1,1,0
Data 1,1,1,0,0,1,1,1
Data 1,1,1,0,0,1,1,1
Data 1,1,1,0,0,1,1,1
Data 1,1,1,0,0,1,1,1