execute at @a[distance=..40] unless score #VB vb.settings.disable_things_that_grief matches 1 run setblock ~ ~ ~ water destroy
effect give @a[distance=..40] minecraft:slowness 30 1
execute at @a[distance=..40] run particle entity_effect{color:[0.0,0.02,0.52,1.0]} ~ ~1 ~ 0.5 0.5 0.5 1 30