execute store result score @s vb.dummy1 run random value 1..24

$execute if score @s vb.dummy1 matches 1 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.5,$(height),0'}
$execute if score @s vb.dummy1 matches 2 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.4,$(height),0.1'}
$execute if score @s vb.dummy1 matches 3 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.3,$(height),0.2'}
$execute if score @s vb.dummy1 matches 4 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.2,$(height),0.3'}
$execute if score @s vb.dummy1 matches 5 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.1,$(height),0.4'}
$execute if score @s vb.dummy1 matches 6 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0,$(height),0.5'}

$execute if score @s vb.dummy1 matches 7 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.5,$(height),0'}
$execute if score @s vb.dummy1 matches 8 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.4,$(height),0.1'}
$execute if score @s vb.dummy1 matches 9 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.3,$(height),0.2'}
$execute if score @s vb.dummy1 matches 10 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.2,$(height),0.3'}
$execute if score @s vb.dummy1 matches 11 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.1,$(height),0.4'}
$execute if score @s vb.dummy1 matches 12 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0,$(height),0.5'}

$execute if score @s vb.dummy1 matches 13 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.5,$(height),0'}
$execute if score @s vb.dummy1 matches 14 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.4,$(height),-0.1'}
$execute if score @s vb.dummy1 matches 15 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.3,$(height),-0.2'}
$execute if score @s vb.dummy1 matches 16 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.2,$(height),-0.3'}
$execute if score @s vb.dummy1 matches 17 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0.1,$(height),-0.4'}
$execute if score @s vb.dummy1 matches 18 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0,$(height),-0.5'}

$execute if score @s vb.dummy1 matches 19 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.5,$(height),0'}
$execute if score @s vb.dummy1 matches 20 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.4,$(height),-0.1'}
$execute if score @s vb.dummy1 matches 21 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.3,$(height),-0.2'}
$execute if score @s vb.dummy1 matches 22 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.2,$(height),-0.3'}
$execute if score @s vb.dummy1 matches 23 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'-0.1,$(height),-0.4'}
$execute if score @s vb.dummy1 matches 24 run function vb:summon/oceanic_orb_trident {coords:'~ ~1 ~',motion:'0,$(height),-0.5'}