Ore Finder with Carpet Script

gamerule commandBlockOutput false

script run check(x, y, z, block_type, particle_name, limit) ->
    if (convnb(x,y,z, _a+( _ == block_type )) >= limit,
        particle(x, top('light',x,z)+1 , z, particle_name); 1 ,
        0
    )
script run check_ores(x,y,z) -> (
 check(x,y,z,'emerald_ore','happy_villager',1);
 check(x,y,z,'redstone_ore','heart',3);
 check(x,y,z,'diamond_ore','nautilus',1);
 check(x,y,z,'lapis_ore','rain',1);
 check(x,y,z,'iron_ore','poof',4));

script run check_area(x,z) -> area(x,9,z, 32,8,32, check_ores(_x, _y, _z))

script run check_area(x,z)

script run undef(check); undef(check_ores); undef(check_area);