advancement revoke @s only vb:technical/soul_stealing/wither_skeleton

execute store result score @s vb.dummy1 run data get entity @s SelectedItem.components."minecraft:enchantments"."vb:soul_stealing"
execute store result score @s vb.dummy2 run random value 1..80
execute if score @s vb.dummy2 <= @s vb.dummy1 run loot give @s loot vb:items/wither_skeleton_soul