my ($rx,$ry,$y,$x,$xScaled);
    
    my $bxScaled = $bx * 16;
    my $byScaled = $by * 16;
	my $tile_index=0;
    
    my (@realx,@realy);
    
    my $tile = \$tiles[$bz][type];
   
    for $x ( 0..15 ) {
        $rx = $bxScaled+$x;
        for $y ( 0..15 ) {
            $ry = $byScaled+$y;
            
            if (
               !defined $$tile->[$ry][$rx] ||
               $$tile->[$ry][$rx] != $type_data[$tile_index]
            ) {
                $changed = 1;
                $$tile->[$ry][$rx] = $type_data[$tile_index];
            }
            ++$tile_index;
        }
    }