Function KillBlock(x:Int,y:Int)
	If x<11 and blockfield[x+1,y]=blockfield[x,y] Then
		killblock(x+1,y)
	End If
	If y<7 and blockfield[x,y+1]=blockfield[x,y] Then
		killblock(x,y+1)
	End If
	If x>0 and blockfield[x-1,y]=blockfield[x,y] Then
		killblock(x-1,y)
	End If
	If y>0 and blockfield[x,y-1]=blockfield[x,y] Then
		killblock(x,y-1)
	End If
	blockfield[x,y] = 0
End Function