## Create sand
execute store result score @s vb.dummy1 run random value 1..7
# Tiny patch
execute if score @s vb.dummy1 matches 1 run fill ~1 ~-1 ~ ~ ~-1 ~ minecraft:sand replace minecraft:end_stone
execute if score @s vb.dummy1 matches 2 run fill ~-1 ~-1 ~ ~ ~-1 ~ minecraft:sand replace minecraft:end_stone
execute if score @s vb.dummy1 matches 3 run fill ~ ~-1 ~1 ~ ~-1 ~ minecraft:sand replace minecraft:end_stone
execute if score @s vb.dummy1 matches 4 run fill ~ ~-1 ~-1 ~ ~-1 ~ minecraft:sand replace minecraft:end_stone
# Small patch
execute if score @s vb.dummy1 matches 5 run fill ~ ~-1 ~ ~1 ~-1 ~1 minecraft:sand replace minecraft:end_stone
# Medium patch
execute if score @s vb.dummy1 matches 6 run fill ~-1 ~ ~-1 ~1 ~-1 ~1 minecraft:sand replace minecraft:end_stone
# Big patch
execute if score @s vb.dummy1 matches 7 run fill ~-2 ~ ~-2 ~-1 ~-2 ~-1 sand replace minecraft:end_stone
execute if score @s vb.dummy1 matches 7 run fill ~-1 ~ ~-1 ~1 ~-1 ~-1 sand replace minecraft:end_stone
execute if score @s vb.dummy1 matches 7 run fill ~-1 ~ ~ ~ ~-1 ~1 sand replace minecraft:end_stone

## Create suspicious sand
fill ~ ~-1 ~ ~ ~-1 ~ minecraft:suspicious_sand{LootTable:"vb:archaeology/wrecked_end_ship"} replace minecraft:sand

## Kill
kill @s