my ($tile_index,$rx,$ry,$y,$x,$xScaled);
    
    my $bxScaled = $bx * 16;
    my $byScaled = $by * 16;
    
    for $x ( 0..15 ) {

        $rx = $bxScaled+$x;
        $xScaled = 16 * $x;

        for $y ( 0..15 ) {
            
            $tile_index = $y+$xScaled;
            $ry = $byScaled+$y;
            
            if ( 
                !defined $tiles[$rx][$ry][$bz][type] || 
                $tiles[$rx][$ry][$bz][type] != $type_data[$tile_index]
            ) {
                $changed = 1;
                $tiles[$rx][$ry][$bz][type] = $type_data[$tile_index];
            }
        }
    }